on *:JOIN:#PCPlace:{
  .enable #PCPlaceJoinCheck
  .whois $nick
}
#PCPlaceJoinCheck off
raw *:*:{
  if ($numeric == 311) {
    if (!$window(@#PCPlace_Join_Check)) { window -ak0l @#PCPlace_Join_Check }
    aline @#PCPlace_Join_Check 05›04›00 $2 14-15 $+($3,@,$4) 14:
  }
  elseif ($numeric == 319) {
    if (!$window(@#PCPlace_Join_Check)) { window -ak0l @#PCPlace_Join_Check }
    aline @#PCPlace_Join_Check 05›04›14 $replace($3-,@,04@14,%,07%14,+,12+14)
    var %c = $remove($3-,#PCPlace,#PCPalace)
    if (*pc* iswm %c || *pest* iswm %c) {
      aline -hs @#PCPlace_Join_Check 05›04›00 $2 14is on 00Bad Channels!
      beep 10 1
    }
  }
  elseif ($numeric == 318) { .disable #PCPlaceJoinCheck }
  halt
}
#PCPlaceJoinCheck end
menu @#PCPlace_Join_Check {
  $iif(*Bad Channels* iswm $sline(@#PCPlace_Join_Check,1),Warn) :{
    msg #PCPlace $remove($sline(@#PCPlace_Join_Check,1),05›04›00,14is on 00Bad Channels!) $+ , I notice you are on another PC Channel. Give them our Worlds, and I'll give you a Kickban.
    aline @#PCPlace_Join_Check 05›04›00 $remove($sline(@#PCPlace_Join_Check,1),05›04›00,14is on 00Bad Channels!) 14has been 00Asked14 to not 00Leak14 Worlds.
  }
  $iif(*Bad Channels* iswm $sline(@#PCPlace_Join_Check,1),Timeban) :{
    msg #PCPlace !mute $remove($sline(@#PCPlace_Join_Check,1),05›04›00,14is on 00Bad Channels!) 1 Please Part all other PC Channels and return.
    aline @#PCPlace_Join_Check 05›04›00 $remove($sline(@#PCPlace_Join_Check,1),05›04›00,14is on 00Bad Channels!) 14has been 00Timebanned14 for 00114 Minutes.
  }
}