Code:
alias foo {
var %text.lines = $lines(C:\Programmer\Mirc\Testwords.txt)
var %text.current.line = 1
while (%text.current.line <= %text.lines) {
.timer1 0 5 ; timer na pet sekundi
msg irc_nick $read(C:\Programmer\Mirc\Testwords.txt, %text.current.line)
.inc %text.current.line
}
}
Ideja je da recimo imam recimo u fajlu viceve koje bih slao poznanicima (liniju po liniju) sa irca.
Kod radi, nesporazum je bio kod trazenja fajla (u windowsu je umjesto Testwords.txt stajalo Testwords.txt.txt).
Ali sad imam drugi problem: kako recimo da pauziram u while petlji recimo 5 sekundi izmedju svakog msg-a?
pokusao sam sa ovom linijom: .timer1 0 5 , ali jednostavno ne ide, skripta ispuca cijeli fajl i normalno zbog flooda me server izbaci.
Code:
pp {
set -u1 %no 1 <-------- linija1
set -u1 %razmak 1<------linija2
:trazi<--------------linija 3
set -u1 %sample $read(tekst.txt,%no)
if ( $$1 isin %sample ) goto bingo
if ( $$1 = $null ) goto end
if ( %sample == $null ) goto end
inc %no
goto trazi
:end
halt
:bingo
.timer 1 %razmak msg $active %sample
inc %razmak
inc %no
goto trazi
}
Mozes mi pojasniti sta rade ove tri linije?
Hvala :-)
Stane Dolanc: "Bavljenje tehnikom treba da postane svakodnevna potreba coveka.."