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- }


}