Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:JOIN:#:{
- if ($islower($left($regsubex($nick,/(^([^a-z]+))/ig,),1)) == $true) {
- set %subtoenter1 $nick
- set %room1 $chan
- timer1 1 10 failtobeg1
- }
- }
- on *:TEXT:*enter*:#: {
- if (%subtoenter1 == $nick) {
- timer1 off
- unset %subtoenter1
- unset %room1
- msg $chan $nick Strip and describe yourself, slut!
- }
- }
- alias failtobeg1 {
- ban -u5 %room1 %subtoenter1
- kick %room1 %subtoenter1 Slaves must beg to enter.
- timeer10 1 5 unban %room1 %subtoenter1
- unset %subtoenter1
- unset %room1
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
