Please PLease Help Me

EXNET OWNER · 12 August, 2004, 14:10:40

i need to give my bot a tag so it looks like a normal user!
how do i do it, there must be some way please please help

i have this as the $MyINFO string and i cant make a tag :'(

BotName = "-???wL???-"
Description = "Yes I use a modified client, No I don't have a tag, BIG FUCKIN DEAL!"
Connection = "DSL"
Email = "None"
Share = "6958739042" -- In Bytes not KB, MB or GB
function Main()
Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
SendToAll (Bot_sMyInfoString)
frmHub:RegBot(BotName)
end

also i want to reg a bot as a user and not an op, is it possible

EXNET OWNER · 12 August, 2004, 14:13:25

1 more thing, i want to be able to update the bot's share amount from the hub how will i do it :S

is it posiible?

witch · 12 August, 2004, 14:26:52

Hi that's what u need i beleeve...change xxx to your Bot name/mail/description

__________________________________________________________________________________________

-- Script For Bot Description

-- Made By Don?t Know!

gb = 1024 * 1024 * 1024

bot_name = "xxx"

bot_email = "xxx"

bot_speed = "LightSpeed"

bot_descr = "xxx"

bot_share_size = 0 * 1024 * gb

bot_name2 = "xxx"

bot_email2 = "xxx"

bot_speed2 = "LightSpeed"

bot_descr2 = "xxx"

bot_name3 = "xxx"

bot_email3 = "xxx"

bot_speed3 = "LightSpeed"

bot_descr3 = "xxx"

function Main()

frmHub:RegBot( bot_name )

my_info_string = "$MyINFO $ALL "..bot_name.." "..bot_descr.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email..

"$"..bot_share_size.."$"

frmHub:RegBot( bot_name2 )

my_info_string2 = "$MyINFO $ALL "..bot_name2.." "..bot_descr2.."$ $"..bot_speed2..strchar( 1 ).."$"..bot_email2..

"$"..bot_share_size.."$"

frmHub:RegBot( bot_name3 )

my_info_string3 = "$MyINFO $ALL "..bot_name3.." "..bot_descr3.."$ $"..bot_speed3..strchar( 1 ).."$"..bot_email3..

"$"..bot_share_size.."$"

end

function OpConnected( user )

user:SendData( my_info_string )

user:SendData( my_info_string2 )

user:SendData( my_info_string3 )

end

function NewUserConnected( user )

user:SendData( my_info_string )

user:SendData( my_info_string2 )

user:SendData( my_info_string3 )

end

__________________________________________________________________________________________

Greetings

)

EXNET OWNER · 12 August, 2004, 14:32:01

no i have that already, it is only for one bot that i want to have a DC++ Tag i.e <++V:0.403 etc

an actual tag, my $MyINFO string works for the things you have given me, i also have one that only shows up if a reg or user connects, ops dont see the share, its to make sure users think there is an op in the hub at all times and dont try to attack because they think it is unwatched

<++V:0.403 <---------- tag like that for a bot????

Herodes · 12 August, 2004, 15:01:47

QuoteOriginally posted by EXNET OWNER
...i want to reg a bot as a user and not an op, is it possible

I am afraid this is not possible ... frmHub:RegBot(botname) will give a key no matter what u do .. :(

Typhoon · 12 August, 2004, 15:19:31

Then dont use frm:RegBot() ....
and just send the data when neede ..

like this script do .. i think its something like this you are asking for..

---------------------------------------------------------------- 
-- The User-bot will act like a normal user...  
-- Writen by Ale][ei --Works PERFECT with ALL 
-- PtokaX hub-softs 
-- 
-----------//Variables to edit\\--------------- 
bot_name = "[BBB]Mike" -- the name that will appear in the list 
--------Here You set bots Description settings-------- 
bot_share = "489263654977" -- share you want your bot to have(in bytes) 
bot_email = "not4u2know" -- email address you want your bot to have 
bot_description = "Allt <++ V:0.25,M:A,H:0/2/4,S:5>" -- bots description, <++ Tag is not really needed 
bot_speed = "LAN(T3)" -- bots speed(56kbps,DSL,Cabel,LAN(T1),LAN(T3)) 
---------\END OF VARIABLES/--------- 
---------/Do Not Edit Below\--------- 

function is( bool ) if bool and bool ~= 0 then return 1 ; end ; end -- allowing 0 to mean OFF 


function UserConnected( curUser ) 
if not (curUser.sName) == bot_name then 
curUser:SendData( "$MyINFO $ALL "..bot_name.." "..bot_description.."$ $"..bot_speed.."$"..bot_email.."$"..bot_share.."$" ) 
end 
end 

function DataArrival( curUser, data ) 

--// only our bot may have this nick 
if data == "$ValidateNick "..bot_name.."|" then 
curUser:SendData( "$ValidateDenide" ) 
curUser:Disconnect() 
elseif strsub( data, 1, 13 ) == "$ValidateNick" and not (curUser==bot_name) then 
curUser:SendData( "$MyINFO $ALL "..bot_name.." "..bot_description.."$ $"..bot_speed.."$"..bot_email.."$"..bot_share.."$" ) 

--// re-send Hello //-- 
elseif data == "$GetNickList|" then 
SendData( "$MyINFO $ALL "..bot_name.." "..bot_description.."$ $"..bot_speed.."$"..bot_email.."$"..bot_share.."$" ) 
end 

end

***Typhoon?

EXNET OWNER · 12 August, 2004, 16:29:12

I have modified it slightly and I have managed to reg a bot with a genuine DC tag. I am now on the hunt for someone to make a GUI, Herodes and Typhoon I will mention u in the credits as you helped me OK, cheers

Typhoon · 12 August, 2004, 16:56:39

yw

***Typhoon?

EXNET OWNER · 12 August, 2004, 17:00:49

i did man, i dunno wot u sayin ye w/e about come hav a look at the bot -???wL???- in anachy-hub.no-ip.com

Herodes · 12 August, 2004, 17:17:15

Here is a lil something .. :))

--- ChangeInfo ... by EXNET OWNER
--- altered by Herodes ... 12/08 - 2004 
--------------------------------------------------------------------------------------
--- allows to change the info of the bot ...
--- It can change the following :
--- --- Name / Description / Connection /...
--- --- Version / Mode / OpHubs / RegHubs /...
--- --- GuestHubs / Slots / Email / Share
--------------------------------------------------------------------------------------
WhoCan = "Herodes"
ChangeCmd = "+alter"
--------------------------------------------------------------------------------------
BotName = "-???OwL???-"
Description = "Yes I use a modified client, No I don't have a tag, BIG FUCKIN DEAL!"
Connection = "DSL"
Version = "0.403"
Mode = "A"
HubsOp = "1"
HubsReg = "0"
HubsGuest = "0"
Slots = "3"
Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
Email = "None"
Share = 6958739042 -- In Bytes not KB, MB or GB
--------------------------------------------------------------------------------------


function Main()
Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
	RegTheBot(BotName)
end
	
function DataArrival(user, data)
	if ( user.bOperator and (user.sName == WhoCan) ) then
	data = strsub(data,1,strlen(data)-1)
		_,_,cmd, what, arg = strfind(data, "%b<>%s+(%S*)%s(%S+)%s(.*)")
		if cmd == ChangeCmd then
			if ( (what ~= nil or what ~= "") and ( arg ~= nil or arg ~= "") ) then

				if what == "desc" then
					Description = arg 
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "con" then 
					Connection = arg
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "email" then 
					Email = arg
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "tag" then
					s,e,que = strfind(arg, "(%S+)")
						if que == "v" then
							s,e,num = strfind(arg , "%S+%s(%d+%.%d+)")
							if num then
							Tag = "<++ V:"..num..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The version has to be in the form of #.### where # is a number ...")
							end
						elseif que == "m" then
							s,e,mod = strfind(arg, "%S+%s(%S)")
							if mod then
							Tag = "<++ V:"..Version..",M:"..mod..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
							end
						elseif que == "ho" then
							s,e,ho = strfind(arg, "%S+%s(%d+)")
							if ho then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..ho..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The Operator Hubs value needs to be a number....")
							end
						elseif que == "hr" then
							s,e,hr = strfind(arg, "%S+%s(%d+)")
							if hr then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..hr.."/"..HubsOp..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The Registered Hubs value needs to be a number....")
							end
						elseif que == "hg" then
							s,e,hg = strfind(arg, "%S+%s(%d+)")
							if hg then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..hg.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The Guest Hubs value needs to be a number....")
							end
						elseif que == "s" then
							s,e,sl = strfind(arg, "%S+%s(%d+)")
							if sl then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..sl..">"
							else user:SendData("InfoChangeError", "The Slots value needs to be a number....")
							end
						else 
							local msg = "Please use the tag change as follows :\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag v \t\tchanges the version\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag m \tchanges the mode\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag ho \tchanges the number of Operator Hubs\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag hr \t changes the Registered Hubs\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag hg \tchanges the number of Guest Hubs\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag s \tchanges the slots number"
							user:SendData("InfoChangeError", msg)
							return 1 
						end
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "name" then
					s,e,arg = strfind(arg, "(%S+)")
					 UnregTheBot(BotName)
					BotName = arg
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "share" then
					if strfind(arg, "%d+") then
						Share = arg	
						Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
						RegTheBot(BotName)
					else 
						user:SendData("InfoChangeError", "the share has to be in numbers .... and only numbers ...")
					end
					return 1
				else user:SendData("InfoChangeError", "please use one of the following : desc / name / con / email / share ")
				end

			end
			--- SendToAll("InfoChage", BotName.." "..Description.." "..Tag.." "..Connection.." "..Email.." "..Share)
		end
	end
