Following is the code im trying to use in my script ..but it does not wrokd properly ...i try to make it usefull but cudnt...
in the following code DIALOG boxes are opening proprly ..but Owner,Deowner,host,dehost,kick and Ban options do not works....everything works except above mentioned options...
if someone can make it work ....?
on ^*:JOIN:#:{ timer 1 4 modez }
on ^*:MODE:#:{ .timer 1 4 modez }
on ^*:part:#:{ .timer 1 4 modez }
alias mdx { return dlls\mdx.dll }
alias -l timer.now {
if ($dialog(bar)) { did -ra bar 17 $time(h:nn:ss ) }
else .timerNOW OFF
}
alias bar {
//dialog -m bar bar
}
alias modez { did -ra bar 2 $chan($active).mode }
dialog bar {
title ""
size -1 -1 514 35
option dbu
button "Away Box", 1, 4 5 30 10
button "Access", 3, 4 19 30 10
button "Ban", 6, 72 19 30 10
button "Owner", 7, 106 5 30 10
button "C.Map", 8, 72 5 30 10
button "Host", 11, 106 19 30 10
button "De-Owner", 12, 139 5 30 10
button "De-Host", 14, 139 19 30 10
button "Seen", 19, 38 5 30 10
button "Kick", 20, 38 19 30 10
button "Close", 9, 173 6 26 23
edit "", 10, 406 5 95 10, autohs
list 15, 406 20 95 12, vsbar
button "Join", 16, 373 20 26 10
button "g", 22, 207 17 12 12
button "Add", 4, 373 6 26 10
button "Delete", 5, 343 6 26 10
edit "", 2, 228 20 50 10, disable center
text "Modes", 13, 229 10 25 8, center
edit "", 17, 288 20 50 10, disable center
edit "", 18, 254 6 84 10, disable center
text "Music", 21, 203 7 22 8, center
button "Stop", 23, 343 20 26 10
}
on *:dialog:bar:sclick:1: { dialog -m away away }
on *:dialog:bar:sclick:3: { dialog -m msn.access msn.access }
on *:dialog:bar:sclick:4:{ $iif($did(10),write mychats.txt $did(10)) | loadbuf -ro $dname 15 mychats.txt }
on *:dialog:bar:sclick:5: { $iif($did(10),write -ds $+ $did(10) mychats.txt) | loadbuf -ro $dname 15 mychats.txt }
on *:dialog:bar:sclick:6: { .access $comchan($did(14).text,1) add DENY *! $+ $$ial($did(14).text $+ *,1).addr 1440 | .kick $active $did(14).text Banned ( 24 Hour Ban ) }
on *:dialog:bar:sclick:7: { .mode $active +q $did(14).text }
on *:dialog:bar:sclick:8: { dialog -m ascii ascii }
on *:dialog:bar:sclick:9: { exit }
on *:dialog:bar:sclick:11: { .mode $active +o $did(14).text }
on *:dialog:bar:sclick:12: { .mode $active -q $did(14).text }
on *:dialog:bar:sclick:14: { .mode $active -o $did(14).text }
on *:dialog:bar:sclick:15: { did -ra $dname 10 $did(15).seltext }
on *:dialog:bar:sclick:16: { $iif($did(10),join $did(10)) | /set %test $did(10) | did -ra $dname 10 | loadbuf -ro $dname 15 mychats.txt }
on *:dialog:bar:sclick:19: { dialog -m seen seen }
on *:dialog:bar:sclick:20: { .kick $active $did(14).text Disrupting the chat room. }
on *:dialog:bar:sclick:22: { splay -p stop }
on *:dialog:bar:sclick:23: { url -an [url="http://www.xyz.com"]http://www.xyz.com[/url] }
on *:dialog:bar:init:*:{
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetControlMDX $dname 1 toolbar list arrows flat wrap nodivider > $dlls(bars)
dll $mdx SetDialog $dname bgcolor $rgb(0,0,0)
dll $mdx SetColor $dname 2,13,17,18,21 textbg $rgb(0,0,0)
dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,11,12,13,14,16,17,18,19,20,21,22,23 background $rgb(0,0,0)
dll $mdx SetColor $dname 2,13,17,18,21 text $rgb(128,128,128)
dll $mdx SetControlMDX $dname 1,2 ListView report single noheader showsel > dllx\views.mdx
dll $mdx SetColor $dname 1 text $rgb(0,0,128)
dll dlls\rebar.dll Dock $dialog(bar).hwnd > bottom
dll $mdx SetFont 22 15 0 Webdings
loadbuf -ro bar 15 mychats.txt
.timerNOW 0 1 timer.now
did -ra bar 18 $time(dddd mmmm dd yyyy)
}
on *:start: /bar
}
