prob with gadgets hubinfo script
 

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

prob with gadgets hubinfo script

Started by Psycho_Chihuahua, 07 August, 2004, 10:51:52

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Psycho_Chihuahua

the way i see it, this is supposed to help with the displaying of the hub on hublist.org....hmmmm well most of the time i end up with a displayed amount of 0 users. Ok Ok i dont havean enormouse amount of Users (52 od which 30 are almost always online.
hmm maybe the script has a minor mistake in it or sumthing. Just in case, could someone help me out here.

I have a Registered Only Hub, but i registered the HubPinger as a User. but i would like Min-MaxHubs/Min-MaxSlots displayed as well.

--// HubINFO-BotINFO support script for PtokaX by Gadget

--// Optional hubowner's email address for editing hub info in [URL]www.hublist.org[/URL]

OwnerEmail="someone@somewhere.com"

--// No need to edit other settings

MinSlots=0
MaxHubs=5
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
PtokaxWiki ?PtokaX Mirror + latest Libs

01100001011011000111001101101111001000000110101101101110011011110111011101101110001000000110000101110011001000000101010001101111011010110110111101101100011011110111001101101000

plop

are you using a script 2 check for slots/hub's??
if so this script the settings from ptokax itself (the vallue's you see on the ptokax console).
2 solve this you can replace function Main and set your slot/hub settings manualy in gadget's script.
replace function Main for this 1.
function Main()
   HubAddress=GetFromIni("HubAddress")..":"..GetFromIni("HubPort")
end

plop
http://www.plop.nl lua scripts/howto\'s.
http://www.thegoldenangel.net
http://www.vikingshub.com
http://www.lua.org

>>----> he who fights hatred with hatred, drives the spreading of hatred <----<<

Flow84

Hi.

if i send:$BotINFO |

i get:$HubINFO FlowTestHub$flow84.no-ip.org:411$Testing Hub description$100$0$0$0$PtokaX 0.3 Lua 4.0.1 script$

and then i get disconnected...

i have tested this script on:
Ptokax 0.3.2.6 TestDrive 4.00 b
Ptokax 0.3.2.6 TestDrive 4.99

I send the $BotINFO to the hub after geting geting first main chat message.

in my test hub it is after geting

i have tested to send $BotINFO | after geting $Hello

but the it doesnt even reply with $HubINFO... and i dont get disconnected.

what do i do wrong?

this is the raw log:

$Lock DqACwP:R`58A$HubName FlowTestHub
Den h?r hubben k?r PtokaX DC Hub 0.3.2.6 TestDrive 4.99  (UpTime: 0 hours, 5 minutes)
$Hello Test
Welcome to PtokaX
+statbot
$NickList PtokaX$$OpChat$$[Owner]Flow84$$Test$$
$OpList PtokaX$$OpChat$$[Owner]Flow84$$
$MyINFO $ALL [Owner]Flow84 <++ V:0.401,M:A,H:1/3/6,S:2>$ $DSL$$0$
$MyINFO $ALL Test Test Version$ $BOT$$0$
$MyINFO $ALL Test Test Version$ $BOT$$0$

Flow84

it is now solved :D

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)
      return 1
   end

end

SMF spam blocked by CleanTalk