All pastes #90783 Raw Edit

PcBot Source

public text v1 · immutable
#90783 ·published 2006-07-18 01:04 UTC
rendered paste body
;#Open this up in the remotes tab of mIRC
;#The script works with !pcw or !world
;#You must type: !set pcw world before the script will start working properly
;#Enjoy: Zeus - Creator of the origonal PcBot - Hang out? /join #pegasus


on $*:text:/^[!@.]pcw|world/Si:#: {
  if (!%pc) notice $nick The pc-world is not set
  elseif (%flooods. [ $+ [ $nick ] ] == 1) notice $nick You just queried the pc-world. Please wait 5 seconds.
  else {
    set %flooods. [ $+ [ $nick ] ] 1
    timer 1 2 notice $nick The current pc-world is: %pc - Last update: $duration($calc($ctime - %pcc)) ago
    timer 1 5 unset %flooods. [ $+ [ $nick ] ]
  }
}
on $*:text:/^[!@.]set pcw */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $3-
    notice $nick The new pc-world has been set as %pc
    if (%pcstop. [ $+ [ $chan ] ] == 1) halt
    else {
      /amsg [4Pc-World Update1] New world: $3-
    }
  }
}