SHARE
TWEET

Untitled

a guest May 30th, 2013 49 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.  
  43.   ; **** This part of the script is where you ask Red_Queen to do some channel moderation. ****
  44.  
  45.   if ($nick isop #vampyres_cathedral) {
  46.     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  47.     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! }
  48.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  49.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  50.   }
  51.  
  52.   elseif ($nick == dev) {
  53.     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  54.     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! }
  55.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  56.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  57.   }
  58.  
  59.   elseif ($nick == velvethex) {
  60.     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  61.     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! }
  62.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  63.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  64.   }
  65.  
  66.   elseif ($nick == cosmic) {
  67.     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
  68.     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! }
  69.     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
  70.     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
  71.   }
  72.   elseif ($nick == hex) {
  73.     if (($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.  
  80. on 1:text:!topic *:?: {
  81.   if ($nick isop #vampyres_cathedral) { .topic #vampyres_cathedral $2- }
  82.   elseif ($nick == dev) { .topic #vampyres_cathedral $2- }
  83.   elseif ($nick == velvethex) { .topic #vampyres_cathedral $2- }
  84.   elseif ($nick == hex) { .topic #vampyres_cathedral $2- }
  85.   elseif ($nick == cosmic) { .topic #vampyres_cathedral $2- }
  86. }
  87.  
  88. ; **** This is some more fun stuff for Red_Queen to do. ****
  89.  
  90. on 1:text:!sayit *:? {
  91.   .timersayit 1 3 .msg #vampyres_cathedral $2-
  92. }
  93.  
  94. on 1:text:!doit *:? {
  95.   .timerdoit 1 3 .describe #vampyres_cathedral $2-
  96. }
  97.  
  98. on 1:text:!echoit *:? {
  99.   .timerechoit 1 3 .msg $nick $2-
  100. }
  101.  
  102. ; **** This part of the script is to control Red_Queen in case of disconnects or other tasks to manage her remotely. ****
  103.  
  104. on 1:text:!ghost:? {
  105.   if ($nick isop $chan) { .msg nickserv ghost Red_Queen nick1 | .timerghost 1 3 .nick Red_Queen | .timerghost2 1 4 .msg nickserv identify **** | .notice NickLeStrange done. }
  106. }
  107.  
  108. on 1:text:!ident:? {
  109.   if ($nick isop $chan) { /nick NickLeStrange | /msg nickserv identify **** | /notice NickLeStrange done. }
  110. }
  111.  
  112. ; **** This is the request for help. ****
  113.  
  114. on 1:text:!help:?: {
  115.   if (%helpshow == On) { halt }
  116.   elseif (($nick isop #vampyres_cathedral) && (%helpshow == Off)) {
  117.     showhelp
  118.   }
  119.   elseif (($nick == dev) && (%helpshow == Off)) {
  120.     showhelp
  121.   }
  122.   elseif (($nick == velvethex) && (%helpshow == Off)) {
  123.     showhelp
  124.   }
  125.   elseif (($nick == hex) && (%helpshow == Off)) {
  126.     showhelp
  127.   }
  128.   elseif (($nick == cosmic) && (%helpshow == Off)) {
  129.     showhelp
  130.   }
  131. }
  132.  
  133. ; **** This part are the aliases which are used here. ****
  134.  
  135. alias lockdown {
  136.   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 }
  137. }
  138.  
  139. alias unlock {
  140.   if (%lockdown == On) { .mode #vampyres_cathedral -sk pwnt | .describe #vampyres_cathedral Lockdown is over. Breathe the free air again. | set %lockdown Off }
  141. }
  142.  
  143. on 1:text:!status:? {
  144.  
  145.   if ($nick isop #vampyres_cathedral) { StartCheck }
  146.   elseif ($nick == dev) { StartCheck }
  147.   elseif ($nick == velvethex) { StartCheck }
  148.   elseif ($nick == hex) { StartCheck }
  149.   elseif ($nick == cosmic) { StartCheck }
  150.  
  151. }
  152.  
  153. alias StartCheck {
  154.   if (%helpshow == On) { halt }
  155.   else {
  156.     set %helpshow On
  157.     .msg $nick ** Checking settings.....
  158.     .timer1 1 2 .msg $nick -
  159.     .timer2 1 4 .msg $nick ** Auto Voice: %autovoice 
  160.     .timer3 1 6 .msg $nick -
  161.     .timer4 1 8 .msg $nick ** Nick Flood Protect is %NickFlood 
  162.     .timer5 1 10 .msg $nick -
  163.     .timer6 1 12 .msg $nick ** Channel Flood Protect is %ChannelFlood 
  164.     .timer7 1 14 .msg $nick -
  165.     .timer8 1 16 .msg $nick ** Join/Part Flood Protect is %JoinPartFlood 
  166.     .timer9 1 18 .msg $nick -
  167.     .timer10 1 20 .msg $nick ** End of settings check!
  168.     .timer11 1 22 .timer19 1 70 set %helpshow Off
  169.     ; This will message the person who asked for the settings.
  170.   }
  171. }
  172.  
  173. alias chkStatus {
  174.   echo -
  175.   echo ** Auto Voice: %autovoice 
  176.   echo -
  177.   echo ** Nick Flood Protect is %NickFlood 
  178.   echo -
  179.   echo ** Channel Flood Protect is %ChannelFlood 
  180.   echo -
  181.   echo ** Join/Part Flood Protect is %JoinPartFlood 
  182.   echo -
  183.   ; This will echo your current settings back to you in the channel, so that you know what you've enabled.
  184. }
  185.  
  186. alias showhelp {
  187.   set %helpshow On
  188.   .msg $nick Only #Vamps operators and selected regs can see this menu.
  189.   .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.
  190.   .timer2 1 4 .msg $nick For oppers to use in main: type "Red_Queen kick *nickname*"  - This will kick the specified person.
  191.   .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.
  192.   .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"
  193.   .timer5 1 10 .msg $nick For oppers to use in main: type "Red_Queen unlock"  - Sets the channel to public, and removes the key.
  194.   .timer6 1 12 .msg $nick For oppers to use in pvt: !sayit / !doit  -- ex: !sayit I like boobs.
  195.   .timer7 1 14 .msg $nick For oppers to use in pvt: !status  - This shows the status of all the settings enabled for #Vamps.
  196.   .timer8 1 16 .msg $nick For more info go to http://www.vamps.za.net/2013/05/redqueen-update.html
  197.   .timer9 1 18 set %helpshow Off
  198. }
  199.  
  200. ; **** The great and powerful menu! ****
  201.  
  202. menu menubar,status,channel,query {
  203.   -
  204.   Red_Queen Control Center
  205.   .Auto Voice Settings
  206.   ..Turn ON auto voice:/set %autovoice ON
  207.   ..Turn OFF auto voice:/set %autovoice Off
  208.   ..-
  209.   ..Reset voice slots:/setnickvar
  210.   .-
  211.   .Flood Protection
  212.   ..Nick Flood On:/set %NickFlood On | .echo #vampyres_cathedral ** Nick flood protect is now ON
  213.   ..Nick Flood Off:/set %NickFlood Off | .echo #vampyres_cathedral ** Nick flood protect is now OFF
  214.   ..-
  215.   ..Channel Flood On:/set %ChannelFlood On | .echo #vampyres_cathedral ** Channel flood protect is now ON
  216.   ..Channel Flood Off:/set %ChannelFlood Off | .echo #vampyres_cathedral ** Channel flood protect is now ON
  217.   ..-
  218.   ..Join/Part Flood On:/set %JoinPartFlood On | .echo #vampyres_cathedral ** Join/Part flood protect is now ON
  219.   ..Join/Part Flood Off:/set %JoinPartFlood Off | .echo #vampyres_cathedral ** Join/Part flood protect is now ON
  220.   .-
  221.   .Check current settings:/chkStatus
  222. }
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top