well need help :)

This is a discussion on well need help :) within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Ok so one said i should post it here instead! Hey could anyone make a pluggin like this :/? Here ...

Results 1 to 8 of 8
  1. #1
    TaF]FooTman is offline Wannabe Member
    Array
    Join Date
    Jul 2008
    Posts
    13
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    1

    well need help :)

    Ok so one said i should post it here instead!
    Hey could anyone make a pluggin like this :/?
    Here is the discription oft the bot pluggin I want:



    when a player types ‘.game <gamename>’ the bot saves announces that a game with the gamename <gamename> has been hosted
    the bot counts every player who join this game.
    when a player types ‘.gamelist’ all games that have been created within the last 5min will be listed with its gamename and number of players joined
    5min after a game has been hosted, it is deleted from the memory and won’t be listed with ‘.gamelist’

    Example:

    Player1: .gamelist
    Bot: there are no games available
    Player2: .game DotA -ap pros!
    Bot: Player2 is hosting a game named [ DotA -ap pros! ]
    ---Player1 join this game---
    Player3: .gamelist
    Bot: [ DotA -ap pros! ] 0min 30s, 2 players joined game.


    I hope you understood everything :-)

  2. #2
    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 meant stealthbot.net's forum, not stealthbot's section here.

  3. #3
    TaF]FooTman is offline Wannabe Member
    Array
    Join Date
    Jul 2008
    Posts
    13
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    1
    doh -_-

  4. #4
    M I C H A is offline Member
    Array
    Join Date
    Jul 2009
    Posts
    40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    1
    I mean, yeah i understand what you want but just for the time you wait:
    .addcmd 0 game 0% wants to play a game& If you want to join the game type& " %rest "& as the game name. Hope you enjoy your game

    If a player (without access which can be set instat of first 0) writes
    ".game TEST 123 )(" the bot will say (Name who writed the cmd) wants to play a game
    If you want to join the game type
    " Test 123)( " as the game name
    Hope you enjoy your game!

    May your text is some differnt, that dosnt matter (look im german and translated most of Plugins and cmds i made into german, so may your english is some better then mine and you have any Ideas on how to do it

    Keep +Rep'in, thanks

  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
    Try this

    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 

  6. #6
    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
    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.

  7. #7
    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
    You're around 2 years too late :/ Thanks for posting it anyway.

  8. #8
    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
    oups I didn't see that

Posting Permissions

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