Hobbit's Scripts:

Aliases:

/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
/k {
  inc %kbcount 1
  /kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount) 
}
/kb {
  inc %kbcount 1
  /ban -k $chan $1 2 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/tb {
  inc %kbcount 1
  /ban -ku $+ $calc($2 * 60) $chan $1 2 5TempBan for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/mute {
  inc %kbcount 1
  if ($nick !ison $chan) {
    /mode $chan +b-eIohv ~q: $+ $address($1,2) $1 $1 $1
    /msg $chan 5[2 $1 5] has been muted for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
    /timer 1 $calc($2 * 60) //mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
  }
}
/gag {
  if ($1 !ison $chan) {
    inc %kbcount 1
    /mode $chan +b-ohv ~q: $+ $address($1,2) $1 $1 $1
  }
}
/ungag {
  if ($1 !ison $chan) {
    inc %kbcount 1
    /mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
  }
}


Remotes:

alias eI {
  /mode $chan +eIeI $address($me,2) $address($me,2) $me $me
}

alias -eI {
  /mode $chan -eIeI $address($me,2) $address($me,2) $me $me
}

alias pm {
  set %pm $1 | /amsg 2Private-Messagess have been turned 5[ $1 ]2 $+ !
}

on *:TEXT:*:?:{
  if (%pm == OFF) {
    .msg $nick 2I am a bot. If you have a problem, please message my owner, 5Paul2.
    close -m $nick
  }
}

raw 439:*: {
  haltdef
  quit Restarting.
  server $serverip 
}

on *:text:!pcwoff:#pc: {
  if ($nick !isreg $chan) {
    set %pcwscript off
    msg $chan 2PCW Commands are now 5[ OFF ]2
  }
}

on *:text:!pcwon *:#pc: {
  if ($nick !isreg $chan) {
    set %pcwscript on
    msg $chan 2PCW Commands are now 5[ ON ]2. Type 5!pcwcommands2 to see my pest control commands.
  }
}

on *:text:!pcwon:#pc: {
  if ($nick !isreg $chan) {
    set %pcwscript on
    msg $chan 2PCW Commands are now 5[ ON ]2. Type 5!pcwcommands2 to see my pest control commands.
  }
}

ctcp *:sayworld:*: {
  if (%pcwscript == off) { halt }
  if ($nick !isreg $chan) {
    msg #pc 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ]. 
  }
}

on *:text:!suggest *:#pc:{
  if ($3 !isnum 2-144) { notice $nick That is not a legitimate world. | halt } 
  if (%pcwscript == on)  {
    if ($2 == 40+) {
      if (%40 == $3) { notice $nick That is already the 40+ world! | halt }
      if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
      /writeini 40pcwsuggested.ini $3 suggested $calc($readini(40pcwsuggested.ini, $3, suggested) +1)
      /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!    
      /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 40+ ]2.    
      if ($readini(40pcwsuggested.ini, $3, suggested) >= 5) {
        /remove 40pcwnicksuggested.ini     
        /remove 40pcwsuggested.ini 
        set %40 $3
        set %40nick Suggestions
        set %40time $ctime
      msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ %40nick ]2 $+ }
    }
    if ($2 == 70+) {
      if (%70 == $3) { notice $nick That is already the 70+ world! | halt }    
      if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
      /writeini 70pcwsuggested.ini $3 suggested $calc($readini(70pcwsuggested.ini, $3, suggested) +1)
      /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!    
      /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 70+ ]2.    
      if ($readini(70pcwsuggested.ini, $3, suggested) >= 5) {
        /remove 70pcwnicksuggested.ini     
        /remove 70pcwsuggested.ini 
        set %70 $3
        set %70nick Suggestions
        set %70time $ctime
      msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ %70nick ]2 $+ }
    }
    if ($2 == 100+) {
      if (%100 == $3) { notice $nick That is already the 100+ world! | halt }  
      if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
      /writeini 100pcwsuggested.ini $3 suggested $calc($readini(100pcwsuggested.ini, $3, suggested) +1)
      /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!    
      /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 100+ ]2.        
      if ($readini(100pcwsuggested.ini, $3, suggested) >= 5) {
        /remove 100pcwnicksuggested.ini     
        /remove 100pcwsuggested.ini 
        set %100 $3
        set %100nick Suggestions
        set %100time $ctime
      msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ %100nick ]2 $+ }
    }
  }
  if (%pcwscript == off) {
    if ($2 == 40+) {
      if (%40 == $3) { notice $nick That is already the 40+ world! | halt }
      if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
      /writeini 40pcwsuggested.ini $3 suggested $calc($readini(40pcwsuggested.ini, $3, suggested) +1)
      /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!    
      /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 40+ ]2.    
      if ($readini(40pcwsuggested.ini, $3, suggested) >= 5) {
        /remove 40pcwnicksuggested.ini     
        /remove 40pcwsuggested.ini 
        set %40 $3
        set %40nick Suggestions
        set %40time $ctime 
      }
    }
    if ($2 == 70+) {
      if (%70 == $3) { notice $nick That is already the 70+ world! | halt }    
      if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
      /writeini 70pcwsuggested.ini $3 suggested $calc($readini(70pcwsuggested.ini, $3, suggested) +1)
      /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!    
      /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 70+ ]2.    
      if ($readini(70pcwsuggested.ini, $3, suggested) >= 5) {
        /remove 70pcwnicksuggested.ini     
        /remove 70pcwsuggested.ini 
        set %70 $3
        set %70nick Suggestions
        set %70time $ctime 
      }
    }
    if ($2 == 100+) {
      if (%100 == $3) { notice $nick That is already the 100+ world! | halt }  
      if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
      /writeini 100pcwsuggested.ini $3 suggested $calc($readini(100pcwsuggested.ini, $3, suggested) +1)
      /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!    
      /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 100+ ]2.        
      if ($readini(100pcwsuggested.ini, $3, suggested) >= 5) {
        /remove 100pcwnicksuggested.ini     
        /remove 100pcwsuggested.ini 
        set %100 $3
        set %100nick Suggestions
        set %100time $ctime
      }
    }
  }
}

on *:TEXT:!suggest40+ *:#pc:{
  if (%pcwscript == on) {
    if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
    if (%40 == $2) { notice $nick That is already the 40+ world! | halt }
    if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
    /writeini 40pcwsuggested.ini $2 suggested $calc($readini(40pcwsuggested.ini, $2, suggested) +1)
    /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!    
    /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 40+ ]2.      
    if ($readini(40pcwsuggested.ini, $2, suggested) >= 5) {
      /remove 40pcwnicksuggested.ini     
      /remove 40pcwsuggested.ini 
      set %40 $2
      set %40nick Suggestions
      set %40time $ctime
    msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ %40nick ]2 $+ }
  }
  if (%pcwscript == off) {
    if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
    if (%40 == $2) { notice $nick That is already the 40+ world! | halt }
    if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
    /writeini 40pcwsuggested.ini $2 suggested $calc($readini(40pcwsuggested.ini, $2, suggested) +1)
    /writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!    
    /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 40+ ]2.      
    if ($readini(40pcwsuggested.ini, $2, suggested) >= 5) {
      /remove 40pcwnicksuggested.ini     
      /remove 40pcwsuggested.ini 
      set %40 $2
      set %40nick Suggestions
      set %40time $ctime
    }
  }
}

on *:TEXT:!suggest70+ *:#pc:{
  if (%pcwscript == on) {
    if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
    if (%70 == $2) { notice $nick That is already the 70+ world! | halt }
    if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
    /writeini 70pcwsuggested.ini $2 suggested $calc($readini(70pcwsuggested.ini, $2, suggested) +1)
    /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!    
    /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 70+ ]2.      
    if ($readini(70pcwsuggested.ini, $2, suggested) >= 5) {
      /remove 70pcwnicksuggested.ini     
      /remove 70pcwsuggested.ini 
      set %70 $2
      set %70nick Suggestions
      set %70time $ctime
    msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ %70nick ]2 $+ }
  }
  if (%pcwscript == off) {
    if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
    if (%70 == $2) { notice $nick That is already the 70+ world! | halt }
    if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
    /writeini 70pcwsuggested.ini $2 suggested $calc($readini(70pcwsuggested.ini, $2, suggested) +1)
    /writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!    
    /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 70+ ]2.      
    if ($readini(70pcwsuggested.ini, $2, suggested) >= 5) {
      /remove 70pcwnicksuggested.ini     
      /remove 70pcwsuggested.ini 
      set %70 $2
      set %70nick Suggestions
      set %70time $ctime
    }
  }
}

on *:text:!suggest100+ *:#pc:{
  if (%pcwscript == on) {
    if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
    if (%100 == $2) { notice $nick That is already the 100 world! | halt }
    if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
    /writeini 100pcwsuggested.ini $2 suggested $calc($readini(100pcwsuggested.ini, $2, suggested) +1)
    /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!    
    /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 100+ ]2.      
    if ($readini(100pcwsuggested.ini, $2, suggested) >= 5) {
      /remove 100pcwnicksuggested.ini     
      /remove 100pcwsuggested.ini 
      set %100 $2
      set %100nick Suggestions
      set %100time $ctime
    msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ %100nick ]2 $+ }
  }
  if (%pcwscript == off) {
    if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
    if (%100 == $2) { notice $nick That is already the 100 world! | halt }
    if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
    /writeini 100pcwsuggested.ini $2 suggested $calc($readini(100pcwsuggested.ini, $2, suggested) +1)
    /writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!    
    /msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 100+ ]2.      
    if ($readini(100pcwsuggested.ini, $2, suggested) >= 5) {
      /remove 100pcwnicksuggested.ini     
      /remove 100pcwsuggested.ini 
      set %100 $2
      set %100nick Suggestions
      set %100time $ctime
    }
  }
}

on *:text:!change *:#pc: {
  if (%pcwscript == on) && ($nick !isreg $chan) && ($3 isnum 2-144) {
    if ($2 == 40+) {
      set %40 $3
      set %40nick $nick
      msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ $nick ]2
      set %40time $ctime
      remove 40pcwsuggested.ini
      remove 40pcwnicksuggested.ini
    }    
    if ($2 == 70+) {
      set %70 $3
      set %70nick $nick
      msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ $nick ]2
      set %70time $ctime
      remove 70pcwsuggested.ini
      remove 70pcwnicksuggested.ini
    }
    if ($2 == 100+) {
      set %100 $3
      set %100nick $nick
      msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ $nick ]2
      set %100time $ctime
      remove 100pcwsuggested.ini
      remove 100pcwnicksuggested.in
    }
  }
  if (%pcwscript == off) && ($nick !isreg $chan) && ($3 isnum 2-144) {
    if ($2 == 40+) {
      set %40 $3
      set %40nick $nick
      set %40time $ctime
      remove 40pcwsuggested.ini
      remove 40pcwnicksuggested.ini
    }
    if ($2 == 70+) {
      set %70 $3
      set %70nick $nick
      set %70time $ctime
      remove 70pcwsuggested.ini
      remove 70pcwnicksuggested.ini
    }
    if ($2 == 100+) {
      set %100 $3
      set %100nick $nick
      set %100time $ctime
      remove 100pcwsuggested.ini
      remove 100pcwnicksuggested.ini
    }
  }
}

on *:text:!change40+ *:#pc: {
  if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %40 $2
    set %40nick $nick
    msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ $nick ]2
    set %40time $ctime
    remove 40pcwsuggested.ini
    remove 40pcwnicksuggested.ini
  }
  if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %40 $2
    set %40nick $nick
    set %40time $ctime
    remove 40pcwsuggested.ini
    remove 40pcwnicksuggested.ini
  }
}

on *:text:!change70+ *:#pc: {
  if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %70 $2
    set %70nick $nick
    msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ $nick ]2
    set %70time $ctime
    remove 70pcwsuggested.ini
    remove 70pcwnicksuggested.ini
  }
  if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %70 $2
    set %70nick $nick
    set %70time $ctime
    remove 70pcwsuggested.ini
    remove 70p2cwnicksuggested.ini
  }
}

on *:text:!change100+ *:#pc: {
  if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %100 $2
    set %100nick $nick
    msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ $nick ]2
    set %100time $ctime
    remove 100pcwsuggested.ini
    remove 100pcwnicksuggested.ini
  }
  if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %100 $2
    set %100nick $nick
    set %100time $ctime
    remove 100pcwsuggested.ini
    remove 100pcwnicksuggested.ini
  }
}

on *:TEXT:!pcw:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /notice $nick 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
  }
}

on *:TEXT:!world:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /notice $nick 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
  }
}

on *:TEXT:!pcw40+:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /notice $nick 2The current 40+ Pest Control World is 5[ %40 ]2 set 5[ $duration($calc($ctime - $($+(%,40time),2))) ]2 ago by 5[ %40nick ].2 Command used 5[ %pcwcount ]2 times.
  }
}

on *:TEXT:!pcw70+:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /notice $nick 2The current 70+ Pest Control World is 5[ %70 ]2 set 5[ $duration($calc($ctime - $($+(%,70time),2))) ]2 ago by 5[ %70nick ].2 Command used 5[ %pcwcount ]2 times.
  }
}

on *:TEXT:!pcw100+:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /notice $nick 2The current 100+ Pest Control World is 5[ %100 ]2 set 5[ $duration($calc($ctime - $($+(%,100time),2))) ]2 ago by 5[ %100nick ].2 Command used 5[ %pcwcount ]2 times.
  }
}

on *:TEXT:@pcw:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /msg $chan 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
  }
}

on *:TEXT:@world:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /msg $chan 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
  }
}

on *:TEXT:@pcw40+:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /msg $chan 2The current 40+ Pest Control World is 5[ %40 ]2 set 5[ $duration($calc($ctime - $($+(%,40time),2))) ]2 ago by 5[ %40nick ].2 Command used 5[ %pcwcount ]2 times.
  }
}

on *:TEXT:@pcw70+:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /msg $chan 2The current 70+ Pest Control World is 5[ %70 ]2 set 5[ $duration($calc($ctime - $($+(%,70time),2))) ]2 ago by 5[ %70nick ].2 Command used 5[ %pcwcount ]2 times.
  }
}

on *:TEXT:@pcw100+:#pc: { 
  if (%pcwscript == off) { halt } {
    inc %pcwcount 1
    /msg $chan 2The current 100+ Pest Control World is 5[ %100 ]2 set 5[ $duration($calc($ctime - $($+(%,100time),2))) ]2 ago by 5[ %100nick ].2 Command used 5[ %pcwcount ]2 times.
  }
}

on *:text:!pcwrepeaton *:#pc: {
  if (%pcwscript == off) { halt }
  if ($nick !isreg $chan) {
    /msg $chan 2The World Repeat is now 5[ ON ].2 The world will repeat every 5[ $2 ]2 seconds.
  }
}

on *:text:!pcwrepeatoff:#pc: {
  if (%pcwscript == off) { halt }
  if ($nick !isreg $chan) {
    /msg $chan 2The World Repeat is now 5[ OFF ]2
  }
}

on *:text:!pcwcommands:#: {

  if ($nick !isreg $chan) {

    msg $nick To turn the Pest Control World script and World Repeat on at the same time = !pcwon number of seconds to delay between repeats

    msg $nick To turn only the Pest Control World script on= !pcwon

    msg $nick To turn only the World Repeat on = !pcwrepeaton number of seconds to delay between repeats

    msg $nick To see all the current Pest Control Worlds = !pcw

    msg $nick To see individual Pest Control Worlds = !pcw40+/70+/100+

    msg $nick To suggest a Pest Control World (5 suggests required to change the world) = !suggest40+/70+/100+ world

    msg $nick To turn the World Repeat off = !pcwrepeatoff

    msg $nick To turn the Pest Control World script off = !pcwoff
  }
}

on $*:TEXT:!suggest *:#castlewars:{
  if (%cwwscript == off) { halt }
  if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. Make sure you are typing !suggest world | halt }  
  if (%cww == $3) { notice $nick That is already the current Castle Wars World! | halt }  
  if (%cwwscript == off) { HALT }
  if ($readini(cwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a world! | halt }
  /writeini cwsuggested.ini $2 suggested $calc($readini(cwsuggested.ini, $2, suggested) +1)
  /writeini cwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting!  
  if ($readini(cwsuggested.ini, $2, suggested) >= 5) {
    /remove cwsuggested.ini 
    /remove cwnicksuggested.ini 
    set %cww $2
  msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ Guthix ] by 5[ Suggestions ]2 $+ }
}

on $*:TEXT:!suggestteam *:#castlewars:{
  if (%cwwscript == off) { halt }
  if ($2 != Guthix && $2 != Saradomin && $2 != Zamorak) { notice $nick That is not a legitamite team. Make sure you are typing !tsuggest team | halt }
  if (%cwteam == $3) { notice $nick That is already the current Castle Wars Team! | halt }
  if ($readini(teamnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a team! | halt }
  /writeini teamsuggested.ini $2 suggested $calc($readini(teamsuggested.ini, $2, suggested) +1)
  /writeini teamnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting!  
  if ($readini(teamsuggested.ini, $2, suggested) >= 5) {
    /remove teamsuggested.ini 
    /remove teamnicksuggested.ini 
    set %cwteam $2
  msg $chan 2The current Castle Wars Team has been 5[ UPDATED ]2 to 5[ %cwteam ]2 $+ }
}

on *:text:!setteam *:#castlewars: {
  if (%cwwscript == off) { HALT }  
  if ($nick !isreg $chan) && (($2 == Guthix) || ($2 == Saradomin) || ($2 == Zamorak)) {
    set %cwteam $2
    /msg $chan 2The current Castle Wars Team has been 5[ UPDATED ]2 to 5[ %cwteam ]2
  }
}

on *:text:!cwoff:#castlewars: {
  if ($nick !isreg $chan) {
    set %cwwscript off
    msg $chan 2CW Commands are now 5[ OFF ]2
  }
}

on *:text:!cwon *:#castlewars: {
  if ($nick !isreg $chan) {
    set %cwwscript on
    msg $chan 2CW Commands are now 5[ ON ]2. Type 5!cwcommands2 to see my castle wars commands.
  }
}

on *:text:!cwon:#castlewars: {
  if ($nick !isreg $chan) {
    set %cwwscript on
    msg $chan 2CW Commands are now 5[ ON ]2. Type 5!cwcommands2 to see my castle wars commands.
  }
}

ctcp *:saycworld:*: {
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) {
    //msg #castlewars 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2. Minutes until next game: 5[ %cwmin ]2. 
  }
}

on *:text:!change *:#castlewars: {
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) && ($2 isnum 2-144) {
    set %cww $2
    set %cwnick $nick
    set %cwtime $ctime
    set %cwmin N/A
    remove cwnicksuggested.ini
    remove cwsuggested.ini 
    remove teamsuggested.ini
    remove teamnicksuggested.ini
    timercwmin1 off
    timercwmin2 off
    timercwmin3 off
    if ($3 == $null) {
      set %cwteam Guthix
    }  
    if (($3 == Guthix) || ($3 == Saradomin) || ($3 == Zamorak)) {
      set %cwteam $3
    }
    if ($4  == $null) {
      msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ %cwteam ]2 by 5[ %cwnick ]
    }
    if ($4 isnum 1-25) {
      set %cwmin $4
      msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ %cwteam ]2 by 5[ %cwnick ]2. There are 5[ %cwmin ]2 minutes until the next game.
      castlewarsstart
    }
  }
}

on *:TEXT:!cw:#castlewars: { 
  if (%cwwscript == off) { halt } {
    inc %cwcount 1
    /notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
  }
}

on *:TEXT:!cww:#castlewars: { 
  if (%cwwscript == off) { halt } {
    inc %cwcount 1
    /notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
  }
}

on *:TEXT:!world:#castlewars: { 
  if (%cwwscript == off) { halt } {
    inc %cwcount 1
    /notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
  }
}

on *:TEXT:@cw:#castlewars: { 
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) {
    inc %cwcount 1
    /msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2  Minutes until next game: 5[ %cwmin ]2.
  }
}

on *:TEXT:@cww:#castlewars: { 
  if (%cwwscript == off) { halt } 
  if ($nick !isreg $chan) {
    inc %cwcount 1
    /msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2  Minutes until next game: 5[ %cwmin ]2.
  }
}

on *:TEXT:@world:#castlewars: { 
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) {
    inc %cwcount 1
    /msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2  Minutes until next game: 5[ %cwmin ]2.
  }
}

on *:text:!cwrepeaton *:#castlewars: {
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) {
    /msg $chan 2The World Repeat is now 5[ ON ].2 It will repeat every 5[ $2 ]2 seconds.
  }
}

on *:text:!cwrepeatoff:#castlewars: {
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) {
    /msg $chan 2The World Repeat is now 5[ OFF ]2
  }
}

on *:text:!settime *:#castlewars: { 
  if (%cwwscript == off) { halt }
  if ($nick !isreg $chan) && ($2 isnum 1-25) {
    ./set %cwmin $2
    ./msg $chan 2The timer has been set. There are 5[ %cwmin ]2 minutes until the next game.
    castlewarsstart
  }
}

alias CastleWarsStart {
  ./timercwmin1 %cwmin 60 dec %cwmin
  ./timercwmin2 1 $calc(%cwmin * 60) set %cwmin 25
  ./timercwmin3 1 $calc(%cwmin * 60) CastleWarsStart
}

on *:text:!cwcommands:#: {
  if ($nick !isreg $chan) {

    msg $nick To turn the Castle Wars World script on = !cwon

    msg $nick To turn the Castle Wars World script and World Repeat on at the same time = !cwon number of seconds to delay between repeats

    msg $nick To see the current Castle Wars World = !cw or !world or !cww

    msg $nick To change the current Castle Wars World and Team and set Minutes until next game = !change world team minutes until next game

    msg $nick To change the current Castle Wars World and Team = !change world team

    msg $nick To change the current Castle Wars World = !change world

    msg $nick To suggest a Castle Wars World (5 suggests required to change the world) = !suggest world

    msg $nick To change the current Castle Wars Team = !team team

    msg $nick To suggest a Castle Wars Team (5 suggests required to change the team) = !suggestteam team

    msg $nick To set Minutes until next game: !settime minutes until next game    

    msg $nick To turn the World Repeat off = !cwrepeatoff

    msg $nick To turn the World Repeat on = !cwrepeaton number of seconds to delay between repeats

    msg $nick To turn the Castle Wars World script off = !cwoff
  }
}

Variables:

%kbcount 27762
%pcwscript on
%pm off
%pcwrepeat on
%away off
%reason Sleeeeep.
%awaytime 1198388232