on *:TEXT:!forum:#propc:{ msg $nick 12ProPC Forums URL: http://z6.invisionfree.com/ProPC/index.php?act=idx
  msg $nick 12 Or use the .tk domain: www.propcforums.tk
  msg $nick 12 Please register on these forums and continue to post. You can advertise your channels, your clans, etc on these forums. Also selling/buying is available.
  msg $nick 12 If you need help with the forums contact any of the Admins (Operators) or Global Moderators (Half-Operators).  If you forgot your password and need another, talk to Eragonj.
msg $nick 12 Any suggestions/ideas post in the Suggestions/Ideas Forum...thank you for using ProPC! ^_^ } 


on *:TEXT:!hw*:#heartworlds:{ notice $nick 12The current HeartWorld is  $+ %hw $+  - Last Updated: $duration($calc($ctime - %hwt)) ago. }
on *:TEXT:!set hw*:#heartworlds:{ if ($nick isop $chan) || ($nick ishop $chan) {
    set %hwt $ctime
    set %hw $3- | notice $nick 12You have changed the HeartWorld to4 $3 $+ 12.
    msg #heartworlds 7[4HeartWorld Update7]12 The new HeartWorld is4 $3 $+ 12.
topic #heartworlds 4,5/5,4\4,5/5,4\4,5/5,4\1,5W1,4e1,5l1,4c1,5o1,4m1,5e1,4 1,5t1,4o1,5 1,4h1,5e1,4a1,5r1,4t1,5 1,4w1,5o1,4r1,5l1,4d1,5s1,4 1,4w1,5o1,4r1,5l1,4d1,5:1,4 1,0| $+ $3- $+ |4,5/5,4\4,5/5,4\4,5/5,4\1,0 Command = "!hw" Or use "/topic #heartworlds"  } }
on *:TEXT:!kbhw*:#heartworlds:{ if ($nick isop $chan) || ($nick ishop $chan) {
    ban #heartworlds $2
kick #heartworlds $2 4Ch00 D0n't Bel0ng In Here! } }

on *:Text:!pcw*:#,?:{
  if (!%pc) notice $nick The pc-world is not set
  notice $nick The current pc-world is: %pc - Last update: $duration($calc($ctime - %pcc)) ago
}

on *:text:!pcinfo:#:{ if ($nick isop #pcbot) {
    msg # Current users in ProPC: 12[ $+ $nick(#propc,0) $+ ] 
    msg # Users visited ProPC: 12[ $+ $bytes($gettok($hget(Visits,$+($network,.,Count,.,#propc)),1,32),b) $+ ]
    msg # Current users in PC-HQ:12 [ $+ $nick(#pc-hq,0) $+ ]
    msg # Users visited PC-HQ: 12[ $+ $bytes($gettok($hget(Visits,$+($network,.,Count,.,#pc-hq)),1,32),b) $+ ]
    msg # My current active channel is 12[ $+ $active $+ ].
    msg # The mIRC program is currently 12[ $+ $appstate $+ ].
    msg # I am on 12[ $+ $chan(0) $+ ] Channels. 12[ $+ $query(0) $+ ] Open Querys.
    msg # Using 12[ $+ $os $+ ]. My Titlebar 12[ $+ $titlebar $+ ]. mIRC Version 12[ $+ $version $+ ]
  }
  else {
notice $nick You aren't a BotOper! } } 

on *:join:#:{ notice $nick 12 Hello4 $nick $+ 12, and welcome to4 $chan $+ 12! Type 4!menu12 to view all of my command catagories, you'll find everything there. There is currently4 $nick($chan,0) 12users on4 $chan $+ 12. }
on *:text:!rules*:#,?:{ msg $nick 4 The rules are as follows, breaking these will result in kicks/bans/temporary bans.
  msg $nick 12 NO ASKING FOR STATUS!
  msg $nick 12 Do NOT ask for the world, just use "!pcw" or "/topic #propc".
  msg $nick 12 Do NOT say the world is bad, use suggest a world command: /notice PCHBot saw WORLD WHY
  msg $nick 12 Do NOT Spam or Flood
  msg $nick 12 Do NOT advertise other PC Channels/PC Worlds
  msg $nick 12 DO NOT PM OPERATORS/HALF-OPERATORS WITHOUT PERMISSION!
msg $nick 1 -- End -- }


on *:text:!ns*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +b ~q: $+ $2 $+ } }
on *:text:!nds*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -b ~q: $+ $2 $+ } }
on *:text:!hs*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +b ~q:*!* $+ $2- } }
on *:text:!hds*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -b ~q:*!* $+ $2- } }

on *:text:!amsg*:#pcbot:{ if ($nick isop #pcbot) {
/amsg 1[-4Global Message1-4( $+ $nick $+ )1-]12 $2- } else { notice $nick Your not a BotOper! } }

on *:text:!kbp*:#pcbot:{ if ($nick isop #pcbot) {
    ban $chan $2
kick $chan $2 4This is the BotOper channel, guests are not allowed. } }

