mIRC Home    About    Download    Register    News    Help

Print Thread
#116673 07/04/05 06:33 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
is there possibility if to transfer wallop msg's into txtbox on dialog and use another txtbox like mirc has to write/send messages ?

something like some msn is but just plain simple text no stupid icons/colors etc... ?

#116674 07/04/05 07:03 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Hmm, not sure if it works but it's using listbox not text.

Code:
dialog wallops {
  title "Wallops Handler"
  size -1 -1 152 113
  option dbu
  list 1, 1 1 150 82, size hsbar vsbar
  edit "", 2, 1 85 112 10
  button "Send", 3, 116 85 34 11
  button "Close", 4, 44 99 50 10
}

on *:Wallops:*: {
  if ($dialog(wallops)) { did -a wallops 1 $1- by $nick }
}

on *:Dialog:wallops:sclick:3: {
  if ($did($dname,2).text) { wallops $did($dname,2).text }
}

#116675 07/04/05 09:31 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
when clicked on send i get this:

* /dialog: 'wallops' name in use (line 934, dialogs.mrc)

#116676 07/04/05 09:38 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
I have that in a fresh script file and it seems to be working for me to an extent and that is I'm not opered up so I'm getting the following message:

Permission Denied, You do not have the correct irc operator privileges.

#116677 07/04/05 09:46 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
i get error coz of this...

alias wallops {
/dialog -m wallops wallops
}

weird...

#116678 07/04/05 09:55 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Code:
alias wallops {
  if (!$dialog(wallops)) dialog -dm wallops wallops
}

dialog wallops {
  title "Wallops Handler"
  size -1 -1 152 113
  option dbu
  list 1, 1 1 150 82, size hsbar vsbar
  edit "", 2, 1 85 112 10
  button "Send", 3, 116 85 34 11
  button "Close", 4, 44 99 50 10
}

on *:Wallops:*: {
  if ($dialog(wallops)) { 
    wallops
    did -a wallops 1 $1- by $nick 
  }
}

on *:Dialog:wallops:sclick:3: {
  if ($did($dname,2).text) { [color:red]![/color]wallops $did($dname,2).text }
}



/wallops - will open your dialog.
/!wallops - will send wallops messages.

Notice the exclamation mark, that needs to be there in order to cancel out your wallops alias.

#116679 07/04/05 10:05 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
niceeee

1 more question

(since no1 is on wallops atm) will this dialog
also show timestamps or not and can it be done so it can show ?

#116680 07/04/05 10:41 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Code:
alias wallops {
  if (!$dialog(wallops)) dialog -dm wallops wallops
}

dialog wallops {
  title "Wallops Handler"
  size -1 -1 152 113
  option dbu
  list 1, 1 1 150 82, size hsbar vsbar
  edit "", 2, 1 85 112 10
  button "Send", 3, 116 85 34 11
  button "Close", 4, 44 99 50 10
}

on *:Wallops:*: {
  if ($dialog(wallops)) { 
    wallops
    did -a wallops 1 $timestamp $+(<,$nick,>) $1- 
  }
}

on *:Dialog:wallops:sclick:3: {
  if ($did($dname,2).text) { !wallops $did($dname,2).text }
}


It wont keep record of your Wallop Messages, as soon as you close the dialog the messages are lost but I can add that for you if you want.

#116681 07/04/05 10:43 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
if you have time and patience i would be gratefull =)

#116682 07/04/05 11:06 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Sure, no problem.. smile

Code:
alias wallops {
  if (!$dialog(wallops)) dialog -dm wallops wallops
}

dialog wallops {
  title "Wallops Handler"
  size -1 -1 152 113
  option dbu
  list 1, 1 1 150 82, size hsbar vsbar
  edit "", 2, 1 85 112 10
  button "Send", 3, 116 85 34 11
  button "Close", 4, 44 99 50 10
}

on *:Dialog:wallops:init:*: {
  if ($exists(wallops.txt)) { play -s wallops.txt 30 }
}

on *:Wallops:*: {
  wallops
  write wallops.txt did -a wallops 1 $timestamp $+(<,$nick,>) $1- |  .timer 1 1 did -a wallops 1 $timestamp $+(<,$nick,>) $1-
}

on *:Dialog:wallops:sclick:3: {
  if ($did($dname,2).text) { !wallops $did($dname,2).text }
}

#116683 07/04/05 11:14 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
1 question, will this code work on mirc 6.01-6.03 ?

coz opers are "walloping" but nothing is recived in txt box

Last edited by raZOR; 07/04/05 11:14 PM.

IceCapped
#116684 07/04/05 11:21 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Well, it should do. But I have v6.16 so I can't vouch for it but I don't see how it can't work. mad

Works perfectly fine for me hehe.


Link Copied to Clipboard