Loginin Script. Need help with convert.
 

Loginin Script. Need help with convert.

Started by electronic_Psycho, 09 June, 2008, 18:39:22

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

electronic_Psycho

Hello  :)

i have that script "Loginin By TiMeTrAVelleR "

i like that script and i need help. if someone can convert it to the new API plz  :-[

____________

------------------------------------------------------------------------------------------------
----//   Loggin by TiMeTrAVelleR Fixed By Optimus //-------------[infected-System]
----------------------------- Converted to Lua 5 by jiten------------------------
----//  Mor status & edit by: ElecTronic??.Psycho! //----------------
------------------------------------------------------------------------------------------------
----// Set here your bot name

sBotName = "name" 

kb = 1024 
mb = kb*kb 
gb = kb*kb*kb
tb = kb*kb*kb*kb 

function NewUserConnected(user) 
	Message(user) 
end 

function OpConnected(user) 
	Message(user) 
end 

--// Profile Counter
      
function ProfileCounter(profile) 
	
      local table, count = GetUsersByProfile(profile),0
      for i,User in pairs(table) do
		

		 if GetItemByName(User) then
			   count = count + 1
 
		 end
 
     end
 
     return count
end 

function Message(user) 
	if user.sMyInfoString then 
	local disp = "" 
		doGetProfile = GetProfileName(user.iProfile) or "Not registerd"
		hubshare = string.format("%.2f Tb.",frmHub:GetCurrentShareAmount()/(1024 * 1024 * 1024 * 1024)) 
		local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" ) 
		if share then 
			minshare = string.format("%0.2f", tonumber(share)/gb).." GB" 
		else 
			minshare = "Corrupt" 
		end 
	end

border1 = "-----------------------"
border2 = "-----------------------"
disp = "\r\n\r\n"..border1.."\r\n"
disp = disp.."--------------------\r\n"
disp = disp.."--------------------"..user.sName.."\r\n"
disp = disp.."--------------------\r\n"
disp = disp.."--------------------"..doGetProfile .."\r\n"
disp = disp.."--------------------"..user.sIP.."\r\n"
disp = disp.."--------------------\r\n"
disp = disp.."-------------------- "..minshare.."\r\n"
disp = disp.."--------------------\r\n"
disp = disp.."--------------------".. hubshare.."\r\n"
disp = disp.."--------------------\r\n"
disp = disp.."-------------------\r\n"
disp = disp.."-------------------\r\n"
disp = disp.."-------------------"..frmHub: GetUsersCount().." of "..frmHub:GetMaxUsers().." users Online. .\r\n"
disp = disp.."-------------------"..ProfileCounter("Owner").." [Owner] "..ProfileCounter("Master").." [Master's] "..ProfileCounter("Netfounder").." [S-oP's] "..ProfileCounter ("Operator").." [oP's] "..ProfileCounter("Moderator").." [S-Vip's] "..ProfileCounter("Vip").." [Vip's] "..ProfileCounter("reg").." [reg's] Online..\r\n"
disp = disp.."-------------------\r\n"
disp = disp.."------------------"..frmHub: GetHubDescr().."\r\n"
disp = disp.."------------------\r\n"..border2.."\r\n"

	user:SendData(sBotName, disp)

end

_________________


Tnx.

Ep

Psycho_Chihuahua

please use Code Tags when posting, its easier on the eyes :)
PtokaxWiki ?PtokaX Mirror + latest Libs

01100001011011000111001101101111001000000110101101101110011011110111011101101110001000000110000101110011001000000101010001101111011010110110111101101100011011110111001101101000

[NL]Daddy-Bear?

Hello it?s me again.

Hello electronic_Psycho.
I think this what you mend follow the link ;)
http://forum.ptokax.org/index.php?topic=7981.0

Respectfully,

[NL]Daddy-Bear?
???????????? Lets enjoy our Hobby ??????????

dchub://daddys-friends-association.no-ip.org:4106

take a peek you are welcome :D

electronic_Psycho

 ;D Good Morning.

Thanks "Daddy-Bear?"  :D

SMF spam blocked by CleanTalk