API tools faq
paste
Guest User

Untitled

a guest
May 30th, 2013
136
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 10.38 KB | None | 0 0
raw download clone embed print report diff
  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. }
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!