end

function UnregTheBot(Bot)
	frmHub:RegBot(Bot)
	frmHub:UnregBot(Bot)
end

function RegTheBot(Bot)
	frmHub:UnregBot(Bot)
	SendToAll (Bot_sMyInfoString)
	frmHub:RegBot(Bot)
end

You can change anything now ... If you look closely you will find where the actual Tag is going :))))) ehheh

EXNET OWNER · 12 August, 2004, 18:00:12

I am in the middle of making the GUI for this script enabling active changes without typing much! :)
I am also modifying Optimus's Right CLicker so I can use it with my script, thanks Herodes, good job m8, appreciate ur help

GUI??? Don't know when but I would appreciate it if you would delete this thread now, I don't want my script being released in Beta, I have Beta testers already thanks

this is also goin to be built into the AnarchyBot which I hav started....Not a lot sed in that area but it is coming soon

PLEASE DELETE THIS THREAD

Herodes · 12 August, 2004, 18:11:22

QuoteOriginally posted by EXNET OWNER
I am in the middle of making the GUI for this script enabling active changes without typing much! :)
I am also modifying Optimus's Right CLicker so I can use it with my script, thanks Herodes, good job m8, appreciate ur help

GUI??? Don't know when but I would appreciate it if you would delete this thread now, I don't want my script being released in Beta, I have Beta testers already thanks

this is also goin to be built into the AnarchyBot which I hav started....Not a lot sed in that area but it is coming soon

PLEASE DELETE THIS THREAD

Good Idea I'll add a right clicker on that script on my last post ...

Sorry but I dont know how to gui scripts or anything else ... I think I need MS .net for that no ?

About deleting this thread I dont understand why .. :S I find it quite informative ...

Herodes · 12 August, 2004, 19:16:55

right here is the script with the right click cmds added :))) enjoy :)

--- ChangeInfo ... by EXNET OWNER
--- altered by Herodes ... 12/08 - 2004 
--------------------------------------------------------------------------------------
--- allows to change the info of the bot ...
--- It can change the following :
--- --- Name / Description / Connection /...
--- --- Version / Mode / OpHubs / RegHubs /...
--- --- GuestHubs / Slots / Email / Share
--- Added right click menu for easy access :))) (thx for the idea EXNET :)
--------------------------------------------------------------------------------------
WhoCan = "Herodes"
ChangeCmd = "+alter"
--------------------------------------------------------------------------------------
BotName = "-???OwL???-"
Description = "Yes I use a modified client, No I don't have a tag, BIG FUCKIN DEAL!"
Connection = "DSL"
Version = "0.403"
Mode = "A"
HubsOp = "1"
HubsReg = "0"
HubsGuest = "0"
Slots = "3"
Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
Email = "None"
Share = 6958739042 -- In Bytes not KB, MB or GB
--------------------------------------------------------------------------------------


function Main()
Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
	RegTheBot(BotName)
end

