on *:connect: { join #SPP }
on *:connect: /umode - M
on *:JOIN:#: {
  if ($nick == Serebii) { msg $chan 4«14«4«14« 4 $nick 4»14»4»14»0,1 It's The Head-Honchoebii!  }
  else { halt }
}
#poke on
on poke:text:-stats *:#:{
  if (%ty [ $+ [ $nick ] ] == $null) { set %ty $+ $nick 0 }
  if (%ty [ $+ [ $nick ] ] >= 4) {
    .ignore -cu60 $nick 13
    .notice $nick You are ignored for Trigger Flooding.
    halt
  } 
  inc %ty $+ $nick 
  .timer 1 10 unset %ty $+ $nick
  if ($2 isnum 001-251) {
    %p.name = $readini $mircdirbin\stats.ini $2 name
    if (%p.name == $null) { mmsg $chan Sorry No Data Available | unset %p.name | halt }
    mmsg $chan 14,2<15<0<8 $+ %p.name [ $+ %p.type $+ ] -- HP: %p.health AT: %p.attack DF: %p.defense SP: %p.speed SA: %p.special.attack SD: %p.special.defense 0>15>14>
    unset %p.name
  }
  else { mmsg $chan You entered an Invald Number }
} 

on poke:text:-att *:#:{
  if (%ty [ $+ [ $nick ] ] == $null) { set %ty $+ $nick 0 }
  if (%ty [ $+ [ $nick ] ] >= 3) {
    .ignore -cu60 $nick 13
    .notice $nick You are ignored for Trigger Flooding.
    halt
  } 
  inc %ty $+ $nick 
  .timer 1 10 unset %ty $+ $nick
  { %p.type = $readini $mircdirbin\attacks.ini $2- type
    if (%p.type == $null) { mmsg $chan Error, entry may not exist | unset %p.type | halt }
    else { mmsg $chan 14,2<15<0<8 $+ Type: [ $+ $readini($mircdirbin\attacks.ini,$2-,type) $+ ] -- Damage: $readini($mircdirbin\attacks.ini,$2-,dmg) PP: $readini($mircdirbin\attacks.ini,$2-,pp) Accuracy: $readini($mircdirbin\attacks.ini,$2-,acc) Description: $readini($mircdirbin\attacks.ini,$2-,descr)  0>15>14> }
    unset %p.type    
    halt
  } 
}
#poke end

#rawcatch off
raw *:*:{
  echo -a $numeric - $1-
}
#rawcatch end

