Hejsa...
Jeg sidder og leger lidt med dette script, hvor jeg ønsker at køre et sock-loop, ud fra en .txt fil.
Her kommer mit problem, den vil gerne lave loopet, når der kun er 1 linie i filen, men hvis der kommer 2 linier (2 navne) så viser den ikke noget.
Håber der er nogle kloge mennesker der vil give en hjælpede hånd.
on *:TEXT:!check:#: {
if (%antispam) {
halt
}
msg $chan 4- Performing a loop to check everyone in crew - hold on! 4-
set -u20 %antispam on
set %s.chan $chan
checklist
}
alias checklist {
set %i 1
while (%i <= $lines(skill.txt)) {
sockopen checker mydomain.com 80
sockmark checker $read(skill.txt,%i) $chan
inc %i
}
}
on *:SOCKOPEN:checker: {
var %s = sockwrite -n $sockname
%s GET $+(/profile.php?transnick=,$gettok($sock($sockname).mark,1,32)) HTTP/1.1
%s Host: mydomain.com
%s Connection: close
%s $crlf
}
on *:SOCKREAD:checker: {
var %a
sockread -f %a
if ($+(%s.exp,%s.cl,%s.gr,%s.pa,%s.un)) {
var %r = $iif(%s.pa,$gettok(%a,5,60),$gettok(%a,4,60))
var %r = $gettok(%r,2,62)
set %s $+(%s,$chr(42),$+(%s.cop,%s.bl,%s.ste,%s.emp) %r)
unset %s.*
}
else {
if (*/images/skill_15.gif* iswm %a) {
set %s.cop Circle of Protection /
}
}
}
on *:SOCKCLOSE:checker: {
msg %s.chan $gettok($sock($sockname).mark,1,32) : %s.cop
unset %s.*
}