rendered paste body
alias channel {
var %c, %x
if ($+($chr(37),$chr(35)) !isin $active) { halt }
%c = $remove($active,$chr(35),$chr(37))
%x = $+(accessmodelist$chr(46),%c)
if ($dialog(%x) == $null) { accessx }
else { dialog -x %x %x }
}
raw *:*:{
if ( $numeric == 801 ) {
if $dialog(accessmodelist. $+ $remove($2,$chr(35),$chr(37))) { /access $2 }
}
if ( $numeric == 802 ) {
if $dialog(accessmodelist. $+ $remove($2,$chr(35),$chr(37))) { /access $2 }
}
if ( $numeric == 803 ) {
if $dialog(accessmodelist. $+ $remove($2,$chr(35),$chr(37))) { dialog -c accessmodelist. $+ $remove($2,$chr(35),$chr(37)) accessmodelist. }
dialog -mar accessmodelist. $+ $remove($2,$chr(35),$chr(37)) accessmodelist.
did -r accessmodelist. $+ $remove($2,$chr(35),$chr(37)) 1
}
if ( $numeric == 804 ) {
if $dialog(accessmodelist. $+ $remove($2,$chr(35),$chr(37))) { did -a accessmodelist. $+ $remove($2,$chr(35),$chr(37)) 1 $3 $4 $5 $6 $7- }
}
if ( $numeric == 805 ) {
return
}
if ( $numeric == 820 ) {
if $dialog(accessmodelist. $+ $remove($2,$chr(35),$chr(37))) { /access $2 }
}
if ( $numeric == 913 ) {
echo $2 $+($chr(3),$chr(55),$chr(42)) You are currently not an Op in this room and not able to set any changes...
halt
}
}
alias accessx {
access $chan
}
dialog accessmodelist.* {
title "TAChat Options Dialog"
size -1 -1 456 432
option pixels
icon add.ico, 0
button "Close", 2, 350 376 90 20, flat ok cancel
button "Remove Entry", 3, 350 184 90 20, flat
button "Clear Owners", 4, 350 216 90 20, flat
button "Clear Grants", 5, 350 280 90 20, flat
button "Clear Hosts", 6, 350 248 90 20, flat
button "Add New Entry", 7, 350 152 90 20, flat
list 1, 22 160 306 250, sort size extsel hsbar vsbar
button "Refresh List", 8, 350 344 90 20, flat
link "http://tachat.org/", 10, 352 400 90 16
button "Clear Denys", 9, 350 312 90 20, flat
box "channelname", 11, 8 136 332 284
box "cPanel Control", 12, 344 136 102 284
box "modename", 13, 8 8 440 124
check "Only ops set &Topic", 14, 16 80 140 20
check "&No external messages", 15, 16 104 140 20
check "&Invite only", 16, 160 80 140 20
check "&Moderated", 17, 160 104 140 20
check "&Hidden", 18, 304 80 140 20
check "&Secret", 19, 304 104 140 20
text "Current Room Topic:", 20, 18 32 106 16
edit "", 21, 16 48 420 21
}
on *:dialog:accessmodelist.*:init:*: {
if ($did == 0) {
var %x = $+($chr(37),$chr(35),$remove($dname,accessmodelist.))
dialog -t $dname TAChat Options Dialog $+($chr(91),$chr(37),$chr(35),$remove($dname,accessmodelist.),$chr(93))
}
did -ra $dname 11 accesslist: $+($chr(37),$chr(35),$remove($dname,accessmodelist.))
did -ra $dname 13 modelist: $+($chr(37),$chr(35),$remove($dname,accessmodelist.))
did -ra $dname 21 $chan(%x).topic
if (t isincs $chan(%x).mode) { did -c $dname 14 }
if (n isincs $chan(%x).mode) { did -c $dname 15 }
if (i isincs $chan(%x).mode) { did -c $dname 16 }
if (m isincs $chan(%x).mode) { did -c $dname 17 }
if (h isincs $chan(%x).mode) { did -c $dname 18 }
if (s isincs $chan(%x).mode) { did -c $dname 19 }
}
on *:dialog:accessmodelist.*:sclick:*: {
if ($did == 2) {
var %nk = $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.)
if ($me !isop %nk) {
echo %nk $+($chr(3),$chr(55),$chr(42)) You are currently not an Op in this room and not able to set any changes...
halt
}
if ($did($dname,21) != $chan(%nk).topic) { TOPIC %nk $did($dname,21) }
if ($did($dname,14).state == 0) {
if (t isincs $chan(%nk).mode) { MODE %nk -t }
}
if ($did($dname,14).state == 1) {
if (t !isincs $chan(%nk).mode) { MODE %nk +t }
}
if ($did($dname,15).state == 0) {
if (n isincs $chan(%nk).mode) { MODE %nk -n }
}
if ($did($dname,15).state == 1) {
if (n !isincs $chan(%nk).mode) { MODE %nk +n }
}
if ($did($dname,16).state == 0) {
if (i isincs $chan(%nk).mode) { MODE %nk -i }
}
if ($did($dname,16).state == 1) {
if (i !isincs $chan(%nk).mode) { MODE %nk +i }
}
if ($did($dname,17).state == 0) {
if (m isincs $chan(%nk).mode) { MODE %nk -m }
}
if ($did($dname,17).state == 1) {
if (m !isincs $chan(%nk).mode) { MODE %nk +m }
}
if ($did($dname,18).state == 0) {
if (h isincs $chan(%nk).mode) { MODE %nk -h }
}
if ($did($dname,18).state == 1) {
if (h !isincs $chan(%nk).mode) { MODE %nk +h }
}
if ($did($dname,19).state == 0) {
if (s isincs $chan(%nk).mode) { MODE %nk -s }
}
if ($did($dname,19).state == 1) {
if (s !isincs $chan(%nk).mode) { MODE %nk +s }
}
}
if ($did == 3) {
access $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.) delete $did(1).seltext
}
if ($did == 4) {
access $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.) clear Owner
access $active
}
if ($did == 5) {
access $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.) clear Grant
access $active
}
if ($did == 6) {
access $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.) clear Host
access $active
}
if ($did == 7) {
if $dialog(addaccess) { dialog -c addaccess addaccess }
dialog -m addaccess addaccess
.set -n %x $dname
}
if ($did == 8) {
access $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.)
access $active
}
if ($did == 9) {
access $+($chr(37),$chr(35)) $+ $remove($dname,accessmodelist.) clear Deny
access $active
}
if ($did == 10) {
run http://tachat.org/
}
}
dialog addaccess {
title "Add Access"
size -1 -1 128 120
option dbu
icon $scriptdir/ta.ico, 0
combo 1, 8 16 60 42, sort size drop
text "Access Type:", 2, 6 8 32 8
button "Add", 3, 16 104 45 10, flat ok
button "Cancel", 4, 64 104 45 10, flat cancel
text "Mask To Add:", 5, 6 32 33 8
edit "", 6, 8 40 114 10, autohs
text "Reason:", 7, 6 80 24 8
edit "", 8, 8 88 114 10, autohs
text "How Long: (Not Avalible Until Version 1.2)", 9, 6 56 103 8
combo 10, 8 64 44 50, disable size edit drop
}
on *:dialog:addaccess:init:*: {
did -a $dname 1 Owner
did -a $dname 1 Host
did -a $dname 1 Grant
did -a $dname 1 Deny
did -c $dname 1 4
did -a $dname 10 0
did -a $dname 10 5
did -a $dname 10 10
did -a $dname 10 30
did -a $dname 10 60
did -c $dname 10 1
}
on *:dialog:addaccess:sclick:3: {
if (!$did(6)) halt
access $+($chr(37),$chr(35)) $+ $remove(%x,accessmodelist.) add $did(1).seltext $did(6) $calc($did(10).text - 1 ) : $+ $did(8)
unset %x
access $active
}