alias CAPP { if ($nick(%app.chan,0) > 9) && (Chanserv ison %app.chan) && (%app.nick isop %app.chan) { set %send.bot %service $+ -0 $+ $rand(1,9) msg %app.chan.active %startskin Your Channel Passed! Sending %send.bot To Your Channel %endskin msg %send.bot REGISTER %app.chan %app.nick $address(%app.nick,2) %send.bot part %app.chan msg %app.nick %startskin Please Do !addop %send.bot In Your Channel Now! Or It Will Be Removed %endskin msg %mainbotchannel $+ -Staff %startskin Applications Status: Passed -+- Requested Channel: %app.chan -+- Requested By: %app.nick -+- Address: $address(%app.nick,1) -+- Bot Sent: %send.bot %endskin set % $+ %app.chan $address(%app.nick,2) ( $+ %app.nick $+ ) set %registered.chans %registered.chans %app.chan ( $+ %send.bot $+ ) unset %app.nick unset %app.chan unset %chan.access unset %app.chan.active } else { part %app.chan msg %mainbotchannel $+ -Staff %startskin Applications Status: Failed -+- Requested Channel: %app.chan -+- Requested By: %app.nick -+- Address: $address(%app.nick,1) %endskin msg %app.chan.active %startskin Your Channel Failed To Meet Requirments! Your Must Be Op In The Channel + Have Your Channel Registered With ChanServ + Have Over 10 Idlers In Your Channel %endskin unset %app.nick unset %app.chan unset %chan.access } } on *:TEXT:*:*: { if ($1 == %trigger $+ getabot) { if (!%applyserv) { msg $chan %startskin The Application Service Is Currently Down %endskin halt } elseif (%applyzz == 1) { msg $chan %startskin I Am Busy With Somone Else, Please Wait 30 Seconds! %endskin halt } elseif (!$2) { msg $chan %startskin You must enter a channel name, or type %trigger $+ req to see requirments. %endskin halt } elseif ($address($nick,2) iswm %suspended) { var %p 1 while (%p <= $gettok(%suspended,0,32)) { if ($address($nick,2) iswm $gettok(%suspended,%p,32)) { msg $chan %startskin You have been suspended from %service for reason: $iif(% [ $+ [ $gettok(%suspended,%p,32) ] ],$v1,None Given) %endskin halt } inc %p } } elseif ($2 iswm %dnrlist) { var %p 1 while (%p <= $gettok(%dnrlist,0,32)) { if ($2 iswm $gettok(%dnrlist,%p,32)) { msg $chan %startskin That channel is on our DNR list for reason: $iif(% [ $+ [ $gettok(%dnrlist,%p,32) ] ],$v1,None Given)) %endskin halt } inc %p } } elseif (% [ $+ [ $2 ] ]) { msg $chan %startskin That channel has already been registered to: % [ $+ [ $2 ] ] %endskin } elseif ($chr(44) isin $2) { set %suspended %suspended $address($nick,2) set % $+ $address($nick,2) Unauthorized Channel Event Registry: $2 msg $chan %startskin Unauthorized Event: That Channel You Have Chosen To Register Has Been Suspended Indefinitely. Your Actions Has Been Suspended And Will Be Removed At A Later Time. Logged Action: $nick ( $+ $address($nick,2) $+ ) Unauthorized Application Process For Channel: $2 %endskin msg %mainbotchannel $+ -Staff %startskin Unauthorized Event: !apply $2 Issued By: $nick Address: $address($nick,2) %endskin halt } elseif ($chr(35) !isin $2) { msg $chan %startskin You Left Out  $+ $chr(35) $+  Please Retype Your Previous Entry %endskin halt } elseif (Gamesurge isin $2) { set %suspended %suspended $address($nick,2) set % $+ $address($nick,2) Unauthorized Channel Event Registry: $2 msg $chan %startskin Unauthorized Event: That Channel You Have Chosen To Register Has Been Suspended Indefinitely. Your Actions Has Been Suspended And Will Be Removed At A Later Time. Logged Action: $nick ( $+ $address($nick,2) $+ ) Unauthorized Application Process For Channel: $2 %endskin msg %mainbotchannel $+ -Staff %startskin Unauthorized Event: !apply $2 Issued By: $nick Address: $address($nick,2) %endskin halt } elseif (Support isin $2) { set %suspended %suspended $address($nick,2) set % $+ $address($nick,2) Unauthorized Channel Event Registry: $2 msg $chan %startskin Unauthorized Event: That Channel You Have Chosen To Register Has Been Suspended Indefinitely. Your Actions Has Been Suspended And Will Be Removed At A Later Time. Logged Action: $nick ( $+ $address($nick,2) $+ ) Unauthorized Application Process For Channel: $2 %endskin msg %mainbotchannel $+ -Staff %startskin Unauthorized Event: !apply $2 Issued By: $nick Address: $address($nick,2) %endskin halt } elseif (!% [ $+ [ $2 ] ]) { msg $chan %startskin Thank You For Your Application! Please Allow Me To Check You Channel To See If It Meets Requirments, This Could Take Up To 25 Seconds To Complete %endskin join $2 set %app.nick $nick set %timed $rand(10,25) set %app.chan $2 set %app.chan.active $chan set -u30 %applyzz 1 msg %mainbotchannel $+ -Staff %startskin Applications: Requested $2 -+- Issued By: $nick -+- Address: $address($nick,2) %endskin timerapp 1 %timed CAPP } } }