just a example of one of my dialogs
(note) the sclick click and rclick commands instead of dclick
on *:start:{ dialog -m Right Right }
dialog Right {
title "New Project"
size -1 -1 57 400
option dbu
tab "1", 28, -2 278 70 103
icon 42, 5 50 15 15, $mircdir\iconpics\deop.JPG, 0, tab 28 noborder
icon 57, 21 50 15 15, $mircdir\iconpics\whisperpic.JPG, 0, tab 28 noborder
icon 20, 37 50 15 15, $mircdir\iconpics\whois.JPG, 0, tab 28 noborder
icon 19, 37 35 15 15, $mircdir\iconpics\find.JPG, 0, tab 28 noborder
icon 44, 21 35 15 15, $mircdir\iconpics\spec.JPG, 0, tab 28 noborder
icon 41, 5 35 15 15, $mircdir\iconpics\host.JPG, 0, tab 28 noborder
icon 12, 5 20 15 15, $mircdir\iconpics\owner.JPG, 0, tab 28 noborder
icon 43, 21 20 15 15, $mircdir\iconpics\voic.JPG, 0, tab 28 noborder
icon 18, 37 20 15 15, $mircdir\iconpics\eye.JPG, 0, tab 28 noborder
icon 17, 1 73 55 12, $mircdir\iconpics\CUSTOMBLUE.JPG, 0, tab 28 noborder
icon 13, 1 84 55 12, $mircdir\iconpics\DISRUPBLUE.JPG, 0, tab 28 noborder
icon 14, 1 96 55 12, $mircdir\iconpics\PROFANITYBLUE.JPG, 0, tab 28 noborder
icon 15, 1 108 55 12, $mircdir\iconpics\SCROLLINGBLUE.JPG, 0, tab 28 noborder
icon 4, 28 142 25 15, $mircdir\iconpics\30 M.JPG, 0, tab 28 noborder
icon 3, 3 142 25 15, $mircdir\iconpics\15 M.JPG, 0, tab 28 noborder
icon 2, 28 127 25 15, $mircdir\iconpics\5 M.JPG, 0, tab 28 noborder
icon 1, 3 127 25 15, $mircdir\iconpics\2 M.JPG, 0, tab 28 noborder
icon 5, 3 157 25 15, $mircdir\iconpics\1 H.JPG, 0, tab 28 noborder
icon 6, 28 157 25 15, $mircdir\iconpics\4 H.JPG, 0, tab 28 noborder
icon 7, 3 172 25 15, $mircdir\iconpics\8 H.JPG, 0, tab 28 noborder
icon 8, 28 172 25 15, $mircdir\iconpics\12 H.JPG, 0, tab 28 noborder
icon 9, 28 187 25 15, $mircdir\iconpics\48 H.JPG, 0, tab 28 noborder
icon 10, 3 187 25 15, $mircdir\iconpics\24 H.JPG, 0, tab 28 noborder
icon 11, 3 208 25 15, $mircdir\iconpics\HI.JPG, 0, tab 28 noborder
icon 21, 28 223 25 15, $mircdir\iconpics\INFO.JPG, 0, tab 28 noborder
icon 22, 3 223 25 15, $mircdir\iconpics\ASL.JPG, 0, tab 28 noborder
icon 16, 28 208 25 15, $mircdir\iconpics\BY.JPG, 0, tab 28 noborder
icon 26, 28 238 25 15, $mircdir\iconpics\NIGHT.JPG, 0, tab 28 noborder
icon 25, 3 238 25 15, $mircdir\iconpics\NIGHT.JPG, 0, tab 28 noborder
box "", 52, 0 120 58 86, tab 28
box "", 54, 0 66 58 58, tab 28
box "", 53, 0 202 58 55, tab 28
box "", 55, 0 12 58 58, tab 28
icon 58, 12 279 20 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 28 noborder
icon 60, 26 279 20 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 28 noborder
icon 64, 40 279 20 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 28 noborder
icon 65, -2 279 20 15, $mircdir\iconpics\onorage1new.JPG, 0, tab 28 noborder
icon 24, 30 299 25 15, $mircdir\iconpics\stopnew.JPG, 0, tab 28 noborder
icon 23, 3 299 25 15, $mircdir\iconpics\Startpic.JPG, 0, tab 28 noborder
icon 74, 1 1 55 12, $mircdir\iconpics\startandupdate.JPG, 0, tab 28 noborder
icon 78, 1 259 55 12, $mircdir\iconpics\awayback.JPG, 0, tab 28 noborder
tab "2", 29
icon 27, -3 10 65 15, $mircdir\iconpics\OPENpic.JPG, 0, tab 29 noborder
icon 31, 1 26 55 15, $mircdir\iconpics\CLOSEpic.JPG, 0, tab 29 noborder
icon 32, 1 47 55 15, $mircdir\iconpics\GUESTBANpic.JPG, 0, tab 29 noborder
icon 33, 1 62 55 15, $mircdir\iconpics\invitedpic.JPG, 0, tab 29 noborder
icon 34, 1 77 55 15, $mircdir\iconpics\KNOCKSpic.JPG, 0, tab 29 noborder
icon 35, 1 92 55 15, $mircdir\iconpics\HIDDENpic.JPG, 0, tab 29 noborder
icon 36, 1 107 55 15, $mircdir\iconpics\SECRETpic.JPG, 0, tab 29 noborder
icon 37, 1 122 55 15, $mircdir\iconpics\moderatedpic.JPG, 0, tab 29 noborder
icon 38, 1 197 55 15, $mircdir\iconpics\BANEMOTSpic.JPG, 0, tab 29 noborder
icon 39, 1 215 55 15, $mircdir\iconpics\LIMITCUSTpic.JPG, 0, tab 29 noborder
icon 40, 1 230 55 15, $mircdir\iconpics\limit25pic.JPG, 0, tab 29 noborder
icon 45, 1 245 55 15, $mircdir\iconpics\LIMIT50pic.JPG, 0, tab 29 noborder
icon 46, 1 182 55 15, $mircdir\iconpics\GUESTBANpic.JPG, 0, tab 29 noborder
icon 47, 1 167 55 15, $mircdir\iconpics\GWIPSERpic.JPG, 0, tab 29 noborder
icon 48, 1 152 55 15, $mircdir\iconpics\PWISPERpic.JPG, 0, tab 29 noborder
icon 49, 1 137 55 15, $mircdir\iconpics\Privitepic.JPG, 0, tab 29 noborder
icon 50, 1 260 55 15, $mircdir\iconpics\LIMIT100pic.JPG, 0, tab 29 noborder
icon 59, 12 279 20 15, $mircdir\iconpics\onorage1new.JPG, 0, tab 29 noborder
icon 62, 26 279 20 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 29 noborder
icon 63, 40 279 20 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 29 noborder
icon 61, -2 279 20 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 29 noborder
icon 75, 3 299 15 15, $mircdir\iconpics\yellowkey.JPG, 0, tab 29 noborder
icon 76, 20 299 15 15, $mircdir\iconpics\whitekey.JPG, 0, tab 29 noborder
icon 77, 37 299 15 15, $mircdir\iconpics\greenkey.JPG, 0, tab 29 noborder
tab "3", 30
icon 66, -1 279 18 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 30 noborder
icon 67, 13 279 18 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 30 noborder
icon 68, 27 279 18 15, $mircdir\iconpics\onorage1new.JPG, 0, tab 30 noborder
icon 69, 41 279 18 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 30 noborder
tab "4", 51
icon 70, -1 279 18 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 51 noborder
icon 71, 13 279 18 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 51 noborder
icon 72, 27 279 18 15, $mircdir\iconpics\offorage1new.JPG, 0, tab 51 noborder
icon 73, 41 279 18 15, $mircdir\iconpics\onorage1new.JPG, 0, tab 51 noborder
button "Button", 56, 8 384 37 12, ok
}
on *:dialog:Right:init:*:{
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetDialog $dname bgcolor $rgb(0,0,0)
dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 textbg $rgb(0,0,0)
dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 background $rgb(0,0,0)
dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 text $rgb(255,255,255)
//dll $ReBar Dock $dialog(Right).hwnd > Right
}
on *:dialog:Right:sclick:12:{ echo -a # 14Right click to deop | mode $active +q $snick($active,1) }
on *:dialog:Right:rclick:12:{ echo -a 14dehosting nick | mode $active -q $snick($active,1) }
on *:dialog:Right:sclick:41:{ echo -a # Right click to deop | mode $active +o $snick($active,1) }
on *:dialog:Right:rclick:41:{ echo -a dehosting nick | mode $active -o $snick($active,1) }
on *:dialog:Right:sclick:42:{ echo -a # Right click to deop }
on *:dialog:Right:rclick:42:{ echo -a dehosting nick | mode $active -qo $snick($active,1) }
on *:dialog:Right:sclick:44:{ echo -a # Right click to spec user | mode $active +v $snick($active,1) }
on *:dialog:Right:rclick:44:{ echo -a spec nick | mode $active -v $snick($active,1) }
on *:dialog:Right:sclick:57:{ .set %wisper.nick $snick($active,1) | /query %wisper.nick | unset %wisper.nick }
on *:dialog:Right:sclick:13:{ kick $active $snick($active,1)Disruptive Behaviour }
on *:dialog:Right:sclick:17:{ kick $active $snick($active,1)see ya }
on *:dialog:Right:sclick:14:{ kick $active $snick($active,1)Usen Profanty }
on *:dialog:Right:sclick:15:{ kick $active $snick($active,1)Scrolling }
on *:dialog:Right:sclick:18:{ .set %pronick $snick($active,1) | /profile %pronick }
on *:dialog:Right:sclick:20:{ .set %who.nick $snick($active,1) | echo -a # Starting who is on %who.nick | whois %who.nick }
on *:dialog:Right:sclick:19:{ .set %findu.nick $snick($active,1) | echo -a # looking for %findu.nick | findu %findu.nick }
on *:dialog:Right:sclick:43:{ echo -a # Red icon not active yet }
on *:dialog:Right:sclick:1:{ set %kb2m $ial($snick($active,1)).addr | /access $active add deny %kb2m 2 | unset %kb2m | kick $active $snick($active,1) >>>BAN 2 MIN's <<< }
on *:dialog:Right:rclick:1:{ set %kb2m $ial($snick($active,1)).addr | /access $active add deny %kb2m 2 | unset %kb2m | kick $active $snick($active,1) $$?="Reason:" }
on *:dialog:Right:sclick:2:{ set %kb5m $ial($snick($active,1)).addr | /access $active add deny %kb5m 5 | unset %kb5m | kick $active $snick($active,1) >>>BAN 5 MIN's <<< }
on *:dialog:Right:sclick:3:{ set %kb15m $ial($snick($active,1)).addr | /access $active add deny %kb15m 15 | unset %kb15m | kick $active $snick($active,1) >>>BAN 15 MIN's <<< }
on *:dialog:Right:sclick:4:{ set %kb30m $ial($snick($active,1)).addr | /access $active add deny %kb30m 30 | unset %kb30m | kick $active $snick($active,1) >>>BAN 30 MIN's <<< }
on *:dialog:Right:sclick:5:{ set %kb1h $ial($snick($active,1)).addr | /access $active add deny %kb1h 60 | unset %kb1h | kick $active $snick($active,1) >>>BAN 1 Hr <<< }
on *:dialog:Right:sclick:6:{ set %kb4h $ial($snick($active,1)).addr | /access $active add deny %kb4h 240 | unset %kb4h | kick $active $snick($active,1) >>>BAN 4 Hr's<<< }
on *:dialog:Right:sclick:7:{ set %kb8h $ial($snick($active,1)).addr | /access $active add deny %kb8h 480 | unset %kb8h | kick $active $snick($active,1) >>>BAN 8 Hr's<<< }
on *:dialog:Right:sclick:8:{ set %kb12h $ial($snick($active,1)).addr | /access $active add deny %kb12h 720 | unset %kb12h | kick $active $snick($active,1) >>>BAN 12 Hr's<<< }
on *:dialog:Right:sclick:10:{ set %kb24h $ial($snick($active,1)).addr | /access $active add deny %kb24h 1440 | unset %kb24h | kick $active $snick($active,1) >>>BAN 24 Hr's<<< }
on *:dialog:Right:sclick:9:{ set %kb48h $ial($snick($active,1)).addr | /access $active add deny %kb48h 2880 | unset %kb48h | kick $active $snick($active,1) >>>BAN 48 Hr's<<< }
on *:dialog:Right:sclick:46:{ set %bann1 $ial($snick($active,1)).addr | /access $active add deny %bann1 | unset %bann1 | kick $active $snick($active,1) >>>BAN<<< }
on *:dialog:Right:sclick:11:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %msn.chan Hey Hi there %msg.nick Good to see ya | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:rclick:11:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %msn.chan How have you been doing %msg.nick | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:sclick:16:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %msn.chan Hey you be safe %msg.nick | msg $active %msn.chan see you tommrow %msg.nick talk to you latter | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:sclick:22:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %msn.chan Hey Hi there %msg.nick ASL PLZ | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:rclick:22:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %msn.chan %msg.nick LAST WARNING | msg $active %msn.chan Hey %msg.nick WE NEED YOU ASL PLZ | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:dclick:22:{ set %kb2m $ial($snick($active,1)).addr | /access $active add deny %kb2m 2 | unset %kb2m | kick $active $snick($active,1) >>>BAN 2 MIN's <<< ASL WHEN YOU COME BACK }
on *:dialog:Right:sclick:21:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %my.info | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:sclick:25:{ .set %msg.nick $snick($active,1) | .set %msg.chan $active $chan | msg $active %msn.chan Hey Good Night %msg.nick You besafe | msg $active %msn.chan See you latter %msg.nick | .unset %msg.nick | .unset %msg.chan }
on *:dialog:Right:sclick:27:{ .topic $active $chan Ponys help room for msn related things $fulldate | .mode $active $chan +l 100 | .mode $active $chan -psiwW | echo $active $chan 11ROOM IS OPEN -siWw +l 100 is set Topic is Ponys help room for msn related things $fulldate }
on *:dialog:Right:sclick:31:{ .mode $active $chan +l 2 | .mode $active $chan +sintuWw | .topic $active $chan TEMP CLOSED by pony $fulldate | echo $active $chan is set Topic is Temp CLOSED by pony $fulldate }
on *:dialog:Right:sclick:33:{ .mode $active $chan -i | echo $active $chan Room is off invite }
on *:dialog:Right:rclick:33:{ .mode $active $chan +i | echo $active $chan Room is Invite only }
on *:dialog:Right:sclick:34:{ .mode $active $chan +u | echo $active $chan Room is Showing Knocks }
on *:dialog:Right:rclick:34:{ .mode $active $chan -u | echo $active $chan Room is Not Showing Knocks }
on *:dialog:Right:sclick:35:{ .mode $active $chan -h | echo $active $chan Room is not Hidden From List }
on *:dialog:Right:rclick:35:{ .mode $active $chan +h | echo $active $chan Room is Hidden From List }
on *:dialog:Right:sclick:36:{ .mode $active $chan -s | echo $active $chan Room is Not SECRET }
on *:dialog:Right:rclick:36:{ .mode $active $chan +s | echo $active $chan Room is Set For SECRET }
on *:dialog:Right:sclick:37:{ .mode $active $chan -m} | echo $active $chan Room is not Moderated }
on *:dialog:Right:rclick:37:{ .mode $active $chan +m} | echo $active $chan Room is Moderated }
on *:dialog:Right:sclick:49:{ .mode $active $chan -p | echo $active $chan Room is Not Private }
on *:dialog:Right:rclick:49:{ .mode $active $chan +p | echo $active $chan Room is Set For Private }
on *:dialog:Right:sclick:48:{ .mode $active $chan -W | echo $active $chan Passports Can Wisper }
on *:dialog:Right:rclick:48:{ .mode $active $chan +W | echo $active $chan PassPorts Can Not Wisper }
on *:dialog:Right:sclick:47:{ .mode $active $chan -w | echo $active $chan Guest Can Wisper }
on *:dialog:Right:rclick:47:{ .mode $active $chan +w | echo $active $chan Guest Can Not Wisper }
on *:dialog:Right:sclick:46:{
echo $active $chan 11 Guest Nicks Are 4[11 BAND 4]
access $active $chan add deny *>*
}
on *:dialog:Right:rclick:46:{
echo $active $chan 11 Guest Nicks Are 4[11Allowed 4]
access $active $chan delete deny *>*
}
on *:dialog:Right:sclick:39:{ .mode $active $chan +l $?="limit" }
on *:dialog:Right:sclick:40:{ .mode $active $chan +l 25 | echo $active $chan Room Limit is set at 25 }
on *:dialog:Right:sclick:45:{ .mode $active $chan +l 50 | echo $active $chan Room Limit is set at 50 }
on *:dialog:Right:sclick:50:{ .mode $active $chan +l 100 | echo $active $chan Room Limit is set at 100 }
on *:dialog:Right:sclick:38:{
echo $active $chan 11 Emote Nicks Are 4[11 BAND 4]
access $active $chan add deny *|*!*@*$*
access $active $chan add deny *(*!*@*$*
access $active $chan add deny *)*!*@*$*
access $active $chan add deny *:*!*@*$*
access $active $chan add deny *˼ˍˬ*!*@*$*
access $active $chan add deny *Àº-À?*!*@*$*
access $active $chan add deny *Àº-À?*!*@*$*
access $active $chan add deny *ÀºÁ›*!*@*$*
access $active $chan add deny *À¸Àí|*!*@*$*
access $active $chan add deny *À¸o|*!*@*$*
access $active $chan add deny *À?oÀ¨*!*@*$*
}
on *:dialog:Right:rclick:38:{
echo $active $chan 11 Emote Nicks Are 4[11Allowed 4]
access $active $chan delete deny *|*!*@*$*
access $active $chan delete deny *(*!*@*$*
access $active $chan delete deny *)*!*@*$*
access $active $chan delete deny *:*!*@*$*
access $active $chan delete deny *˼ˍˬ*!*@*$*
access $active $chan delete deny *Àº-À?*!*@*$*
access $active $chan delete deny *Àº-À?*!*@*$*
access $active $chan delete deny *ÀºÁ›*!*@*$*
access $active $chan delete deny *À¸Àí|*!*@*$*
access $active $chan delete deny *À¸o|*!*@*$*
access $active $chan delete deny *À?oÀ¨*!*@*$*
}
on *:dialog:Right:sclick:23:{ /up. | echo -a Right click to connet }
on *:dialog:Right:rclick:23:{ /msn }
on *:dialog:Right:sclick:24:{ /restart }
on *:dialog:Right:sclick:74:{ /up | echo -a Right click to connet }
on *:dialog:Right:rclick:74:{ /msn }
on *:dialog:Right:sclick:78:{ /amsg ill be brb $fulldate | /away ill be back latter $fulldate }
on *:dialog:Right:rclick:78:{ /amsg hi all im back $fulldate | /away }