Stealthbot Help!

This is a discussion on Stealthbot Help! within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Gulf80, I need you to tell me the requirments to join in your clan, your clan-tag and the game you ...

Page 3 of 4 FirstFirst 1234 LastLast
Results 21 to 30 of 32
  1. #21
    xiN
    xiN is offline Guess who's back ?
    Array
    Join Date
    Feb 2007
    Location
    Six feet under
    Posts
    1,580
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    358
    Gulf80, I need you to tell me the requirments to join in your clan, your clan-tag and the game you use.


  2. #22
    gulf80 is offline Member
    Array
    Join Date
    Jun 2008
    Posts
    42
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Smile Here is the options:

    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

  3. #23
    xiN
    xiN is offline Guess who's back ?
    Array
    Join Date
    Feb 2007
    Location
    Six feet under
    Posts
    1,580
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    358
    Edit : I edited it, you now have to type .b2k

    Edit : OMG my bad, I deleted it!
    Last edited by xiN; 11-11-2008 at 08:37 PM.

  4. #24
    gulf80 is offline Member
    Array
    Join Date
    Jun 2008
    Posts
    42
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    hmm, what i need type to the bot invite, and whats the plugin? can you send me that to?

  5. #25
    MaMuT's Avatar
    MaMuT is offline Guru
    Array
    Join Date
    Feb 2008
    Location
    Serbia,Belgrade
    Posts
    60
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    179
    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
    The Legend

  6. #26
    xiN
    xiN is offline Guess who's back ?
    Array
    Join Date
    Feb 2007
    Location
    Six feet under
    Posts
    1,580
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    358
    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.

    Code:
    '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, "&#37;")-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
    Last edited by xiN; 11-11-2008 at 08:43 PM.

  7. #27
    gulf80 is offline Member
    Array
    Join Date
    Jun 2008
    Posts
    42
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    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 [email protected] 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

  8. #28
    MaMuT's Avatar
    MaMuT is offline Guru
    Array
    Join Date
    Feb 2008
    Location
    Serbia,Belgrade
    Posts
    60
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    179
    Make a NEW .TXT FILE !!
    The Legend

  9. #29
    gulf80 is offline Member
    Array
    Join Date
    Jun 2008
    Posts
    42
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    ok, i add the invite items in a new txt file and whit name?

  10. #30
    gulf80 is offline Member
    Array
    Join Date
    Jun 2008
    Posts
    42
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    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?

Page 3 of 4 FirstFirst 1234 LastLast

Similar Threads

  1. Stealthbot Anleitung
    By Adrenalin in forum Deutsch
    Replies: 6
    Last Post: 03-19-2010, 07:18 PM
  2. StealthBot v2.7 coming soon!
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 3
    Last Post: 02-02-2009, 07:40 PM
  3. Getting stealthbot to work
    By Reinn in forum Warcraft 3 Hacks, bots and tools
    Replies: 2
    Last Post: 09-08-2008, 05:00 PM
  4. StealthBot; Plugin System
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 0
    Last Post: 07-06-2008, 02:49 PM
  5. Please Mr. Stealthbot, talk to the channel peeps!
    By Shotty091 in forum Warcraft 3 Hacks, bots and tools
    Replies: 5
    Last Post: 06-27-2008, 02:58 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •