Author Topic: HubINFO-BotINFO by Gadget  (Read 2841 times)

0 Members and 1 Guest are viewing this topic.

Offline [ES]latinmusic

  • Triple Ace
  • **
  • Posts: 236
  • Karma: +1/-0
HubINFO-BotINFO by Gadget
« on: 13 October, 2003, 01:47:56 »
--// HubINFO-BotINFO support script for PtokaX by Gadget

--// Optional hubowner's email address for editing hub info in www.hublist.org
OwnerEmail=""

--// No need to edit other settings
MinSlots=0
MaxHubs=0
function Main()
HubAddress=GetFromIni("HubAddress")..":"..GetFromIni("HubPort")
if GetFromIni("MinSlotsChecker")=="1" then MinSlots=GetFromIni("MinSlots")
end
if GetFromIni("HubChecker")=="1" then MaxHubs=GetFromIni("MaxHubs")
end
end
function DataArrival(curUser,data)
 if strsub(data,1,9)=="$BotINFO " then
 curUser:SendData("$HubINFO "..frmHub:GetHubName().."$"..HubAddress.."$"..frmHub:GetHubDescr().."$"..frmHub:GetMaxUsers().."$"..floor(frmHub:GetMinShare()*1048576).."$"..MinSlots.."$"..MaxHubs.."$PtokaX 0.3 ".._VERSION.." script$"..OwnerEmail)
 end
end
function GetFromIni(var)
local result=""
readfrom("../PtokaX.ini")
while 1 do
 local line=read()
 if line==nil then
  break
 else
  if strsub(line,1,strlen(var)+1)==var.."=" then
   result=strsub(line,strlen(var)+2,strlen(line))
   break
  end
 end
end
readfrom()
return result
end

PtokaX forum

HubINFO-BotINFO by Gadget
« on: 13 October, 2003, 01:47:56 »