[PING] i got a ping script but i need...
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

[PING] i got a ping script but i need...

Started by mandix, 28 June, 2004, 03:04:57

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

mandix

hela all.
i found a ping script (lua) somewhere on the net.. dunno where anymore but... my operating system is dutch  :D, but i need it in english can anyone help me ?
i got the ping.exe and ping6.exe in english from a frend...

PingComm "!ping" 


function DataArrival(curUsersData)
      
sData=strsub(sData,1,-2
      
s,e,cmd,who strfindsData"%b<>%s+(%S+)%s*(%S*)" )
	
	
if (
cmd==PingComm) and curUser.bOperator then
	
   
	
local nick GetItemByName(who)
	
	
	
if 
nick == nil then
	
	
	
SendToNick(curUser.sName,"<-=Hubgods=-> The user "..who.." is not online. Try again.") return 1 end
	
	
	
	
local compIp FetchIP(nick.sIP)
	
	
	
	
SendToNick(curUser.sName,"\r\n\t---<>-----------------------------------------------------------------------------<>---\r\n\t\tPinging ->> [ "..who.." ]   Please wait...\r\n\t---<>-----------------------------------------------------------------------------<>---")
	
	
	
	
execute("ping "..addy.." > pinger.lst")
	
	
	
	
local pingtime "" 
	
	
	
	
	
if 
readfrom("pinger.lst"then 
	
	
	
	
	
readfrom("pinger.lst"
	
	
	
	
	
pingtime read("*a"
	
	
	
	
	
pingtime gsub(pingtime,"|",strchar(166)) 
	
	
	
	
	
pingtime gsub(pingtime,"\n","\r\n\t"
	
	
	
	
	
writeto() 
	
	
	
	
	
remove("pinger.lst"
	
	
	
	
	
end
	
	
	
	
SendToNick(curUser.sName,"\t\t\t.:: Results ::.\r\n\t---<>-----------------------------------------------------------------------------<>---\r\n\t"..pingtime.."\r\n\t---<>-----------------------------------------------------------------------------<>---")
	
	
	
	
return 

	
	
end
end

function FetchIP(IP)
	
local _,_,a,b,c,strfind(IP"(%d+)%.(%d+)%.(%d+)%.(%d+)")
	
if 
and and and d then
	
	
addy=a.."."..b.."."..c.."."..d
	
	
return 
addy
	
end
end

SMF spam blocked by CleanTalk