Ghost and stealth bot..need help

This is a discussion on Ghost and stealth bot..need help within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; hy. i`m using stealth bot 2.7 and 2.r3.first you tell me which to chose. i want to make a public ...

Results 1 to 5 of 5
  1. #1
    fuflea is offline Newbie
    Array
    Join Date
    Nov 2009
    Posts
    3
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Ghost and stealth bot..need help

    hy.
    i`m using stealth bot 2.7 and 2.r3.first you tell me which to chose.
    i want to make a public channel.where peoples can play dota.
    and i want to make something like that.

    1.to make announce in room Game is open.
    2.users how wants to play must type .add and add command to keep him in lobby created by ghost one a slot.
    3.when 10 users are registred game is created and announce the 10 users that join the game name.
    4 if a user want to remove from that specific slot that he sign in to type rem.

    how can i make this.?
    i try to do something whit 2.6r3 whit custom command.
    but is to complicated..
    something like
    !add1 - send the command to ghost /w ghost .privby %0
    /w ghost .closeall

    !add2 -send the command to ghost /w ghost .hs % 2
    !add3 same
    !add10-same like add2
    command .hs % 2 it something like
    hold username slot 2



    and i made remove command
    !rem2 = /w ghost .close 2
    that to keep the slot open because only the users that sign may enter.

    .what i want..
    i want to make something simple

    just 2 commands

    sing
    rem.

    do not tell me about league script is to complicated ..i want a public league. i used suicede.but there somebody most type creategame..afther 10 user sign the host most type confirm..i need something auto.hosting script.
    10x
    Last edited by fuflea; 01-09-2010 at 09:53 PM.

  2. #2
    nofear21 is offline Banned User Array
    Join Date
    Jan 2010
    Posts
    15
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    Try this
    PHP Code:
    'ihost
    '
    1.5

    Const ihost_bot "IGC-Hostbot-1"
    Const ihost_pub_cmd "pub" '//command for pub games
    Const ihost_pubby_cmd = "pubby" '
    // command for pub by <name> games
    Const ihost_privby_cmd "privby" '// command for priv by <name> games
    Const ihost_priv_cmd = "priv" '
    // command for priv games
    Const ihost_unhost_cmd "unhost" '// command for unhosting games in lobby
    Const ihost_unhostg_cmd = "unhostg" '
    // command for unhosting games in lobby, specific game #
    Const ihost_kick_cmd "kick" '// command for kicking player from game
    Const ihost_start_cmd = "start" '
    // command starting game normally
    Const ihost_fstart_cmd "fstart" '// command for forcing start of game
    Const ihost_getgames_cmd = "getgames" '
    // command for getting game info
    Const ihost_getgamesinfo_cmd "getgamesinfo" '// command for getting game info on specific game #
    Const ihost_map_cmd = "map" '
    // command for choosing map
    Const ihost_cmd1_Access 20 '// access to use the commands 20
    Const ihost_cmd2_Access = 25 '
    // access to use the commands 25



    Private ihost_dspId


    Sub ihost_Event_Load
    ()

    ihost_dspId vbNullString
    End Sub


    Sub ihost_Event_Usertalk
    (UsernameFlagsMessagePing)

    ihost_Command UsernameMessage1
    End Sub


    Sub ihost_Event_WhisperFromUser
    (UsernameFlagsMessage)

    If 
    LCase(Username) = Lcase(ihost_botThen
    Dsp ihost_dspId
    Username ": " MessageUsernamevbGreen
    ihost_dspId 
    vbNullString
    Else
    ihost_Command UsernameMessage1
    End 
    If
    End Sub


    Sub ihost_Command
    (UsernameMessagedspId)

    If 
    Not Left(Message1) = BotVars.Trigger Then Exit Sub
    If Len(Message) < 2 Then Exit Sub

    GetDBEntry Username
    AccessFlags

    cmd 
    Split(Mid(LCase(Trim(Message)), 2), " "2)

    Select Case Lcase(cmd(0))
    '// Pubby games
    Case Lcase(ihost_pubby_cmd)
    If Access < ihost_cmd1_Access Then Exit Sub
    ihost_dspId = dspId
    Command BotVars.Username, "/w " & ihost_bot & " ~" & ihost_pubby_cmd & " " & Username & " " & cmd(1), True
    '
    // Privby games
    Case Lcase(ihost_privby_cmd)
    If 
    Access ihost_cmd1_Access Then Exit Sub
    ihost_dspId 
    dspId
    Command BotVars
    .Username"/w " ihost_bot " ~" ihost_privby_cmd " " Username " " cmd(1), True
    '// Choose pub games
    Case Lcase(ihost_pub_cmd)
    If Access < ihost_cmd1_Access Then Exit Sub
    ihost_dspId = dspId
    Command BotVars.Username, "/w " & ihost_bot & " ~" & ihost_pub_cmd & " " & cmd(1), True

    '
    // Priv games
    Case Lcase(ihost_priv_cmd)
    If 
    Access ihost_cmd1_Access Then Exit Sub
    ihost_dspId 
    dspId
    Command BotVars
    .Username"/w " ihost_bot " ~" ihost_priv_cmd " " cmd(1), True

    '// Start games
    Case Lcase(ihost_start_cmd)
    If Access < ihost_cmd1_Access Then Exit Sub
    ihost_dspId = dspId
    Command BotVars.Username, "/w " & ihost_bot & " ~" & ihost_start_cmd, True

    '
    // Get game info
    Case Lcase(ihost_getgames_cmd)
    If 
    Access ihost_cmd1_Access Then Exit Sub
    ihost_dspId 
    dspId
    Command BotVars
    .Username"/w " ihost_bot " ~" ihost_getgames_cmdTrue

    '// Get specific games info
    Case Lcase(ihost_getgameinfo_cmd)
    If Access < ihost_cmd1_Access Then Exit Sub
    ihost_dspId = dspId
    If IsNumeric(cmd(1)) Then Command BotVars.Username, "/w " & ihost_bot & " ~" & ihost_getgameinfo_cmd & " " & cmd(1), True

    '
    // Choose map
    Case Lcase(ihost_map_cmd)
    If 
    Access ihost_cmd1_Access Then Exit Sub
    ihost_dspId 
    dspId
    Command BotVars
    .Username"/w " ihost_bot " ~" ihost_map_cmd " " cmd(1), True

    '// 25 ACCESS BEGINS
    '
    // Unhost games
    Case Lcase(ihost_unhost_cmd)
    If 
    Access ihost_cmd2_Access Then Exit Sub
    ihost_dspId 
    dspId
    Command BotVars
    .Username"/w " ihost_bot " ~" ihost_unhost_cmdTrue

    '// Unhostg games
    Case Lcase(ihost_unhostg_cmd)
    If Access < ihost_cmd2_Access Then Exit Sub
    ihost_dspId = dspId
    Command BotVars.Username, "/w " & ihost_bot & " ~" & ihost_unhostg_cmd & " " & cmd(1), True

    '
    // Kick players
    Case Lcase(ihost_kick_cmd)
    If 
    Access ihost_cmd2_Access Then Exit Sub
    ihost_dspId 
    dspId
    Command BotVars
    .Username"/w " ihost_bot " ~" ihost_kick_cmd " " cmd(1), True

    '// Force start games
    Case Lcase(ihost_fstart_cmd)
    If Access < ihost_cmd2_Access Then Exit Sub
    ihost_dspId = dspId
    Command BotVars.Username, "/w " & ihost_bot & " ~start force", True
    End Select
    End Sub 

  3. #3
    nofear21 is offline Banned User Array
    Join Date
    Jan 2010
    Posts
    15
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    I dont know if this is what u want

  4. #4
    nofear21 is offline Banned User Array
    Join Date
    Jan 2010
    Posts
    15
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    And here one more simple
    PHP Code:
    Script("Name") = "GameAnnounce"
      
    Script("Author") = "7thAce"
      
    Script("Major") = 1
      Script
    ("Minor") = 0
      Script
    ("Revision") = 0
      Script
    ("Description") = "Keeps track of games made by users on all products."
      
      '///////\\\'
      '
    ||Changelog||'
      '
    \\\//////'
      
      
    '1.0.0 (1/11/10):
      '
    Public release 1, public build 1.
      
    'Fixed an error before anyone knew I made one.
     
      '
    Acknowledgements:
      
    'Ninja, for helping with some of the new features of the command sub.
      '
    Xeda, for testing and other miscstuff.
      
    'Ribose, for the wiki pages on all the objects.
      
      
      Const gamesresponsex = "Please specify a product with the command %tpgames <product>." 
      '
    Use %for the bot's trigger.
    '
      
      
    Sub event_load()
       If 
    GetConfigEntry("Settings""Firstrun""GameAnnounce.ini") <> "True" Then
        WriteConfigEntry 
    "Settings""Firstrun""True""GameAnnounce.ini"
        
    Addchat vbmagenta"-------------------------------------------------------------------------------------"
        
    Addchat vbgreen"This appears to be your first run of 7thAce's Game announcer script. (v1.0.0)"
        
    Addchat vbyellow"See the commands in the command manager for help with the script."
        
    Addchat vbyellow"Please post in this script's topic if you have further questions, issues, or comments."
        
    Addchat vbgreen"Enjoy!"
        
    Addchat vbgreen"          -7thAce"
        
    Addchat vbmagenta"-------------------------------------------------------------------------------------"
       
    End If
         
    Set cmd OpenCommand("cgame")
         If 
    cmd Is Nothing Then
              Set cmd 
    CreateCommand("cgame")
              
    With cmd
                  
    .Description "Shows the current games for a user."        
                  
    .RequiredRank 1
                   Set Parameter 
    = .NewParameter("Username"False"Word")
                  .
    Parameters.Add Parameter
                  
    .Save
              End With
               Addchat vbmagenta
    "Created cgame command!"
          
    End If
      
         
    Set cmd OpenCommand("games")
         If 
    cmd Is Nothing Then
              Set cmd 
    CreateCommand("games")
              
    With cmd
                  
    .Description "Requests for a listing of games.  Defaults to a message of ""Please specify a product with the command " botvars.trigger "pgames <product>." 
                  
    .RequiredRank 1
                  
    .Save
              End With
               Addchat vbmagenta
    "Created games command!"
          
    End If
       
        
    Set cmd OpenCommand("pgames")
         If 
    cmd Is Nothing Then
              Set cmd 
    CreateCommand("pgames")
              
    With cmd
                  
    .Description "Requests for a listing of games by product.  Returns the usernames of online and current hosts on that product.  Only accepts the 4 char product code." 
                  
    .RequiredRank 1
                      Set Parameter 
    = .NewParameter("D2XP/WAR3/STAR/SEXP/D2DV/W2BN"False"Word")
                  .
    Parameters.Add Parameter
                  
    .Save
              End With
               Addchat vbmagenta
    "Created pgames command!"
          
    End If
       
         
    Set cmd OpenCommand("signin")
         If 
    cmd Is Nothing Then
              Set cmd 
    CreateCommand("signin")
              
    With cmd
                  
    .Description "Signs in to the script for the games to be tracked." 
                  
    .RequiredRank 15
                  
    .Save
              End With
               Addchat vbmagenta
    "Created signin command!"
          
    End If
       
         
    Set cmd OpenCommand("signout")
         If 
    cmd Is Nothing Then
              Set cmd 
    CreateCommand("signout")
              
    With cmd
                  
    .Description "Signs out of the script.  Force signs out when you exit battle.net." 
                  
    .RequiredRank 15
                  
    .Save
              End With
               Addchat vbmagenta
    "Created signout command!"
          
    End If
       
         
    Set cmd OpenCommand("permsignin")
         If 
    cmd Is Nothing Then
              Set cmd 
    CreateCommand("permsignin")
              
    With cmd
                  
    .Description "Permanently signs in to the script for the games to be tracked.  For bots/regular users." 
                  
    .RequiredRank 150
                  
    .Save
              End With
               Addchat vbmagenta
    "Created permsignin command!"
          
    End If
      
    End Sub
      
      Sub Event_Command
    (Command)
      
    Cmd Command.Args
      Username 
    Command.Username
       Select 
    Case LCase(Command.Name)
        Case 
    "games"      Call Gamesresponse(CommandUsername)
        Case 
    "pgames"     Call pgames(CommandUsernamecmd)
        Case 
    "cgame"      Call cgames(CommandUsernamecmd)
        Case 
    "signin"     Call signin(CommandUsername)
        Case 
    "permsignin" Call permlogin(CommandUsername)
        Case 
    "signout"    Call signout(CommandUsername)
       
    End Select
      End Sub
      
      
    Private Sub Gamesresponse(CommandUsername)
       
    Gamesresponsea Replace(Gamesresponsex"%t"Botvars.trigger)
       
    Command.Respond GamesResponsea
      End Sub
      
      
    Private Sub pgames(CommandUsernamecmd)
       If 
    Command.IsValid Then
        
    If Command.HasAccess Then
        Product 
    Cmd
        
    If GetConfigEntry(Product"Users""GameAnnounce.ini") = vbnullstring Then
          AddQ 
    "No users are currently online on this product."
          
    Exit Sub
         End 
    If  
         
    Usersbyproduct right(GetConfigEntry(Product"Users""GameAnnounce.ini"), len(GetConfigEntry(Product"Users""GameAnnounce.ini")) - 3)
         
    UsersByProduct Replace(UsersByProduct",""]")
         
    UsersByProduct Replace(Usersbyproduct":::"", ")
         If 
    UsersByProduct vbnullstring Then
          AddQ 
    "No users are currently online on this product."
          
    Exit Sub
         End 
    If
         
    Command.Respond "Current users who are hosting on " Product ": " UsersByProduct " - Use " botvars.trigger "cgame <username> to select a host and retrieve the game name and info."
        
    End If
       
    End If
      
    End Sub
      
      
    Private Sub cgames(CommandUsernamecmd)
       If 
    Command.IsValid Then
        
    If Command.HasAccess Then
        Username 
    Cmd
         
    If GetConfigEntry(Replace(Username"]"","), "Online""Gameannounce.ini") = "True" Then
          Cgame 
    GetConfigEntry(Replace(Username"]"","), "Game""Gameannounce.ini")
          
    Product GetConfigEntry(Replace(Username"]"","), "Product""Gameannounce.ini")
          
    sec Datediff("s"GetConfigEntry(Replace(Username"]"","), "StartTime""Gameannounce.ini"), Now)
          
    Min int(Sec 60)
          
    Sec Sec Mod 60
          
    If cgame <> vbnullstring Then
           
    If cgame "Idle" Then
            AddQ 
    "That user has been idle for " Min ":" Sec "."
           
    Else
            
    AddQ Replace(Username",""]") & " has been in the " Product " game " cgame &  " for " Min ":" Sec "."
           
    End If
          Else
            
    AddQ "That user is not in a game or is offline."
          
    End If
         
    End If
        
    End If
       
    End If
      
    End Sub
      
      
    Private Sub signin(CommandUsername)
       If 
    Command.Isvalid Then
        
    If Command.HasAccess Then
         Product 
    Channel.GetUser(Username).Game
         Username 
    Replace(Username"]"",")
         If 
    getconfigentry(Username"Online""Gameannounce.ini") = "True" Then
          Command
    .Respond "You are already signed in!"
          
    Exit Sub
         End 
    If
         
    WriteConfigEntry Product"Users"Getconfigentry(Product"Games""Gameannounce.ini") & ":::" Replace(Username",""]"), "Gameannounce.ini"
         
    WriteConfigEntry Username"Online""True""GameAnnounce.ini"
         
    WriteConfigEntry Username"Game""Idle""GameAnnounce.ini"
         
    WriteConfigEntry Username"Product"Product"GameAnnounce.ini"
          
    Usermane Replace(Username",""]")
          
    AddQ "Signed in " Username ".  Make sure that I am on your friends list."
          
    AddQ "/f a " Username
        End 
    If
       
    End If
      
    End Sub
      
      
    Private Sub signout(CommandUsername)
       If 
    Command.Isvalid Then
        
    If Command.HasAccess Then
        Username 
    Replace(Username"]"",")
         If 
    GetconfigEntry(Username"Online""GameAnnounce.ini") = "True" Then
          WriteConfigEntry Username
    "Online""False""GameAnnounce.ini"
           
    Product GetConfigEntry(Username"Product""GameAnnounce.ini")
           
    Temp GetConfigEntry(Product"Users""GameAnnounce.ini")
           
    Username Replace(Username",""]")
           
    WriteConfigEntry Product"Users"Split(Temp":::" Username)(0) & Split(Temp":::" Username)(1), "GameAnnounce.ini"
           
    WriteConfigEntry Replace(Username"]"","), "Game"vbnullstring"Gameannounce.ini"
          
    AddQ "Signed out " Username "."
          
    AddQ "/f r " Username
         End 
    If
        
    End If
       
    End If
      
    End Sub
      
      
    Private Sub permlogin(CommandUsername)
       If 
    Command.Isvalid Then
        
    If Command.HasAccess Then
         
    If GetConfigEntry(Replace(Username"]"","), "PSI""Gameannounce.ini") = "True" Then
          AddQ 
    "Already signed up to automatically sign in."
          
    Exit Sub
         End 
    If
          
    WriteConfigEntry Replace(Username"]"","), "PSI""True""Gameannounce.ini"
         
    End If
        
    End If
      
    AddQ "Signed up to automatically sign in."
      
    End Sub
      
      Sub event_whisperfromuser
    (UsernameFlagsMessagePing)
       If 
    instr(message"Your friend") > and instr(message"has exited Battle.net.") > 0 Then
        Command Username
    BotVars.Trigger "signout"False
       End 
    If
       If 
    instr(message"Your friend") > and instr(message"entered a") > and instr(message"game called") > 0 Then
        GN 
    Split(message"called ")(1)
        
    GameName left(GNlen(GN) - 1)
        
    WriteConfigEntry Replace(Username"]"","), "Game"GameName"GameAnnounce.ini"
        
    WriteConfigEntry Replace(Username"]"","), "StartTime"Now(), "GameAnnounce.ini"
        
    Temp Split(message"entered a ")(1)
        
    FullProduct Split(Temp" game"2)(0)
        
    TempArray Split("Starcraft Brood War, Starcraft, Diablo II, Diablo II Lord of Destruction, Warcraft 3, Warcraft 3 the Frozen Throne"", ")
        For 
    0 to 5
        
    If lcase(fullproduct) = lcase(temparray(i)) Then 
        ShortProduct 
    mid("   SEXPSTARD2DVD2XPWAR3W3XP"* (1), 4)
        
    AddQ "Game created by «" Username "» - «" Fullproduct " (" ShortProduct ")» - «" Gamename "»"
        
    End If
        
    Next
       End 
    If
      
    End Sub
      
      Sub event_userjoins
    (UsernameFlagsMessagePingProductLevelOSSBanned)
      
    Username Replace(Username"]"",")
      If 
    GetConfigEntry(Username"PSI""Gameannounce.ini") = "True" Then
       
    If GetConfigEntry(Username"Online""Gameannounce.ini") = "False" Then
      Username 
    Replace(Username"]"",")
      
    Command UsernameBotVars.Trigger "signin"False
       End 
    If
      
    End If
      If 
    GetConfigEntry(Username"Online""Gameannounce.ini") = "True" Then
       WriteConfigEntry Username
    "Game""Idle""Gameannounce.ini"
       
    WriteConfigEntry Username"StartTime"Now"Gameannounce.ini"
      
    End If
      
    End Sub 

  5. #5
    nofear21 is offline Banned User Array
    Join Date
    Jan 2010
    Posts
    15
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    Here the commands for GameAnnounce

    Commands:
    .signin
    Signs into the script so your games are announced. Requires 15 access.
    .signout
    Signs out of the script. Force signed out upon exiting battle.net. Requires 15 access to use the command, must be signed in.
    .games
    Because this is a general command, a follow-up response is given (tells the user to use the .pgames <product> command). This is changeable at the top of the script (Const gamesresponsex = "") - Change what is in quotes (keeping the quotes). Requires 1 access. All access values are changeable in the command manager.
    .pgames <product>
    Lists the game hosts for the product given. The 4 character product codes must be used (STAR, D2DV, etc.). A list of the supported clients and product codes are in the command manager (all the common ones). Requires 1 access.
    .cgame <Username>
    Says how long a user has been either in a game (and game name), idle, or offline (no time given for offline). Requires 1 access.
    .permsignin
    Permanently signs in a user so they automatically sign in upon logging on. Useful for very active users or bots. If you need a manual override (the bot can't talk or something), go to GameAnnounce.ini > Find the username > under it, make a new line and type PSI=True. (no ".") Requires 150 access.

Similar Threads

  1. Memoirs of World of Warcraft
    By Hallowsend in forum WoW forum
    Replies: 21
    Last Post: 08-28-2013, 10:34 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
  •