By napa182 on Sep 27, 2007Copy/Paste into a new remote click either on ur menubar or in a channel click Insulter pick a channel then pick a nick an click Insult Nick.
Rip Strip Rape This snippet I can careless..
dialog Insulter {
title "Insulter V2.0 Blow Me Inc."
size -1 -1 117 73
option dbu
box "Channels U Are On", 1, 2 2 56 47
list 2, 3 11 53 36, size
box "Nick's In Channel", 3, 59 2 56 47
list 4, 60 11 53 36, size
box "Functions", 5, 2 50 113 21
button "Insult Nick", 6, 3 59 55 10, flat
button "Close", 7, 58 59 55 10, flat cancel
}
menu menubar,channel {
.Insulter:{ dialog $iif($dialog(Insulter),-v,-m Insulter) Insulter }
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Random Insults
echo 12 -a A Script0rs Inc. Production So BLOW ME Inc. ;X
echo -a 14,1( 14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯ ) $+ $chr(153)
}
on *:dialog:Insulter:init:0:{ did -b $dname 6 | didtok $dname 2 32 $regsubex($str(-,$chan(0)),/(.)/g,$+($chan(\n),$chr(32))) }
on *:dialog:Insulter:sclick:*:{
if ($did == 2) { did -b $dname 6 | did -r $dname 4 | didtok $dname 4 32 $regsubex($str(-,$nick($did(2).seltext,0)),/(.)/g,$+($nick($did(2).seltext,\n),$chr(32))) }
if ($did == 4) { did -e $dname 6 }
if ($did == 6) { if ($sock(insult)) .sockclose insult | sockopen insult www.randominsults.net 80 | sockmark insult $did(2).seltext $+(04,$did(4).seltext,$chr(44),14) }
}
on *:sockopen:insult: { sockwrite -nt $sockname GET / HTTP/1.1 | sockwrite -nt $sockname Host: $+(www.randominsults.net,$str($crlf,2)) }
on *:sockread:insult: {
var %insult | sockread %insult
if ($regex(%insult,/<i>(.+)<\/i>/)) { msg $sock(insult).mark $regml(1) | .sockclose insult }
}
I wouldn't go for the while loop route like venom suggested, since the didtok is available at your disposal.
but a list of nicknames is NOT readily available at your disposal, you have to construct the list first. this really is overkill when you can simply add the nick straight to the listbox as venom showed.
you can also use:
/filter -wol #channel <dname> <id>
to get the nicklist of #channel in a dialog control. this also copies nick prefixes, however, which might be desirable in this case.
Troll, this is how you parse all the nicknames in the channel in a dialog using the didtok command. I wouldn't go for the while loop route like venom suggested, since the didtok is available at your disposal. Why waste it, right? Here is a simple test dialog for your reference:
dialog test {
title "Testing..."
size -1 -1 85 16
option dbu
text "Roomies:", 3, 2 3 25 8, right
combo 4, 28 3 53 100, size drop
}
on *:dialog:test:init:0:{
while ($nick($iif($active ischan,$v1),$0)) {
tokenize 32 $1- $v1
}
didtok $dname 4 32 $2-
}
alias roomies {
dialog $iif($dialog(test),-v,-md test) test
}
Enter the command: /roomies
And then select the drop-down box to see all the nicknames in the room where you're on. This is for testing purposes only, nothing more.
if ($did == 2) { did -b $dname 6 | did -r $dname 4 | didtok $dname 4 32 $regsubex($str(-,$nick($did(2).seltext,0)),/(.)/g,$+($nick($did(2).seltext,\n),$chr(32))) }
^^that is the line that makes the nicks appear for the channel selected
here is another way to do it
on *:dialog:profileview.system:dclick:1: {
nickzz
}
alias nickzz {
var -s %curr 1, %nick $nick($did(profileview.system,1).seltext,0)
did -r profileview.system 3
while (%curr <= %nick) {
did -az profileview.system 3 $nick($did(profileview.system,1).seltext,%curr)
inc %curr
}
}
