ALERT SCRIPT
Posted by nemm91
Monday, April 19, 2004
Description: i made modifications to this cript made by ghost but i think i messed it up im not sure but if any suggestions or if you can fix i just added buttons and denie and accpet i think dialogs might be messed up.
dialog alert {
title @alert Script : By Ghost @#SCRIPT
size -1 -1 157 79
option dbu
list 1, 1 3 155 60, size
button "Ok", 2, 3 65 37 12, ok
button "Denied", 5, 32 80 25 15,
button "Ignore", 7, 59 80 25 15,
button "Cancel", 6, 120 80 25 15, cancel
button "About", 5, 117 65 37 12
menu "File", 6
item "Close", 7, 6
}
on *:TEXT:@alert*:#:{
dialog $iif($dialog(alert),-v,-dmo) alert alert
did -a alert 1 $nick in $chan $+ : $2-
}
on *:dialog:tppm:close:0:{
unset %tppm.message
unset %tppm.nick
}
on *:dialog:tppm:sclick:7:{
msg $did(1) [^K] $+ Your [^B]Query[^B] has been [^B]Denied[^B] ounce now you are [^B]ignored[^O] 4 a period of 15min $+ .
.ignore -pu300 $did(1)
.close -m $did(1)
.dialog -c tppm tppm
}
on *:dialog:tppm:sclick:5:{
close -m $did(1) | msg $did(1) [^K]14,1[ [^K]4,1([^K]14Y[^K]4,1)[^K]14,1our [^U][^K]15,1Q[^O][^K]14,1uery has been [^U][^K]15,1D[^O][^K]14,1enied and any unwated messages will resolve in a 15 min ignore][^O]
dialog -c tppm tppm
}
on *:dialog:alert:dclick:1:{
window -a $remove($gettok($did(alert,1).seltext,3,32),$chr(58))
did -d alert 1 $did(alert,1).sel
if (!$did(alert,1)) dialog -x alert alert
}
dialog about {
title "About"
size -1 -1 105 57
option dbu
text "Alert Script brought to you by the good people at #script @ irc.gamesurge.net", 1, 10 16 88 24
button "Close", 2, 35 47 37 9
}
on *:dialog:tppm:init:0:{
did -ra tppm 8 Incoming pm from:
did -ra tppm 1 %tppm.nick
did -ra tppm 3 %tppm.message
}
on *:dialog:alert:sclick:5:dialog -dmo about about
on *:dialog:alert:menu:7:dialog -x alert alert
on *:dialog:about:sclick:2:dialog -x about about
dialog alert {
title @alert Script : By Ghost @#SCRIPT
size -1 -1 157 79
option dbu
list 1, 1 3 155 60, size
button "Ok", 2, 3 65 37 12, ok
button "Denied", 5, 32 80 25 15,
button "Ignore", 7, 59 80 25 15,
button "Cancel", 6, 120 80 25 15, cancel
button "About", 5, 117 65 37 12
menu "File", 6
item "Close", 7, 6
}
on *:TEXT:@alert*:#:{
dialog $iif($dialog(alert),-v,-dmo) alert alert
did -a alert 1 $nick in $chan $+ : $2-
}
on *:dialog:tppm:close:0:{
unset %tppm.message
unset %tppm.nick
}
on *:dialog:tppm:sclick:7:{
msg $did(1) [^K] $+ Your [^B]Query[^B] has been [^B]Denied[^B] ounce now you are [^B]ignored[^O] 4 a period of 15min $+ .
.ignore -pu300 $did(1)
.close -m $did(1)
.dialog -c tppm tppm
}
on *:dialog:tppm:sclick:5:{
close -m $did(1) | msg $did(1) [^K]14,1[ [^K]4,1([^K]14Y[^K]4,1)[^K]14,1our [^U][^K]15,1Q[^O][^K]14,1uery has been [^U][^K]15,1D[^O][^K]14,1enied and any unwated messages will resolve in a 15 min ignore][^O]
dialog -c tppm tppm
}
on *:dialog:alert:dclick:1:{
window -a $remove($gettok($did(alert,1).seltext,3,32),$chr(58))
did -d alert 1 $did(alert,1).sel
if (!$did(alert,1)) dialog -x alert alert
}
dialog about {
title "About"
size -1 -1 105 57
option dbu
text "Alert Script brought to you by the good people at #script @ irc.gamesurge.net", 1, 10 16 88 24
button "Close", 2, 35 47 37 9
}
on *:dialog:tppm:init:0:{
did -ra tppm 8 Incoming pm from:
did -ra tppm 1 %tppm.nick
did -ra tppm 3 %tppm.message
}
on *:dialog:alert:sclick:5:dialog -dmo about about
on *:dialog:alert:menu:7:dialog -x alert alert
on *:dialog:about:sclick:2:dialog -x about about