Miscellany

on *:TEXT:@calc*:#: { 
  /illegalcheck $1-
  if ($2- == $null) { 
    msg $chan 14You needed a calculator to figure that out? 
  } 
  else { 
    msg $chan 04 $+ $2- 14=4 $bytes($calc($replace($2-,x,*,k,000,m,00000,b,000000,pi,$pi)),bd) $+ 14.
  } 
} 
on *:TEXT:!sqrt*:#: { 
  /illegalcheck $1-
  if ($2 == $null) { 
    notice $nick  14You needed a calculator to figure that out? 
  } 
  else { 
    notice $nick 14The square root of4 $2- 14is4 $sqrt($2-) $+ 14.
  }
}
on *:TEXT:!calc*:#: { 
  /illegalcheck $1-
  if ($2- == $null) { 
    notice $nick 14You needed a calculator to figure that out? 
  } 
  else { 
    notice $nick 04 $+ $2- 14=4 $bytes($calc($replace($2-,x,*,k,000,m,00000,pi,$pi)),bd) $+ 14.
  } 
} 
on *:TEXT:@sqrt*:#: { 
  /illegalcheck $1-
  if ($2 == $null) { 
    msg $chan  14You needed a calculator to figure that out? 
  } 
  else { 
    msg $chan 14The square root of4 $2- 14is4 $sqrt($2-) $+ 14.
  }
}


-------------------------------------------------------------------------------------------------------

on *:TEXT:*!pestcontroloff*:#: {
  if (%pestcontroloffon [ $+ [ $chan ] ] == off) { .notice $nick 14 The pestcontrol script for4 $chan 14is already4 off }
  if (%pestcontroloffon [ $+ [ $chan ] ] == off) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %pestcontroloffon $+ $chan off }
  { .msg $chan 14 The pestcontrol script for4 $chan 14is now4 off }
}

on *:TEXT:*!pestcontrolon*:#: {
  if (%pestcontroloffon [ $+ [ $chan ] ] == on) { .notice $nick 14 The pestcontrol script for4 $chan 14is already4 on }
  if (%pestcontroloffon [ $+ [ $chan ] ] == on) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %pestcontroloffon $+ $chan on }
  { .msg $chan 14 The pestcontrol script for4 $chan 14is now4 on }
}

on $*:TEXT:/^([!@]setpcw|[!@]setworld)/Si:#:{
  /illegalcheck $1-
  set %pcwnickname [ $+ [ $chan ] ] $nick
  if ($2- !isnum) { notice $nick 14Sorry you have to set a 4numerical14 world! | halt }
  if (%pestcontroloffon [ $+ [ $chan ] ] == OFF) { HALT }
  if ($chan == #bots) { HALT }
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $nick == aturner44) {
    writeini -n world.ini pcw $chan pcw
    $iif($2 != $null,writeini -n world.ini pc $chan $2,writeini -n world.ini pc $chan No world set)
    writeini -n world.ini time $chan $ctime
    .msg $chan 14The 4pc world14 has been updated by4 $nick 
    if (%pcwtimer [ $+ [ $chan ] ] == on) { 
      timerpcw off
      timerpcw 0 30 msg $chan 14[4W14orld]:4 $readini(world.ini,n,pc,$chan) 14[4S14uggested]:4 $readini(suggest.ini,n,sugest,$chan) 14[4Sk14et bye]:4 %pcwnickname [ $+ [ $chan ] ]
    }
  }
}

