Mar 13, 2007 04:43
MIRC TRACKER
I have made this tracker to elimate any bot script tracker so that the channel doesn't get cluttered, and to make an irc client all you need (besides winbolo) to play a winbolo game.
Requirments
MIRC
WINBOLO
Instructions.
1) When you are in irc, press (alt + r)
2) Go top top of window. File -> New
3) Copy and paist this into that blank window, and click ok
[code:1:f9e6e07c0a]
menu channel,status {
Tracker:dialog -m tracker tracker
}
dialog Tracker {
title "Tracker"
size 300 200 255 200
option dbu
Text "Server:", 3, 20 120 175 7
Text "Map:", 4, 20 127 100 7
text "Players:", 5, 20 134 100 7
text "Type:", 6, 20 141 100 7
combo 2, 10 10 125 100, sort
box "Tracker", 50, 5 2 245 190
box "Game Info", 51, 10 110 210 50
button "Track / Refresh", 1, 135 10 60 20
button "Join", 7, 10 165 60 20
}
on *:dialog:Tracker:sclick:*:{
if ($did == 1) { did -r tracker 2 | sockclose winbolo | set %count 0 | sockopen winbolo tracker.winbolo.net 50000 }
if ($did == 7) { run winbolo:// $+ %server }
if ($did == 2) { tokenize 32 $did(tracker, 2).seltext | set %read $1 | set %info $read(tracker.txt, s, %read) | tokenize 32 %info | set %server $1 | set %players $2 | set %type $3 | set %map $4- | did -ra tracker 3 Server: %server | did -ra tracker 4 Map: %map | did -ra tracker 5 Players: %players | did -ra tracker 6 Type: %type }
}
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) $game
}
.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-
}
alias game {
inc -c %count 1
if (%count == 1) write -c tracker.txt
write tracker.txt %count $+ : $trk(server) $trk(players) $trk(type) $trk(map)
did -a tracker 2 %count $+ : $trk(server)
}
[/code:1:f9e6e07c0a]
all you have to do to get this tracker to work, is just right click on the channels chat window, and the option "tracker" should show up.
Feedback/suggestions????
Requirments
MIRC
WINBOLO
Instructions.
1) When you are in irc, press (alt + r)
2) Go top top of window. File -> New
3) Copy and paist this into that blank window, and click ok
[code:1:f9e6e07c0a]
menu channel,status {
Tracker:dialog -m tracker tracker
}
dialog Tracker {
title "Tracker"
size 300 200 255 200
option dbu
Text "Server:", 3, 20 120 175 7
Text "Map:", 4, 20 127 100 7
text "Players:", 5, 20 134 100 7
text "Type:", 6, 20 141 100 7
combo 2, 10 10 125 100, sort
box "Tracker", 50, 5 2 245 190
box "Game Info", 51, 10 110 210 50
button "Track / Refresh", 1, 135 10 60 20
button "Join", 7, 10 165 60 20
}
on *:dialog:Tracker:sclick:*:{
if ($did == 1) { did -r tracker 2 | sockclose winbolo | set %count 0 | sockopen winbolo tracker.winbolo.net 50000 }
if ($did == 7) { run winbolo:// $+ %server }
if ($did == 2) { tokenize 32 $did(tracker, 2).seltext | set %read $1 | set %info $read(tracker.txt, s, %read) | tokenize 32 %info | set %server $1 | set %players $2 | set %type $3 | set %map $4- | did -ra tracker 3 Server: %server | did -ra tracker 4 Map: %map | did -ra tracker 5 Players: %players | did -ra tracker 6 Type: %type }
}
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) $game
}
.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-
}
alias game {
inc -c %count 1
if (%count == 1) write -c tracker.txt
write tracker.txt %count $+ : $trk(server) $trk(players) $trk(type) $trk(map)
did -a tracker 2 %count $+ : $trk(server)
}
[/code:1:f9e6e07c0a]
all you have to do to get this tracker to work, is just right click on the channels chat window, and the option "tracker" should show up.
Feedback/suggestions????
Last edited: Mar 13, 2007 14:02 (edited 1 time)