on *:Text:!setworld *:#ling_pc: {
if ($nick isop $chan || $nick ishop $chan) {
set %nsetter $nick
set %pcworld $2-
set %starttime $ctime
unset %suggest
set %resp $rand(1,4)
if (%resp == 1) msg $chan 3New PC world set!4 $nick 3says go have your Pc-orgasm on the new world, type4 !world3 or4 !pcw3 to join them!
if (%resp == 2) msg $chan 3OMG4 $nick 3has spotted 4Zezima3 on another world! Type4 !world3 or4 !pcw3 to find 'her'!
if (%resp == 3) msg $chan 3Want to avoid noobs? Type4 !world3 or4 !pcw3 to hop with4 $nick
if (%resp == 4) msg $chan 3 Grab your phats out of the closet and join4 $nick 3on the new world! Type4 !world3 or4 !pcw3 to find it!
unset %resp
}
}
on *:Text:!world:#ling_pc: {
set %timeleft $duration($calc( $ctime - %starttime ))
notice $nick 3 The current 4#ling_dynasty3 world is4 %pcworld 3Set by4 %nsetter %timeleft 3ago
}
on *:Text:!pcw:#ling_pc: {
set %timeleft $duration($calc( $ctime - %starttime ))
notice $nick 3 The current 4#ling_dynasty3 world is4 %pcworld 3Set by4 %nsetter %timeleft 3ago
}
on *:Text:!suggest *:#ling_pc: {
set %suggest %suggest $+ , $+ $2
notice $nick 3Your suggestion of world4 $2 3has been sent
}
on *:Join:#ling_pc: { mode $chan +v $nick }
on *:Text:!vsuggest:#ling_pc: {
if ($nick isop $chan || $nick ishop $chan) {
msg $nick 3The current worlds that have been suggested are:4 %suggest
}
}
on *:Text:!opcommands:#ling*: {
if ($nick isop $chan || $nick ishop $chan) {
msg $nick 3Current Op Commands
msg $nick 4!setworld <newworldhere> - 4 sets a new world
msg $nick 4!vsuggest - 4 views the current suggested worlds
}
}
on *:Text:*:#ling*: {
if ($1 == $me) && ($2 == join) && ($nick == Lancylotte || $nick == santos83 || $nick == tomconstable) { join $3- }
if ($1 == $me) && ($2 == part) && ($nick == Lancylotte || $nick == santos83 || $nick == tomconstable) { part $3- }
}