on *:TEXT:!change *:#thepc,#thepc.staff: { 
  if ( $nick ison #thepc.staff ) || ( $nick isop $chan ) || ( $nick ishop $chan ) {
    inc %lognum 1
    write pcwlog.txt Log number ( $+ %lognum $+ ). $nick set world $2- on $asctime from channel $chan $+ . The old world was %setpcw $+ . PC use count before the world was set %countpcw $+ .
    set %oldpcw %setpcw
    set %setpcw $2-
    set %setnick $nick
    set %settime $ctime
    notice bladex newpcworld $2-
    inc %countpcw 1
    notice $nick Your world change has been added to the log as log number %lognum $+ . Thanks for changing the world!
    notice +#thepc 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10«
    msg #thepc |10»15]12 $+ $nick has updated #ThePc's world.[10«|
    msg #thepc.staff 10»15] 12Thepc's world has been updated to $2- $+ 15[10«
    else { HALT }
  }
}
on 3:JOIN:#thepc: { if ( %vostatus == off ) { HALT }
Else { mode $chan +v $nick } }


on *:TEXT:!abk *:#thepc.staff: {
  ban -ku600 #thepc $2- 12Please do not abuse the !suggest command!10 10 minute ban.
}

on *:TEXT:!kalast:#thepc.staff: {
  ban -ku600 #thepc %abunick 12Please do not abuse the !suggest command!10 10 minute ban.
}
on *:TEXT:!suggest *:#thepc: {
  if ( %sugpcw == $$2 ) { notice $nick Somebody has already suggested that world! Please find your own world!
  }
  elseif ( $nick isvo $chan ) {
    set %sugpcw $2
    set %sugnick $nick $+ (Suggested)
    set %abunick $nick
    notice $nick Your world has been suggested to the staff of #ThePc. Please stand by for the world to be reviewed. If this is abuse you will find yourself banned from #ThePc.
    msg #thepc.staff 4 $+ $nick 12has suggested world4 $2 $+ .12 If this is abuse please type 4(!kalast or !abk $nick $+ ). If the world is good, type (!setsuggest). 
  }
}
on *:text:!setsuggest:#thepc.staff,#thepc: {
  if ( $nick ison #thepc.staff ) || ( $nick isop $chan ) || ( $nick ishop $chan ) {
    inc %lognum 1
    write pcwlog.txt Log number ( $+ %lognum $+ ). $nick set world $2- at $ctime from channel $chan $+. The world was suggested by %sugnick $+ . The old world was %setpcw $+ . Pc count at this time was %countpcw before the world was set.
    set %oldpcw %setpcw
  }
}
on *:text:!pcw:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!world:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!pcworld:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!pc:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!w:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!pest:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!pestcontrol:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!pestcontrolworld:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:@pcw:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice + $+ $chan 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:@world:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice + $+ $chan 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:@w:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice + $+ $chan 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:@pcworld:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice + $+ $chan 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:@pc:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice + $+ $chan 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:+pcw:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:!p:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:~pcw:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:~world:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:~w:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 

on *:text:~pc:#thepc,#thepc.staff: { 
  if ( %pcstatus == off ) { HALT }
  elseif ( $nick isvo #thepc ) || ( $nick ishop #thepc ) || ( $nick isop #Thepc ) || ( $nick ison #thepc.staff ) {
    inc %countpcw 1
  notice $nick 10»15]12[World:4 %setpcw $+ 12][9Last world: %oldpcw $+ 12][Updated:4 $+($duration($calc($ctime - %settime)),) 12][Set by4 %setnick $+ 12][12Use:4 %countpcw $+ ]15[10« }
} 



on *:TEXT:!bot3 on:#thepc,#thepc.staff: {
  if ( $nick isop $chan ) || ( $nick ishop $chan ) || ( $nick ison #thepc.staff ) {
    set %pcstatus on
    notice $nick You have turned me on.
  }
}
on *:TEXT:!bot3 off:#thepc,#thepc.staff: {
  if ( $nick isop $chan ) || ( $nick ishop $chan ) || ( $nick ison #thepc.staff ) {
    set %pcstatus off
    notice $nick You have turned me off. Please remember to turn on another bot!
  }
}