Apr 22, 2007 01:09
WBE v.1.2
Winbolo Enhancer Version 1.2
Written by Harl91
Well I have added some new features to this version fo WBE. I hope you like them, and enjoy them as much as I did making them. Please respect it, and dont alter without my premission. Now with that out of the way, lets see the stript!
Requirments:
MIRC CLIENT
To install:
Have your mirc client open.
Press alt + r
Go to file, and click new
Copy and paist what is below, press ok, and your done!
[code:1:037e4b16e6]
;;Script written by Harl91
;;version 1.2
;;Updates in this version: Status Bar, Lobby
;;What to expect the next version: Player Rating System
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.2"
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 "Lobby", 995, 1 2 230 150
tab "Identify", 993, 1 2 230 150
tab "IP", 997, 1 2 230 150
tab "About", 994, 1 2 230 150
tab "Suggestions", 996, 1 2 230 150
text "By Harl91", 198, 15 10 25 7
;;Status Bar
Text "Status:", 999, 15 175 25 7
edit "", 789, 35 174 200 10
;;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
;;Lobby Items
button "Im Waiting", 40, 20 40 60 20, tab 995
button "Whos Waiting", 41, 20 60 60 20, tab 995
button "Not Waiting", 43, 20 80 60 20, tab 995
combo 42, 80 40 125 100, tab 995
;;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
;;Ip Items
box "Match IP", 70, 20 35 200 50, tab 997
text "Enter in IP you wish to find a match", 71, 23 43 100 7, tab 997
edit "", 72, 23 50 150 10, tab 997
button "Find Match", 73, 23 63 60 20, tab 997
box "Submit IP", 74, 20 85 200 75, tab 997
text "If you wish to record an IP, enter it here", 75, 23 93 100 7, tab 997
edit "", 76, 23 100 150 10, tab 997
text "Also enter the handle/nick here", 77, 23 113 100 7, tab 997
edit "", 78, 23 120 75 10, tab 997
button "Submit", 79, 23 133 60 20, tab 997
;;About Text
text "Winbolo Enhancer version 1.2", 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
;;Suggestions
edit "Write your suggestion here!", 60, 20 40 150 10, tab 996
button "Enter Suggestion", 61, 20 50 60 20, tab 996
}
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 | set %click password }
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 | did -ar wbe 789 Auto Identify is now turned off. | halt }
if (%autoid == off) { set %autoid on | did -ar wbe 789 Auto Identify is now turned on. | halt }
}
if ($did == 41) { msg harlbot whos waiting | did -ra wbe 42 | set %click waiting }
if ($did == 40) { msg harlbot im waiting | set %click status | did -ar wbe 789 You are now reconized as waiting for a game. }
if ($did == 43) { msg harlbot im not waiting | set %click status }
if ($did == 61) { set %click suggestion | set %suggestion Suggestion: $did(wbe, 60).text | msg harlbot %suggestion | did -ar wbe 789 Suggestion accepted! }
if ($did == 73) { set %click ip | msg harlbot Find Match: $did(wbe, 72).text }
if ($did == 79) { set %click ip | msg harlbot New IP has been submitted: $did(wbe, 76).text for handle $did(wbe, 78).text }
}
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 {
if %click == password {
did -a wbe 14 $1-
close -m Harlbot
}
if %click == waiting {
did -a wbe 42 $1-
close -m Harlbot
}
if %click == status {
did -ar wbe 789 $1-
close -m Harlbot
}
if %click == ip {
did -ar wbe 789 $1-
close -m Harlbot
}
}
}
[/code:1:037e4b16e6]
How to use it
WBE is very easy to use. Once you have it installed, simply right click within your winbolo window to activate.
Tracker
The first thing you see is the tracker. Simply press "track" and the address of games will show up. Click on one, and the info of that game will be displayed below. Click join when you found a game you like.
Passwords
The second tab is where you can search for passwords. I created this feature cause the old "POTD" thing seems to realy flood the chat, espically when one person does it, then someone joins, and does the same thing. Anyways, simply press the passwords button and the passwords will appear.
Lobby
I have had many times where i wish i could play a game, but dont want to spend my time just sitting watching the chat until a game pops up. With the lobby function, other players will be able to see that you are waiting for a game, and might invite you to play if you are doing something else. Also, when ever someone has started a game, and you are "Waiting" for a game, Harlbot will notify you that someone has started a game.
For harlbot to reconize that you are waiting for a game, press "Waiting".
To see whos waiting, click "Whos Waiting"
If you are not interested in looking for a game anymore, and just want to chat, click "Not Waiting"
Notice the new status bar. This is where WBE will put information you should know, like when you are reconized as waiting for a game.
Identify
If is for people that have there own channel, or are an op and need to be identified when they join. All you have to do is register (even if your nick is already regested, just go WBE knows your password) and your done. Click identify, and WBE will identify you. If you wish to register you nick, then fill out the information in window that pops up.
IP
This is posibally my favorite new feature in WBE. Harlbot has a bunch of IP's of players stored. If you ever see a troller, or someone who claims to be "new", plunk there IP in this, and BAM, you will get a match. If you dont get a match, either the players IP isn't recorded or it is actualy a new player. If it is a new player, submit the new IP.
The ip harlbot is looking for is the one that you see in Winbolo under the player list. For ops, it will be the blue section of an irc /whois below..
harl!harl91@d207-6-44-157.bchsia.telus.net
About
Blaa Blaa Blaa, this is just my way of claiming the script
Suggestion
If you have a suggestion, either post in this thread, or submit it to harlbot via WBE
Written by Harl91
Well I have added some new features to this version fo WBE. I hope you like them, and enjoy them as much as I did making them. Please respect it, and dont alter without my premission. Now with that out of the way, lets see the stript!
Requirments:
MIRC CLIENT
To install:
Have your mirc client open.
Press alt + r
Go to file, and click new
Copy and paist what is below, press ok, and your done!
[code:1:037e4b16e6]
;;Script written by Harl91
;;version 1.2
;;Updates in this version: Status Bar, Lobby
;;What to expect the next version: Player Rating System
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.2"
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 "Lobby", 995, 1 2 230 150
tab "Identify", 993, 1 2 230 150
tab "IP", 997, 1 2 230 150
tab "About", 994, 1 2 230 150
tab "Suggestions", 996, 1 2 230 150
text "By Harl91", 198, 15 10 25 7
;;Status Bar
Text "Status:", 999, 15 175 25 7
edit "", 789, 35 174 200 10
;;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
;;Lobby Items
button "Im Waiting", 40, 20 40 60 20, tab 995
button "Whos Waiting", 41, 20 60 60 20, tab 995
button "Not Waiting", 43, 20 80 60 20, tab 995
combo 42, 80 40 125 100, tab 995
;;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
;;Ip Items
box "Match IP", 70, 20 35 200 50, tab 997
text "Enter in IP you wish to find a match", 71, 23 43 100 7, tab 997
edit "", 72, 23 50 150 10, tab 997
button "Find Match", 73, 23 63 60 20, tab 997
box "Submit IP", 74, 20 85 200 75, tab 997
text "If you wish to record an IP, enter it here", 75, 23 93 100 7, tab 997
edit "", 76, 23 100 150 10, tab 997
text "Also enter the handle/nick here", 77, 23 113 100 7, tab 997
edit "", 78, 23 120 75 10, tab 997
button "Submit", 79, 23 133 60 20, tab 997
;;About Text
text "Winbolo Enhancer version 1.2", 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
;;Suggestions
edit "Write your suggestion here!", 60, 20 40 150 10, tab 996
button "Enter Suggestion", 61, 20 50 60 20, tab 996
}
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 | set %click password }
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 | did -ar wbe 789 Auto Identify is now turned off. | halt }
if (%autoid == off) { set %autoid on | did -ar wbe 789 Auto Identify is now turned on. | halt }
}
if ($did == 41) { msg harlbot whos waiting | did -ra wbe 42 | set %click waiting }
if ($did == 40) { msg harlbot im waiting | set %click status | did -ar wbe 789 You are now reconized as waiting for a game. }
if ($did == 43) { msg harlbot im not waiting | set %click status }
if ($did == 61) { set %click suggestion | set %suggestion Suggestion: $did(wbe, 60).text | msg harlbot %suggestion | did -ar wbe 789 Suggestion accepted! }
if ($did == 73) { set %click ip | msg harlbot Find Match: $did(wbe, 72).text }
if ($did == 79) { set %click ip | msg harlbot New IP has been submitted: $did(wbe, 76).text for handle $did(wbe, 78).text }
}
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 {
if %click == password {
did -a wbe 14 $1-
close -m Harlbot
}
if %click == waiting {
did -a wbe 42 $1-
close -m Harlbot
}
if %click == status {
did -ar wbe 789 $1-
close -m Harlbot
}
if %click == ip {
did -ar wbe 789 $1-
close -m Harlbot
}
}
}
[/code:1:037e4b16e6]
How to use it
WBE is very easy to use. Once you have it installed, simply right click within your winbolo window to activate.
Tracker
The first thing you see is the tracker. Simply press "track" and the address of games will show up. Click on one, and the info of that game will be displayed below. Click join when you found a game you like.
Passwords
The second tab is where you can search for passwords. I created this feature cause the old "POTD" thing seems to realy flood the chat, espically when one person does it, then someone joins, and does the same thing. Anyways, simply press the passwords button and the passwords will appear.
Lobby
I have had many times where i wish i could play a game, but dont want to spend my time just sitting watching the chat until a game pops up. With the lobby function, other players will be able to see that you are waiting for a game, and might invite you to play if you are doing something else. Also, when ever someone has started a game, and you are "Waiting" for a game, Harlbot will notify you that someone has started a game.
For harlbot to reconize that you are waiting for a game, press "Waiting".
To see whos waiting, click "Whos Waiting"
If you are not interested in looking for a game anymore, and just want to chat, click "Not Waiting"
Notice the new status bar. This is where WBE will put information you should know, like when you are reconized as waiting for a game.
Identify
If is for people that have there own channel, or are an op and need to be identified when they join. All you have to do is register (even if your nick is already regested, just go WBE knows your password) and your done. Click identify, and WBE will identify you. If you wish to register you nick, then fill out the information in window that pops up.
IP
This is posibally my favorite new feature in WBE. Harlbot has a bunch of IP's of players stored. If you ever see a troller, or someone who claims to be "new", plunk there IP in this, and BAM, you will get a match. If you dont get a match, either the players IP isn't recorded or it is actualy a new player. If it is a new player, submit the new IP.
The ip harlbot is looking for is the one that you see in Winbolo under the player list. For ops, it will be the blue section of an irc /whois below..
harl!harl91@d207-6-44-157.bchsia.telus.net
About
Blaa Blaa Blaa, this is just my way of claiming the script
Suggestion
If you have a suggestion, either post in this thread, or submit it to harlbot via WBE