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
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?
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 :))
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????
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 .. :(
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?
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
yw
***Typhoon?
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
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
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
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 ...
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
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
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 ?
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....
?!?!?!
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?
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 ...
I have it now completely differently that am made with script above
thank you for you help....
mfg Dani