SHOW:
|
|
- or go back to the newest paste.
| 1 | - | on *:JOIN:#:{
|
| 1 | + | on *:JOIN:#:{
|
| 2 | if ($islower($left($regsubex($nick,/(^([^a-z]+))/ig,),1)) == $true) {
| |
| 3 | - | set %subtoenter1 $nick |
| 3 | + | set $+(%,subtoenter1.,$nick) $nick |
| 4 | - | set %room1 $chan |
| 4 | + | set $+(%,room1.,$nick) $chan |
| 5 | - | timer1 1 10 failtobeg1 |
| 5 | + | timerbeg $+ $nick 1 10 failtobeg1 $nick $chan |
| 6 | - | |
| 6 | + | |
| 7 | } | |
| 8 | } | |
| 9 | - | |
| 9 | + | |
| 10 | - | on *:TEXT:*enter*:#: {
|
| 10 | + | on *:TEXT:*enter*:#: {
|
| 11 | - | if (%subtoenter1 == $nick) {
|
| 11 | + | if ($($+(%,subtoenter1.,$nick),2) == $nick) {
|
| 12 | - | timer1 off |
| 12 | + | timerbeg $+ $nick off |
| 13 | - | unset %subtoenter1 |
| 13 | + | unset $+(%,subtoenter1.,$nick) |
| 14 | - | unset %room1 |
| 14 | + | unset $+(%,room1.,$nick) |
| 15 | msg $chan $nick Strip and describe yourself, slut! | |
| 16 | } | |
| 17 | } | |
| 18 | - | |
| 18 | + | |
| 19 | alias failtobeg1 {
| |
| 20 | - | ban -u5 %room1 %subtoenter1 |
| 20 | + | var %chan $2 |
| 21 | - | kick %room1 %subtoenter1 Slaves must beg to enter. |
| 21 | + | var %nick $1 |
| 22 | - | timeer10 1 5 unban %room1 %subtoenter1 |
| 22 | + | ban -u5 %chan %nick |
| 23 | - | unset %subtoenter1 |
| 23 | + | kick %chan %nick Slaves must beg to enter. |
| 24 | - | unset %room1 |
| 24 | + | timerunban $+ $nick 1 5 unban %chan %nick |
| 25 | unset $+(%,room1.,%nick) | |
| 26 | unset $+(%,subtoenter1.,%nick) | |
| 27 | } |
