API tools faq
paste
Guest User

Red_Queen

a guest
Aug 16th, 2013
100
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 13.14 KB | None | 0 0
raw download clone embed print report
  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. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!