on ^*:text:*:#: {
  if ($isfounder($nick,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(founder) $+ ~ $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($issop($nick,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(sop) $+ & $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($isadmin($nick,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(admin) $+ ! $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($nick isop $chan) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(op) $+ @ $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($nick ishop $chan) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(halfop) $+ $chr(37) $+  $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($nick isvo $chan) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(voice) $+ + $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($isuser($nick,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+  $+ $nickclr(userop) $+ - $+ $nick $+ » $+ $color(text) $1- | haltdef }
  elseif ($nick isreg $chan) { echo $chan (14 $+ $mytime $+ ) « $+ $nick $+ » $+ $color(text) $1- | haltdef }
}
on ^*:text:*:?: {
  echo $nick 0(14 $+ $mytime $+ 0) « $+ $nick $+ »  $+ $color(text) $+ $1- 
  halt
}
on ^*:action:*:?: {
  echo $nick 0(14 $+ $mytime $+ 0) $+ $colour(action) * $nick $1-
  halt
}
on ^*:action:*:#: {
  echo $chan 0(14 $+ $mytime $+ 0) $+ $colour(action) * $nick $1-
  halt
}

on *:input:?: {
  if ((($left($1-,1) != /) && ($1- != $null)) || ($left($1-,3) == /me)) {
    if ($left($1-,3) == /me) { echo $active 0(14 $+ $mytime $+ 0) $+ $color(action) * $me $2- | .describe $active $2- | halt }
    if ($1 == wb) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ W $+ $clr2 $+ elcome  $+ $clr1 $+ B $+ $clr2 $+ ack $2- | .msg $active  $+ $clr1 $+ W $+ $clr2 $+ elcome  $+ $clr1 $+ B $+ $clr2 $+ ack $2- | halt }
    if ($1 == hehe) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ H $+ $clr2 $+ e $+ $clr1 $+ H $+ $clr2 $+ e $2- | .msg $active  $+ $clr1 $+ H $+ $clr2 $+ e $+ $clr1 $+ H $+ $clr2 $+ e $2- | halt }
    if ($1 == bbl) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ B $+ $clr2 $+ ack  $+ $clr1 $+ L $+ $clr2 $+ ater $2- | .msg $active  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ B $+ $clr2 $+ ack  $+ $clr1 $+ L $+ $clr2 $+ ater $2- | halt }
    if ($1 == brb) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ R $+ $clr2 $+ ight  $+ $clr1 $+ B $+ $clr2 $+ ack $2- | .msg $active  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ R $+ $clr2 $+ ight  $+ $clr1 $+ B $+ $clr2 $+ ack $2- | halt }
    if ($1 == bbs) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ B $+ $clr2 $+ ack  $+ $clr1 $+ S $+ $clr2 $+ oon $2- | .msg $active  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ B $+ $clr2 $+ ack  $+ $clr1 $+ S $+ $clr2 $+ oon $2- | halt }
    if ($1 == cya) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ S $+ $clr2 $+ ee  $+ $clr1 $+ Y $+ $clr2 $+ a $2- | .msg $active  $+ $clr1 $+ S $+ $clr2 $+ ee  $+ $clr1 $+ Y $+ $clr2 $+ a $2- | halt }
    if ($1 == ty) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ T $+ $clr2 $+ hank  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | .msg $active  $+ $clr1 $+ T $+ $clr2 $+ hank  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | halt }
    if ($1 == np) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ N $+ $clr2 $+ o  $+ $clr1 $+ P $+ $clr2 $+ roblem $2- | .msg $active  $+ $clr1 $+ N $+ $clr2 $+ o  $+ $clr1 $+ P $+ $clr2 $+ roblem $2- | halt }
    if ($1 == sco) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ » 2,0S0,2C2,0O0,2T2,0L0,2A2,0N0,2D2,0 $2- | .msg $active 2,0S0,2C2,0O0,2T2,0L0,2A2,0N0,2D2,0 $2- | halt }
    if ($1 == eng) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ » 4,0E0,4N4,0G0,4L4,0A0,4N4,0D $2- | .msg $active 4,0E0,4N4,0G0,4L4,0A0,4N4,0D $2- | halt }
    if ($1 == wal) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ » 3,0W0,3A3,0L0,3E3,0S $2- | .msg $active 3,0W0,3A3,0L0,3E3,0S $2- | halt }
    if ($1 == ire) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ » 7,0I0,3R7,0E0,7L3,0A0,3N7,0D $2- | .msg $active 7,0I0,3R7,0E0,7L3,0A0,3N7,0D $2- | halt }
    if ($1 == nm) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ N $+ $clr2 $+ ever  $+ $clr1 $+ M $+ $clr2 $+ ind $2- | .msg $active  $+ $clr1 $+ N $+ $clr2 $+ ever  $+ $clr1 $+ M $+ $clr2 $+ ind $2- | halt }
    if ($1 == jk) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ J $+ $clr2 $+ ust  $+ $clr1 $+ K $+ $clr2 $+ idding $2- | .msg $active  $+ $clr1 $+ J $+ $clr2 $+ ust  $+ $clr1 $+ K $+ $clr2 $+ idding $2- | halt }
    if ($1 == fu) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ F $+ $clr2 $+ ***  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | .msg $active  $+ $clr1 $+ F $+ $clr2 $+ ***  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | halt }
    if ($1 == j/k) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ J $+ $clr2 $+ ust  $+ $clr1 $+ K $+ $clr2 $+ idding $2- | .msg $active  $+ $clr1 $+ J $+ $clr2 $+ ust  $+ $clr1 $+ K $+ $clr2 $+ idding $2- | halt }
    if ($1 == g2g) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ G $+ $clr2 $+ ot  $+ $clr1 $+ T $+ $clr2 $+ o  $+ $clr1 $+ G $+ $clr2 $+ o $2- | .msg $active  $+ $clr1 $+ G $+ $clr2 $+ ot  $+ $clr1 $+ T $+ $clr2 $+ o  $+ $clr1 $+ G $+ $clr2 $+ o $2- | halt }
    if ($1 == lol) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ O $+ $clr2 $+ ut  $+ $clr1 $+ L $+ $clr2 $+ oud $2- | .msg $active  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ O $+ $clr2 $+ ut  $+ $clr1 $+ L $+ $clr2 $+ oud $2- | halt }
    if ($1 == lmao) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ M $+ $clr2 $+ y  $+ $clr1 $+ * $+ $clr2 $+ ** $+  $clr1 $+ O $+ $clr2 $+ ff   $2- | .msg $active  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ M $+ $clr2 $+ y  $+ $clr1 $+ * $+ $clr2 $+ ** $+  $clr1 $+ O $+ $clr2 $+ ff   $2- | halt }
    if ($1 == rofl) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ R $+ $clr2 $+ olls  $+ $clr1 $+ O $+ $clr2 $+ n  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ loor  $+ $clr1 $+ L $+ $clr2 $+ aughing  $2- | .msg $active  $+ $clr1 $+ R $+ $clr2 $+ olls  $+ $clr1 $+ O $+ $clr2 $+ n  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ loor  $+ $clr1 $+ L $+ $clr2 $+ aughing  $2- | halt }
    if ($1 == stfu) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ S $+ $clr2 $+ hut  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ **k  $+ $clr1 $+ U $+ $clr2 $+ p  $2- | halt }
    if ($1 == roflmao) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ R $+ $clr2 $+ olls  $+ $clr1 $+ O $+ $clr2 $+ n  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ loor  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ M $+ $clr2 $+ y  $+ $clr1 $+ * $+ $clr2 $+ **  $+ $clr1 $+ O $+ $clr2 $+ ff  $2- | .msg $active  $+ $clr1 $+ R $+ $clr2 $+ olls  $+ $clr1 $+ O $+ $clr2 $+ n  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ loor  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ M $+ $clr2 $+ y  $+ $clr1 $+ * $+ $clr2 $+ **  $+ $clr1 $+ O $+ $clr2 $+ ff  $2- | halt }
    else { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ » $1- | .msg $active $1- | halt }
  }
}

