Stealthbot Help!

[xiN]

Gulf80, I need you to tell me the requirments to join in your clan, your clan-tag and the game you use.

[gulf80]

OK here is it:


TAGS: B2K

Real name: Born To Kill

is some people will join them need type .b2k

Solo: minimum lvl 10 stats 45%

Team: minimum lvl 10 stats: 47%

FFA minimum lvl 10 stats: 45%

Bot name: B2K-Clanbot


chief: 4k.BlackRaNger


thx i hope you will help

[xiN]

Edit : I edited it, you now have to type .b2k

Edit : OMG my bad, I deleted it!

[gulf80]

hmm, what i need type to the bot invite, and whats the plugin? can you send me that to?

[MaMuT]

Go C:\Program files\Stealthbot\Plugins > Make New .TXT and type this what x-freelose-x sayed.. and than Reload Script , type .join or .joinc (can't remember) And u have it .. I think u understand me , sry english not so good

[xiN]

I hope you copied it, I deleted it
I'll try to upload it again if needed.

Edit : Well it's there, but it's an old version but whatever it will still work.

'joinc
'2.0
'By DroiD - Remixed by Ed.

'///// CONDITIONS ///////////
'My Realm
Private const MyRealm= "Northrend"

'My CLan
Private const MyClan = "B2K"

'Conditions
Private const MinWinS1 = 10
private const MinPercent1 = 47

Private const MinWinS2 = 50
private const MinPercent2 = 46

Private const MinWinS3 = 100
private const MinPercent3 = 45

'Game Type
private const GameTyPe = "TFT"

'Min Level
Private const MinLevel = 10



'>>>>>>> Sub Events <<<<<<<<<<

Sub joinc_event_UserTalk(Username, Flags, Message, Ping)


If lcase(message) = botvars.trigger & "b2k" then

addq "/emote ** Wait... Analizing Acc... [ " & username & " ] **"
tag = LCase(GetInternalDataByUsername(Username, 0))

if ucase(tag) = ucase(MyClan) then
Addq "/emote >.< YOU ARE IN CLAN " & myclan & " ! " & username & " !!"
exit sub
end if
if tag <> "" then
Addq "/emote >.< Leave the clan " & tag & " ! " & username & " !! If you wanna Join..."
exit sub
end if

if ScINet.stillExecuting then
addq "/emote " & username & " >>>> SorrY <<<< ^_^ I'M BuSy "
exit sub
end if
addchat vbblue, "opening website"
'Web Profile
if gametype = "ROC" then Content=scinet.openurl("http://www.battle.net/war3/ladder/war3-player-profile.aspx?Gateway=" & MyRealm & "&PlayerName=" & Username)
if gametype = "TFT" then Content =scinet.openurl("http://www.battle.net/war3/ladder/w3xp-player-profile.aspx?Gateway=" & MyRealm & "&PlayerName=" & Username)
addchat vbblue, "checking website for error"
'*** TesT if WeB is DowN ***
posErroR = instr(content, "Error Encountered")

if poserror > 0 then
Addq "/emote >> BatTLe.NeT Profile WeB is DoWN -> I cant TesT Your Acc << Ask to Shaman..."
exit sub
end if
addchat vbblue, "getting stats"
'******* User StatS ******
pos1 = instr(content, "Total")
pos1 = instr(pos1,content,"rankingRow")
pos1 = instr(pos1, content, ">")+1
pos2 = instr(pos1, content, "<")
twins = mid(content, pos1, pos2-pos1)
pos1 = instr(pos1, content, "%")-15
pos1 = instr(pos1, content, ">")+1
pos2 = instr(pos1, content, "<")-2
tpercent = mid(content, pos1, pos2-pos1)
addchat vbblue, "wins: """ & twins & """, %: """ & tpercent & """"
UserStat = GetInternalDataByUserName(Username, 5)
Levelx = Split(UserStat, " ")(2)
addchat vbblue, "lvl: """ & levelx & """"
if cint(levelx) < MinLeveL then
addq "/emote ** " & username & " You need Level " & minlevel & " To enter clan " & myclan
exit sub
end if
addchat vbblue, "lvl too low"
text = "WinS : [" & twins & "] With Percent : [" & tpercent & "]"
tpercent = left(tpercent,2)
'Wins & Percent Conditions
if cint(twins) >= MinWinS1 And cint(twins) <= cint(MinWinS2) then ' <<< that's dumb ...
If cint(tpercent) >= cint(MinPercent1) Then
Call InviteClan(USername,text)
exit sub
end If
End if

if cint(twins) >= MinWinS2 And cint(twins) <= cint(MinWinS3) then
If cint(tpercent) >= cint(MinPercent2) then
Call InviteClan(USername,text)
exit sub
end If
End if

if cint(twins) >= cint(MinWinS3) Then
If cint(tpercent) >= cint(MinPercent3) Then
Call InviteClan(USername,text)
exit sub
End If
End If

addq "/emote Sorry... , You Dont have the Stats Enough to Join Clan " & myclan & " | " & Username & " | Detected : " & Text
addq "/emote ReQs: " & MinWinS1 & " WinS/" & MinPercent1 & " % | " & MinWinS2 & " Wins/" & MinPercent2 & " % | " & MinWinS3 & " Wins/" & MinPercent3 & "%"




end if
end Sub


sub InviteClan(username,Text)

'Condition Passed -> Step : Invite to clan
addq "/emote Welcome to CLan " & myclan & " " & Username & " | Detected: " & Text
addq Command(BotVars.Username, "/invite " & Username, True)

End Sub

[gulf80]

hmm, hmm


now i have add that you post in my Sciptfile!


and i tpye: .join and .joinc and .b2k and notihng happend

here is my script all in my script file:




'// PLEASE NOTE: Your script.txt file has been slightly modified to work with the Plugin System.
'// The following changes were made:
'// -Added the line "#include PluginSystem.dat" in the INCLUDES area below.
'// -Prepended all Event sub headers with "script_"
'// You can still use this file for your scripting needs. This file is now loaded like a plugin.
'// Feel free to modify it as you wish, ***but you MUST keep the #include line and the "script_" prepends!***
'_________________________________________________ __________________________________________________ _________

'/* StealthBot VBScripting System
' *
' * THIS SYSTEM IS UNDER DEVELOPMENT
' * If you need to access any part of the bot's internals that is not already given to you please,
' * PLEASE tell me how I can make it more useful to you!
' * Feel free to e-mail me at stealth@stealthbot.net with your comments, questions or concerns.
' *
' * DISCLAIMER
' * I will NOT provide Visual Basic language help!
' * Either you know VB enough to use this scripting plugin, or you don't!
' * Please don't come to me asking for help with VBScript.
' * If you're having problems and want to learn more, I'd suggest a Google search on the topic.
' *
' * Finally, developers, to see the internal "mirror" calls that you have access to in this scripting
' * system, open the included file ScriptSupportClass.txt, which contains a text version of the class
' * that I expose the script to.
' *
' * SCRIPT OBJECTS
' *
' * scTimer
' * - Microsoft standard Timer control. Fires the ScriptTimer_Timer() event each time it runs.
' * - Disabled by default. To use it, set an interval <= 65535 milliseconds using the .Interval property
' * and set .Enabled = True.
' *
' * scINet
' * - Microsoft Internet Transfer Control. Allows you to communicate with websites using GET or, with
' * with more work, POST methods. Very versatile, can be adapted for many purposes.
' * - Does nothing unless scripted otherwise
' *
' * ssc
' * - Instantiated ScriptSupportClass for bot tie-in functions (see ScriptSupportClass.txt)
' *
' * BotVars
' * - Internal bot variables accessible to you
' *
' * (More to come?)
' * */

'// INCLUDES
'// You may reference other .txt files here. They will be imported into
'// the script control on load.
'#include textfile.txt
'// Use that exact syntax, including the # mark at the beginning! (Remove the ' VB comment marker.)
'// One include per line.

#include PluginSystem.dat

'// FLAGS as they are referred to here are the user's BATTLE.NET FLAGS, the following tests can be applied to them:
' If Flags And 2 // user is a moderator
' If Flags And 16 // User has the UDP plug
' If Flags And 32 // User is squelched
' If Flags And 1 // user is a blizzard rep


'// Fires when the bot executes.

Sub script_Event_Load()

End Sub


'// Fires when the server sends a blue INFO-type message. (Includes ban and kick messages.)

Sub script_Event_ServerInfo(Message)

End Sub


'// Fires when the server sends a red ERROR-type message. (Includes "That user is not logged on." etc.)

Sub script_Event_ServerError(Message)

End Sub


'// Fires when a user on battle.net talks.

Sub script_Event_UserTalk(Username, Flags, Message, Ping)

' sample autoresponse:

'if instr(1, lcase(message), "omg") > 0 then
' addq "Omg what?!"
'end if
End Sub


'// Fires when a user speaks with /emote.

Sub script_Event_UserEmote(Username, Flags, Message)

End Sub


'// Fires when a whisper is recieved.

Sub script_Event_WhisperFromUser(Username, Flags, Message)

End Sub


'// Fires when a user joins the channel.
'// Level will contain 0 for no-level Warcraft III players or non-Warcraft III products.
'// Message contains the user's PARSED statstring.
'// OriginalStatstring contains the user's UNPARSED statstring.

Sub script_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)

End Sub


'// Fires when a user leaves the channel.

Sub script_Event_UserLeaves(Username, Flags)

End Sub


'// Fires when Battle.net updates a user's flags in the channel.

Sub script_Event_FlagUpdate(Username, NewFlags, Ping)

End Sub


'// Fires after a successful login.

Sub script_Event_LoggedOn(Username, Product)

End Sub


'// Fires once for each user in the channel upon joining a channel.

Sub script_Event_UserInChannel(Username, Flags, Message, Ping, Product)

End Sub


'// Flags in this case stores the channel's flags.

Sub script_Event_ChannelJoin(ChannelName, Flags)

End Sub


'// Executes every X milliseconds, as set by using its .Interval property.

Sub script_scTimer_Timer()

End Sub


'// Executes after the user presses ENTER in the Send box on the bot. Text will always be processed by the bot and sent to battle.net before arriving here.

Sub script_Event_PressedEnter(Text)

End Sub


'// Executes when the bot recieves a Profile return from the server. KeyName will be one of the following:
' Profile\Sex
' Profile\Location
' Profile\Description
'// KeyValue will contain the value of that profile key as a string.

Sub script_Event_KeyReturn(KeyName, KeyValue)

End Sub


'// Executes when the bot is closed. You can use this sub to write things to disk before the bot shuts down.

Sub script_Event_Close()

End Sub










'joinc
'2.0
'By DroiD - Remixed by Ed.

'///// CONDITIONS ///////////
'My Realm
Private const MyRealm= "Northrend"

'My CLan
Private const MyClan = "B2K"

'Conditions
Private const MinWinS1 = 10
private const MinPercent1 = 47

Private const MinWinS2 = 50
private const MinPercent2 = 46

Private const MinWinS3 = 100
private const MinPercent3 = 45

'Game Type
private const GameTyPe = "TFT"

'Min Level
Private const MinLevel = 10



'>>>>>>> Sub Events <<<<<<<<<<

Sub joinc_event_UserTalk(Username, Flags, Message, Ping)


If lcase(message) = botvars.trigger & "b2k" then

addq "/emote ** Wait... Analizing Acc... [ " & username & " ] **"
tag = LCase(GetInternalDataByUsername(Username, 0))

if ucase(tag) = ucase(MyClan) then
Addq "/emote >.< YOU ARE IN CLAN " & myclan & " ! " & username & " !!"
exit sub
end if
if tag <> "" then
Addq "/emote >.< Leave the clan " & tag & " ! " & username & " !! If you wanna Join..."
exit sub
end if

if ScINet.stillExecuting then
addq "/emote " & username & " >>>> SorrY <<<< ^_^ I'M BuSy "
exit sub
end if
addchat vbblue, "opening website"
'Web Profile
if gametype = "ROC" then Content=scinet.openurl("http://www.battle.net/war3/ladder/war3-player-profile.aspx?Gateway=" & MyRealm & "&PlayerName=" & Username)
if gametype = "TFT" then Content =scinet.openurl("http://www.battle.net/war3/ladder/w3xp-player-profile.aspx?Gateway=" & MyRealm & "&PlayerName=" & Username)
addchat vbblue, "checking website for error"
'*** TesT if WeB is DowN ***
posErroR = instr(content, "Error Encountered")

if poserror > 0 then
Addq "/emote >> BatTLe.NeT Profile WeB is DoWN -> I cant TesT Your Acc << Ask to Shaman..."
exit sub
end if
addchat vbblue, "getting stats"
'******* User StatS ******
pos1 = instr(content, "Total")
pos1 = instr(pos1,content,"rankingRow")
pos1 = instr(pos1, content, ">")+1
pos2 = instr(pos1, content, "<")
twins = mid(content, pos1, pos2-pos1)
pos1 = instr(pos1, content, "%")-15
pos1 = instr(pos1, content, ">")+1
pos2 = instr(pos1, content, "<")-2
tpercent = mid(content, pos1, pos2-pos1)
addchat vbblue, "wins: """ & twins & """, %: """ & tpercent & """"
UserStat = GetInternalDataByUserName(Username, 5)
Levelx = Split(UserStat, " ")(2)
addchat vbblue, "lvl: """ & levelx & """"
if cint(levelx) < MinLeveL then
addq "/emote ** " & username & " You need Level " & minlevel & " To enter clan " & myclan
exit sub
end if
addchat vbblue, "lvl too low"
text = "WinS : [" & twins & "] With Percent : [" & tpercent & "]"
tpercent = left(tpercent,2)
'Wins & Percent Conditions
if cint(twins) >= MinWinS1 And cint(twins) <= cint(MinWinS2) then ' <<< that's dumb ...
If cint(tpercent) >= cint(MinPercent1) Then
Call InviteClan(USername,text)
exit sub
end If
End if

if cint(twins) >= MinWinS2 And cint(twins) <= cint(MinWinS3) then
If cint(tpercent) >= cint(MinPercent2) then
Call InviteClan(USername,text)
exit sub
end If
End if

if cint(twins) >= cint(MinWinS3) Then
If cint(tpercent) >= cint(MinPercent3) Then
Call InviteClan(USername,text)
exit sub
End If
End If

addq "/emote Sorry... , You Dont have the Stats Enough to Join Clan " & myclan & " | " & Username & " | Detected : " & Text
addq "/emote ReQs: " & MinWinS1 & " WinS/" & MinPercent1 & " % | " & MinWinS2 & " Wins/" & MinPercent2 & " % | " & MinWinS3 & " Wins/" & MinPercent3 & "%"




end if
end Sub


sub InviteClan(username,Text)

'Condition Passed -> Step : Invite to clan
addq "/emote Welcome to CLan " & myclan & " " & Username & " | Detected: " & Text
addq Command(BotVars.Username, "/invite " & Username, True)

End Sub

[MaMuT]

Make a NEW .TXT FILE !!

[gulf80]

ok, i add the invite items in a new txt file and whit name?

[gulf80]

Now i haver make a new file name: script inviter but its not work i post the inviter inside the file but not work...


and i cant have 2 file same name Script!


what i can do?