wait in script - 09/03/07 06:52 PM
is there something that will wait 5 seconds before carrying out the next command in a script?
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;!tracker Script on *:text:!tracker*:*:{ write -c tracker.txt set %nick $nick sockopen winbolo tracker.winbolo.us 50000 } on *:sockopen:winbolo:{ if ($sockerr) return sockwrite -n $sockname GET / HTTP/1.1 sockwrite -n $sockname Host: tracker.winbolo.us:50000 sockwrite -n $sockname Accept: */* sockwrite -n $sockname Connection: Close sockwrite -n $sockname } ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;Todo List ; ;;;Bot ; ;;;Password listed ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; on *:sockread:winbolo:{ var %a sockread %a write tracker.txt %a sockclose winbolo pause s 3 if ($read(tracker.txt, 9) == ngames=1) { | halt } if ($read(tracker.txt, 9) == ngames=2) { msg %nick this is working! | halt } if ($read(tracker.txt, 9) == ngames=3) { msg %nick this is working!! | halt } if ($lines(tracker.txt) == 1) { msg %nick Sorry, please try that command again | halt } }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;!tracker Script on *:text:!tracker*:*:{ if (%trk.nick) .notice $nick Busy, try again later. else { set %trk.nick $nick sockopen winbolo tracker.winbolo.us 50000 } } on *:sockopen:winbolo:{ if ($sockerr) return var %d = sockwrite -n $sockname %d GET / HTTP/1.1 %d Host: tracker.winbolo.us %d Accept: */* %d Connection: Close } on *:sockread:winbolo:{ if ($sockerr > 0) trke var %a while (1) { sockread %a if ($sockbr == 0) break tokenize 61 %a if (GAME* iswm $1) { ctrk trk server $2 } else trk $1- if ($1 == STARTTIME) .notice %trk.nick $trk(server) - Map $trk(map) - $+(V,$trk(version)) - Type $trk(type) - B/P $+($trk(bases),/,$trk(pills)) - Password $trk(password) } .timertrackh 1 2 trkd } alias ctrk { hfree tracker } alias trke { .notice %trk.nick Error, try again later. trkd halt } alias trkd { unset %trk.nick hfree tracker } alias trk { if ($isid) return $+(,$hget(tracker,$1),) hadd -m tracker $1- }
if ($read(tracker.txt, 9) == ngames=1) { | halt } if ($read(tracker.txt, 9) == ngames=2) { msg %nick this is working! | halt } if ($read(tracker.txt, 9) == ngames=3) { msg %nick this is working!! | halt } if ($lines(tracker.txt) == 1) { msg %nick Sorry, please try that command again | halt }
menu channel,status { Tracker:dialog -m tracker tracker } dialog Tracker { title "Tracker" size 300 200 255 200 option dbu Text "Server", 3, 10 110 200 7 Text "Map", 4, 10 117 100 7 text "Players", 5, 10 124 100 7 text "Type", 6, 10 131 100 7 combo 2, 10 10 125 100, sort combo 10, 200 200 125 100 box "Tracker", 50, 5 2 245 170 button "Track", 1, 135 10 60 20 button "Clear", 8, 135 30 60 20 button "Select", 9, 135 50 60 20 button "Join", 7, 10 150 60 20 } on *:dialog:Tracker:sclick:*:{ if ($did == 1) { sockopen winbolo tracker.winbolo.net 50000 } if ($did == 7) { run winbolo:// $+ %server } if ($did == 9) { did -ra tracker 3 Server: $trk(server) | did -ra tracker 4 Map: $trk(map) | did -ra tracker 5 Players: $trk(players) | did -ra tracker 6 Type: $trk(type) } if ($did == 8) { did -r tracker 2 | sockclose winbolo } } on *:sockopen:winbolo:{ if ($sockerr) return var %d = sockwrite -n $sockname %d GET / HTTP/1.1 %d Host: tracker.winbolo.net %d Accept: */* %d Connection: Close } on *:sockread:winbolo:{ if ($sockerr > 0) trke var %a while (1) { sockread %a if ($sockbr == 0) break tokenize 61 %a if (GAME* iswm $1) { ctrk trk server $2 } else trk $1- if ($1 == STARTTIME) did -a tracker 2 Server: $trk(server) } .timertrackh 1 2 trkd } alias ctrk { hfree tracker } alias trke { .notice %trk.nick Error, try again later. trkd halt } alias trkd { unset %trk.nick hfree tracker } alias trk { if ($isid) return $+($hget(tracker,$1)) hadd -m tracker $1- }