Topics

1

JavaOp Support Archive / Script Request

« on: May 27, 2007, 11:15:55 am »

Hey there!
I <3 this bot because it works with war3. Ad it supports MASSbotting ^^ (I have quite a few keys.)

So I'd like to make some Feature Requests (yay more work for u)
I am using Windows.

The following plugins would be MUCH appreciated:
User Leave Log and Messaging:
I would like a script similar to this.
It would just look for event: user leaves channel
and do a /whois on him then
addchat name of user has joined a (war3/w3xp/sexp/star/whatsoever) game called: (result of whois).
and it would also output it into a logfile similar to this:

Code: [Select]

steveelias               | NEW ART OF DEFENSE NO NOOB.     | Warcraft III      | 5/4/2007 1:34:53 AM
chaosking2006            | Elite Snipers.                  | Warcraft III      | 5/4/2007 1:41:41 AM
YzRiDeR72                | moh 2.                          | Warcraft III      | 5/4/2007 1:41:55 AM
chaosking2006            | Paintball.                      | Warcraft III      | 5/4/2007 1:41:59 AM
chaosking2006            | FFA!!! 3v3!!!.                  | Warcraft III      | 5/4/2007 1:42:13 AM
steveelias               | ART OF DEFENSE.                 | Warcraft III      | 5/4/2007 1:47:34 AM
steveelias               | ART OF DEFENSE RM NO LEAVER .   | Warcraft III      | 5/4/2007 1:51:57 AM
YzRiDeR72                | Polar Escape 5 rm.              | Warcraft III      | 5/4/2007 1:53:35 AM
Flaming-icee             | Legendary Zeros!.               | Warcraft III      | 5/4/2007 1:53:39 AM
Ninety-Nine              | !-!-!-SPM-!-!-!.                | Warcraft III      | 5/4/2007 2:01:30 AM
monkeyelf                | ===WINTERMAUL===.               | Warcraft III      | 5/4/2007 2:01:50 AM
binyo                    | 10 hero siege Chaos2.8.         | Warcraft III TFT  | 5/4/2007 2:19:54 AM
Flaming-icee             | evolves.                        | Warcraft III      | 5/4/2007 2:23:38 AM
Flaming-icee             | evolves.                        | Warcraft III      | 5/4/2007 2:24:03 AM
danielet                 | Slide Kitty Slide RM2!.         | Warcraft III TFT  | 5/4/2007 2:26:15 AMAnd the second one i would like is this auto invite script for warcraft III clans:

Code: [Select]

Invite
'1.1
'Written By: TutMatt <3
'Used Jacks Plug for ref... Ty
'Does not invite acording to levels.

Reqp = 45 'Req for percent, set to 0 if any1 can join
Reqw = 40 'Req for wins, set to 0 if any1 can join
Reqp2 = 75 'Req for percent, set the above one if you dont want this mayn options to join
Reqw2 = 50 'Req for wins, set the above one if you dont want this mayn options to join
Reqp3 = 50 'Req for percent,set the above one if you dont want this mayn options to join
Reqw3 = 200 'Req for wins, set the above one if you dont want this mayn options to join
relm = "azeroth" 'You can use lordaeron, azeroth, nothrend, or kalimdor

'Dont Edit Under Here
'------------------------------------------------------------------------------

Sub Invite_Event_UserTalk(Username, Flags, Message, Ping)
If left(lcase(message),6) = botvars.trigger & "joinc" Then
getdbentry username, myflags, myaccess
Addq "Searching..."
Content = SciNet.OpenURL("http://www.battle.net/war3/ladder/w3xp-player-profile.aspx?Gateway=" & relm & "&PlayerName="&username)
If Instr(Content, "Error Encountered") Then
AddQ "Error Encountered"
ElseIf Instr(Content, "Player Not Found!") Then
AddQ "Invalid user."
Else
pos1 = instr(content, "Total")
pos1 = instr(pos1,content,"%") - 20
pos1 = instr(pos1,content,">")+1
pos2 = instr(pos1,content," %")
Percent = mid(content, pos1, pos2-pos1)

pos1 = instr(content, "Total")
pos1 = instr(pos1, content, "Row")+5
pos2 = instr(pos1, content, "<")
Wins = mid(content, pos1, pos2-pos1)

Addq "You have: " & wins & " wins, and your % is: " & percent
tag = LCase(GetInternalDataByUsername(Username, 0))

If tag <> "" Then
addq "Sorry you are already in a clan, leave that clan for more options."
ElseIf int(wins) >= reqw and int(percent) >= reqp Then
addq "You Meet The Reqs, and Invitation Was Sent."
addq Command(BotVars.Username, "/invite " & Username, True)
ElseIf int(wins)>= reqw2 and int(percent) >= reqp2 Then
addq "You Meet The Reqs, and Invitation Was Sent."
addq Command(BotVars.Username, "/invite " & Username, True)
ElseIf int(wins) >= reqw3 and int(percent) >= reqp3 Then
addq "You Meet The Reqs, and Invitation Was Sent."
addq Command(BotVars.Username, "/invite " & Username, True)
Else
addq "Sorry you did not meet the (auto invite) reqs, this dosnt necessarly mean that your not good enough to enter the clan, talk to a chieftain/shaman about joining."
End If
End if
End If
End Sub(ofc translated to java

The third request was already asked but i'd like to ask it again.
Custom commands.
In my old SB bot i had 351 commands like:
.welcome %username%
Welcome in Clan mFH, %username%!

.hi
Hey %username%!

.lol
%username% laughs out loudly.

.mFH
Clan Mazers for Honor is a MAZING clan for both RoC and TFT players. Type in: .shams .members .req .sreq .tournaments .info .join !join .mrc for more related commands.

and so on...
A simple script what would just execute one or two lines of commands defined in the custom command.
eg: a database:
CMD: Flag: EXE:
hi     AECO Hey %username%!
afk   ABEGCO %username% has went AFK.
invite INSXW /!callplugin!/ auto invite %argument1%
The script should support many variables like the stealthbot custom commands:
%a %u %p %f %c %rest %1 %2 %3 %4 and so forth.
more reference:
http://www.stealthbot.net/board/index.php?showtopic=19666

THX in advance
3ICE

ps: Oo my post is so messy