ok well I've been working on this one for my ChatsUSA Script and it's only in BETA!! So I dun want no one ripping it plz!
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::: [B][[/B]Golden[B]/[/B]Chat[B]][/B] ::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::: Designed & Coded by LordGohan :::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
alias mdx_fullpath { return $+(",mdx\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias RebaR { return $shortfn(mdx\rebar.dll) }
alias views { return mdx\views.mdx }
alias mdxinit {
dll $mdx_fullpath SetMircVersion $version
dll $mdx_fullpath MarkDialog $dname
}
dialog whisper.* {
title "1 To 1 Conversation [BETA Version by LordGohan]"
size -1 -1 152 78
option dbu
edit "", 3, 2 67 130 10, autohs autovs
text "To:", 5, 3 1 10 8
text "", 6, 14 1 127 8
button "Send", 7, 133 67 18 10, default
button "Button", 1, 2 10 149 55
button "Ignore", 8, 154 1 45 10
button "Un Ignore", 9, 154 11 45 10
button "Notify", 10, 154 21 45 10
button "Un Notify", 11, 154 31 45 10
button "View Info", 12, 154 41 45 10
button "+", 2, 143 1 8 8
combo 4, 154 54 45 50, size drop
button "Kick", 13, 155 67 21 10
button "Ban", 14, 177 67 21 10
}
On *:Dialog:whisper.*:sclick:8: { /ignore $did(6) }
On *:Dialog:whisper.*:sclick:9: { /ignore -r $did(6) }
On *:Dialog:whisper.*:sclick:10: { /notify $did(6) }
On *:Dialog:whisper.*:sclick:11: { /notify -r $did(6) }
On *:Dialog:whisper.*:sclick:12: { getuserinfo $did($dname,6) }
On *:Dialog:whisper.*:sclick:13: { kick $did($dname,4).seltext $did($dname,6) Whisper reason }
On *:Dialog:whisper.*:sclick:14 { ban $did($dname,4).seltext $did($dname,6) | kick $did($dname,4).seltext $did($dname,6) Whisper reason }
On *:Dialog:whisper.*:init:*: {
mdxinit
mdx SetFont $dname
mdx SetColor $dname
mdx SetFont $dname 3,4,5,6 13 550 Tahoma
mdx SetFont $dname 3,4,5,6 13 550 Tahoma
set %size 1
}
alias whisper.nick.* { return %whisper. [ $+ [ $1 ] ] }
on ^*:OPEN:?:*: {
set %whisper. [ $+ [ $nick ] ] $nick
if (!$dialog(whisper. [ $+ [ $nick ] ])) {
dialog -m whisper. [ $+ [ $nick ] ] whisper. [ $+ [ $nick ] ]
window @whisp. [ $+ [ $nick ] ]
window -h @whisp. [ $+ [ $nick ] ]
mdx SetControlMDX whisper. [ $+ [ $nick ] ] 1 Window > mdx\dialog.mdx
did -a whisper. [ $+ [ $nick ] ] 1 grab $window(@whisp. [ $+ [ $nick ] ]).hwnd @whisp. [ $+ [ $nick ] ]
font @whisp. [ $+ [ $nick ] ] tahoma
echo @whisp. [ $+ [ $nick ] ] 2 $+ $nick $+ :1 $1-
}
did -ra whisper. [ $+ [ $nick ] ] 6 $nick
window -h $did(whisper. [ $+ [ $nick ] ],6)
add.comchan $nick whisper. [ $+ [ $nick ] ]
}
on *:TEXT:*:?:{
echo @whisp. [ $+ [ $nick ] ] 2 $+ $nick $+ :1 $1-
window -h $did(whisper. [ $+ [ $nick ] ],6)
}
On *:Dialog:whisper.*:sclick:2: {
if (%size == 1) {
dialog -s $dname -1 -1 401 156
did -ra $dname 2 -
set %size 9
}
else {
dialog -s $dname -1 -1 304 156
did -ra $dname 2 +
set %size 1
}
}
On *:Dialog:whisper.*:sclick:7:{
echo @whisp. [ $+ [ $did($dname,6) ] ] 2 $+ $me $+ :1 $+ %mycolor $did($dname,3).text
query $did($dname,6) %mycolor $+ $did($dname,3).text
did -r $dname 3
did -f $dname 3
window -h $did($dname,6)
did -r $dname 4
var %x = 1
while (%x <= $comchan($did($dname,6),0)) {
did -a $dname 4 $comchan($did($dname,6),%x)
inc %x
}
}
alias private {
set %whisper. [ $+ [ $1- ] ] $1-
dialog -m whisper. [ $+ [ $1- ] ] whisper. [ $+ [ $1- ] ]
/dialog -t whisper. [ $+ [ $1- ] ] 1 To 1 Conversation With %whisper. [ $+ [ $1- ] ] On $server
did -ra whisper. [ $+ [ $1- ] ] 6 $1-
window @whisp. [ $+ [ $1- ] ]
window -h @whisp. [ $+ [ $1- ] ]
mdx SetControlMDX whisper. [ $+ [ $1- ] ] 1 Window > mdx\dialog.mdx
did -a whisper. [ $+ [ $1- ] ] 1 grab $window(@whisp. [ $+ [ $1- ] ]).hwnd @whisp. [ $+ [ $1- ] ]
font @whisp. [ $+ [ $1- ] ] tahoma
echo @whisp. [ $+ [ $1- ] ] 4Now Speaking With $1-
/window -h $1-
add.comchan $1 whisper. [ $+ [ $1- ] ]
}
dialog whisop {
title "Whisper Options"
size -1 -1 91 48
option dbu
text "Transparency [1-100]", 1, 2 5 54 8
edit "", 2, 56 4 16 10
button "Set", 3, 72 4 17 10
text "Sound", 4, 2 17 87 8, center
edit "", 5, 2 26 74 10, autohs autovs
button "...", 6, 77 26 12 10
button "Set", 7, 2 37 37 8
button "Default", 8, 52 37 37 8
}
on *:dialog:whisop:sclick:3: {
set %whistrans $did(2)
dll dll\TDialog.dll TDDialog $dialog(whisper.*).hwnd > %whistrans
}
On *:Dialog:whisper.*:close:*: { /close -m $did($dname,6) | .timer $+ $window(@whisp. [ $+ [ $nick ] ]).hwnd off }
alias add.comchan {
did -r $2- 4
var %x = 1
while (%x <= $comchan($1,0)) {
did -a $2- 4 $comchan($1,%x)
inc %x
}
}
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::: [B][[/B]Golden[B]/[/B]Chat[B]][/B] ::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::: Designed & Coded by LordGohan :::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
I have in there %mycolor so I suggest doing this
/set %mycolor <colour-number-here>
and that'll return the colour in the dialog otherwise if you don't want colour just leave it as it is
Leave the credits in plz