on $*:text:/^[!@.]set pcw */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $3-
    topic #propc 4,5/5,4\4,5/5,4\4,5/5,4\1,5W1,4e1,5l1,4c1,5o1,4m1,5e1,4 1,5t1,4o1,5 1,4P1,5r1,4o1,5 1,4P1,5c1,4,1,5 1,4C1,5u1,4r1,5r1,4e1,5n1,4t1,5 1,4w1,5o1,4r1,5l1,4d1,5:1,4 1,0| $+ $3- $+ |4,5/5,4\4,5/5,4\4,5/5,4\1,0 Command = "!pcw"
    topic #pc-hq 1Welcome to 4#pc-hq 1¤ 12http://pc-hq.tk 1¤1 1Current PC World -4 $3- $+ 1. ¤ Use 4/topic #pc-hq1 or 4!pcw1 (not loaded 24/7) to get the current world. Founder: 4I__Drew__I.
    /amsg [4Pc-World Update1] 12New world: $3- 4( $+ $nick $+ )
  } 
}

on *:notice:saw:?:{ if ($3- == $null) { notice $nick You didn't give a reason why, therefore your suggestion will be ignored. | halt 
  } 
  else {
    msg #pcbot 1-World Suggestion-12 Nick:4 $nick 12World:4 $1 12Why:4 $2- 1-End-
  } 
{ notice $nick Thank you for your suggestion $nick $+ ! If the world is good, it will be changed. } }

on *:text:!ncount:#:{ msg # 12The current amount of users on this channel is:1 (4 $nick($chan,0) 1) }
on *:text:!ncount*:#:{ msg # 12The current amount of users on $2 is:1 (4 $nick($2,0) 1) }

on *:text:!demute:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -m } }
on *:text:!mute:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +m } }
on *:action:*slaps Eragonj around a bit with a large trout*:#:{ describe $chan kills $nick for Eragonj. }
on *:text:!k eragonj*:#:{ kick $chan $nick 12D4o12n4'12t 4t12r4y 12t4o 12k4i12c4k 12E4r12a4g12o4n12j 4y12o4u 12b4i12z4n12a4t12c4h12.4.12.4.12. }
on *:text:!quitpchbot:#:{ if ($nick isop #pcbot) { /quit - BotOperQuit command used by $nick - } else { notice $nick You aren't a BotOper! } }
on *:text:!ep*:#:{ msg #heartworlds 4 Error Report From $nick $+ :12 $2- }
on *:TEXT:!v *:#:{ if ($nick isop $chan) || ($nick ishop $chan) { /mode $chan +vvvvvvvvvv $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 } } 
on *:TEXT:!k *:#:{ if ($nick isop $chan) || ($nick ishop $chan) {
    inc %kcount |
kick #propc $2 Reason: $3- - N00B5 H4X0R3D: ( %kcount ) } }
on *:TEXT:!waffle*:#: { //describe $chan hands $2- a bunny with a waffle balanced on its head, courtesy of $nick }
on *:TEXT:*Hi PCHBot*:#: { //describe $chan waves at $nick } 
on *:ACTION:*huggles PCHBot*:#: { //describe $chan kicks $nick | msg # Get the fuck off me $nick $+ ! }
on *:ACTION:*slaps PCHBot around a bit with a large trout*:#: { describe $chan takes $nick $+ 's trout and rams it where the sun don't shine! | msg $chan Ch00 just got koed }
on *:TEXT:!kbt *:#:{ if ($nick isop $chan) || ($nick ishop $chan) { inc %kcount | /ban -ku $+ $3 $chan $2 2 7 Reason: $4- 1- 11 $3 Second Ban 1- 12Noobs Pwnt: 1(4 %kcount 1) } }

on *:text:!hjoin*:#:{ if ($nick isop #pcbot) { join $2 | msg $2 - BotOperJoin command used by $nick - } else { notice $nick You aren't a BotOper! } }
on *:text:!hpart*:#:{ if ($nick isop #pcbot) { part $2 - BotOperPart command used by $nick - } else { notice $nick You aren't a BotOper! } }

on *:text:@pcw*:#:{ notice $nick The currect function is "!pcw". }
on *:text:@*:#:{ if ($nick isop $chan) { notice $nick Ch00 have been saaaaaved! | halt
  }
  else {
kick $chan $nick 4Dont use @ commands on this channel! } } 