function OpConnected(user)
	if user.sName == WhoCan then
		local tRCs = {
				"$UserCommand 0 7|",
				"$UserCommand 1 2 Change BotInfo\\Name $<%[mynick]> "..ChangeCmd.." name %[line: New Name for the Bot?]|",
				"$UserCommand 1 2 Change BotInfo\\Description $<%[mynick]> "..ChangeCmd.." name %[line: New Name for the Bot?]|",
				"$UserCommand 1 2 Change BotInfo\\Connection $<%[mynick]> "..ChangeCmd.." con %[line: Change the connection of the Bot?]|",
				"$UserCommand 1 2 Change BotInfo\\Tag\\Version $<%[mynick]> "..ChangeCmd.." tag v %[line: Change the Version in the tag of the Bot?]|",
				"$UserCommand 1 2 Change BotInfo\\Tag\\Mode $<%[mynick]> "..ChangeCmd.." tag m %[line: Change the Mode in the tag of the Bot?]|",
				"$UserCommand 1 2 Change BotInfo\\Tag\\Hubs\\Guest $<%[mynick]> "..ChangeCmd.." tag hg %[line: Change the number of Guest Hubs in the tag?]|",
				"$UserCommand 1 2 Change BotInfo\\Tag\\Hubs\\Reg $<%[mynick]> "..ChangeCmd.." tag hr %[line: Change the number of Reg Hubs in the tag?]|",
				"$UserCommand 1 2 Change BotInfo\\Tag\\Hubs\\Oper $<%[mynick]> "..ChangeCmd.." tag ho %[line: Change the number of Op Hubs in the tag?]|",
				"$UserCommand 1 2 Change BotInfo\\Tag\\Slots $<%[mynick]> "..ChangeCmd.." tag s %[line: Change the number of Slots in the tag?]|",
				"$UserCommand 1 2 Change BotInfo\\Email $<%[mynick]> "..ChangeCmd.." tag s %[line: Change the Bot's Email?]|",
				"$UserCommand 1 2 Change BotInfo\\Share $<%[mynick]> "..ChangeCmd.." tag s %[line: Change Bot's Share?]|",
				};
		for i , v in tRCs do
			user:SendData(tRCs[i])
		end
		user:SendData("InfoChanger", "The right click for changing the properties of the bot is there .. :)")
	end
end
				
function DataArrival(user, data)
	if ( user.bOperator and (user.sName == WhoCan) ) then
	data = strsub(data,1,strlen(data)-1)
		_,_,cmd, what, arg = strfind(data, "%b<>%s+(%S*)%s(%S+)%s(.*)")
		if cmd == ChangeCmd then
			if ( (what ~= nil or what ~= "") and ( arg ~= nil or arg ~= "") ) then

				if what == "desc" then
					Description = arg 
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "con" then 
					Connection = arg
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "email" then 
					Email = arg
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "tag" then
					s,e,que = strfind(arg, "(%S+)")
						if que == "v" then
							s,e,num = strfind(arg , "%S+%s(%d+%.%d+)")
							if num then
							Tag = "<++ V:"..num..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The version has to be in the form of #.### where # is a number ...")
							end
						elseif que == "m" then
							s,e,mod = strfind(arg, "%S+%s(%S)")
							if mod then
							Tag = "<++ V:"..Version..",M:"..mod..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
							end
						elseif que == "ho" then
							s,e,ho = strfind(arg, "%S+%s(%d+)")
							if ho then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..ho..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The Operator Hubs value needs to be a number....")
							end
						elseif que == "hr" then
							s,e,hr = strfind(arg, "%S+%s(%d+)")
							if hr then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..hr.."/"..HubsOp..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The Registered Hubs value needs to be a number....")
							end
						elseif que == "hg" then
							s,e,hg = strfind(arg, "%S+%s(%d+)")
							if hg then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..hg.."/"..HubsReg.."/"..HubsOp..",S:"..Slots..">"
							else user:SendData("InfoChangeError", "The Guest Hubs value needs to be a number....")
							end
						elseif que == "s" then
							s,e,sl = strfind(arg, "%S+%s(%d+)")
							if sl then
							Tag = "<++ V:"..Version..",M:"..Mode..",H:"..HubsGuest.."/"..HubsReg.."/"..HubsOp..",S:"..sl..">"
							else user:SendData("InfoChangeError", "The Slots value needs to be a number....")
							end
						else 
							local msg = "Please use the tag change as follows :\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag v \t\tchanges the version\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag m \tchanges the mode\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag ho \tchanges the number of Operator Hubs\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag hr \t changes the Registered Hubs\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag hg \tchanges the number of Guest Hubs\r\n"
									msg = msg.."\t - "..ChangeCmd.." tag s \tchanges the slots number"
							user:SendData("InfoChangeError", msg)
							return 1 
						end
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "name" then
					s,e,arg = strfind(arg, "(%S+)")
					 UnregTheBot(BotName)
					BotName = arg
					Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
					RegTheBot(BotName)
					return 1
				elseif what == "share" then
					if strfind(arg, "%d+") then
						Share = arg	
						Bot_sMyInfoString = "$MyINFO $ALL "..BotName.." "..Description..Tag.."$ $"..Connection.."$"..Email.."$"..Share.."$|"
						RegTheBot(BotName)
					else 
						user:SendData("InfoChangeError", "the share has to be in numbers .... and only numbers ...")
					end
					return 1
				else user:SendData("InfoChangeError", "please use one of the following : desc / name / con / email / share ")
				end

			end
			--- SendToAll("InfoChage", BotName.." "..Description.." "..Tag.." "..Connection.." "..Email.." "..Share)
		end
	end