on *:input:#: {
  if ((($left($1-,1) != /) && ($1- != $null)) || ($left($1-,3) == /me)) {
    if ($left($1-,3) == /me) { echo $chan (14 $+ $mytime $+ ) $+ $color(action) * $me $2- | .describe $chan $2- | halt }
    else {
      if ($1 == wb) { mmsg $active  $+ $clr1 $+ W $+ $clr2 $+ elcome  $+ $clr1 $+ B $+ $clr2 $+ ack $2- | halt }
      if ($1 == Ind) { mmsg $active  $+ $clr1 $+ I $+ $clr2 $+ ndeed $2- | halt }
      if ($1 == Heh) { mmsg $active  $+ $clr1 $+ H $+ $clr2 $+ eh $2- | halt }
      if ($1 == D) { mmsg $active  $+ $clr1 $+ D $+ $clr2 $+ unno $2- | halt }
      if ($1 == yw) { mmsg $active  $+ $clr1 $+ Y $+ $clr2 $+ ou're $+ $clr1 $+ W $+ $clr2 $+ elcome $2- | halt }
      if ($1 == hehe) { mmsg $active  $+ $clr1 $+ H $+ $clr2 $+ e $+ $clr1 $+ H $+ $clr2 $+ e $2- | halt }
      if ($1 == bbl) { mmsg $active  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ B $+ $clr2 $+ ack  $+ $clr1 $+ L $+ $clr2 $+ ater $2- | halt }
      if ($1 == brb) { mmsg $active  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ R $+ $clr2 $+ ight  $+ $clr1 $+ B $+ $clr2 $+ ack $2- | halt }
      if ($1 == bbs) { mmsg $active  $+ $clr1 $+ B $+ $clr2 $+ e  $+ $clr1 $+ B $+ $clr2 $+ ack  $+ $clr1 $+ S $+ $clr2 $+ oon $2- | halt }
      if ($1 == cya) { mmsg $active  $+ $clr1 $+ S $+ $clr2 $+ ee  $+ $clr1 $+ Y $+ $clr2 $+ a $2- | halt }
      if ($1 == ty) { mmsg $active  $+ $clr1 $+ T $+ $clr2 $+ hank  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | halt }
      if ($1 == np) { mmsg $active  $+ $clr1 $+ N $+ $clr2 $+ o  $+ $clr1 $+ P $+ $clr2 $+ roblem $2- | halt }
      if ($1 == sco) { mmsg $active 2,0S0,2C2,0O0,2T2,0L0,2A2,0N0,2D2,0 $2- | halt }
      if ($1 == eng) { mmsg $active 4,0E0,4N4,0G0,4L4,0A0,4N4,0D $2- | halt }
      if ($1 == canad) { mmsg $active 0,4C4,0A0,4N4,0A0,4D4,0A $2- | halt }
      if ($1 == wal) { mmsg $active 3,0W0,3A3,0L0,3E3,0S $2- | halt }
      if ($1 == ire) { mmsg $active 7,0I0,3R7,0E0,7L3,0A0,3N7,0D $2- | halt }
      if ($1 == nm) { mmsg $active  $+ $clr1 $+ N $+ $clr2 $+ ever  $+ $clr1 $+ M $+ $clr2 $+ ind $2- | halt }
      if ($1 == jk) { mmsg $active  $+ $clr1 $+ J $+ $clr2 $+ ust  $+ $clr1 $+ K $+ $clr2 $+ idding $2- | halt }
      if ($1 == fu) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ F $+ $clr2 $+ ***  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | .msg $active  $+ $clr1 $+ F $+ $clr2 $+ ***  $+ $clr1 $+ Y $+ $clr2 $+ ou $2- | halt }
      if ($1 == j/k) { mmsg $active  $+ $clr1 $+ J $+ $clr2 $+ ust  $+ $clr1 $+ K $+ $clr2 $+ idding $2- | halt }
      if ($1 == g2g) { mmsg $active  $+ $clr1 $+ G $+ $clr2 $+ ot  $+ $clr1 $+ T $+ $clr2 $+ o  $+ $clr1 $+ G $+ $clr2 $+ o $2- | halt }
      if ($1 == lol) { mmsg $active  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ O $+ $clr2 $+ ut  $+ $clr1 $+ L $+ $clr2 $+ oud $2- | halt }
      if ($1 == lmao) { mmsg $active  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ M $+ $clr2 $+ y  $+ $clr1 $+ * $+ $clr2 $+ **  $+ $clr1 $+ O $+ $clr2 $+ ff   $2- | halt }
      if ($1 == rofl) { mmsg $active  $+ $clr1 $+ R $+ $clr2 $+ olls  $+ $clr1 $+ O $+ $clr2 $+ n  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ loor  $+ $clr1 $+ L $+ $clr2 $+ aughing  $2- | halt }
      if ($1 == stfu) { echo $active 0(14 $+ $mytime $+ 0) « $+ $me $+ »  $+ $clr1 $+ S $+ $clr2 $+ hut  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ **k  $+ $clr1 $+ U $+ $clr2 $+ p  $2- | halt }
      if ($1 == roflmao) { mmsg $active  $+ $clr1 $+ R $+ $clr2 $+ olls  $+ $clr1 $+ O $+ $clr2 $+ n  $+ $clr1 $+ T $+ $clr2 $+ he  $+ $clr1 $+  F $+ $clr2 $+ loor  $+ $clr1 $+ L $+ $clr2 $+ aughing  $+ $clr1 $+ M $+ $clr2 $+ y  $+ $clr1 $+ * $+ $clr2 $+ **  $+ $clr1 $+ O $+ $clr2 $+ ff  $2- | halt }
      else {
        chanmsg $1-
        haltdef
      }
    }
    else {
      chanmsg $1-
      haltdef
    }
  }
}

