Custom Whisper

Twister · March 1, 2005

Umm im trying to make a custom whisper dialog. i made the dialog but i dont know how to code it. i need to know how it will replace the normal query n how to get it to work.

Warrior124 · March 1, 2005

This will create a whisper box for anyone who whispers you.

on *:TEXT:*:?:{ 
set %whispersay $1-
set %whispernick $nick
closemsg %whispernick
$iif(!$dialog(whisper. $+ %whispernick,dialog -m whisper. $+ %whispernick whisper. $+ %whispernick)
did -a whisper. $+ %whispernick 1 %whispersay
}

This will message whatever you type in the dialog box.

on *:DIALOG:Whisper.*:sclick:2:{
msg $replace($dname,whisper.,) $did(3).text
did -az $dname 1 $did(3).text
did -r $dname 3
}

This will take whatever is left after Whisper., which will be the nickname, and message whatever is left over, again which will be the nickname of the person you are whispering.

Edited March 1, 2005 by Warrior124

March 1, 2005

I'll be right back here with the actuall dialog which Warrior124got

March 1, 2005

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

Warrior124 · March 1, 2005

I'll be right back here with the actuall dialog which Warrior124got

You mean I got it from you? lol, I didn't get it from you. Check Web-ChatZ, M-ChatZ, and Guardian. My whisper dialogs are set up in a different way. They use nHTMLn_2.95.dll to create a web-chat like whisper box. So, both your hwisper box, and mine are different

morph3us · March 2, 2005

Twister · March 2, 2005

thnx i am making a chatusa script too lol

Twister · March 2, 2005

Umm thanks but for some reason it dont work.... ill show my code...............

----------------------------------------------
-  DONT RIP OR EVEN COPY SNIPPLETS OF THIS   -
-  SCRIPT... I TOOK MY TIME AND EFFORT INTO  -
-  MAKING THIS SCRIPT AND I DONT WANT PEOPLE -
-    TO TAKE IT AS IF THEY MADE THE WHOLE    -
-          SCRIPT!!!!!!                      -
----------------------------------------------
----------------------------------------------
-    MADE BY Twister & Warrior124       -
-                 DONT RIP                        -
----------------------------------------------
dialog whisper {
 title "Whisper "
 size -1 -1 203 81
 option dbu
 list 1, 0 14 189 50, size extsel vsbar
 edit "", 2, 0 1 188 11, read
 edit "", 3, 0 66 189 13
}
on *:TEXT:*:?:{ 
 set %whispersay $1-
 set %whispernick $nick
 closemsg %whispernick
 $iif(!$dialog(whisper. $+ %whispernick,dialog -m whisper. $+ %whispernick whisper. $+ %whispernick)
 did -a whisper. $+ %whispernick 1 %whispersay
}
on *:dialog:whisper:sclick:2:{
 msg $replace($dname,whisper.,) $did(3).text
 did -az $dname 1 $did(3).text
 did -r $dname 3
}

Warrior124 · March 3, 2005

I think that was my fault, lol. I recoded this, and tried it. It should work now. Here is the code I got...

----------------------------------------------
-  DONT RIP OR EVEN COPY SNIPPLETS OF THIS   -
-  SCRIPT... I TOOK MY TIME AND EFFORT INTO  -
-  MAKING THIS SCRIPT AND I DONT WANT PEOPLE -
-    TO TAKE IT AS IF THEY MADE THE WHOLE    -
-          SCRIPT!!!!!!                      -
----------------------------------------------
----------------------------------------------
-    MADE BY Twister & Warrior124       -
-                 DONT RIP                        -
----------------------------------------------

dialog whisper. {
 title ""
 size -1 -1 189 81
 option dbu
 button "Send", 2, 154 67 35 12, default multi
 edit "", 3, 0 14 189 50, multi return autovs
 edit "", 1, 0 66 154 13, autovs
 edit "", 4, 0 1 188 11, read
}
on *:dialog:whisper.*:init:*:{ did -a $dname 4 $replace($dname,whisper.,) 1 to 1 Whisper. }
on *:TEXT:*:?:{
set %whispersay $1-
set %whispernick $nick
closemsg %whispernick
$iif(!$dialog(whisper. $+ %whispernick),dialog -m whisper. $+ %whispernick whisper.)
did -a whisper. $+ %whispernick 3 %whispernick : %whispersay $+ $crlf
haltdef
}
on *:dialog:whisper.*:sclick:2:{
msg $replace($dname,whisper.,) $did(1).text
did -a $dname 3 $me : $did(1).text $+ $crlf
did -z $dname 3
did -r $dname 1
}
on *:DIALOG:Whisper.*:*:*: {
if ($devent == sclick) {
if ($did(1) != $null) {
msg $replace($dname,whisper.,) $did(1).text
did -z $dname 3
did -r $dname 1
haltdef
   }
 }
}

I even coded it to where you can click on the ENTER key to send the text.

Edited March 3, 2005 by Warrior124

Twister · March 3, 2005

thnx a lot man imma have to add a minimize so it can minimizw in the notify list

Sign In

Custom Whisper

Recommended Posts

Twister

Link to comment

Share on other sites

Warrior124

Link to comment

Share on other sites

Guest Brock

Link to comment

Share on other sites

Guest Brock

Link to comment

Share on other sites

Warrior124

Link to comment

Share on other sites

morph3us

Link to comment

Share on other sites

Twister

Link to comment

Share on other sites

Twister

Link to comment

Share on other sites

Warrior124

Link to comment

Share on other sites

Twister

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Browse

Activity