end

function UnregTheBot(Bot)
	frmHub:RegBot(Bot)
	frmHub:UnregBot(Bot)
end

function RegTheBot(Bot)
	frmHub:UnregBot(Bot)
	SendToAll (Bot_sMyInfoString)
	frmHub:RegBot(Bot)
end

CuT-KiLLeR · 15 August, 2004, 11:40:58

hm... help...

the information is not indicated to me ;(

and i becommes the following syntax error....

QuoteNo syntax errors in the script.
Syntax Error: attempt to concat local `share' (a nil value)
Syntax Error: attempt to concat local `share' (a nil value)
Syntax Error: attempt to concat local `share' (a nil value)

---------------

I make which wrongly ????

or is because I several bots the same names gives ?

i heave ca. 10 bots up one name....

-------------------

can me help possibly someone ???

thanks to all

i hope you can me understand

Herodes · 15 August, 2004, 11:48:41

I think you have an incomplete $MyINFO string there somewhere ... so to take it lightly I think it has to be the 10in1 bots configuration of yours ...
Can you name a list of the scripts running ?

CuT-KiLLeR · 15 August, 2004, 12:02:07

i heave follow scripts...

an Entery bot:

Quoteborder1 = "<>=========================H=U=B==I=N=F=O==============================="
border2 = "<>======================================================================"
disp = "\r\n\r\n"..border1.."\r\n"
disp = disp.." ? Dieser HuB Ben?tzt den: "..uBot.."\r\n"
disp = disp.." ? Willkommen: "..user.sName.."\r\n"

an Guestbook,

-- Link Database,

send messege to Unreg users,

Quote------------

-- Description:
-- Each 20 min, Bot is talking alone, with random questions...
-- If someone speaks again on main chat, there is a random answer, and then the timer is starting again.
-- If the user says a known trig (ex: 'hey '), and the bot was feeling alone, after 20min, Bot will choose the correct answer (ex:'Yessss,...[USER] happy to hear U again,, :))')
-- If the users is just sending some commands (#,!,?,+) the timer is not re starting, and the bot is not answering... ( i thought it was nicest like that... )
-- Now, no more the 'a' synthax,... (but I'm still quite nb in lua...)
-- If no one is speaking at 7:00 Am, seNsi will try to wake up the hub...and at 19:00 Pm, she'll probably ask for one drink... :D
----------------------------------------------------------------

this bot

and a bot who i make self... a trigger bot... ( in this bot i heave make the script by you )

six bots :)

this running in one name...

that is amusing none offered a description has....

?!?!?!

EXNET OWNER · 15 August, 2004, 13:31:07

I have now added the ability to change the client i.e ++ in the tag :D
Still havent found someone to make a GUI for me :(
Herodes, would you be interested in working on a full featured bot?

Herodes · 15 August, 2004, 13:37:53

I think it would be difficult to find where is that share nil problem with all those scripts running ... ( although that error shouldn't make the script to stop running .. ;)

Try running the script alone and then putting on the the rest one by one .... also try to see what was the last sent $MyINFO from the PtokaX Chat window with CMD ticked on ...

I think it should be a very condition specific problem ...

CuT-KiLLeR · 15 August, 2004, 17:39:38

I have it now completely differently that am made with script above

thank you for you help....

mfg Dani

PtokaX forum

News:

Please PLease Help Me

EXNET OWNER

EXNET OWNER

witch

EXNET OWNER

Herodes

Typhoon

EXNET OWNER

Typhoon

EXNET OWNER

Herodes

EXNET OWNER

Herodes

Herodes

CuT-KiLLeR

Herodes

CuT-KiLLeR

EXNET OWNER

Herodes

CuT-KiLLeR