View difference between Paste ID: 8Kfwm2WL and 2fritRar

 ; This is a 100% original script by NickLeStrange (Nicholas Green)
 ; Facebook: http://www.facebook.com/nicklestrange
 ; Feel free to copy/change/plagiarise
 ; __________________________________________________________________
 
 on 1:text:*:#vampyres_cathedral {
   ; **** First part of the script writes what is said in the channel to the RandomSay.txt file. ****
 
   write -i RandomSay.txt $1-
   var %r = $rand(1,166)
   var %r2 = $rand(1,180)
   set %randomtalk %r
   set %randommatch %r2
   if (%randomtalk == %randommatch) .msg #vampyres_cathedral $read(RandomSay.txt)
   .echo $time ** The current Random Say variables are %randomtalk and %randommatch
 
   ; **** This part of the script responds to certain things that you ask Red_Queen to do that's funny and not about channel moderation. ****
 
   if (($1 == Red_Queen) && ($2 == dance)) { .describe $chan shakes her pussy on the dance floor until it falls off. }
   elseif (($1 == Red_Queen) && ($2 == lap) && ($3 == dance)) {
     if ($4 == $null) { Is that a sort of lap dance $nick $+ ? Because I don't know that one. }
     else { .describe $chan performs a lap dance and grinds $5 $+ 's lap to shreds. }
   }
   elseif (($1 == Red_Queen) && ($2 == tie) && ($3 == down)) {
     if ($4 == $null) { Please learn how to formulate a proper sentence, then ask me again. }
     else { .describe $chan ties $4 down, and sticks a ball-gag in $4 $+ 's mouth. }
   }
   elseif (($1 == Red_Queen) && ($2 == whip)) {
     if ($3 == $null) { Please learn how to formulate a proper sentence, then ask me again. }
     else { .describe $chan purrs excitedly as she sets the cat 'o nine tails, repeatedly, to $3's backside. }
   }
   elseif (($1 == Red_Queen) && ($2 == isn't) && ($3 == he) && ($4 == sexy?)) { .describe $chan takes off her panties and throws them at him. }
   elseif (($1 == Red_Queen) && ($2 == isn't) && ($3 == she) && ($4 == sexy?)) { .describe $chan takes off her panties and throws them at her. }
   elseif (($1 == Red_Queen) && ($2 == isn't) && ($4 == sexy?)) {
     if (($3 == $null) { I don't know who you're talking about. }
     else { .describe $chan takes off her panties and throws them at $3 $+ . }
   }
   elseif (($1 == Red_Queen) && ($2 == isn't) && ($5 == sexy?)) {
     if (($3 == $null) && ($4 == $null)) { I don't know who you're talking about. }
     else { .describe $chan takes off her panties and throws them at $3 $4 $+ . }
   }
 
   ; **** This part of the script is where you ask Red_Queen to do some channel moderation. ****
 
   if ($nick isop #vampyres_cathedral) {
     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
     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! }
     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
   }
 
   elseif ($nick == dev) {
     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
     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! }
     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
   }
 
   elseif ($nick == velvethex) {
     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
     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! }
     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
   }
 
   elseif ($nick == cosmic) {
     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
     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! }
     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
   }
   elseif ($nick == hex) {
     if (($1 == Red_Queen) && ($2 == kick)) { .kick #vampyres_cathedral $3 You've been served. Now scram. }
     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! }
     elseif (($1 == Red_Queen) &&  ($2 == lockdown)) { lockdown }
     elseif (($1 == Red_Queen) &&  ($2 == unlock)) { unlock }
   }
 }
 
-on 1:text:!topic *:#vampyres_cathedral: {
+on 1:text:!topic *:?: {
-  if ($nick isop $chan) { /topic #chan $2- }
+  if ($nick isop #vampyres_cathedral) { .topic #vampyres_cathedral $2- }
-  elseif ($nick == dev) { /topic #chan $2- }
+  elseif ($nick == dev) { .topic #vampyres_cathedral $2- }
-  elseif ($nick == velvethex) { /topic #chan $2- }
+  elseif ($nick == velvethex) { .topic #vampyres_cathedral $2- }
-  elseif ($nick == hex) { /topic #chan $2- }
+  elseif ($nick == hex) { .topic #vampyres_cathedral $2- }
-  elseif ($nick == cosmic) { /topic #chan $2- }
+  elseif ($nick == cosmic) { .topic #vampyres_cathedral $2- }
 }
 
 ; **** This is some more fun stuff for Red_Queen to do. ****
 
 on 1:text:!sayit *:? {
   .timersayit 1 3 .msg #vampyres_cathedral $2-
 }
 
 on 1:text:!doit *:? {
   .timerdoit 1 3 .describe #vampyres_cathedral $2-
 }
 
 on 1:text:!echoit *:? {
   .timerechoit 1 3 .msg $nick $2-
 }
 
 ; **** This part of the script is to control Red_Queen in case of disconnects or other tasks to manage her remotely. ****
 
 on 1:text:!ghost:? {
   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. }
 }
 
 on 1:text:!ident:? {
   if ($nick isop $chan) { /nick NickLeStrange | /msg nickserv identify **** | /notice NickLeStrange done. }
 }
 
 ; **** This is the request for help. ****
 
 on 1:text:!help:?: {
   if (%helpshow == On) { halt }
   elseif (($nick isop #vampyres_cathedral) && (%helpshow == Off)) {
     showhelp
   }
   elseif (($nick == dev) && (%helpshow == Off)) {
     showhelp
   }
   elseif (($nick == velvethex) && (%helpshow == Off)) {
     showhelp
   }
   elseif (($nick == hex) && (%helpshow == Off)) {
     showhelp
   }
   elseif (($nick == cosmic) && (%helpshow == Off)) {
     showhelp
   }
 }
 
 ; **** This part are the aliases which are used here. ****
 
 alias lockdown {
   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 }
 }
 
 alias unlock {
   if (%lockdown == On) { .mode #vampyres_cathedral -sk pwnt | .describe #vampyres_cathedral Lockdown is over. Breathe the free air again. | set %lockdown Off }
 }
 
 on 1:text:!status:? {
 
   if ($nick isop #vampyres_cathedral) { StartCheck }
   elseif ($nick == dev) { StartCheck }
   elseif ($nick == velvethex) { StartCheck }
   elseif ($nick == hex) { StartCheck }
   elseif ($nick == cosmic) { StartCheck }
 
 }
 
 alias StartCheck {
   if (%helpshow == On) { halt }
   else {
     set %helpshow On
     .msg $nick ** Checking settings.....
     .timer1 1 2 .msg $nick -
     .timer2 1 4 .msg $nick ** Auto Voice: %autovoice 
     .timer3 1 6 .msg $nick -
     .timer4 1 8 .msg $nick ** Nick Flood Protect is %NickFlood 
     .timer5 1 10 .msg $nick -
     .timer6 1 12 .msg $nick ** Channel Flood Protect is %ChannelFlood 
     .timer7 1 14 .msg $nick -
     .timer8 1 16 .msg $nick ** Join/Part Flood Protect is %JoinPartFlood 
     .timer9 1 18 .msg $nick -
     .timer10 1 20 .msg $nick ** End of settings check!
     .timer11 1 22 .timer19 1 70 set %helpshow Off
     ; This will message the person who asked for the settings.
   }
 }
 
 alias chkStatus {
   echo -
   echo ** Auto Voice: %autovoice 
   echo -
   echo ** Nick Flood Protect is %NickFlood 
   echo -
   echo ** Channel Flood Protect is %ChannelFlood 
   echo -
   echo ** Join/Part Flood Protect is %JoinPartFlood 
   echo -
   ; This will echo your current settings back to you in the channel, so that you know what you've enabled.
 }
 
 alias showhelp {
   set %helpshow On
   .msg $nick Only #Vamps operators and selected regs can see this menu.
   .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.
   .timer2 1 4 .msg $nick For oppers to use in main: type "Red_Queen kick *nickname*"  - This will kick the specified person.
   .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.
   .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"
   .timer5 1 10 .msg $nick For oppers to use in main: type "Red_Queen unlock"  - Sets the channel to public, and removes the key.
   .timer6 1 12 .msg $nick For oppers to use in pvt: !sayit / !doit  -- ex: !sayit I like boobs.
   .timer7 1 14 .msg $nick For oppers to use in pvt: !status  - This shows the status of all the settings enabled for #Vamps.
   .timer8 1 16 .msg $nick For more info go to http://www.vamps.za.net/2013/05/redqueen-update.html
   .timer9 1 18 set %helpshow Off
 }
 
 ; **** The great and powerful menu! ****
 
 menu menubar,status,channel,query {
   -
   Red_Queen Control Center
   .Auto Voice Settings
   ..Turn ON auto voice:/set %autovoice ON
   ..Turn OFF auto voice:/set %autovoice Off
   ..-
   ..Reset voice slots:/setnickvar
   .-
   .Flood Protection
   ..Nick Flood On:/set %NickFlood On | .echo #vampyres_cathedral ** Nick flood protect is now ON
   ..Nick Flood Off:/set %NickFlood Off | .echo #vampyres_cathedral ** Nick flood protect is now OFF
   ..-
   ..Channel Flood On:/set %ChannelFlood On | .echo #vampyres_cathedral ** Channel flood protect is now ON
   ..Channel Flood Off:/set %ChannelFlood Off | .echo #vampyres_cathedral ** Channel flood protect is now ON
   ..-
   ..Join/Part Flood On:/set %JoinPartFlood On | .echo #vampyres_cathedral ** Join/Part flood protect is now ON
   ..Join/Part Flood Off:/set %JoinPartFlood Off | .echo #vampyres_cathedral ** Join/Part flood protect is now ON
   .-
   .Check current settings:/chkStatus
 }