on $*:TEXT:/^(!setcraigs|!set#craigs)/Si:#:{
  /illegalcheck $1-
  if (%pestcontroloffon [ $+ [ $chan ] ] == OFF) { HALT }
  if ($chan == #craigs-staff) {
    writeini -n world.ini pcw #craigs pcw
    $iif($2 != $null,writeini -n world.ini pc #craigs $2,writeini -n world.ini pc #craigs No world set)
    writeini -n world.ini time #craigs $ctime
    .msg #craigs 14The 4pc world14 has been updated!
  }
}
on $*:TEXT:/^(!setmuslim|!set#muslim)/Si:#:{
  /illegalcheck $1-
  set %pcwnickname [ $+ [ #muslim ] ] $nick
  if (%pestcontroloffon [ $+ [ #muslim ] ] == OFF) { HALT }
  if ($chan == #muslim-staff) {
    writeini -n world.ini pcw #muslim pcw
    $iif($2 != $null,writeini -n world.ini pc #muslim $2,writeini -n world.ini pc #muslim No world set)
    writeini -n world.ini time #muslim $ctime
    .msg #muslim 14The 4pc world14 has been updated!
    if (%pcwtimer [ $+ [ $chan ] ] on) {
      timerpcw off
      timerpcw 0 30 msg $chan 14[4W14orld]:4 $readini(world.ini,n,pc,$chan) 14[4S14uggested]:4 $readini(suggest.ini,n,sugest,$chan) 14[4S14et by]:4 %pcwnickname [ $+ [ $chan ] ]
    }
  }
}
on *:TEXT:!set80*:#:{
  /illegalcheck $1-
  set %pcwnickname [ $+ [ #80+ ] ] $nick
  if (%pestcontroloffon [ $+ [ #80+ ] ] == OFF) { HALT }
  if ($chan == #muslim-staff) {
    writeini -n world.ini pcw #80+ pcw
    $iif($2 != $null,writeini -n world.ini pc #80+ $2,writeini -n world.ini pc #80+ No world set)
    writeini -n world.ini time #80+ $ctime
    msg #80+ 14The 4pc world14 has been updated!
    if (%pcwtimer [ $+ [ $chan ] ] on) {
      timerpcw off
      timerpcw 0 30 msg #80+ 14[4W14orld]:4 $readini(world.ini,n,pc,$chan) 14[4S14uggested]:4 $readini(suggest.ini,n,sugest,$chan) 14[4S14et by]:4 %pcwnickname [ $+ [ $chan ] ]
    }
  }
}
on *:TEXT:!show*:#: {
  /illegalcheck $1-
  if ($nick isop $chan || $nick == aturner44) {  
    if ($2 == ON)  { 
      if (%pcwtimer [ $+ [ $chan ] ] == on) { notice $nick 14The pcw timer is already on. | halt } 
      set %pcwtimer [ $+ [ $chan ] ] on
      timerpcw 0 30 msg $chan 14[4W14orld]:4 $readini(world.ini,n,pc,$chan) 14[4S14uggested]:4 $readini(suggest.ini,n,sugest,$chan) 14[4S14et by]:4 %pcwnickname [ $+ [ $chan ] ] 
      msg $chan 14The pcw timer is now 4enabled. 
    }  
    if ($2 == OFF) {  
      if (%pcwtimer [ $+ [ $chan ] ] == off) { notice $nick 14The pcw timer isnt on. | halt } 
      unset %pcwtimer [ $+ [ $chan ] ] 
      timerpcw off 
      msg $chan 14The pcw timer is now 4disabled.
    }
  }
}

on $*:TEXT:/^([!@]pcw|[!@]world)/Si:#:{
  if (%pcwtimer [ $+ [ $chan ] ] == on) { notice $nick 14Please dont use the 4!pcw14 command as the pcw world is shown every 30 seconds! | halt }
  /illegalcheck $1-
  if (%pestcontroloffon [ $+ [ $chan ] ] == OFF) { HALT }
  if ($readini(world.ini,n,pcw,$chan)) {
    notice $nick 14[4W14orld]:4 $readini(world.ini,n,pc,$chan) 14[4S14uggested]:4 $readini(suggest.ini,n,sugest,$chan) 14[4S14et by]:4 %pcwnickname [ $+ [ $chan ] ]
  }
} 


----------------------------------------------------------------------------------------------


on *:TEXT:!autosuggeston:#: { 
  if (%autosuggest [ $+ [ $chan ] ] == on) { .notice $nick 14 The autosuggest script for4 $chan 14is already4 on }
  if (%autosuggest [ $+ [ $chan ] ] == on) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %autosuggest on }
  { notice aturner44 14Suggestions are now on }
}

on *:TEXT:!autosuggestoff:#: { 
  if (%autosuggest [ $+ [ $chan ] ] == off) { .notice $nick 14 The autosuggest script for4 $chan 14is already4 off }
  if (%autosuggest [ $+ [ $chan ] ] == off) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %autosuggest off } 
  { notice aturner44 14Suggestions are now off }
}

on *:TEXT:!onsuggest:#: { 
  if (%suggest [ $+ [ $chan ] ] == on) { .notice $nick 14 The suggestion script for4 $chan 14is already4 on }
  if (%suggest [ $+ [ $chan ] ] == on) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %suggest on }
  { notice aturner44 14Suggestions are now on }
}

on *:TEXT:!offsuggest:#: { 
  if (%suggest [ $+ [ $chan ] ] == off) { .notice $nick 14 The autosuggest script for4 $chan 14is already4 off }
  if (%suggest [ $+ [ $chan ] ] == off) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { set %suggest off } 
  { notice aturner44 14Suggestions are now off }
}


on *:TEXT:!suggest *:#: { 
  /illegalcheck $1-
  if ($2- !isnum) { notice $nick Sorry you can only suggest 4numeric14 worlds! | halt }
  if (%suggest == OFF) { HALT }
  if ($chan == #bots) { HALT }
  writeini -n suggest.ini suggest $chan suggest
  $iif($2 != $null,writeini -n suggest.ini sugest $chan $2,writeini -n suggest.ini sugest $chan No suggestions)
  .msg $chan 4 $nick 14has suggested $2- 
  if (%pcwtimer [ $+ [ $chan ] ] == on) {
    timerpcw off
    timerpcw 0 30 msg $chan 14The current 4pestcontrol14 world is4 $readini(world.ini,n,pc,$chan) 14world4 $readini(suggest.ini,n,sugest,$chan) 14has been suggested. 
  }
}


on *:TEXT:!sugcraigs *:#: {
  /illegalcheck $1-
  if ($chan == #craigs-staff) {
    if ($2- !isnum) { halt }
    if (%autosuggest == OFF) { HALT }
    writeini -n suggest.ini suggest #craigs suggest
    $iif($2 != $null,writeini -n suggest.ini sugest #craigs $2,writeini -n suggest.ini sugest #craigs No suggestions)
  }
}
on *:TEXT:!sug80 *:#: {
  /illegalcheck $1-
  if ($chan == #80-staff) {
    if ($2- !isnum) { halt }
    if (%autosuggest == OFF) { HALT }
    writeini -n suggest.ini suggest #80+ suggest
    $iif($2 != $null,writeini -n suggest.ini sugest #80+ $2,writeini -n suggest.ini sugest #80+ No suggestions)
  }
}
on *:TEXT:!sugmuslim *:#: {
  /illegalcheck $1-
  if ($chan == #muslim-staff) {
    if ($2- !isnum) { halt }
    if (%autosuggest == OFF) { HALT }
    writeini -n suggest.ini suggest #muslim suggest
    $iif($2 != $null,writeini -n suggest.ini sugest #muslim $2,writeini -n suggest.ini sugest #muslim No suggestions)
  }
}


----------------------------------------------------------------------------------------------


on *:text:!swearingon*:#: {
  if ($nick isop $chan) {
    msg $chan 14The swearin filter is now 4enabled
    set %swearing [ $+ [ $chan ] ] on
  }
}
on *:text:!swearingoff*:#: {
  if ($nick isop $chan) {
    msg $chan 14The swearin filter is now 4disabled
    unset %swearing [ $+ [ $chan ] ] 
  }
}
on $*:TEXT:/^fuck|fucker|wank|dick|knob|nob|tit|shit|wanker|crap|boob|bitch|nigger|cunt|nigga|faggot|bastard|twat|fag|i hate allah|i hate muslim|whore|slag|slapper|tart*/si:#: {
  if ($chan == #muslim) {
    if ($nick ishop $chan) { notice $nick 4Please do not swear or your access will be taken from you! | halt }
    if ($nick isvoice $chan) { notice $nick 4Please do not swear or your access will be taken from you! | halt }
    if ($nick isreg $chan) { kick $chan $nick 14Do not curse in this channel! }
  }
}
alias illegalcheck { 
  if ($chr(36) isin $1-) || ($chr(37) isin $1-) || ($chr(38) isin $1-) { 
    notice $nick Hacking prevention added. 
    halt 
  } 
}  
on *:text:!joinscripton:#: {
  if (%onjoinscript [ $+ [ $chan ] ] == on) { .notice $nick 14 The on join script for4 $chan 14is already4 on }
  if (%pestcontroloffon [ $+ [ $chan ] ] == on) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { 
    set %onjoinscript [ $+ [ $chan ] ] on
  .msg $chan 14The on join script for4 $chan is now on. }
}

