SHOW:
|
|
- or go back to the newest paste.
| 1 | on !*:JOIN:#:{
| |
| 2 | if ($islower($left($regsubex($nick,/(^([^a-z]+))/ig,),1)) == $true) {
| |
| 3 | set $+(%,subtoenter1.,$nick) $nick | |
| 4 | set $+(%,room1.,$nick) $chan | |
| 5 | .timerbeg $+ $nick 1 300 failtobeg $nick $chan | |
| 6 | ||
| 7 | } | |
| 8 | } | |
| 9 | ||
| 10 | on $*:TEXT:/enter|come|return|join|arrive|pass/i:#: {
| |
| 11 | if ($($+(%,subtoenter1.,$nick),2) == $nick) {
| |
| 12 | .timerbeg $+ $nick off | |
| 13 | unset $+(%,subtoenter1.,$nick) | |
| 14 | unset $+(%,room1.,$nick) | |
| 15 | msg $chan Come on in $nick $+ ! Strip and describe yourself, slut! | |
| 16 | } | |
| 17 | } | |
| 18 | ||
| 19 | on $*:ACTION:/enter|come|return|join|arrive|pass|entry/i:#: {
| |
| 20 | if ($($+(%,subtoenter1.,$nick),2) == $nick) {
| |
| 21 | .timerbeg $+ $nick off | |
| 22 | unset $+(%,subtoenter1.,$nick) | |
| 23 | unset $+(%,room1.,$nick) | |
| 24 | msg $chan Come on in $nick $+ ! Strip and describe yourself, slut! | |
| 25 | } | |
| 26 | } | |
| 27 | ||
| 28 | on *:NICK: {
| |
| 29 | if ($($+(%,subtoenter1.,$nick),2) == $nick) {
| |
| 30 | set $+(%,subtoenter1.,$newnick) $newnick | |
| 31 | set $+(%,room1.,$newnick) $chan | |
| 32 | .timerbeg $+ $newnick 1 $timer(timerbeg $+ $nick).secs failtobeg $newnick $chan | |
| 33 | .timerbeg $+ $nick off | |
| 34 | unset $+(%,subtoenter1.,$nick) | |
| 35 | unset $+(%,room1.,$nick) | |
| 36 | } | |
| 37 | } | |
| 38 | ||
| 39 | on *:PART:#:{
| |
| 40 | if ($($+(%,subtoenter1.,$nick),2) == $nick) {
| |
| 41 | .timerbeg $+ $nick off | |
| 42 | unset $+(%,subtoenter1.,$nick) | |
| 43 | unset $+(%,room1.,$nick) | |
| 44 | } | |
| 45 | } | |
| 46 | ||
| 47 | ||
| 48 | alias failtobeg {
| |
| 49 | var %chan $2 | |
| 50 | var %nick $1 | |
| 51 | ban -u5 %chan %nick | |
| 52 | kick %chan %nick Slaves must beg to enter. | |
| 53 | unset $+(%,room1.,%nick) | |
| 54 | unset $+(%,subtoenter1.,%nick) | |
| 55 | } |