on ^*:join:#:{
  if ($nick != $me) { echo # 0(14 $+ $mytime $+ 0) «  $+ $color(join) $+ Joins: [ $+ $nick $+ ] ( $+ $remove($address($nick, 0),*,!) $+ ) » | halt }
  if ($nick == $me) { echo # 0(14 $+ $mytime $+ 0) «  $+ $color(join) $+ You Joined $chan » | halt }
}
on ^*:mode:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick sets mode: $1- | halt }  
on ^*:op:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick opped: $opnick | halt }  
on ^*:deop:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick deopped: $opnick | halt }  
on ^*:help:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick halfopped: $hnick | halt }  
on ^*:dehelp:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick dehalfopped: $hnick | halt }  
on ^*:voice:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick voiced: $vnick | halt }  
on ^*:devoice:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick devoiced: $vnick | halt }  
on ^*:ban:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick banned: $banmask | halt }  
on ^*:unban:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick unbanned: $banmask | halt }  
on ^*:servermode:#: if ( . isin $nick) { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(mode) *** $nick sets mode: $1- | halt }
on ^*:kick:#: { haltdef | if ($knick != $me) { echo $chan 0(14 $+ $mytime $+ 0) $+ $color(kick) *** $knick was kicked by $nick ( $+ $1- $+  $+ $color(kick) $+ ) | halt } | elseif ($knick == $me) { echo $chan 0(14 $+ $mytime $+ 0) $+ $color(kick) *** You were kicked from # by $nick ( $+ $1- $+  $+ $color(kick) $+ ) | echo -se 0(14 $+ $mytime $+ 0) $+ $color(kick) *** You were kicked from # by $nick ( $+ $1- $+  $+ $color(kick) $+ ) | halt } }
on ^*:topic:#: { haltdef | echo $chan 0(14 $+ $mytime $+ 0) $+ $color(topic) *** $nick changes topic to ' $+ $1- $+  $+ $color(topic) $+ ' | halt }
on ^*:part:#: if ($nick != $me) { haltdef | echo $chan 0(14 $+ $mytime $+ 0) «  $+ $color(part) $+ Parts: [ $+ $nick $+ ] ( $+ $remove($address($nick, 0),*,!) $+ ) » | halt }
on ^*:quit: {
  var %x = 1
  while ( $comchan($nick,%x) ) {
    echo $ifmatch 0(14 $+ $mytime $+ 0) $+ $color(quit) *** $nick ( $+ $remove($address,0)*,!) $+ ) has quit IRC ( $+ $strip($1-,m) $+ $chr(15) $+ 9)
    inc %x
  }
  haltdef
}

