SHARE
TWEET

Red_Queen

a guest Aug 16th, 2013 11 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; This is a 100% original script by NickLeStrange (Nicholas Green)
  2. ; Facebook: http://www.facebook.com/nicklestrange
  3. ; Feel free to copy/change/plagiarise
  4. ; __________________________________________________________________
  5.  
  6. on 1:text:*:#vampyres_cathedral {
  7.   ; **** First part of the script writes what is said in the channel to the RandomSay.txt file. ****
  8.  
  9.   write -i RandomSay.txt $1-
  10.   var %r = $rand(1,166)
  11.   var %r2 = $rand(1,180)
  12.   set %randomtalk %r
  13.   set %randommatch %r2
  14.   if (%randomtalk == %randommatch) .msg #vampyres_cathedral $read(RandomSay.txt)
  15.   .echo $time ** The current Random Say variables are %randomtalk and %randommatch
  16.  
  17.   ; **** This part of the script responds to certain things that you ask Red_Queen to do that's funny and not about channel moderation. ****
  18.  
  19.   if (($1 == Red_Queen) && ($2 == dance)) { .describe $chan shakes her pussy on the dance floor until it falls off. }
  20.   elseif (($1 == Red_Queen) && ($2 == lap) && ($3 == dance)) {
  21.     if ($4 == $null) { Is that a sort of lap dance $nick $+ ? Because I don't know that one. }
  22.     else { .describe $chan performs a lap dance and grinds $5 $+ 's lap to shreds. }
  23.   }
  24.   elseif (($1 == Red_Queen) && ($2 == tie) && ($3 == down)) {
  25.     if ($4 == $null) { Please learn how to formulate a proper sentence, then ask me again. }
  26.     else { .describe $chan ties $4 down, and sticks a ball-gag in $4 $+ 's mouth. }
  27.   }
  28.   elseif (($1 == Red_Queen) && ($2 == whip)) {
  29.     if ($3 == $null) { Please learn how to formulate a proper sentence, then ask me again. }
  30.     else { .describe $chan purrs excitedly as she sets the cat 'o nine tails, repeatedly, to $3's backside. }
  31.   }
  32.   elseif (($1 == Red_Queen) && ($2 == isn't) && ($3 == he) && ($4 == sexy?)) { .describe $chan takes off her panties and throws them at him. }
  33.   elseif (($1 == Red_Queen) && ($2 == isn't) && ($3 == she) && ($4 == sexy?)) { .describe $chan takes off her panties and throws them at her. }
  34.   elseif (($1 == Red_Queen) && ($2 == isn't) && ($4 == sexy?)) {
  35.     if (($3 == $null) { I don't know who you're talking about. }
  36.     else { .describe $chan takes off her panties and throws them at $3 $+ . }
  37.   }
  38.   elseif (($1 == Red_Queen) && ($2 == isn't) && ($5 == sexy?)) {
  39.     if (($3 == $null) && ($4 == $null)) { I don't know who you're talking about. }
  40.     else { .describe $chan takes off her panties and throws them at $3 $4 $+ . }
  41.   }
  42.   elseif (($1 == Red_Queen) && ($2 == say) && ($3 == something) && ($4 == clever)) { .timerdoit 1 3 .msg #vampyres_cathedral $read(Quotes.txt) }
  43.   elseif ($1 == !quote) { .timerdoit 1 3 .msg #vampyres_cathedral $read(Quotes.txt) }
  44.  
  45.   ; **** This part of the script is where you ask Red_Queen to do some channel moderation. ****
  46.  
  47.   if ($nick isop #vampyres_cathedral) {
  48.     if (($1 == Red_Queen) && ($3 == Red_Queen)) { .msg #vampyres_cathedral Nice try $nick }
  49.     elseif (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  50.     elseif (($1 == Red_Queen) &&  ($2 == ban)) { .ban #vampyres_cathedral $3 1 | .ban #vampyres_cathedral $3 2 | .ban #vampyres_cathedral $3 3 | .ban -k #vampyres_cathedral $3 4 You've been served. Suck it! }
  51.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  52.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  53.   }
  54.  
  55.   elseif ($nick == dev) {
  56.     if (($1 == Red_Queen) && ($3 == Red_Queen)) { .msg #vampyres_cathedral Nice try $nick }
  57.     elseif (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  58.     elseif (($1 == Red_Queen) &&  ($2 == ban)) { .ban #vampyres_cathedral $3 1 | .ban #vampyres_cathedral $3 2 | .ban #vampyres_cathedral $3 3 | .ban -k #vampyres_cathedral $3 4 You've been served. Suck it! }
  59.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  60.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  61.   }
  62.  
  63.   elseif ($nick == Velvethex) {
  64.     if (($1 == Red_Queen) && ($3 == Red_Queen)) { .msg #vampyres_cathedral Nice try $nick }
  65.     elseif (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  66.     elseif (($1 == Red_Queen) &&  ($2 == ban)) { .ban #vampyres_cathedral $3 1 | .ban #vampyres_cathedral $3 2 | .ban #vampyres_cathedral $3 3 | .ban -k #vampyres_cathedral $3 4 You've been served. Suck it! }
  67.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  68.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  69.   }
  70.  
  71.   elseif ($nick == Cosmick) {
  72.     if (($1 == Red_Queen) && ($3 == Red_Queen)) { .describe #vampyres_cathedral pees in $nick $+ 's ear. }
  73.     elseif (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  74.     elseif (($1 == Red_Queen) &&  ($2 == ban)) { .ban #vampyres_cathedral $3 1 | .ban #vampyres_cathedral $3 2 | .ban #vampyres_cathedral $3 3 | .ban -k #vampyres_cathedral $3 4 You've been served. Suck it! }
  75.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  76.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  77.   }
  78.  
  79.   elseif ($nick == CosmicLogick) {
  80.     if (($1 == Red_Queen) && ($3 == Red_Queen)) { .describe #vampyres_cathedral pees in $nick $+ 's ear. }
  81.     elseif (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  82.     elseif (($1 == Red_Queen) &&  ($2 == ban)) { .ban #vampyres_cathedral $3 1 | .ban #vampyres_cathedral $3 2 | .ban #vampyres_cathedral $3 3 | .ban -k #vampyres_cathedral $3 4 You've been served. Suck it! }
  83.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  84.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  85.   }
  86.  
  87.   elseif ($nick == hex) {
  88.     if (($1 == Red_Queen) && ($3 == Red_Queen)) { .msg #vampyres_cathedral Nice try $nick }
  89.     elseif (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  90.     elseif (($1 == Red_Queen) &&  ($2 == ban)) { .ban #vampyres_cathedral $3 1 | .ban #vampyres_cathedral $3 2 | .ban #vampyres_cathedral $3 3 | .ban -k #vampyres_cathedral $3 4 You've been served. Suck it! }
  91.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  92.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  93.   }
  94. }
  95.  
  96. on 1:text:!topic *:?: {
  97.   if ($nick isop #vampyres_cathedral) { .topic #vampyres_cathedral $2- }
  98.   elseif ($nick == dev) { .topic #vampyres_cathedral $2- }
  99.   elseif ($nick == Velvethex) { .topic #vampyres_cathedral $2- }
  100.   elseif ($nick == hex) { .topic #vampyres_cathedral $2- }
  101.   elseif ($nick == Cosmick) { .topic #vampyres_cathedral $2- }
  102. }
  103.  
  104. ; **** This is some more fun stuff for Red_Queen to do. ****
  105.  
  106. on 1:text:!sayit *:? {
  107.   .timersayit 1 3 .msg #vampyres_cathedral $2-
  108. }
  109.  
  110. on 1:text:!doit *:? {
  111.   .timerdoit 1 3 .describe #vampyres_cathedral $2-
  112. }
  113.  
  114. on 1:text:!echoit *:? {
  115.   .timerechoit 1 3 .msg $nick $2-
  116. }
  117.  
  118. on 1:text:!rejoin:? {
  119.   /join #vampyres_cathedral
  120. }
  121.  
  122. ; **** This part of the script is to control Red_Queen in case of disconnects or other tasks to manage her remotely. ****
  123.  
  124. on 1:text:!ghost:? {
  125.   if ($nick isop $chan) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  126.   elseif ($nick == dev) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  127.   elseif ($nick == velvethex) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  128.   elseif ($nick == hex) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  129.   elseif ($nick == cosmic) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  130. }
  131.  
  132. on 1:text:!ident:? {
  133.   if ($nick isop $chan) { /nick NickLeStrange | /msg nickserv identify psswd | /notice NickLeStrange done. }
  134.   elseif ($nick == dev) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  135.   elseif ($nick == velvethex) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  136.   elseif ($nick == hex) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  137.   elseif ($nick == cosmic) { .msg nickserv ghost Red_Queen psswd | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify psswd | .notice NickLeStrange done. }
  138. }
  139.  
  140. ; **** This is the request for help. ****
  141.  
  142. on 1:text:!help:?: {
  143.   if (%helpshow == On) { halt }
  144.   elseif (($nick isop #vampyres_cathedral) && (%helpshow == Off)) {
  145.     showhelp
  146.   }
  147.   elseif (($nick == dev) && (%helpshow == Off)) {
  148.     showhelp
  149.   }
  150.   elseif (($nick == velvethex) && (%helpshow == Off)) {
  151.     showhelp
  152.   }
  153.   elseif (($nick == hex) && (%helpshow == Off)) {
  154.     showhelp
  155.   }
  156.   elseif (($nick == cosmic) && (%helpshow == Off)) {
  157.     showhelp
  158.   }
  159. }
  160.  
  161. ; **** This part are the aliases which are used here. ****
  162.  
  163. alias lockdown {
  164.   if (%lockdown == Off) { .mode #vampyres_cathedral +sk pwnt | .describe #vampyres_cathedral We are now on lockdown. If you need the key please speak to NickLeStrange | set %lockdown On }
  165. }
  166.  
  167. alias unlock {
  168.   if (%lockdown == On) { .mode #vampyres_cathedral -sk pwnt | .describe #vampyres_cathedral Lockdown is over. Breathe the free air again. | set %lockdown Off }
  169. }
  170.  
  171. on 1:text:!status:? {
  172.  
  173.   if ($nick isop #vampyres_cathedral) { StartCheck }
  174.   elseif ($nick == dev) { StartCheck }
  175.   elseif ($nick == velvethex) { StartCheck }
  176.   elseif ($nick == hex) { StartCheck }
  177.   elseif ($nick == cosmic) { StartCheck }
  178.  
  179. }
  180.  
  181. alias StartCheck {
  182.   if (%helpshow == On) { halt }
  183.   else {
  184.     set %helpshow On
  185.     .msg $nick ** Checking settings.....
  186.     .timer1 1 2 .msg $nick -
  187.     .timer2 1 4 .msg $nick ** Auto Voice: %autovoice 
  188.     .timer3 1 6 .msg $nick -
  189.     .timer4 1 8 .msg $nick ** Nick Flood Protect is %NickFlood 
  190.     .timer5 1 10 .msg $nick -
  191.     .timer6 1 12 .msg $nick ** Channel Flood Protect is %ChannelFlood 
  192.     .timer7 1 14 .msg $nick -
  193.     .timer8 1 16 .msg $nick ** Join/Part Flood Protect is %JoinPartFlood 
  194.     .timer9 1 18 .msg $nick -
  195.     .timer10 1 20 .msg $nick ** End of settings check!
  196.     .timer11 1 22 .timer19 1 70 set %helpshow Off
  197.     ; This will message the person who asked for the settings.
  198.   }
  199. }
  200.  
  201. alias chkStatus {
  202.   echo -
  203.   echo ** Auto Voice: %autovoice 
  204.   echo -
  205.   echo ** Nick Flood Protect is %NickFlood 
  206.   echo -
  207.   echo ** Channel Flood Protect is %ChannelFlood 
  208.   echo -
  209.   echo ** Join/Part Flood Protect is %JoinPartFlood 
  210.   echo -
  211.   ; This will echo your current settings back to you in the channel, so that you know what you've enabled.
  212. }
  213.  
  214. alias showhelp {
  215.   set %helpshow On
  216.   .msg $nick Only #Vamps operators and selected regs can see this menu.
  217.   .timer1 1 2 .msg $nick For oppers to use in pvt:!ghost / !ident  - This will ghost Red_Queen in case of network issues and have her change back into herself. !ident will just make her identify herself to nickserv.
  218.   .timer2 1 4 .msg $nick For oppers to use in main: type "Red_Queen kick *nickname*"  - This will kick the specified person.
  219.   .timer3 1 6 .msg $nick For oppers to use in main: type "Red_Queen ban *nickname*"  - This will kick and ban the specified person. Banhammer.
  220.   .timer4 1 8 .msg $nick For oppers to use in main: type "Red_Queen lockdown"  - Sets the channel to private and sets the key to "pwnt"
  221.   .timer5 1 10 .msg $nick For oppers to use in main: type "Red_Queen unlock"  - Sets the channel to public, and removes the key.
  222.   .timer6 1 12 .msg $nick For oppers to use in pvt: !sayit / !doit  -- ex: !sayit I like boobs.
  223.   .timer7 1 14 .msg $nick For oppers to use in pvt: !status  - This shows the status of all the settings enabled for #Vamps.
  224.   .timer8 1 16 .msg $nick For more info go to http://www.vamps.za.net/2013/05/redqueen-update.html
  225.   .timer9 1 18 set %helpshow Off
  226. }
  227.  
  228. ; **** The great and powerful menu! ****
  229.  
  230. menu menubar,status,channel,query {
  231.   -
  232.   Red_Queen Control Center
  233.   .Auto Voice Settings
  234.   ..Turn ON auto voice:/set %autovoice On
  235.   ..Turn OFF auto voice:/set %autovoice Off
  236.   ..-
  237.   ..Reset voice slots:/setnickvar
  238.   .-
  239.   .Flood Protection
  240.   ..Nick Flood On:/set %NickFlood On | .echo #vampyres_cathedral ** Nick flood protect is now ON
  241.   ..Nick Flood Off:/set %NickFlood Off | .echo #vampyres_cathedral ** Nick flood protect is now OFF
  242.   ..-
  243.   ..Channel Flood On:/set %ChannelFlood On | .echo #vampyres_cathedral ** Channel flood protect is now ON
  244.   ..Channel Flood Off:/set %ChannelFlood Off | .echo #vampyres_cathedral ** Channel flood protect is now ON
  245.   ..-
  246.   ..Join/Part Flood On:/set %JoinPartFlood On | .echo #vampyres_cathedral ** Join/Part flood protect is now ON
  247.   ..Join/Part Flood Off:/set %JoinPartFlood Off | .echo #vampyres_cathedral ** Join/Part flood protect is now ON
  248.   .-
  249.   .Check current settings:/chkStatus
  250. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top