on *:NOTICE:forum:?:{ .msg #propc 12Register on the new ProPC Forums and get free scripts and guides aswell as free temporary voice status! 4 http://s6.invisionfree.com/ProPC } 
on *:NOTICE:dostatus *:?: { if ($me ison $$2) { /cs $4 $$2 $3 } }
on *:NOTICE:hostban *:?: { if ($me ison $$2) { /mode $$2 +b *!* $+ $3 } }
on *:NOTICE:uhostban *:?: { if ($me ison $$2) { /mode $$2 -b *!* $+ $3 } }
on *:text:!pc:#:{ notice $nick The correct function is "!pcw". }
on *:text:!msg*:#pcbot:{ if ($nick isop #pcbot) { msg $2 1[-4Message1-4From1-4 $+ $nick $+ 1-]12 $3-  } else { notice $nick You aren't a BotOper! } } 


on *:text:!menu:#,?:{ msg $nick 12These are my commands list, PC Commands are under !commands.
  msg $nick 4 "!pcbcomms" - My emote commands and Pest Control commmands.
  msg $nick 4 "!opcomms" - Half-Operator+ commands
  msg $nick 4 "!features" - Other Features
  msg $nick 4 "!botoper" - BotOper commands
  msg $nick 1 Note: You can type these commands in this PM, or in the channel.
msg $nick 1 -- End -- }
on *:text:!opcomms:#,?:{ msg $nick 12My Half-Operator+ commands are as follows:
  msg $nick 4 "!set pcw WORLD" - Change the PC world to WORLD 
  msg $nick 4 "!v Nick Nick Nick..." - Voice up to 10 nicks
  msg $nick 4 "!k Nick Reason" - Kick Nick Reason
  msg $nick 4 "!kbt Nick Time Reason" - KickBanTime Nick for Time Reason (Time is in seconds)
  msg $nick 4 "!mute/!demute" - Mutes or DeMutes the channel which is (Mode m)
  msg $nick 4 "!hs @HOST" "!hds @HOST" - Silence/DeSilences the host, can still join/part, but can't talk.
  msg $nick 4 "!ns Nick!" "!nds Nick!" - Silence/DeSilence Nick, can still join/part, but can't talk.
msg $nick 1 -- End -- }
on *:text:!features:#,?:{ msg $nick 12These are my other features:
  msg $nick 4 "Hi PCHBot!" - I wave
  msg $nick 4 Huggle me - I yell at you
  msg $nick 4 Slap me with a trout - I throw the trout where the sun don't shine.
  msg $nick 4 Say anything with @ and you get kicked!
  msg $nick 4 Say a partall channel combo and you get kicked!
  msg $nick 4 Porn Advertise/Talk Kicker
  msg $nick 4 Saying other PC Channel Kicker
msg $nick 1 -- End -- }
on *:Text:!botoper:#,?:{ msg nick 12These are commands only for the controllers:
  msg $nick 4 "!amsg MESSAGE" - Sends a message to all channels i'm currently in
  msg $nick 4 "!quitpchbot" - Makes me quit IRC
  msg $nick 4 "!hjoin #channel" - Makes me join a channel
  msg $nick 4 "!hpart #channel" - Makes me part a channel
  msg $nick 4 "!pcinfo" - Info about PC-HQ channel and ProPC channel
  msg $nick 4 "!msg #channel" - Messages a channel a message from the BotOpers
  msg $nick 4 "!kbp Nick" - A kick/ban function for the BotOpers in their channel
msg $nick 1 -- End -- }
on *:text:!pcbcomms:#,?:{ msg $nick 12My commands are as follows:
  msg $nick 4 Type "!rules" to view the rules
  msg $nick 4 Type "!pcw" to view the current pest control world.
  msg $nick 4 Type "/notice PCHBot saw WORLD WHY" to suggest a world.
  msg $nick 4 Type "!ncount" or "!ncount #channel" to see how many users are in it.
  msg $nick 4 Type "!calc EQUASION" to get your equasion calced.
  msg $nick 4 Type "!visitors" or "!visitors #channel" to see how many useres joined that channel.
  msg $nick 4 Type "!visits" to see how many times you've visited the channel you're on.
  msg $nick 4 Type "!waffle Nick" - You give Nick a waffle!
msg $nick 1 -- End -- }


on *:text:*#purepc*:#:{ kick $chan $nick 4No advertising other PestControl Channels! }
on *:text:*#pestcontrol*:#:{ kick $chan $nick 4No advertising other PestControl Channels! }
on *:TEXT:*wowomg*:#:{ kick $chan $nick 4Do NOT advertise/talk about porn in these PC Channels! }
on *:TEXT:*tubgirl*:#:{ kick $chan $nick 4Do NOT advertise/talk about porn in these PC Channels! }
on *:TEXT:*lemonparty*:#:{ kick $chan $nick 4Do NOT advertise/talk about porn in these PC Channels! }

on *:TEXT:!calc*:#:{
  if (* $+ a $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ b $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ c $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ d $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ e $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ f $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ g $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ h $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ i $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ j $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ l $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ m $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ n $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ o $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ p $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ q $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ r $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ s $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ t $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ u $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ v $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ w $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ x $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ y $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ z $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if ($2- == $null ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Nothing to calculate!
    halt
  }
  else {
    %len = $len($nick)
    %left = $left($nick,1)
    %lencalc = $calc(%len - 1)
    %right = $right($nick,%lencalc)   
    /notice $nick $+(4«12,%left,12,%right,4») $+(,$rand(2,15)) $+($2-,=,$bytes($calc($replace($2-,k,000,÷,/)),b))
    unset %len*
    unset %left
    unset %right
  }
}

on *:text:*:#: {
  var %regex = /#[^,]*,0/
  if ($regex($1-,%regex)) kick $chan $nick 1- 12Do NOT try and make people part channels!1 -
}