on *:text:!joinscripton:#: {
  if (%onjoinscript [ $+ [ $chan ] ] == on) { .notice $nick  The on join script for $chan is already on }
  if (%pestcontroloffon [ $+ [ $chan ] ] == on) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { 
    set %onjoinscript [ $+ [ $chan ] ] on
  .msg $chan The on join script for $chan is now on. }
}

on *:text:!joinscriptoff:#: {
  if (%onjoinscript [ $+ [ $chan ] ] == off) { .notice $nick  The on join script for $chan is already off }
  if (%pestcontroloffon [ $+ [ $chan ] ] == off) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { 
    set %onjoinscript [ $+ [ $chan ] ] on
  .msg $chan The on join script for $chan is now off. }
}
on *:join:#: { 
  if ($chan == #bots) { halt }
  if ($chan == #bot) { halt }
  if ($nick == |God|Bot|) { halt }
  if ($nick == aturner44) {
    msg $chan ATENTIION Aturner44 has joined $chan $+ , respect Aturner44 as he is my owner ATENTIION
  }
  if ($nick == [-sword-]) {
    msg $chan ATENTIION [-Sword-] has joined $chan $+ , respect [-Sword-] as he is bot staff ATENTIION
  }
  else {
    if (%onjoinscript == off) { halt }
    if ($chan == #80+) { notice $nick Hello and welcome $nick to $chan $+ , i am |God|Bot| for my commands type !commands. | notice $nick If you want to join a clan please pm eletric_god for more information! | halt }
    /notice $nick Hello and welcome $nick to $chan $+ , i am |God|Bot| for my commands type !commands.
  }
  on *:part:#: { 
    if ($address($nick,2) == $address($me,2)) { halt } 
    if ($nick == $me) { halt }
    /notice $nick Thankyou for visiting $chan $+ , please come again.
  }
}
on *:kick:#: { 
  /illegalcheck $1-
  if ($knick == |God|Bot|) { 
    /remini chanlist.ini chans $chan null 
    inc %kickcounter [ $+ [ $chan ] ] 
    notice aturner44 I was kicked out of $chan by $nick $+ .
  } 
}
on *:invite:#: {
  if (%kickcounter [ $+ [ $chan ] ] >= 5) { notice $nick Sorry $chan is blacklisted | HALT } 
  if (%kickcounter [ $+ [ $chan ] ] == $null) { set %kickcounter [ $+ [ $chan ] ] 0 }
  join $chan
  /msg $chan Hello i am |God|Bot| for my commands type !commands, i have been kicked %kickcounter [ $+ [ $chan ] ] $+ /5, i can be kicked $calc( 5 - %kickcounter [ $+ [ $chan ] ] ) more times.
}
on *:text:!blacklist*:#: {
  /illegalcheck $1-
  set %kickcounter [ $+ [ $2 ] ] 5
  /notice aturner44  $+ $2 is now black listed.
}

on $*:TEXT:/^(!part|!gtfo|!leave)/Si:#: {
  if ($nick isreg $chan || $nick isvoice $chan) { notice $nick Sorry $nick to make me leave you have to have op/half-op status. | halt }
  if ($chan == #craigs || $chan == #craigs-staff || $chan == #godbot) { notice $nick Lol? make me leave from $chan $+ ! arent you funny! | halt } 
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $me) {
    .msg $chan Goodbye $chan i enjoyed my stay, i was told to part by $nick $+ .
    /part $chan
  }
}
on *:text:*:?: {
  if ($nick == aturner44) { halt }
  if ($1- == !scriptcommands) { halt }
  if ($1- == !fun coms) { halt }
  if ($1- == !runescape coms) { halt }
  if ($1- == !helpfull coms) { halt }
  if ($1- == !ban coms) { halt }
  .msg $nick Please dont PM me i am a bot, thankyou. 
  close -m $nick
}
on *:text:!channels:#: { 
  inc %served 
  var %x = 1 
  var %op = 0, %hop = 0, %voice = 0, %reg = 0 
  while ($me ison $chan(%x)) { 
    if ($me isop $chan(%x)) inc %op 
    if ($me ishop $chan(%x)) inc %hop 
    if ($me isvoice $chan(%x)) inc %voice 
    if ($me isreg $chan(%x)) inc %reg 
    inc %x
  } 
  msg $chan I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them. 
} 
on *:text:!asc*:#: { 
  bset -t &asc 1 $2- 
  var %c = $regsubex($bvar(&asc,1,$bvar(&asc,0)),/([^ ]+)/g,$+($,chr,$chr(40),\t,$chr(41))) 
  notice $nick The chr code for $qt($2-) is: $iif($numtok(%c,32) == 1,%c,$+($,+,$chr(40),$replace(%c,$chr(32),$chr(44)),$chr(41))) 
}
on *:TEXT:!warn*:#:{ 
  /illegalcheck $1- 
  if ($2- isop $chan) { msg $chan You cant warn an @Op! | halt }
  if ($address($2-,2) == $address($me,2)) { msg $chan Warn my self, no. | halt }
  if ($nick isop $chan) { 
    if ($2- !ison $chan) { /notice $nick Sorry $nick $+ , you may only warn someone who is on your channel. 
    } 
    else { 
      .inc $+(%,warn.ban.,$2-) 
      if $($+(%,warn.ban.,$2-),2) == 1 { 
        msg $chan [WARNING] $2- has been warned, $ord($($+(%,warn.ban.,$2-),2)) warning! 
      } 
      if $($+(%,warn.ban.,$2-),2) == 2 { 
        msg $chan [WARNING] $2- has been warned, $ord($($+(%,warn.ban.,$2-),2)) warning! LAST WARNING! 
      } 
      if $($+(%,warn.ban.,$2-),2) == 3 { 
        msg $chan [WARNING] $2- has been warned 3 out of 3 times! 
        .timer 1 3 .ban -ku600 $chan $2- Banned for 3 warnings, 10 minute ban! 
        unset $+(%,warn.ban.,$2-) 
      } 
    } 
  } 
  else notice $nick You must be an @op to warn someone in $chan $+ . 
}