Ginzo strikes back with a dota league bot !

This is a discussion on Ginzo strikes back with a dota league bot ! within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Finally i finished da army .. and im ready to show u up some scripts that i had..its time to ...

Results 1 to 9 of 9
  1. #1
    Ginzo's Avatar
    Ginzo is offline Premium Member
    Array
    Join Date
    Mar 2007
    Posts
    215
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    107

    Ginzo strikes back with a dota league bot !

    Finally i finished da army .. and im ready to show u up some scripts that i had..its time to share them with you cause i dont give a shit about those anymore

    Code:
    'do
    '1.1
    
    'Dota Script
    'This version cannot do challenges
    
    'Commands ~ Defualt
    'Sign - Signs In to a team. Team is required use 1 or 2
    'Out - SIgns Out
    'Startgame - Starts game. Teams can be 4v4 5v5 or 1v1 mode cann be anything
    'pool - shows current players
    'domds - lists commands
    
    
    
    
    '//////Settings!!///////'
    
    'Commands can be changed here
    Public Const ShowCmd = "docmds"
    Public Const SignCmd = "sign"
    Public Const OutCmd = "out"
    Public Const PoolCmd = "pool"
    Public Const StartCmd = "startgame"
    
    'Command Access
    Public Const StartCmd_access = "60"
    Public Const SignCmd_access = "0"
    Public Const OutCmd_access = "0"
    Public Const PoolCmd_access = "20"
    Public Const ShowCmd_access = "20"
    
    'Do you want to emote all dota commands
    Public Const EmoteCmdsOn = False
    
    'Use Flags instead of access?? If so please set all the flags for the commands
    Public Const UseFlags = False
    
    Public Const StartCmd_flags = " "
    Public Const SignCmd_flags = " "
    Public Const OutCmd_flags = " "
    Public Const PoolCmd_flags = " "
    Public Const ShowCmd_flags = " "
    
    '////// Accual Coding //////'
    
    Public msg, Cmd, Team1, Team2, key, GameOn
    
    Set dPlayers = CreateObject(Scripting.Dictionary)
    
    Sub do_Event_Load()
    TimerInterval "do", "PlayerCount", 1
    TimerEnabled "do", "PlayerCount", False
    AddChat vbBlue, "Welcome to the DoTa Script ~ : Version 1.1 No Challenge Command"
    End Sub
    
    Sub do_UserTalk(Username, Flags, Message, Ping)
    
    GetDBEntry Username, myAccess, myFlags
    
    If Not Username <> BotVars.Username Then
    If Left(Message, 1) <> "/" Then Exit Sub
    Else
    If Left(Message, 1) <> BotVars.Trigger Then Exit Sub
    End If
    
    If Len(Message) < 2 Then Exit Sub
    
    If InStr(Trim(Message, " ")) = 0 Then
    msg = Message & " "
    Else
    msg = Message
    End If
    
    Cmd = Split(Mid(Trim(msg), 2))
    msg = " "
    
    Select Case
    Case StartCmd: do_Start Cmd, Username, myAccess, myFlags
    Case SignCmd: do_Sign Cmd, Username, myAccess, myFlags
    Case OutCmd: do_Out Cmd, Username, myAccess, myFlags
    Case PoolCmd: do_Pool Cmd, Usernamee, myAccess, myFlags
    Case ShowCmd: do_Shows Cmd, Username, myAccess, myFlags
    End Select
    
    End Sub
    
    Sub do_Sign(Cmd, Username, myAccss, myFlags)
    
    If Username = BotVars.Username Then
    AddChat vbRed, "You cannot use the sign command from inside the bot"
    Exit Sub
    End If
    
    If Not GameOn Then Exit Sub
    
    If UseFlags Then
    If InStr(myFlags, SignCmd_flags) = 0 Then Exit Sub
    Else
    If myAccess < SignCmd_access Then Exit Sub
    End If
    
    If Not dPlayers.Exists(Username) Then
    If Cmd(1) <> 1 OR Cmd(1) <> 2 Then AddChat vbRed, "In correct team use" Exit Sub
    dPlayers.Item(Username) = Cmd(1)
    If EmoteCmdsOn Then
    AddQ "/me " & Username & " has signed into team " & Cmd(1)
    Else
    AddQ Username & " has signed into team " & Cmd(1)
    End If
    End If
    
    End Sub
    
    
    Sub do_Out(Cmd, Username, myAccess, myFlags)
    
    If Username = BotVars.Username Then
    AddChat vbRed, "You cannot use the out command from inside the bot"
    Exit Sub
    End If
    
    If Not GameOn Then Exit Sub
    
    If UseFlags Then
    If InSt(myFlags, OutCmd_flags) = 0 Then Exit Sub
    Else
    If myAccess < OutCmd_access Then Exit Sub
    End If
    
    If dPlayers.Exists(Username) Then
    dPlayers.Remove(Usename)
    If EmoteCmdsOn Then
    AddQ "/me " & Username & " has signed out of the game"
    Else
    AddQ Username & " has signed out of the game"
    End If
    End If
    
    End Sub
    
    
    Sub do_Pool(Cmd, Username, myAccess, myFlags)
    
    If Not GameOn Then Exit Sub
    
    If Username = BotVars.Username Then
    msg = "The Current pool is: "
    For Each key In dPlayers.Keys()
    msg = msg & key & ", "
    Next
    AddChat vbBlue, msg
    Exit Sub
    End If
    
    If UseFlags Then
    If InStr(myFlags, PoolCmd_flags) = 0 Then Exit Sub
    Else
    If myAccess < PoolCmd_access Then Exit Sub
    End If
    
    msg = "The Current Pool is: "
    For Each key In dPlayers.Keys()
    msg = msg & key & ", "
    Next
    
    If EmoteCmdsOn Then
    AddQ "/me " & msg
    Else
    AddQ msg
    End If
    
    msg = " "
    
    End Sub
    
    
    Sub do_Start(Cmd, Username, myAccess, myFlags)
    
    
    If GameOn Then Exit Sub
    
    If Username = BotVars.Username Then
    AddChat vbRed, "You can't use the startgame command from inside the bot"
    Exit Sub
    End If
    
    If UseFlags Then
    If InStr(myFlags, StartCmd_flags) = 0 Then Exit Sub
    Else
    If myAccess < StartCmd_access Then Exit Sub
    End If
    
    If Cmd(1) = "5v5" Then
    Teams = 10
    ElseIf Cmd(1) = "4v4" Then
    Teams = 8
    ElseIf Cmd(1) = "1v1" Then
    Teams = 2
    Else
    AddChat vbRed, "Invalid startgame usage"
    Exit Sub
    End If
    
    If EmoteCmdsOn Then
    AddQ "/me a game is about to begin"
    AddQ "/me This game is a " & Cmd(1) & " " & Cmd(2)
    Else
    AddQ "A game is about to begin"
    AddQ "This game is a " & Cmd(1) & " " & Cmd(2)
    End If
    
    GameOn = True
    Mode = Cmd(2)
    TimerEnabledd "do", "PlayerCount", True
    
    End Sub
    
    Sub do_Show(Cmd, Username, myAccess, myFlags)
    
    If Username = BotVars.Username Then
    AddChat vbBlue, "The current commands are: " & StartCmd & ", " & OutCmd & ", " & SignCmd & ", " & PoolCmd & ", " & ShowCmd
    Exit Sub
    End If
    
    If UseFlags Then
    If InStr(myFlags, ShowCmd_flags) = 0 Then Exit Sub
    Else
    If myAccess < ShowCmd_access Then Exit Sub
    End If
    
    AddQ "The current commands are: " & StartCmd & ", " & OutCmd & ", " & SignCmd & ", " & PoolCmd ", " & ShowCmd
    
    End Sub
    
    Sub do_PlayerCount_Timer()
    If NotGameOn
    AddChat vbRed, "Game On Error"
    AddChat vbRed, "Stopping timer...."
    TimerEnabled "do", "PlayerCount", False
    Exit Sub
    End If
    
    Count = dPlayers.Count()
    If Count = Teams Then
    If EmoteCmdsOn Then
    AddQ "/me The game is full!! The game mode is " & Mode
    dspTeams()
    GameOn = False
    msg = " "
    
    Else
    AddQ "The game is full!! The game mode is " & Mode
    dsppTeams()
    End If
    End If
    
    End Sub
    
    Function dspTeams()
    
    Team1 = "Team1: "
    Team2 = "Team2: "
    
    
    For Each key In dPlayers.Keys()
    
    x = dPlayers.Item(key)
    If x = 1 Then
    Team1 = Team1 & key & ", "
    ElseIf x = 2 Then
    Team2 = Teams2 & key & ", "
    End If
    
    Next
    
    AddQ Team1
    AddQ Team2
    
    Team1 = " "
    Team2 = " "
    
    End Function
    So.. this script doing a league private game .. every member can sign in and he can play prv game.

    How it works?
    Load the plugin (script) into the stealthbot and follow the commands


  2. #2
    desforic is offline Newbie
    Array
    Join Date
    Nov 2009
    Posts
    2
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    Hey, i installed the plugin into the folder and all.
    But how do i start it up, i tried typing all the commands but nothing shows up.
    And its enabled..?

  3. #3
    Yoyoshawty is offline Mentor Array
    Join Date
    Oct 2008
    Posts
    111
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    3
    Thanks for posting and everything
    But i find this script as a joke.

  4. #4
    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
    It's a StealthBot version 2.6 plugin, whereas StealthBot was updated to version 2.7.1
    Also, good job.

  5. #5
    desforic is offline Newbie
    Array
    Join Date
    Nov 2009
    Posts
    2
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    Is there something i'm not doing right? please help me, i tried putting it in my stealthbotg 2.6 plugin then reloaded and tried all the commands sign, pool, domds none of them work?

  6. #6
    Initial_D is offline Newbie
    Array
    Join Date
    Aug 2009
    Posts
    3
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    this one is also for 2.6 and only has -creategame/startgame? no caps no nothing lol, looks like only one worth downloading is suicides dota league plugin

  7. #7
    bhtapeis is offline Newbie
    Array
    Join Date
    Mar 2009
    Posts
    6
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    How can I fix it ?

    Offending line: >> Select Case
    [04:185 PM] Error loading plugin "do" in file "do.txt"

  8. #8
    YourName's Avatar
    YourName is offline THE ONE AND ONLY DARK KNIGHTY


    Array
    Join Date
    Jun 2007
    Location
    Germany
    Posts
    1,553
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    16
    Reputation
    1088
    The plugin is outdated and doesn't work with the latest version of StealthBot.
    Providing you with foolish stuff since 2007.

  9. #9
    Mads's Avatar
    Mads is offline Formerly Zo8

    Array
    Join Date
    Nov 2008
    Location
    Denmark
    Posts
    2,290
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    18
    Reputation
    1647
    Quote Originally Posted by LoveYou] View Post
    The plugin is outdated and doesn't work with the latest version of StealthBot.
    Thus why I now am closing the thread

Similar Threads

  1. Memoirs of World of Warcraft
    By Hallowsend in forum WoW forum
    Replies: 21
    Last Post: 08-28-2013, 10:34 AM
  2. Half-Life 2 Guide
    By Jolinar in forum Half Life 2
    Replies: 1
    Last Post: 10-16-2011, 09:12 AM
  3. Ghoul Bot Free
    By KaMiKaZe in forum Warcraft 3 Hacks, bots and tools
    Replies: 202
    Last Post: 06-01-2009, 01:58 PM
  4. Antfamous Gauntlet Bot v1.8 for mmBot
    By tschoerk in forum Diablo 2 Hacks
    Replies: 9
    Last Post: 04-29-2009, 02:33 PM
  5. The DotA Allstars Collection.
    By TradeMark99 in forum Warcraft 3 Custom Maps
    Replies: 2
    Last Post: 04-21-2009, 11:20 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
  •