Mar 17, 2007 21:24
Winbolo Enhancer
Yay, i put all of the scripts that i have made into one script now. Ill soon make an edited mIRC client that just has this script in it, and #winbolo in its favorites so that new players will find mIRC an easy way to talk to fellow winboloers.
To install
1) When you are in irc, press (alt + r)
2) Go to top of window. File -> New
3) Copy and paist whats below into that blank window, and click ok
[code:1:78bc7b72b1]
;;Script written by Harl91
;;version 1.1
on *:join:#winbolo:{
if (($nick == $me) && (%autoid == on)) /ns identify %password
}
menu channel,status {
Winbolo Enhancer:dialog -m wbe wbe
}
dialog WBE {
title "Winbolo Enhancer v.1.1"
size 300 200 255 200
option dbu
box "Winbolo Enhancer", 50, 5 2 245 190
tab "Tracker", 991, 15 20 230 150
tab "Passwords", 992, 1 2 230 150
tab "Identify", 993, 1 2 230 150
tab "About", 994, 1 2 230 150
;;Tracker Items
Text "Server:", 3, 20 137 125 7, tab 991
Text "Map:", 4, 20 144 100 7, tab 991
text "Players:", 5, 20 151 100 7, tab 991
text "Type:", 6, 20 159 100 7, tab 991
combo 2, 20 40 125 100, sort, tab 991
button "Track / Refresh", 1, 145 40 60 20, tab 991
button "Join", 7, 145 120 60 20, tab 991
;;Password Finder Items
combo 14, 76 55 100 74, sort, tab 992
text "You must be on #winbolo", 10, 100 126 75 7, tab 992
text "for this to work!", 11, 110 134 75 7, tab 992
button "Passwords", 13, 95 35 60 20, tab 992
;;Identify Buttons
button "Identify", 21, 95 65 60 20, tab 993
button "Register", 22, 95 85 60 20, tab 993
button "Auto-Identify", 23, 95 105 60 20, tab 993
;;About Text
text "Winbolo Enhancer version 1.1", 31, 20 40 175 7, tab 994
text "Script written by Harl91", 32, 20 47 175 7, tab 994
text "I made these scripts for the purpose of reducing the amount of applications you have open", 33, 20 54 224 7, tab 994
text "while playing winbolo. If you havn't already noticed, the more applications you have open,", 34, 20 61 224 7, tab 994
text "the more deminished your game quality is. These scripts not only reduce the amount of tasks", 35, 20 68 224 7, tab 994
text "your computer has to deal with, but also keeps everything in ONE place. I hope that this", 36, 20 75 224 7, tab 994
text "collection has made the configuration stage easier, because configuration stage can be", 37, 20 82 224 7, tab 994
text "quite confusing. Please respect and enjoy this feature.", 38, 20 89 224 7, tab 994
}
dialog Register {
title "Register"
size 300 200 100 50
option dbu
text "Enter Information", 3, 10 3 75 10
edit "Password Here", 1, 10 10 75 10
edit "Email Here", 2, 10 20 75 10
button "Done", 4, 18 30 60 20
}
on *:dialog:WBE:sclick:*:{
if ($did == 1) { did -r wbe 2 | sockclose winbolo | set %count 0 | sockopen winbolo tracker.winbolo.net 50000 }
if ($did == 7) { run winbolo:// $+ %server }
if ($did == 2) { tokenize 32 $did(wbe, 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 wbe 3 Server: %server | did -ra wbe 4 Map: %map | did -ra wbe 5 Players: %players | did -ra wbe 6 Type: %type }
if ($did == 13) { msg harlbot passwords please | did -ra wbe 14 }
if ($did == 21) { /ns identify %password }
if ($did == 22) { dialog -m register register }
if ($did == 23) {
if (%autoid == $null) { set %autoid off | echo #winbolo ::: Auto Identify is now off | halt }
if (%autoid == on) { set %autoid off | echo #winbolo ::: Auto Identify is now off | halt }
if (%autoid == off) { set %autoid on | echo #winbolo ::: Auto Identify is now on | halt }
}
}
on *:dialog:Register:sclick:*:{
if ($did == 4) {
set %password $did(register, 1).text
set %email $did(register, 2).text
/ns register %password %email
dialog -x register register
}
}
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 wbe 2 %count $+ : $trk(server)
}
on *:text:*:?: {
if $Nick == harlbot {
set %line $1-
did -a wbe 14 %line
close -m Harlbot
}
}
[/code:1:78bc7b72b1]
to use this, all you have to do it right click on your chat window, and click "Winbolo Enhancer"
To install
1) When you are in irc, press (alt + r)
2) Go to top of window. File -> New
3) Copy and paist whats below into that blank window, and click ok
[code:1:78bc7b72b1]
;;Script written by Harl91
;;version 1.1
on *:join:#winbolo:{
if (($nick == $me) && (%autoid == on)) /ns identify %password
}
menu channel,status {
Winbolo Enhancer:dialog -m wbe wbe
}
dialog WBE {
title "Winbolo Enhancer v.1.1"
size 300 200 255 200
option dbu
box "Winbolo Enhancer", 50, 5 2 245 190
tab "Tracker", 991, 15 20 230 150
tab "Passwords", 992, 1 2 230 150
tab "Identify", 993, 1 2 230 150
tab "About", 994, 1 2 230 150
;;Tracker Items
Text "Server:", 3, 20 137 125 7, tab 991
Text "Map:", 4, 20 144 100 7, tab 991
text "Players:", 5, 20 151 100 7, tab 991
text "Type:", 6, 20 159 100 7, tab 991
combo 2, 20 40 125 100, sort, tab 991
button "Track / Refresh", 1, 145 40 60 20, tab 991
button "Join", 7, 145 120 60 20, tab 991
;;Password Finder Items
combo 14, 76 55 100 74, sort, tab 992
text "You must be on #winbolo", 10, 100 126 75 7, tab 992
text "for this to work!", 11, 110 134 75 7, tab 992
button "Passwords", 13, 95 35 60 20, tab 992
;;Identify Buttons
button "Identify", 21, 95 65 60 20, tab 993
button "Register", 22, 95 85 60 20, tab 993
button "Auto-Identify", 23, 95 105 60 20, tab 993
;;About Text
text "Winbolo Enhancer version 1.1", 31, 20 40 175 7, tab 994
text "Script written by Harl91", 32, 20 47 175 7, tab 994
text "I made these scripts for the purpose of reducing the amount of applications you have open", 33, 20 54 224 7, tab 994
text "while playing winbolo. If you havn't already noticed, the more applications you have open,", 34, 20 61 224 7, tab 994
text "the more deminished your game quality is. These scripts not only reduce the amount of tasks", 35, 20 68 224 7, tab 994
text "your computer has to deal with, but also keeps everything in ONE place. I hope that this", 36, 20 75 224 7, tab 994
text "collection has made the configuration stage easier, because configuration stage can be", 37, 20 82 224 7, tab 994
text "quite confusing. Please respect and enjoy this feature.", 38, 20 89 224 7, tab 994
}
dialog Register {
title "Register"
size 300 200 100 50
option dbu
text "Enter Information", 3, 10 3 75 10
edit "Password Here", 1, 10 10 75 10
edit "Email Here", 2, 10 20 75 10
button "Done", 4, 18 30 60 20
}
on *:dialog:WBE:sclick:*:{
if ($did == 1) { did -r wbe 2 | sockclose winbolo | set %count 0 | sockopen winbolo tracker.winbolo.net 50000 }
if ($did == 7) { run winbolo:// $+ %server }
if ($did == 2) { tokenize 32 $did(wbe, 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 wbe 3 Server: %server | did -ra wbe 4 Map: %map | did -ra wbe 5 Players: %players | did -ra wbe 6 Type: %type }
if ($did == 13) { msg harlbot passwords please | did -ra wbe 14 }
if ($did == 21) { /ns identify %password }
if ($did == 22) { dialog -m register register }
if ($did == 23) {
if (%autoid == $null) { set %autoid off | echo #winbolo ::: Auto Identify is now off | halt }
if (%autoid == on) { set %autoid off | echo #winbolo ::: Auto Identify is now off | halt }
if (%autoid == off) { set %autoid on | echo #winbolo ::: Auto Identify is now on | halt }
}
}
on *:dialog:Register:sclick:*:{
if ($did == 4) {
set %password $did(register, 1).text
set %email $did(register, 2).text
/ns register %password %email
dialog -x register register
}
}
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 wbe 2 %count $+ : $trk(server)
}
on *:text:*:?: {
if $Nick == harlbot {
set %line $1-
did -a wbe 14 %line
close -m Harlbot
}
}
[/code:1:78bc7b72b1]
to use this, all you have to do it right click on your chat window, and click "Winbolo Enhancer"