My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 18th, 2010 | Syntax: None | Size: 17.28 KB | Hits: 69 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. verb "em(ote)"
  2. {
  3.    global ply, labl, fivetemp$, text$, temp$;
  4.    local person;
  5.    (* April Fools' stuff. *) local string@, string2@, count, n, word$, punc$;
  6.    
  7.    person = node[ply].persona;
  8.    
  9.         if (amigod(ply)<CELANI and room[PLY_ROOM(ply)].flag[65]) then
  10.    {
  11.       unimsg(ply,"In order to reduce spam, you may not emote here.\n");
  12.       return;
  13.    }
  14.    
  15.    if game.flag[175] and PLY_ROOM(ply) = search_room("town_hall") and !player[ply].flag[1802] then
  16.    {
  17.         unimsg(ply, "You may not emote here at this time.\n");
  18.         return;
  19.         }
  20.    
  21.    labl=0;
  22.    fivetemp$=words$(game.input$,2,0);
  23.  
  24.    if (words$(game.input$,2,0)="") then
  25.    {
  26.       unimsg(ply,msg$(620));
  27.       return;
  28.    }
  29.         if !balance_check(ply,1,1,0) then return;
  30.  
  31.         if (persona[person].data[2]<95 and length(text$)>80) then
  32.    {
  33.       unimsg(ply,"Sadly, you aren't able to act out something that complicated.\n");
  34.       return;
  35.    }
  36.    
  37.    if pos(fivetemp$, "^", 0) then
  38.       {
  39.          game.Advemote=1;
  40.          fivetemp$=replace$(fivetemp$, "^", UC$(player[ply].name$));
  41.       }
  42.        
  43.         text$=fivetemp$;
  44.         if game.month <= 4 (*and game.day = 1*) then
  45.         {
  46.            word$ = words$(text$, count, count);
  47.            n = how_many_words_in_string(text$);
  48.            count = 1;
  49.  
  50.            while count <= n do
  51.            {
  52.               word$ = words$(text$, count, count);
  53.               push(string@, word$);
  54.               word$ = "";
  55.               count += 1;
  56.            }
  57.  
  58.            n = size(string@);
  59.            count = 0;
  60.            while count <= n do
  61.           {
  62.              for count in string@ do
  63.              {
  64.                 word$ = shift$(string@);
  65.                 if !alnum(right$(word$, 1)) then
  66.                 {
  67.                    punc$ = right$(word$, 1);
  68.                    word$ = left$(word$, length(word$)-1);
  69.                 }
  70.                    
  71.                else if word$ = "say" then
  72.                    word$ = "sing";
  73.                 else if word$ = "says" then
  74.                    word$ = "sings";
  75.                 else if word$ = "saying" then
  76.                    word$ = "singing";
  77.  
  78.                 if punc$ then word$ += punc$;
  79.                 punc$ = "";
  80.  
  81.                 push(string2@, word$);
  82.              }
  83.              count+=1;
  84.          }
  85.          text$ = join$(string2@, " ");
  86.       }
  87.  
  88.         eardivine(ply);
  89.  
  90.         text$=downdots$(text$);
  91.         text$=condense_spaces$(text$);
  92.         (*text$=drunken_communication$(ply,text$);*)
  93.  
  94.        
  95.         if (!game.Advemote) then
  96.            unimsg(ply,msg$(41045));
  97.         else
  98.         {
  99.            text$=capitalise$(text$);
  100.            (*unimsg(ply,"You have emoted: " +text$ + "\n");*)
  101.            count = 1;
  102.  
  103.          while words$(text$, count, count) != left$("\"", 1) do
  104.          {
  105.             unimsgc(ply, CONFIG_SAYS, words$(text$,0, count - 1));
  106.             count += 1;
  107.  
  108.             while words$(text$, count, count) != right$("\"", 1) do
  109.             {
  110.                unimsgc(ply, CONFIG_EMOTES, words$(text$, count + 1, 0));
  111.                count += 1;
  112.             }
  113.          }
  114.       }
  115.        
  116.        
  117.  
  118.         temp$=makename$(ply);
  119.         if PREDATION_MASK(ply) then temp$ = predation_get_name$(ply);
  120.  
  121.         if MUTED(node[ply].persona) then return;
  122.         fivetemp$=downdots$(fivetemp$);
  123.         emotesee(ply, fivetemp$);
  124.         if (!game.Advemote) then
  125.            use_balance(ply,100);
  126.         else
  127.            use_balance(ply,500);
  128.         game.Advemote=0;
  129.        
  130.    ply_remove_pose(ply,1);
  131. }
  132. verb "em(ote)"
  133. {
  134.    global ply, labl, fivetemp$, text$, temp$;
  135.    local person;
  136.    (* April Fools' stuff. *) local string@, string2@, count, n, word$, punc$;
  137.    
  138.    person = node[ply].persona;
  139.    
  140.         if (amigod(ply)<CELANI and room[PLY_ROOM(ply)].flag[65]) then
  141.    {
  142.       unimsg(ply,"In order to reduce spam, you may not emote here.\n");
  143.       return;
  144.    }
  145.    
  146.    if game.flag[175] and PLY_ROOM(ply) = search_room("town_hall") and !player[ply].flag[1802] then
  147.    {
  148.         unimsg(ply, "You may not emote here at this time.\n");
  149.         return;
  150.         }
  151.    
  152.    labl=0;
  153.    fivetemp$=words$(game.input$,2,0);
  154.  
  155.    if (words$(game.input$,2,0)="") then
  156.    {
  157.       unimsg(ply,msg$(620));
  158.       return;
  159.    }
  160.         if !balance_check(ply,1,1,0) then return;
  161.  
  162.         if (persona[person].data[2]<95 and length(text$)>80) then
  163.    {
  164.       unimsg(ply,"Sadly, you aren't able to act out something that complicated.\n");
  165.       return;
  166.    }
  167.    
  168.    if pos(fivetemp$, "^", 0) then
  169.       {
  170.          game.Advemote=1;
  171.          fivetemp$=replace$(fivetemp$, "^", UC$(player[ply].name$));
  172.       }
  173.        
  174.         text$=fivetemp$;
  175.         if game.month <= 4 (*and game.day = 1*) then
  176.         {
  177.            word$ = words$(text$, count, count);
  178.            n = how_many_words_in_string(text$);
  179.            count = 1;
  180.  
  181.            while count <= n do
  182.            {
  183.               word$ = words$(text$, count, count);
  184.               push(string@, word$);
  185.               word$ = "";
  186.               count += 1;
  187.            }
  188.  
  189.            n = size(string@);
  190.            count = 0;
  191.            while count <= n do
  192.           {
  193.              for count in string@ do
  194.              {
  195.                 word$ = shift$(string@);
  196.                 if !alnum(right$(word$, 1)) then
  197.                 {
  198.                    punc$ = right$(word$, 1);
  199.                    word$ = left$(word$, length(word$)-1);
  200.                 }
  201.                    
  202.                else if word$ = "say" then
  203.                    word$ = "sing";
  204.                 else if word$ = "says" then
  205.                    word$ = "sings";
  206.                 else if word$ = "saying" then
  207.                    word$ = "singing";
  208.  
  209.                 if punc$ then word$ += punc$;
  210.                 punc$ = "";
  211.  
  212.                 push(string2@, word$);
  213.              }
  214.              count+=1;
  215.          }
  216.          text$ = join$(string2@, " ");
  217.       }
  218.  
  219.         eardivine(ply);
  220.  
  221.         text$=downdots$(text$);
  222.         text$=condense_spaces$(text$);
  223.         (*text$=drunken_communication$(ply,text$);*)
  224.  
  225.        
  226.         if (!game.Advemote) then
  227.            unimsg(ply,msg$(41045));
  228.         else
  229.         {
  230.            text$=capitalise$(text$);
  231.            (*unimsg(ply,"You have emoted: " +text$ + "\n");*)
  232.            count = 1;
  233.  
  234.          while words$(text$, count, count) != left$("\"", 1) do
  235.          {
  236.             unimsgc(ply, CONFIG_SAYS, words$(text$,0, count - 1));
  237.             count += 1;
  238.  
  239.             while words$(text$, count, count) != right$("\"", 1) do
  240.             {
  241.                unimsgc(ply, CONFIG_EMOTES, words$(text$, count + 1, 0));
  242.                count += 1;
  243.             }
  244.          }
  245.       }
  246.        
  247.        
  248.  
  249.         temp$=makename$(ply);
  250.         if PREDATION_MASK(ply) then temp$ = predation_get_name$(ply);
  251.  
  252.         if MUTED(node[ply].persona) then return;
  253.         fivetemp$=downdots$(fivetemp$);
  254.         emotesee(ply, fivetemp$);
  255.         if (!game.Advemote) then
  256.            use_balance(ply,100);
  257.         else
  258.            use_balance(ply,500);
  259.         game.Advemote=0;
  260.        
  261.    ply_remove_pose(ply,1);
  262. }
  263. verb "em(ote)"
  264. {
  265.    global ply, labl, fivetemp$, text$, temp$;
  266.    local person;
  267.    (* April Fools' stuff. *) local string@, string2@, count, n, word$, punc$;
  268.    
  269.    person = node[ply].persona;
  270.    
  271.         if (amigod(ply)<CELANI and room[PLY_ROOM(ply)].flag[65]) then
  272.    {
  273.       unimsg(ply,"In order to reduce spam, you may not emote here.\n");
  274.       return;
  275.    }
  276.    
  277.    if game.flag[175] and PLY_ROOM(ply) = search_room("town_hall") and !player[ply].flag[1802] then
  278.    {
  279.         unimsg(ply, "You may not emote here at this time.\n");
  280.         return;
  281.         }
  282.    
  283.    labl=0;
  284.    fivetemp$=words$(game.input$,2,0);
  285.  
  286.    if (words$(game.input$,2,0)="") then
  287.    {
  288.       unimsg(ply,msg$(620));
  289.       return;
  290.    }
  291.         if !balance_check(ply,1,1,0) then return;
  292.  
  293.         if (persona[person].data[2]<95 and length(text$)>80) then
  294.    {
  295.       unimsg(ply,"Sadly, you aren't able to act out something that complicated.\n");
  296.       return;
  297.    }
  298.    
  299.    if pos(fivetemp$, "^", 0) then
  300.       {
  301.          game.Advemote=1;
  302.          fivetemp$=replace$(fivetemp$, "^", UC$(player[ply].name$));
  303.       }
  304.        
  305.         text$=fivetemp$;
  306.         if game.month <= 4 (*and game.day = 1*) then
  307.         {
  308.            word$ = words$(text$, count, count);
  309.            n = how_many_words_in_string(text$);
  310.            count = 1;
  311.  
  312.            while count <= n do
  313.            {
  314.               word$ = words$(text$, count, count);
  315.               push(string@, word$);
  316.               word$ = "";
  317.               count += 1;
  318.            }
  319.  
  320.            n = size(string@);
  321.            count = 0;
  322.            while count <= n do
  323.           {
  324.              for count in string@ do
  325.              {
  326.                 word$ = shift$(string@);
  327.                 if !alnum(right$(word$, 1)) then
  328.                 {
  329.                    punc$ = right$(word$, 1);
  330.                    word$ = left$(word$, length(word$)-1);
  331.                 }
  332.                    
  333.                else if word$ = "say" then
  334.                    word$ = "sing";
  335.                 else if word$ = "says" then
  336.                    word$ = "sings";
  337.                 else if word$ = "saying" then
  338.                    word$ = "singing";
  339.  
  340.                 if punc$ then word$ += punc$;
  341.                 punc$ = "";
  342.  
  343.                 push(string2@, word$);
  344.              }
  345.              count+=1;
  346.          }
  347.          text$ = join$(string2@, " ");
  348.       }
  349.  
  350.         eardivine(ply);
  351.  
  352.         text$=downdots$(text$);
  353.         text$=condense_spaces$(text$);
  354.         (*text$=drunken_communication$(ply,text$);*)
  355.  
  356.        
  357.         if (!game.Advemote) then
  358.            unimsg(ply,msg$(41045));
  359.         else
  360.         {
  361.            text$=capitalise$(text$);
  362.            (*unimsg(ply,"You have emoted: " +text$ + "\n");*)
  363.            count = 1;
  364.  
  365.          while words$(text$, count, count) != left$("\"", 1) do
  366.          {
  367.             unimsgc(ply, CONFIG_SAYS, words$(text$,0, count - 1));
  368.             count += 1;
  369.  
  370.             while words$(text$, count, count) != right$("\"", 1) do
  371.             {
  372.                unimsgc(ply, CONFIG_EMOTES, words$(text$, count + 1, 0));
  373.                count += 1;
  374.             }
  375.          }
  376.       }
  377.        
  378.        
  379.  
  380.         temp$=makename$(ply);
  381.         if PREDATION_MASK(ply) then temp$ = predation_get_name$(ply);
  382.  
  383.         if MUTED(node[ply].persona) then return;
  384.         fivetemp$=downdots$(fivetemp$);
  385.         emotesee(ply, fivetemp$);
  386.         if (!game.Advemote) then
  387.            use_balance(ply,100);
  388.         else
  389.            use_balance(ply,500);
  390.         game.Advemote=0;
  391.        
  392.    ply_remove_pose(ply,1);
  393. }
  394. verb "em(ote)"
  395. {
  396.    global ply, labl, fivetemp$, text$, temp$;
  397.    local person;
  398.    (* April Fools' stuff. *) local string@, string2@, count, n, word$, punc$;
  399.    
  400.    person = node[ply].persona;
  401.    
  402.         if (amigod(ply)<CELANI and room[PLY_ROOM(ply)].flag[65]) then
  403.    {
  404.       unimsg(ply,"In order to reduce spam, you may not emote here.\n");
  405.       return;
  406.    }
  407.    
  408.    if game.flag[175] and PLY_ROOM(ply) = search_room("town_hall") and !player[ply].flag[1802] then
  409.    {
  410.         unimsg(ply, "You may not emote here at this time.\n");
  411.         return;
  412.         }
  413.    
  414.    labl=0;
  415.    fivetemp$=words$(game.input$,2,0);
  416.  
  417.    if (words$(game.input$,2,0)="") then
  418.    {
  419.       unimsg(ply,msg$(620));
  420.       return;
  421.    }
  422.         if !balance_check(ply,1,1,0) then return;
  423.  
  424.         if (persona[person].data[2]<95 and length(text$)>80) then
  425.    {
  426.       unimsg(ply,"Sadly, you aren't able to act out something that complicated.\n");
  427.       return;
  428.    }
  429.    
  430.    if pos(fivetemp$, "^", 0) then
  431.       {
  432.          game.Advemote=1;
  433.          fivetemp$=replace$(fivetemp$, "^", UC$(player[ply].name$));
  434.       }
  435.        
  436.         text$=fivetemp$;
  437.         if game.month <= 4 (*and game.day = 1*) then
  438.         {
  439.            word$ = words$(text$, count, count);
  440.            n = how_many_words_in_string(text$);
  441.            count = 1;
  442.  
  443.            while count <= n do
  444.            {
  445.               word$ = words$(text$, count, count);
  446.               push(string@, word$);
  447.               word$ = "";
  448.               count += 1;
  449.            }
  450.  
  451.            n = size(string@);
  452.            count = 0;
  453.            while count <= n do
  454.           {
  455.              for count in string@ do
  456.              {
  457.                 word$ = shift$(string@);
  458.                 if !alnum(right$(word$, 1)) then
  459.                 {
  460.                    punc$ = right$(word$, 1);
  461.                    word$ = left$(word$, length(word$)-1);
  462.                 }
  463.                    
  464.                else if word$ = "say" then
  465.                    word$ = "sing";
  466.                 else if word$ = "says" then
  467.                    word$ = "sings";
  468.                 else if word$ = "saying" then
  469.                    word$ = "singing";
  470.  
  471.                 if punc$ then word$ += punc$;
  472.                 punc$ = "";
  473.  
  474.                 push(string2@, word$);
  475.              }
  476.              count+=1;
  477.          }
  478.          text$ = join$(string2@, " ");
  479.       }
  480.  
  481.         eardivine(ply);
  482.  
  483.         text$=downdots$(text$);
  484.         text$=condense_spaces$(text$);
  485.         (*text$=drunken_communication$(ply,text$);*)
  486.  
  487.        
  488.         if (!game.Advemote) then
  489.            unimsg(ply,msg$(41045));
  490.         else
  491.         {
  492.            text$=capitalise$(text$);
  493.            (*unimsg(ply,"You have emoted: " +text$ + "\n");*)
  494.            count = 1;
  495.  
  496.          while words$(text$, count, count) != left$("\"", 1) do
  497.          {
  498.             unimsgc(ply, CONFIG_SAYS, words$(text$,0, count - 1));
  499.             count += 1;
  500.  
  501.             while words$(text$, count, count) != right$("\"", 1) do
  502.             {
  503.                unimsgc(ply, CONFIG_EMOTES, words$(text$, count + 1, 0));
  504.                count += 1;
  505.             }
  506.          }
  507.       }
  508.        
  509.        
  510.  
  511.         temp$=makename$(ply);
  512.         if PREDATION_MASK(ply) then temp$ = predation_get_name$(ply);
  513.  
  514.         if MUTED(node[ply].persona) then return;
  515.         fivetemp$=downdots$(fivetemp$);
  516.         emotesee(ply, fivetemp$);
  517.         if (!game.Advemote) then
  518.            use_balance(ply,100);
  519.         else
  520.            use_balance(ply,500);
  521.         game.Advemote=0;
  522.        
  523.    ply_remove_pose(ply,1);
  524. }
  525. verb "em(ote)"
  526. {
  527.    global ply, labl, fivetemp$, text$, temp$;
  528.    local person;
  529.    (* April Fools' stuff. *) local string@, string2@, count, n, word$, punc$;
  530.    
  531.    person = node[ply].persona;
  532.    
  533.         if (amigod(ply)<CELANI and room[PLY_ROOM(ply)].flag[65]) then
  534.    {
  535.       unimsg(ply,"In order to reduce spam, you may not emote here.\n");
  536.       return;
  537.    }
  538.    
  539.    if game.flag[175] and PLY_ROOM(ply) = search_room("town_hall") and !player[ply].flag[1802] then
  540.    {
  541.         unimsg(ply, "You may not emote here at this time.\n");
  542.         return;
  543.         }
  544.    
  545.    labl=0;
  546.    fivetemp$=words$(game.input$,2,0);
  547.  
  548.    if (words$(game.input$,2,0)="") then
  549.    {
  550.       unimsg(ply,msg$(620));
  551.       return;
  552.    }
  553.         if !balance_check(ply,1,1,0) then return;
  554.  
  555.         if (persona[person].data[2]<95 and length(text$)>80) then
  556.    {
  557.       unimsg(ply,"Sadly, you aren't able to act out something that complicated.\n");
  558.       return;
  559.    }
  560.    
  561.    if pos(fivetemp$, "^", 0) then
  562.       {
  563.          game.Advemote=1;
  564.          fivetemp$=replace$(fivetemp$, "^", UC$(player[ply].name$));
  565.       }
  566.        
  567.         text$=fivetemp$;
  568.         if game.month <= 4 (*and game.day = 1*) then
  569.         {
  570.            word$ = words$(text$, count, count);
  571.            n = how_many_words_in_string(text$);
  572.            count = 1;
  573.  
  574.            while count <= n do
  575.            {
  576.               word$ = words$(text$, count, count);
  577.               push(string@, word$);
  578.               word$ = "";
  579.               count += 1;
  580.            }
  581.  
  582.            n = size(string@);
  583.            count = 0;
  584.            while count <= n do
  585.           {
  586.              for count in string@ do
  587.              {
  588.                 word$ = shift$(string@);
  589.                 if !alnum(right$(word$, 1)) then
  590.                 {
  591.                    punc$ = right$(word$, 1);
  592.                    word$ = left$(word$, length(word$)-1);
  593.                 }
  594.                    
  595.                else if word$ = "say" then
  596.                    word$ = "sing";
  597.                 else if word$ = "says" then
  598.                    word$ = "sings";
  599.                 else if word$ = "saying" then
  600.                    word$ = "singing";
  601.  
  602.                 if punc$ then word$ += punc$;
  603.                 punc$ = "";
  604.  
  605.                 push(string2@, word$);
  606.              }
  607.              count+=1;
  608.          }
  609.          text$ = join$(string2@, " ");
  610.       }
  611.  
  612.         eardivine(ply);
  613.  
  614.         text$=downdots$(text$);
  615.         text$=condense_spaces$(text$);
  616.         (*text$=drunken_communication$(ply,text$);*)
  617.  
  618.        
  619.         if (!game.Advemote) then
  620.            unimsg(ply,msg$(41045));
  621.         else
  622.         {
  623.            text$=capitalise$(text$);
  624.            (*unimsg(ply,"You have emoted: " +text$ + "\n");*)
  625.            @h@count = 1;
  626.  
  627.          while words$(text$, count, count) != left$("\"", 1) do
  628.          {
  629.             unimsgc(ply, CONFIG_SAYS, words$(text$,0, count - 1));
  630.             count += 1;
  631.  
  632.             while words$(text$, count, count) != right$("\"", 1) do
  633.             {
  634.                unimsgc(ply, CONFIG_EMOTES, words$(text$, count + 1, 0));
  635.                count += 1;
  636.             }
  637.          }@h@
  638.       }
  639.         ## The text between the highlights is what is affected.
  640.        
  641.  
  642.         temp$=makename$(ply);
  643.         if PREDATION_MASK(ply) then temp$ = predation_get_name$(ply);
  644.  
  645.         if MUTED(node[ply].persona) then return;
  646.         fivetemp$=downdots$(fivetemp$);
  647.         emotesee(ply, fivetemp$);
  648.         if (!game.Advemote) then
  649.            use_balance(ply,100);
  650.         else
  651.            use_balance(ply,500);
  652.         game.Advemote=0;
  653.        
  654.    ply_remove_pose(ply,1);
  655. }
create new paste | create new version of this paste RAW Paste Data