Pie Script

By Clueless on May 21, 2007

Usage: let people to type !pie to throw a pie at someone.
To throw it at someone you can type !pie .

Enabling/Disabling: If someone keeps abusing this script you can Right click on the channel menu and click Disable/Enable Pie to turn it on/off.

Note: you dont have to turn off all of your remotes when enabling/disabling the script!!!

If you need any help with the script just PM me or email me at Clueless222@gmail.com

Where to put it: Put this Snippet in your Remotes and save as .mrc

There is also a pretty good Description in the code[well i think its a good description] as well.

;#################################################################
;#                   Pie Snippet By: Clueless                    #
;#  Usage: let people to type !pie <nickname> to throw a pie at  #
;#        someone.  To throw it at someone you can type          #
;#        !pie <nickname>.                                       #
;#                                                               #
;#  Enabling/Disabling: If someone keeps abusing this script     #
;#         you can Right click on the channel menu and click     #
;#         Disable/Enable Pie to turn it on/off. Note: you dont  #
;#         Have to turn off all of your remotes when             #
;#         enabling/disabling the script!!!                      #
;#                                                               #
;#  Where to put this code: Put this Snippet in your Remotes     #
;#         and save as .mrc                                      #
;#                                                               #
;#  You can contact me at Clueless222@gmail.com or pm me on      #
;#         hawkee.com                                            # 
;#################################################################

menu * {
  .$iif($group(#pie) == off,Enable,Disable) Pie: $iif($group(#pie) == off,.enable,.disable) #pie
}
#pie on
on *:text:!pie*:#: {
  if ($2 == $me) {
    /set %throw.pie $rand(1,8)
    if ((%throw.pie == 1)) /describe $chan throws a blueberry pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 2)) /describe $chan throws a cherry pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 3)) /describe $chan throws a normal pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 4)) /describe $chan throws an apple pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 5)) /describe $chan throws a pumpkin pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 6)) /describe $chan throws a sweet potato pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 7)) /describe $chan throws an apple cinnamon pie at $nick and laughs saying OOPZ.
    if ((%throw.pie == 8)) /describe $chan throws a chicken pot pie at $nick and laughs saying OOPZ.
  }
  if ($2 != $null) {
    /set %throw.pie $rand(1,8)
    if ((%throw.pie == 1)) /describe $chan throws a blueberry pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 2)) /describe $chan throws a cherry pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 3)) /describe $chan throws a normal pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 4)) /describe $chan throws an apple pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 5)) /describe $chan throws a pumpkin pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 6)) /describe $chan throws a sweet potato pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 7)) /describe $chan throws an apple cinnamon pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 8)) /describe $chan throws a chicken pot pie at $2- and laughs saying it was from $nick $+ .
  } 
  if ($2 == $null) {
    /set %throw.pie $rand(1,8)
    if ((%throw.pie == 1)) /describe $chan throws a blueberry pie at $nick and laughs $+ .
    if ((%throw.pie == 2)) /describe $chan throws a cherry pie at $nick and laughs $+ .
    if ((%throw.pie == 3)) /describe $chan throws a normal pie at $nick and laughs $+ .
    if ((%throw.pie == 4)) /describe $chan throws an apple pie at $nick and laughs $+ .
    if ((%throw.pie == 5)) /describe $chan throws a pumpkin pie at $nick and laughs $+ .
    if ((%throw.pie == 6)) /describe $chan throws a sweet potato pie at $nick and laughs $+ .
    if ((%throw.pie == 7)) /describe $chan throws an apple cinnamon pie at $nick and laughs $+ .
    if ((%throw.pie == 8)) /describe $chan throws a chicken pot pie at $nick and laughs $+ .
  }
  alias pie {
    /set %throw.pie $rand(1,8)
    if ((%throw.pie == 1)) /describe $chan throws a blueberry pie at $2- and laughs $+ .
    if ((%throw.pie == 2)) /describe $chan throws a cherry pie at $2- and laughs $+ .
    if ((%throw.pie == 3)) /describe $chan throws a normal pie at $2- and laughs $+ .
    if ((%throw.pie == 4)) /describe $chan throws an apple pie at $2- and laughs $+ .
    if ((%throw.pie == 5)) /describe $chan throws a pumpkin pie at $2- and laughs $+ .
    if ((%throw.pie == 6)) /describe $chan throws a sweet potato pie at $2- and laughs $+ .
    if ((%throw.pie == 7)) /describe $chan throws an apple cinnamon pie at $2- and laughs $+ .
    if ((%throw.pie == 8)) /describe $chan throws a chicken pot pie at $2- and laughs $+ .
  }
}
#pie end

;the alias part works but im still trying to get some of the other parts to work. if you can fix them yourself go ahead but im still working on it.

Comments

Sign in to comment.
guest598594   -  Dec 10, 2007
  if ($2 != $null) {
    /set %throw.pie $rand(1,8)
    if ((%throw.pie == 1)) /describe $chan throws a blueberry pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 2)) /describe $chan throws a cherry pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 3)) /describe $chan throws a normal pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 4)) /describe $chan throws an apple pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 5)) /describe $chan throws a pumpkin pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 6)) /describe $chan throws a sweet potato pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 7)) /describe $chan throws an apple cinnamon pie at $2- and laughs saying it was from $nick $+ .
    if ((%throw.pie == 8)) /describe $chan throws a chicken pot pie at $2- and laughs saying it was from $nick $+ .
  } 

like cantseeme said, it can be simplified a lot

i would do

  if (!$2) describe $chan throws a $gettok(blueberry|cherry|normal|apple|pumpkin|sweet potato|apple cinnamon|chicken pot,$r(1,8),124) pie at $nick and laughs $+ .
 Respond  
Clueless   -  Jun 06, 2007

The first and second part of the code is for other people to use.
The third part is for you to use. To use it YOU type !pie <someone\'s nickname> and you throw a pie at them.

And also im not that good of a scriptor and im still learning how to use more complex commands. So when i get better they will start looking more clean. :P

 Respond  
cantseeme   -  May 21, 2007

Firstly, there are a couple things I would change:
1) instead of all these line cosuming if statements(will also make script REALLY short and compact) make one a text file and put these in there)

on *:text:!pie*:#pie: {
   if ($2 == $me) { describe $chan $read(c:\\users\\mark\\pie.txt) at $nick OPPZ. }
else if ($2 == $null) {
describe $chan $read(c:\\users\\mark\\pie.txt) and laughs.
}
else {
describe $chan $read(c:\\users\\mark\\pie.txt) at $2 and laughs.
}

Oh and p.s. I DONT UNDERSTAND WHY YOU HAVE THE SAME CODE LIKE THREE TIMES??
Don\'t forget to change the channel name to yours and the correct file path.
The goal in coding is to have the shortest,quickest, most efficent code possible.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.