MyAccess Script
Posted by leaX
Monday, November 12, 2007
Description: Look Below
Hey, to use this script you can either type /cs myaccess or !myaccess in a channel.
A dialog will pop-up with the channels you have access to and if you dont like any of the channels you can double click and see what pops-up.
Hey, to use this script you can either type /cs myaccess or !myaccess in a channel.
A dialog will pop-up with the channels you have access to and if you dont like any of the channels you can double click and see what pops-up.
dialog myaccess {
title "Dialog"
size -1 -1 386 430
option pixels notheme
combo 1, 565 -9 119 354, drop
box "MyAccess by leaX", 2, 2 -2 381 399
button "Close", 3, 317 401 65 25, ok flat
list 4, 4 46 378 350, vsbar sort multi
edit "Channel And Access", 7, 5 13 120 20, read
}
alias -l myaccess {
dialog -m myaccess myaccess
}
on ^*:notice:*:?: {
if ($nick == ChanServ) {
if ((Showing all channel entries for account == $1-6) && (!$dialog(myaccess))) {
haltdef
set -u3 %ma.time 1
myaccess
}
elseif ((Showing all channel entries for account == $1-6) && ($dialog(myaccess))) {
haltdef
}
elseif (([#* iswm $1-) && (%ma.time)) {
var %regi $regex($1-,/^[(#.*) ((.*),(.*))]/)
did -a myaccess 4 $base($regml(2),10,10,3) $+(,$chr(160),-,$chr(160),) $regml(1)
haltdef
}
elseif (*you must*deleteme* iswm $1-) && (%ma.chan) {
haltdef
cs %ma.chan $gettok($1-,2,39)
unset %ma.chan
}
elseif (*access has been deleted from* iswm $1-) {
haltdef
did -r myaccess 4
var %regex $regex($1-,Your(.*)access.+from(.*).)
echo -as $timestamp [^K]4Successfully deleted yourself from $+(,[^B],$regml(2),[^B],) with the $+(,[^B],$regml(1),[^B]) access
set -u3 %ma.time 1
cs myaccess
}
}
}
on *:dialog:myaccess:dclick:4: {
set %ma.remove $$?!="You are about to remove yourself from: $gettok($did($did).seltext,3,32) "
if (%ma.remove == $true) {
set %ma.chan $gettok($did($did).seltext,3,32)
cs $gettok($did($did).seltext,3,32) deleteme
}
}