on *:connect: {
  .timerA 1 30 dolagcheck 
  .enable #joinwho
  .timer 1 10 .disable #joinwho
  if (%autojoin == on) {
    var %lineno
    %lineno = 1
    while ($read(bin/join.txt,%lineno) != $null) {
      join $read(bin/join.txt,%lineno) 
      inc %lineno
    }
  }
}

on *:voice:#: if ($vnick !isop $chan && $vnick !ishop $chan) { cline $nickclr(voice) $chan $vnick }
on *:devoice:#: if ($vnick !isop $chan && $vnick !ishop $chan) { cline $nickclr(norm) $chan $vnick }
on *:help:#: if ($hnick !isop $chan && $vnick !isvoice $chan) { cline $nickclr(halfop) $chan $hnick }
on *:dehelp:#: if ($hnick !isop $chan && $vnick !isvoice $chan) { cline $nickclr(halfop) $chan $hnick }
on *:op:#: { cline $nickclr(op) $chan $opnick }
on *:deop:#: if ($opnick !isvo $chan) { cline $nickclr(norm) $chan $opnick } | if ($opnick isvo $chan) { cline $nickclr(voice) $chan $opnick }

on ^*:nick:{
  if ($nick == $me) && ($active == Status Window) { echo -se 0(14 $+ $mytime $+ 0) $+ $colour(nick text) $+ *** $me is now known as $newnick $+  }
  var %i
  %i = 1
  while (%i <= $comchan($newnick,0)) {
    echo $comchan($newnick,%i) 0(14 $+ $mytime $+ 0) $+ $colour(nick) *** $nick is now known as $newnick $+ 
    inc %i
  }
  haltdef
}