on *:text:!joinscriptoff:#: {
  if (%onjoinscript [ $+ [ $chan ] ] == off) { .notice $nick 14 The on join script for4 $chan 14is already4 off }
  if (%pestcontroloffon [ $+ [ $chan ] ] == off) { halt } 
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick == aturner44)) { 
    set %onjoinscript [ $+ [ $chan ] ] off
  .msg $chan 14The on join script for4 $chan is now off. }
}
on *:join:#: { 
  if ($chan == #bots) { halt }
  if ($chan == #bot) { halt }
  if ($nick == |God|Bot|) { halt }
  if ($nick == aturner44) {
    msg $chan 8,1A1,8T8,1E1,8N8,1T1,8I8,1I1,8O8,1N0,4 Aturner44 has joined $chan $+ , respect Aturner44 as he is my owner 8,1A1,8T8,1E1,8N8,1T1,8I8,1I1,8O8,1N
  }
  if ($nick == [-sword-]) {
    msg $chan 8,1A1,8T8,1E1,8N8,1T1,8I8,1I1,8O8,1N0,4 [-Sword-] has joined $chan $+ , respect [-Sword-] as he is bot staff 8,1A1,8T8,1E1,8N8,1T1,8I8,1I1,8O8,1N
  }
  else {
    if (%onjoinscript == off) { halt }
    if ($chan == #80+) { notice $nick 14Hello and welcome $nick to4 $chan $+ 14, i am |God|Bot| for my commands type !commands. | notice $nick 14If you want to join a clan please pm eletric_god for more information! | halt }
    /notice $nick 14Hello and welcome $nick to4 $chan $+ 14, 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 14Thankyou 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 14I was kicked out of4 $chan 14by4 $nick $+ 14.
  } 
}
on *:invite:#: {
  if (%kickcounter [ $+ [ $chan ] ] >= 5) { notice $nick 14Sorry $chan is blacklisted | HALT } 
  if (%kickcounter [ $+ [ $chan ] ] == $null) { set %kickcounter [ $+ [ $chan ] ] 0 }
  join $chan
  /msg $chan 14Hello i am4 |God|Bot| 14for 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 14 $+ $2 is now black listed.
}

on $*:TEXT:/^(!part|!gtfo|!leave|!part Godbot|!gtfo Godbot|!leave Godbot)/Si:#: {
  if ($nick isreg $chan || $nick isvoice $chan) { notice $nick 14Sorry4 $nick 14to make me leave you have to have op/half-op status. | halt }
  if ($chan == #craigs || $chan == #craigs-staff || $chan == #godbot) { notice $nick 4Lol?14 make me leave from $chan $+ ! arent you funny! | halt } 
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $me) {
    .msg $chan 14Goodbye4 $chan 14i enjoyed my stay, i was told to part by4 $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 14Please dont PM me i am a bot, thankyou. 
  ignore -u10 $address($nick,2)
  close -m $nick
}
on *:text:!mute*:#: {
  if ($nick isop $chan) {
    mode $chan +m
    msg $chan 4 $+ $chan 14is now muted, only 12(+)14/7(%)14/4(@)14 can talk, muted by 4 $+ $nick $+ !
    set %mutenotice [ $+ [ $chan ] ] on
  }
}
on *:text:!unmute*:#: {
  if ($nick isop $chan) {
    mode $chan -m
    msg $chan 4 $+ $chan 14is now unmuted, unmuted by 4 $+ $nick $+ !
    unset %mutenotice [ $+ [ $chan ] ] 
  }
}
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 14I am in4 $calc(%x - 1) 14channel $+ (s) I'm op in4 %op 14of them. Im Halfop in4 %hop 14of them. Im Voice in4 %voice 14of them. Im Regular in4 %reg 14of 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 14The chr code for4 $qt($2-) 14is:4 $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 14You cant warn an 4@Op! | halt }
  if ($address($2-,2) == $address($me,2)) { msg $chan 14Warn my self, no. | halt }
  if ($nick isop $chan) { 
    if ($2- !ison $chan) { /notice $nick 14Sorry4 $nick $+ , 14you may only warn someone who is on your channel. 
    } 
    else { 
      .inc $+(%,warn.ban.,$2-) 
      if $($+(%,warn.ban.,$2-),2) == 1 { 
        msg $chan 14[W4ARNING14] $2- has been warned,4 $ord($($+(%,warn.ban.,$2-),2)) 14warning! 
      } 
      if $($+(%,warn.ban.,$2-),2) == 2 { 
        msg $chan 14[W4ARNING14] $2- has been warned,4 $ord($($+(%,warn.ban.,$2-),2)) 14warning! 4LAST WARNING! 
      } 
      if $($+(%,warn.ban.,$2-),2) == 3 { 
        msg $chan 14[W4ARNING14] $2- 14has been warned4 3 14out of4 3 14times! 
        .timer 1 3 .ban -ku600 $chan $2- Banned for 3 warnings, 10 minute ban! 
        unset $+(%,warn.ban.,$2-) 
      } 
    } 
  } 
  else notice $nick 14You must be an 4@op14 to warn someone in4 $chan $+ . 
}