Advertisement
Guest User

Untitled

a guest
Sep 24th, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 2.23 KB | None | 0 0
  1. ###Ownership script | Version WHO KNOWS
  2.  
  3. on *:TEXT:*!espeon*:#: { if (%floodkill == 0) { /espeon $nick
  4.     set %floodkill 1
  5. timerfloodkill 1 5 set %floodkill 0 } }
  6.  
  7. alias espeon {
  8.   if ($me = Espeon) {
  9.     if (%iftime = 0) {
  10.       if %secdec == 1 { describe $chan still belongs to %espynick for 1 more second! }
  11.       elseif %secdec < 60 { describe $chan still belongs to %espynick for %secdec more seconds }
  12.       else {
  13.         if $round($calc( %secdec / 60 ),0) = 1 { describe $chan still belongs to %espynick for $round($calc( %secdec / 60 ),0) more minute }
  14.         else {
  15.           if $round($calc( %secdec / 60 ),0) > 1 { describe $chan still belongs to %espynick for $round($calc( %secdec / 60 ),0) more minutes }
  16.         }
  17.       }
  18.     }
  19.     else {
  20.       %time = $rand(5,20)
  21.       %espynick = $1
  22.       { notice %espynick 5To control "your" 6Espeon5 - "/ctcp 6Espeon5 act #chan <acts>" - Now with "/ctcp 6Espeon5 say #chan <words>" support! }
  23.       if %time = 1 { describe $chan now belongs to %espynick for %time minute }
  24.       else { describe $chan now belongs to %espynick for %time minutes }
  25.       %iftime = 0
  26.       %secdec = $calc( %time * 60 )
  27.       timerespyleft $calc( %time * 60 ) 1 dec %secdec
  28.       timerespy 1 $calc( %time * 60) set %iftime 1
  29.     }
  30.   }
  31. }
  32.  
  33. ###CTCP support. Disable this for servers where people have a terrible sense of humor.
  34.  
  35. ctcp *:act:*: if ($nick == %espynick) /describe $$2 $$3- ( $+ $nick $+ )
  36.  
  37. ###"Old" ctcp say line. "Fun" if you like people !kickme'ing you.
  38. ;ctcp *:say:*: if ($nick == %espynick) /msg $$2 $$3- ( $+ $nick $+ )
  39.  
  40. ###Now with more security. Might still have openings for unfunny people to have fun though.
  41. ctcp *:say:*: {
  42.   if ($nick == %espynick) {
  43.     if (! isin $3) {
  44.       /notice $nick 5Afraid I can't let you do that, 6 $+ $nick $+ .
  45.       halt
  46.     }  
  47.     else {
  48.       /msg $$2 $$3- ( $+ $nick $+ )
  49.     }
  50.   }
  51. }
  52.  
  53.  
  54. ###Resets / unsets all related variables.
  55. alias varset { unset %espynick | set %floodkill 0 | unset %iftime | msg $chan 3[6! $+ 6espeon vars 4reset3] }
  56.  
  57.  
  58. ###If you set it up and it doesn't work, try putting the following variables into your variables tab manually. %time 5 | %floodkill 0 | secdec 50 | %iftime 1 , and then do /varset
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement