AtStats, made by T[x]aS !

This is a discussion on AtStats, made by T[x]aS ! within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; here it is ! only for Northrend ! /w bot ?user1 user2 = the stats in 2n2 for the both ...

Results 1 to 2 of 2
  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

    AtStats, made by T[x]aS !

    here it is ! only for Northrend !

    /w bot ?user1 user2 = the stats in 2n2 for the both users
    /w bot _user1 = it tells u his stats !
    always do it in /w or it wont work



    Code:
    'at
    '1.0
    
    
    Sub at_event_WhisperFromUser(Username, Flags, Message)
    if LCase(Left(Message, 1)) = "_" Then	  	
    
            'if access < 10 then exit sub
    	if ScINet.stillExecuting then
    	   addq "/w " & username & "   >>>>  I'M BuSy <<<<  "
    	   exit sub	  
    	end if
    	
    	strText = Mid(Message, 2)
    	content=ScINet.OpenURL("http://www.battle.net/war3/ladder/war3-player-profile.aspx?Gateway=Northrend&PlayerName="&strText )		      
    	
    
    	'Solo Level
    	If Instr(Content, ">Solo Games</span>") Then
    		Posx = Instr(Content, "Solo Games")
    		Pos1 = Instr(Posx, Content, """><small>") + 9
    		Pos2 = Instr(Pos1, Content, "<")
    		SLevel = Mid(Content, Pos1, Pos2-Pos1)
    	End If
    
    	'Team Level
    	If Instr(Content, ">Team Games</span>") Then
    		Posx = Instr(Content, "Team Games")
    		Pos1 = Instr(Posx, Content, """><small>") + 9
    		Pos2 = Instr(Pos1, Content, "<")
    		TLevel = Mid(Content, Pos1, Pos2-Pos1)
    	End If
    
    	'FFA Games
    	If Instr(Content, ">FFA Games</span>") Then
    		Posx = Instr(Content, "FFA Games")
    		Pos1 = Instr(Posx, Content, """><small>") + 9
    		Pos2 = Instr(Pos1, Content, "<")
    		FLevel = Mid(Content, Pos1, Pos2-Pos1)
    	End If
    
    
    	totalstats=mid(content,instr(Lcase(content),"total:")+11)
    	totalstats=mid(totalstats,1,instr(Lcase(totalstats),"<tr>")-1)
    	wins=split(Split(totalstats,">")(1),"<")(0)
    	losses=split(Split(totalstats,">")(3),"<")(0)
    	percent=split(Split(totalstats,">")(5),"<")(0)
    	addq "/w " & username & " [ " & wins & " WinS / " & losses & " LoSeS ] - [ " & percent & " ] " 
    	'addq "/w " & username & " [ Solo = " & slevel & " ] | [ RT = " & tlevel & " ] | [ FFA = " & flevel &  " ] " & strtext
    
    	
    	
    end if
    
    '//////////////////////\\\\\\\ AT STATS ////////\\\\\\\\\\//////
    
    if LCase(Left(Message, 1)) = "?" Then	  	
            Message = lcase(Message)
    	if ScINet.stillExecuting then
    	   addq "/w " & username & "   >>>> I'M BuSy <<<  "
    	   exit sub	  
    	end if
    
    	Message = lcase(mid(Message,2))
    	message = replace(message,"?"," ")
            message = "- " & message
            addchat vbred, message
    	x = Split(Message)
    	TxTa1 = Split(Message, " ", 3)(1)	
    	TxTa2 = Split(Message, " ", 3)(2)
            addchat vbred, txta1
            addchat vbred, txta2
    
    	content=ScINet.OpenURL("http://www.battle.net/war3/ladder/war3-player-profile.aspx?Gateway=Northrend&PlayerName=" & txta1 )		
    	content = lcase(content)	
    
    	'Posx = Instr(Content, "arranged Teams")
    	'content = mid(content,posx)
    
    	Posx = Instr(Content, lcase(txta2))
    	if posx = 0 then
    		addq "/w " & username &	" ** ERROR - User/s NoT FounD **"
    		exit sub
    	end if
    	content = mid(content,posx - 2500)
    
    	Posx = Instr(Content, "level")		
    	Txtlevel = mid(content,posx)
    	Posy = Instr(Txtlevel, "</b>")
    	Txtlevel = mid(Txtlevel,1,posy)
    	PosL = Instr(Txtlevel, "<")
    	Txtlevel = mid(Txtlevel,posl-2,2)
    	Txtlevel = replace(txtlevel," ","")
    	txtlevel = trim(Txtlevel)
    
    	PosL = Instr(content, "wins:")
    	content = mid(content,posl+10,800)
    	PosA = Instr(content, "</b")
    	txtwin = mid(content,posa-3,3)
    	txtwin = replace(txtwin,"<","")
    	txtwin = replace(txtwin,">","")
    	
    
    	PosL = Instr(content, "losses:")
    	content = mid(content,posl+10,800)
    	PosA = Instr(content, "</b")
    	txtloses = mid(content,posa-3,3)
    	txtloses = replace(txtloses,">","")
    	txtloses = replace(txtloses,"<","")
    
    	'addq "/w " & username & " (" & UserStat(txta1) & ucase(TxTa1) & " ) & (" & UserStat(txta2) & ucase(txta2) & " ) LvL: [" & txtlevel & "][ " & sacanum(Txtwin) & " / " & sacanum(txtloses) & " ] "
    	addq "/w " & username & " " & UserStat(txta1) & ucase(TxTa1) 
    	addq "/w " & username & " " & UserStat(txta2) & ucase(txta2) 
    	addq "/w " & username & " LvL: [" & sacanum(txtlevel) & "][ " & sacanum(Txtwin) & " Wins / " & sacanum(txtloses) & " Losses ] "
    		
    '	addchat vbgreen, "Level: " & txtlevel & " " & txtwin & " , " & txtloses
    '	addchat vbred, content
    '	addq  txtlevel 	
    	
    	
    end if
    
    
    end sub
    
    
    function UserStat(StrText)
    
    	content=ScINet.OpenURL("http://www.battle.net/war3/ladder/war3-player-profile.aspx?Gateway=Northrend&PlayerName="&strText )		      	
    
    	'Solo Level
    	If Instr(Content, ">Solo Games</span>") Then
    		Posx = Instr(Content, "Solo Games")
    		Pos1 = Instr(Posx, Content, """><small>") + 9
    		Pos2 = Instr(Pos1, Content, "<")
    		SLevel = Mid(Content, Pos1, Pos2-Pos1)
    	End If
    
    	'Team Level
    	If Instr(Content, ">Team Games</span>") Then
    		Posx = Instr(Content, "Team Games")
    		Pos1 = Instr(Posx, Content, """><small>") + 9
    		Pos2 = Instr(Pos1, Content, "<")
    		TLevel = Mid(Content, Pos1, Pos2-Pos1)
    	End If
    
    	'FFA Games
    	If Instr(Content, ">FFA Games</span>") Then
    		Posx = Instr(Content, "FFA Games")
    		Pos1 = Instr(Posx, Content, """><small>") + 9
    		Pos2 = Instr(Pos1, Content, "<")
    		FLevel = Mid(Content, Pos1, Pos2-Pos1)
    	End If
    
    
    	totalstats=mid(content,instr(Lcase(content),"total:")+11)
    	totalstats=mid(totalstats,1,instr(Lcase(totalstats),"<tr>")-1)
    	wins=split(Split(totalstats,">")(1),"<")(0)
    	losses=split(Split(totalstats,">")(3),"<")(0)
    	percent=split(Split(totalstats,">")(5),"<")(0)
    	UserStat = "["&wins&" / "&losses&" / "&percent&"] "
    
    end function
    
    function SacaNum(StrText)
    
    for c=1 to len(strtext)
    	t = mid(strtext,c,1)
    	if isnumeric(t) = true then Num = num & t
    next
    sacanum = num
    
    end function

  2. #2
    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
    Thx x-FrEeLoOsE-x for the plugin

Similar Threads

  1. Get the ties of an user, made by T[x]aS !
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 22
    Last Post: 06-13-2008, 04:48 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
  4. A couple sigs I made
    By tcxred in forum Showcase
    Replies: 2
    Last Post: 09-26-2007, 03:12 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
  •