Menu
 
FAQFAQ
SearchSearch

MemberlistMemberlist

UsergroupsUsergroups
RegisterRegister
ProfileProfile
Log in to check your private messages
Log in to check your private messages
Log inLog in
 
 

Community
 

Winbolo Enhancer

 
Post new topic   Reply to topic    Winbolo.net Forum Index -> Addons
View previous topic :: View next topic  
Author Message
harl91



Joined: 20 May 2006
Posts: 252

PostPosted: Sat Mar 17, 2007 4:24 pm    Post subject: Winbolo Enhancer Reply with quote

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:

;;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
  }
}


to use this, all you have to do it right click on your chat window, and click "Winbolo Enhancer"
Back to top
View user's profile Send private message
harl91



Joined: 20 May 2006
Posts: 252

PostPosted: Thu Mar 22, 2007 5:47 pm    Post subject: Reply with quote

Now i have put that script into the lastest mIRC client, and made it ready to use and setup on the #winbolo channel. You can download from the link below

http://users.nexopia.com/uploads/1539/1539836/Winbolo%20mIRC.exe
Back to top
View user's profile Send private message
F.U.B.A.R.



Joined: 10 Dec 2003
Posts: 510

PostPosted: Thu Mar 22, 2007 6:38 pm    Post subject: Reply with quote

harl, can u make me a myspace page? Twisted Evil
Back to top
View user's profile Send private message
LesBala



Joined: 08 Nov 2019
Posts: 1

PostPosted: Fri Nov 08, 2019 6:02 pm    Post subject: Can i purchase isotretinoin 10mg website cheap LesBala Reply with quote

Where To Buy Viagra Keflex Dog Dosage order cialis online Buy Generic Nexium Online Cialis Generico Contrareembolso Generic Viagra Professional
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    Winbolo.net Forum Index -> Addons All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group
 
 
 
Winbolo.net Copyright ©2003 John Morrison