Gnome/Auto Recruit Plugin

This is a discussion on Gnome/Auto Recruit Plugin within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Hello, I was hopeing you guys would have these. =D Ok. What I want is a Gnome Plugin for Stealthbot. ...

Page 1 of 2 12 LastLast
Results 1 to 10 of 17
  1. #1
    Masterchief's Avatar
    Masterchief is offline Hacker
    Array
    Join Date
    Dec 2008
    Location
    USA
    Posts
    179
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    27

    Exclamation Gnome/Auto Recruit Plugin

    Hello,

    I was hopeing you guys would have these. =D


    Ok. What I want is a Gnome Plugin for Stealthbot. Like PingGnome. If anybody has that can you please give it too me?

    Second, Does anybody have a autorecurit plugin? Like it goes to whatever channels i put and says a message like: JOIN MY CLAN!! Does anybody have that? Or May sombody make me that? Like if they know how.




  2. #2
    Yoyoshawty is offline Mentor Array
    Join Date
    Oct 2008
    Posts
    111
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    3
    Second one.
    Would you like a script that the bot whispers 4-5 channels of your choice, you can remove the ppl that you wouldn't like the bot to whisper? And it has it's own message/seconds to whisper

  3. #3
    killerwave7's Avatar
    killerwave7 is offline Premium Member

    Array
    Join Date
    Jul 2009
    Location
    California
    Posts
    705
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    392
    Quote Originally Posted by Yoyoshawty View Post
    Second one.
    Would you like a script that the bot whispers 4-5 channels of your choice, you can remove the ppl that you wouldn't like the bot to whisper? And it has it's own message/seconds to whisper
    that would actually be nice =D

  4. #4
    Masterchief's Avatar
    Masterchief is offline Hacker
    Array
    Join Date
    Dec 2008
    Location
    USA
    Posts
    179
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    27
    Quote Originally Posted by Yoyoshawty View Post
    Second one.
    Would you like a script that the bot whispers 4-5 channels of your choice, you can remove the ppl that you wouldn't like the bot to whisper? And it has it's own message/seconds to whisper
    Yes. What i want is it goes to 5-7 channels in a row saying a message that I put. And I can also make it go in a loop. So i can say: Recruit 5 and it does it 5 times.

  5. #5
    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
    Gnomes are not StealthBot plugins.
    Those are real programs coded by advanded coders.

    Also, for the recruiting thing you can do "/invite %u" as your bot's greet message.

  6. #6
    Masterchief's Avatar
    Masterchief is offline Hacker
    Array
    Join Date
    Dec 2008
    Location
    USA
    Posts
    179
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    27
    Quote Originally Posted by xiN View Post
    Gnomes are not StealthBot plugins.
    Those are real programs coded by advanded coders.

    Also, for the recruiting thing you can do "/invite %u" as your bot's greet message.
    I dont want the bot to invite. I want it do go to different channels and say a message.

  7. #7
    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
    Oh ok, I used to have such a plugin but since I changed computer I no longer have it =[

  8. #8
    Masterchief's Avatar
    Masterchief is offline Hacker
    Array
    Join Date
    Dec 2008
    Location
    USA
    Posts
    179
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    27
    Quote Originally Posted by xiN View Post
    Oh ok, I used to have such a plugin but since I changed computer I no longer have it =[
    Dammit. Could you maybe 1, fine it again for me? and 2 give me a recruit bot?

  9. #9
    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
    And as three?

  10. #10
    Yoyoshawty is offline Mentor Array
    Join Date
    Oct 2008
    Posts
    111
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    3
    Code:
    'eXiLeD
    '2.7
    '#ExILEd @ Useast
    
    Private TempStore 'dont touch
    Private ReceivedList
    Set ReceivedList = CreateObject("Scripting.Dictionary")
    Private UserList, line, u, r, z, full, temp, name, counter 'dont touch 
    Set UserList = CreateObject("Scripting.Dictionary")'dont touch
    Private Const AdMsg = "Message Here"
    Private Const C1 = "Clan " 'Set the channel you wish to check 
    Private Const C2 = "Clan " 'Set the channel you wish to check
    Private Const C3 = "Clan " 'Set the channel you wish to check
    Private Const C4 = "Clan " 'Set the Channel you wish to check
    Private Const C5 = "Clan " 'Set the Channel you wish to check, you can add more.
    Private Const Interval = 35 'Interval between each /who check
    Private Const Server = "" 'Dont touch it, it's set to work with D2 and SC clients
    Private Const Client = "" 'Dont touch it, it's set to work with D2 and SC clients
    
    Sub eXiLeD_Event_ServerInfo(Message)
        if((InStr(LCase(Message), "welcome"))>0) then exit sub
        if((InStr(LCase(Message), "this"))>0) then exit sub
        if((InStr(LCase(Message), "last"))>0) then exit sub
        if((InStr(LCase(Message), "there"))>0) then exit sub
        if((InStr(LCase(Message), "account"))>0) then exit sub
        if((InStr(LCase(Message), "time"))>0) then exit sub	
    	if((InStr(LCase(Message), "banned"))>0) then exit sub
    	if((InStr(LCase(Message), "kicked"))>0) then exit sub
    	if((InStr(LCase(Message), "away"))>0) then exit sub
    	Message = Replace(Message, "channel", "")
    	Message = Replace(Message, C1, "")
    	Message = Replace(Message, C2, "")
    	Message = Replace(Message, C3, "")
    	Message = Replace(Message, C4, "")	
    	Message = Replace(Message, "Users", "")
    	Message = Replace(Message, "in ", "")
    	Message = Replace(Message, "Clan", "")
    	Message = Replace(Message, "   ", "")	
    	Message = Replace(Message, ":", "")
    	Message = Replace(Message, "ICE", "")
    	Message = Replace(Message, "DCL", "")
    	Message = Replace(Message, "whd", "")
    	Message = Replace(Message, "Sou", "")	
    	Message = Replace(Message, "rya", "")	
    	Message = Replace(Message, "Tda", "")	
    	Message = Replace(Message, "Know", "")		
    	Message = Replace(Message, "The", "")	
    	Message = Replace(Message, "Ice", "")	
    	Message = Replace(Message, "Undead", "")	
    	Message = Replace(Message, "Para", "")	
    	Message = Replace(Message, "Dci", "")	
    	Message = Replace(Message, "Bot2", "")
    	Message = Replace(Message, "Zombie-", "")	
    	Ms1 = Split(Message, ", ")
        for i = 0 to UBound(ms1)
    	  if (ReceivedList.Exists(Ms1(i))) then
            AddChat "User already informed"
    	  else	
    	   if (not UserList.Exists(Ms1(i))) then
               UserList.Add Ms1(i), ""
    	       AddChat vbOrange, "Added "&ms1(i)&" to the advertize list"
    		   line = line&ms1(i)		   
    	   end if
    	  end if 
    	next   
    End Sub
    
    Sub eXiLeD_Event_ChannelJoin(ChannelName, Flags)
        REM AddQ "-"
    	temp = true
    	u = 0
    End Sub
    
    Sub eXiLeD_Who_timer()
        if(ReceivedList.Count>10) then
            AddChat vbORange, ReceivedList.Count&" Users informed"
    	end if
    	if u < 7 then exit sub
    	if UserList.Count > 8 then
    	    AddQ "/me <>Idle-Message<>"
    	    exit sub
    	end if	
        counter = counter + 1
    	if counter>4 then counter = 1
    	if counter = 1 then
    	    AddQ "/who "&C1
    	elseif counter = 2 then
    	    AddQ "/who "&C2
    	elseif counter = 3 then
    	    AddQ "/who "&C3
            elseif Counter = 4 then
                AddQ "/who "&C4
            elseif Counter = 5 then
                AddQ "/who "&C5
    	End if
    End sub
    
    
    Sub eXiLeD_Ad_timer()
        if(UserList.Count>0) then
    	    if temp=false then
    		    Exit Sub
    		else	
    	        if u < 7 then exit sub
    		end if	
    	    for each key in UserList.keys
    		    AddChat vbGrey, "Forwarding on "&key
    		    AddQ "/w "&Client&key&server&" "&AdMsg
    			UserList.Remove key
    			line = replace(line, key, "")
    			ReceivedList.Add key, ""
    			Exit Sub
    		next
    	end if	
    End Sub
    
    Sub eXiLeD_AntiWarden_timer()
        u = u + 1
        if(ReceivedList.Count>=MaxReceivedUsers) then
    		ReceivedList.RemoveAll
    	end if
    end sub		
    
    Sub eXiLeD_Init_timer()
    	TimerEnabled "eXiLeD", "Init", False
    	TimerEnabled "eXiLeD", "Who", True
    	TimerEnabled "eXiLeD", "Ad", True
    	AddChat vbblue, "Initializing script..."
    End sub	
    
    Sub eXiLeD_Event_Load()
        line = ""
        counter = 0
    	AddChat vbRed, "Plugin will take effect in 15 seconds for security reasons"
    	TimerInterval "eXiLeD", "Init", 15
    	TimerEnabled "eXiLeD", "Init", True
    	TimerInterval "eXiLeD", "AntiWarden", 1
    	TimerEnabled "eXiLeD", "AntiWarden", True	
    	TimerInterval "eXiLeD", "Who", Interval
    	TimerEnabled "eXiLeD", "Who", False
    	TimerInterval "eXiLeD", "Ad", 14
    	TimerEnabled "eXiLeD", "Ad", False
    	AddChat vbYellow, "Channel AD [2.7] : Loaded"
    	AddChat vbRed, "by eXiLeD"
    	AddChat vbYellow, "It's AD time nigga."	
    End Sub
    Below Message = Replace(Message, "ICE", "") < You can edit the names so the bot removes the names for somepeople in thsoe channesl that you would not liek the bot to whisper, and if not need that many then remove them
    Enjoy
    Last edited by Yoyoshawty; 09-03-2009 at 12:40 PM.

Page 1 of 2 12 LastLast

Similar Threads

  1. HypGameColor -- Color Plugin
    By Toxik in forum Diablo 2 Hacks
    Replies: 1
    Last Post: 04-07-2009, 10:34 PM
  2. StealthBot; Plugin System
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 0
    Last Post: 07-06-2008, 02:49 PM
  3. auto invite plugin
    By majorhate in forum Warcraft 3 Hacks, bots and tools
    Replies: 3
    Last Post: 09-15-2007, 02:29 PM

Posting Permissions

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