#joinwho on
raw 352:*: {
  if ($7 == H) && ($2 ischan) { cline $nickclr(norm) $2 $6 | haltdef }
  if ($7 == H) && ($2 == #services) { cline 4 $2 $6 | haltdef }
  if (- isin $7) && ($2 ischan) { cline $nickclr(userop) $2 $6 | haltdef }
  if (+ isin $7) && ($2 ischan) { cline $nickclr(voice) $2 $6 | haltdef }
  if (% isin $7) && ($2 ischan) { cline $nickclr(halfop) $2 $6 | haltdef }
  if (@ isin $7) && ($2 ischan) { cline $nickclr(op) $2 $6 | haltdef }
  else { haltdef }
  haltdef
}

raw 315:*: {
  halt
}
#joinwho end

dialog Away {
  title "Away Setup"
  size -1 -1 220 170
  box "", 1, 3 1 215 165
  box "Pager", 2, 7 92 80 70
  box "Logging", 3, 134 92 80 70
  text "Away Nickname:", 4, 7 10 130 20
  text "Away Reason:", 5, 7 53 75 20
  edit "", 6, 7 30 200 20, autohs
  edit "", 7, 7 70 200 20, autohs
  radio "on", 8, 20 110 49 25,group
  radio "off", 9, 20 130 40 25,group
  radio "on", 10, 148 110 49 25,group
  radio "off", 11, 148 130 40 25,group
  button "away", 12, 90 135 42 25,Ok
}

on *:DIALOG:away:edit:*: {
  if ($did == 6) { set %away.nick $did(6).text }
  if ($did == 7) { set %away.reason $did(7).text }
}
on *:DIALOG:away:sclick:*:{
  if ($did == 8) { set %away.page on | did -u $dname 9 }
  elseif ($did == 9) { set %away.page off | did -u $dname 8 }
  elseif ($did == 10) { set %away.log On | did -u $dname 11 }
  elseif ($did == 11) { set %away.log off | did -u $dname 10 }
  elseif ($did == 12) {
    if (%away.status != Away) { set %normal.nick $me }
    if (%away.nick == $null) { set %away.nick $me $+ |Away }
    if ($did(12).text == Away) { nick %away.nick | set %away.status Away | set %awaytime $ctime | set %away.reason $did(7).text | ame is now away  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ %away.reason -  $+ $clr2 left at $time(hh:nn) -  $+ $clr1 Logging is %away.log and Paging is %away.page  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | ame is away  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ %away.reason -  $+ $clr2 left at $asctime(%awaytime,hh:nn) -  $+ $clr1 Logging is %away.log and Paging is %away.page  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » }
    else { set %away.status unaway | ame  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ is now back, gone for $duration($calc($ctime - %awaytime)) Reason: %away.reason  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | nick %normal.nick | set %idle.time $ctime | .timer1 off }
  }
}
on *:dialog:away:init:0: {
  did -a $dname 6 %away.nick
  did -a $dname 7 %away.reason
  if (%away.page == on) { did -c $dname 8 } | else { did -c $dname 9 }
  if (%away.log == on) { did -c $dname 10 } | else { did -c $dname 11 }
  if (%away.status == Away) { did -o $dname 12 1 Unaway |   if ($exists($mircdirawaylog.txt) == $true) { echo -a You have Messages type /logs } } | else { did -o $dname 12 1 Away }
}

dialog autojoin {
  title "SPPScript Auto Join Setup"
  size -1 -1 230 195
  button "Done", 100, 5 165 150 25,Ok
  button "Add", 1, 160 10 65 25
  button "Delete", 2, 160 40 65 25
  button "On", 3, 160 165 65 25
  combo 13, 5 10 150 150, sort, vsbar
  text "Add channels to this list and you will join them when you connect.", 7, 159 75 65 80 
}
on *:dialog:autojoin:init:0:{
  var %lineno
  %lineno = 1
  while ($read(bin/join.txt, %lineno) != $null) {
    did -a $dname 13 $read(bin/join.txt, %lineno)
    inc %lineno
  }
  if (%autojoin == on) {
    did -a $dname 3 Off
  }
}
on *:dialog:autojoin:sclick:*: {
  if ($did == 1) { write bin/join.txt $did(13).text | did -a $dname 13 $did(13).text }
  elseif ($did == 2) { write -dw $+ $did($dname,13,$did($dname,13).sel) bin/join.txt | did -d $dname 13 $did(13).sel }
  elseif ($did == 3) {
    if ($did($dname,3).text == On) { did -a $dname 3 Off | set %autojoin on | echo -a Autojoin is now enabled }
    else { did -a $dname 3 On | set %autojoin off | echo -a Autojoin is now disabled }
  }
}

on *:notify: if (%com.nick == $null || %passnick == $null) { halt } | elseif ($nick == NickServ) { ns identify %com.nick %passnick }

menu Menubar {
  [»] Auto Identify
  .[»] Nickname 
  ..[»] Set Nickname: /set %com.nick $$?="Insert your nickname" | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ $$! has been set as your common nick.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Delete Nickname: /unset %com.nick | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Your nick has been deleted.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  .[»] Password
  ..[»] Set Password: /set %passnick $$?="Insert your password" | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ $$! has been set as your password.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Delete Password: /unset %passnick | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Your password has been deleted.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  -
  [»] Pokédex
  .[»] On:/.enable #poke | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Pokédex is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  .[»] Off:/.disable #poke | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Pokédex is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  .-
  .[»] Pokédex is now $group(#poke):halt
  - 
  [»] Chan protection
  .[»] Swearing
  ..[»] On:/.enable #swear | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Swearing protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #swear | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Swearing protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] This script is now $group(#swear):halt
  .[»] Advertising (Sites)
  ..[»] On:/.enable #ad1 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(Sites) is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #ad1 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(Sites) is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] This script is now $group(#ad1):halt
  .[»] Advertising (IRC channels)
  ..[»] On:/.enable #ad2 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(IRC channels) is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #ad2 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(IRC channels) is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] This script is now $group(#ad2):halt
  .[»] Caps
  ..[»] On:/.enable #caps | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Caps protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #caps | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Caps protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] This script is now $group(#caps):halt
  .[»] Repeatitions
  ..[»] On:/.enable #rep | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Repetitions protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #rep | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Repetitions protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] This script is now $group(#rep):halt
  .[»] Flood
  ..[»] On:/.enable #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Flood protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Flood protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] This script is now $group(#flood):halt
  .[»] All
  ..[»] On:/.enable #swear #ad1 #ad2 #caps #rep #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ All the protections are now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..[»] Off:/.disable #swear #ad1 #ad2 #caps #rep #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ All the protections are now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..[»] Swearing protection is $group(#swear):halt
  ..[»] Advertising (sites) protection is $group(#ad1):halt
  ..[»] Advertising (IRC channels) protection is $group(#ad2):halt
  ..[»] Flood protection is now $group(#flood):halt
  ..[»] Caps protection is $group(#caps):halt
  ..[»] Repetitions protection is $group(#rep):halt
  -
  [»] Raw catcher
  .[»] Enable:/.enable #rawcatch | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Raw catcher is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  .[»] Disable:/.disable #rawcatch | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Raw catcher is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  .-
  .[»] Raw catcher is $group(#rawcatch):halt
}

menu channel {
  Chan protection
  .Swearing
  ..On:/.enable #swear | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Swearing protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #swear | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Swearing protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..This script is now $group(#swear):halt
  .Advertising (Sites)
  ..On:/.enable #ad1 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(Sites) is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #ad1 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(Sites) is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..This script is now $group(#ad1):halt
  .Advertising (IRC channels)
  ..On:/.enable #ad2 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(IRC channels) is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #ad2 | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Advertising protection(IRC channels) is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..This script is now $group(#ad2):halt
  .Caps
  ..On:/.enable #caps | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Caps protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #caps | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Caps protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..This script is now $group(#caps):halt
  .Repetitions
  ..On:/.enable #rep | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Repetitions protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #rep | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Repetitions protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..This script is now $group(#rep):halt
  .Flood
  ..On:/.enable #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Flood protection is now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ Flood protection is now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..This script is now $group(#flood):halt
  .All
  ..On:/.enable #swear #ad1 #ad2 #caps #rep #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ All the protections are now on.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..Off:/.disable #swear #ad1 #ad2 #caps #rep #flood | /echo -a  $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ «  $+ $clr1 $+ All the protections are now off.  $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1
  ..-
  ..Swearing protection is $group(#swear):halt
  ..Advertising (sites) protection is $group(#ad1):halt
  ..Advertising (IRC channels) protection is $group(#ad2):halt
  ..Flood protection is now $group(#flood):halt
  ..Caps protection is $group(#caps):halt
  ..Repetitions protection is $group(#rep):halt
  -
  System info
  .System stats:/stat
  .CPU speed:/power
  .Connection stats:/connstat
  .Screen stats:/screenstat
  .Network interfaces:/ni
  .GFX:/gfx
}