can someone post me a release bot a good release bot not like the crapy Add_on of robocop...
i asked this 1000 time :( and no one answer me so please i need it ASAP !!!
Use a script called freshstuff. I use fresh stuff but not the latest one, but i have editied it to make for my hub for CD Albums CD Singles MP?'s etc.
Hope that will help you and be useful....
FreshStuff (http://board.univ-angers.fr/thread.php?threadid=59&boardid=12&sid=6b2dfbddc0115a25eaed4b57c6da5a8b)
;-) ;-)
no no Frash... is more CRAP than the addon of robocop...
m8 i understand ur lookin 4 a script but i dnt think its right a single bit that u call parts of optimus and plops work crap or rubbish. i suggest you treat it with more respect. cos i beleive what they do is extremly hard work and u wouldnt be askin 4 a script if u knew how to script therefore u cnt judge others scripts and publically call them crap.
i dnt mean to cause an argument but i believe this has 2 be said!
be grateful for these scripters!
Devastator
look the robocop is the BEST !!!! BoT ever ! but the addon(releasebot) is very ugly and not so good i never say the thay work is crap i say that the releases bot is crap and ugli...
Hi,
Tell us what you relly want then.
Best regards, nErBoS
high m8 :) how are ya?
i whant a release BoT that look somthing like this...
Grand $Release $post by user
PsyTrance Rinkadink_-_Rabbit_From_Darkside-2004-UPE Post By DJ-Valhala At "date"
10x :D
Hi,
You want to user add the relases, or ops ?? Which commands you want and what to do ??
Best regards, nErBoS
all can use this script command = +add release discroption
+rd show the releaselist
and the bot should be OFFLINE and it will sand PM to MIAN
10x :)
you are the BEST !!!
Hi,
Hope it helps..
--Requested by D-J Valhala
--Made by nErBoS
Bot = "RBot"
reltxt = "releases.txt" -- Wil be created in the script folder
function DataArrival(user, data)
if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if (cmd=="!addrel") then
AddRelease(user, data)
return 1
elseif (cmd=="!showrel") then
ShowRelease(user, data)
return 1
end
end
end
function AddRelease(user, data)
local s,e,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
local tmp = ""
if (rel == nil or rel == "" or desc == nil or desc == "") then
user:SendData(Bot, "Syntax Error, !addrel , must have a release name and description.")
else
readfrom(reltxt)
while 1 do
local line = read()
if(line == nil or line == "") then
tmp = tmp..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|\r\n"
break
end
end
readfrom()
user:SendData(Bot, "Your Release as been added to our lits, thank you.")
end
end
function ShowRelease(user, data)
local tmp = ""
tmp = tmp.."Our List of Releases: \r\n\r\n"
readfrom(reltxt)
while 1 do
local line = read()
if (line == nil) then
break
else
local s,e,rel,desc,who,time = strfind(line, "(.*)$(.*)$(.*)$(.*)|")
tmp = tmp.."Release Name: "..rel.."\r\n"
tmp = tmp.."Description: "..desc.."\r\n"
tmp = tmp.."Posted by: "..who.."\r\n"
tmp = tmp.."Post Time: "..time.."\r\n\r\n"
end
end
readfrom()
user:SendData(Bot, tmp)
end
function GetTime()
s = date("%S")
h = date("%H")
m = date("%M")
d = date("%d")
mm = date("%m")
y = date("%y")
Date = "Date: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
return Date
end
Best regards, nErBoS
the scrip add the release but not shoing the releases...
and i wanna it to show the command like
+add test test
New Release has added by .."username".. Type +rd to see the release list
ohhh and please can you add +rdfull = show all releases
+rd show 30 lest releases
10x :D
and make tha commands +add = add release
+rd = show 30 lest release
+rdfull = show all releases
Quotem8 i understand ur lookin 4 a script but i dnt think its right a single bit that u call parts of optimus and plops work crap or rubbish. i suggest you treat it with more respect. cos i beleive what they do is extremly hard work and u wouldnt be askin 4 a script if u knew how to script therefore u cnt judge others scripts and publically call them crap.
I totaly agree, you ( D-J Valhala ) start a thread askin for help and in your first 2 posts you publically put down 2 ppls work.
I suggest you learn to script very quick m8 if your going to post comments like that.
Hi,
Done, some bugs corrected also...
--Requested by D-J Valhala
--Made by nErBoS
Bot = "RBot"
reltxt = "releases.txt" -- Wil be created in the script folder
function DataArrival(user, data)
if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if (cmd=="!add") then
AddRelease(user, data)
return 1
elseif (cmd=="!rdfull") then
ShowRelease(user, data, "all")
return 1
elseif (cmd=="!rd") then
ShowRelease(user, data, "last")
return 1
end
end
end
function AddRelease(user, data)
local s,e,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
local tmp = ""
if (rel == nil or rel == "" or desc == nil or desc == "") then
user:SendData(Bot, "Syntax Error, !add , must have a release name and description.")
else
if (readfrom(reltxt) == nil) then
writeto(reltxt)
write("\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|")
writeto()
else
readfrom(reltxt)
while 1 do
local line = read()
if (line == "") then
tmp = tmp.."\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|"
elseif(line == nil) then
break
else
tmp = tmp.."\r\n"..line
end
end
readfrom()
writeto(reltxt)
write(tmp)
writeto()
end
SendToAll(Bot, "New Release has been added by "..user.sName.."... Type +rd to see the release list.")
user:SendData(Bot, "Your Release as been added to our lits, thank you.")
end
end
function ShowRelease(user, data, type)
local tmp = ""
local tline = 0
if (type == "last") then
tmp = tmp.."Our List of teh last 30 Releases: \r\n\r\n"
else
tmp = tmp.."Our List of Releases: \r\n\r\n"
end
readfrom(reltxt)
while 1 do
local line = read()
if (type == "last") then
if (tline == 4) then
break
end
end
if (line == nil) then
break
else
local s,e,rel,desc,who,time = strfind(line, "(.*)$(.*)$(.*)$(.*)|")
if (rel ~= nil) then
tmp = tmp.."Release Name: "..rel.."\r\n"
tmp = tmp.."Description: "..desc.."\r\n"
tmp = tmp.."Posted by: "..who.."\r\n"
tmp = tmp.."Post Time: "..time.."\r\n\r\n"
tline = tline + 1
end
end
end
readfrom()
user:SendData(Bot, tmp)
end
function GetTime()
s = date("%S")
h = date("%H")
m = date("%M")
d = date("%d")
mm = date("%m")
y = date("%y")
Date = "Date: "..d.."/"..mm.."/20"..y.." Hour: "..h..":"..m..":"..s
return Date
end
Best regards, nErBoS
hmmmmmm the script work very good ! but the look of it is the same as robo Add_On... can you connect my hub i will show you how it's need to be :)
10x
Hi,
There is no need to me to go to your Hub, just explain here what you want to change and i will do. Give examples that would help.
Best regards, nErBoS
i want it to lood like that...
------------------------------------------------------------------------
L i s t o f L a s t 3 0 R e l e a s e s :
Date Style Release Submitter
040308 Ambient Kalahari_Surfers_-_Conspiracy_of_Silence-2004-MYCEL chip
040308 Psychedelic Phase_Phour_-_...Boiing_and_Zipp-2004-PoP [Xstream]endorphin
040309 Psytrance VA_-_The_Next_Generation-PROPER-2004-UPE Hook
040309 Ambient Pass_Into_Silence--Calm_Like_A_Millpond_(KOMCD31)-CD-2004-CMC Hook
040309 Psychedelic Mibra_-_Mystical_by_Mibra-Promo-CDR-[2004] Masteroi_HS
040309 Ambient Deep_Forest-Essence_of_the_Forest-(Special_Edition)-2004-OSC Hook
040309 Ambient Nastrond--Celebration_Of_The_Four-Ltd_Ed-2004-ViC Hook
040310 Psychadelic DJ_Vax_-_Analog_Devices-(Promo_Mix)-2004-PsyCZ chakra
040310 Psychadelic DJ_Asuhra_-_Portugalien_Sunset-(Promo_Mix)-2004-PsyCZ chakra
040310 Psychadelic VA_-_Firewall-2004-PsyCZ chakra
040310 Psychedelic VA_-_Beatport_One-(JJR05LP)-Vinyl-2001-BLIZZARD Masteroi_HS
040310 Ambient Alien_Mutation_Vs_Indigo_Egg_-_Microcosm_Macrocosm-1996-PsyCZ Masteroi_HS
040310 Ambient Crystal_Moon_-_Temple-1997-PsyCZ Masteroi_HS
040310 Psychedelic Killing_Joke-Democracy-Promo_Only_CDM_(Zoo_Entertainment)-1996-CHR Masteroi_HS
040310 Psychedelic Infected_Mushroom_And_Yahel-Live_On_Radio_99_Esc_07-03-2004-1REAL Masteroi_HS
040310 Psychedelic Dj_Guy_Salama_Feat_Psytekk-Trance_BPM_On_Radio_99_Esc_06-03-2004-1REAL Masteroi_HS
040310 Goa Elysium_-_Dance_For_The_Celestial_Beings-1995-ECT Paxton
040310 Psytrance Puoskari-The_Audio_Hustler-2004-RDA Hook
040310 Psychedelic VA_-_Mental_Case-2004-MYCEL MidNighT
040311 Psytrance Audiomatic_-_Multiplayer-2004-MYCEL Hook
040311 Psychedelic Infected_Mushroom-Deeply_disturbed(live_main_stage_1-3-2004)-SVCD-2004-MphMv Paxton
040311 Chill Wooden_Toys_-_Wooden_Toys-1999-PsyCZ_NP Paxton
040311 Psytrance Human_Blue_-_Rollercoaster_and_How_Far_Can_You_Go_(SPIT_034)-VLS-2004-gEm Hook
040311 Psytrance VA_-_Pure_Imagination_Vol.1-2004-QMI Hook
040312 Psytrance Prometheus_-_Robot-O-Chan-Retail-2004-MYCEL Hook
040312 Psychedelic Tomtron_And_Liesegang_-_Electric_Tandem-2CD-2004-MYCEL Paxton
040312 Electronic Funkstorung_-_Disconnected_PROMO-2004-UPE Paxton
040312 Psychedelic X-Dream-Live_On_102FM_11-03-2004-1REAL MidNighT
040313 Psychedelic Astrix_-_Tunsis_(Unreleased)-Promo-CDS-2004-QMI Masteroi_HS
040313 Psychedelic VA-The_Bright_Side_Of_Hypnotic_World_Of_Goa-2004-DELTA Masteroi_HS
------------------------------------------------------------------------
it's not sopose to look like you see it in the bord in DC++ i can show you execly how it need to look :)
Hi,
Belive is this you want..
--Requested by D-J Valhala
--Made by nErBoS
Bot = "RBot"
reltxt = "releases.txt" -- Wil be created in the script folder
function DataArrival(user, data)
if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind(data,"%b<>%s+(%S+)")
if (cmd=="!add") then
AddRelease(user, data)
return 1
elseif (cmd=="!rdfull") then
ShowRelease(user, data, "all")
return 1
elseif (cmd=="!rd") then
ShowRelease(user, data, "last")
return 1
end
end
end
function AddRelease(user, data)
local s,e,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")
local tmp = ""
if (rel == nil or rel == "" or desc == nil or desc == "") then
user:SendData(Bot, "Syntax Error, !add , must have a release name and description.")
else
if (readfrom(reltxt) == nil) then
writeto(reltxt)
write("\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|")
writeto()
else
readfrom(reltxt)
while 1 do
local line = read()
if (line == "") then
tmp = tmp.."\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|"
elseif(line == nil) then
break
else
tmp = tmp.."\r\n"..line
end
end
readfrom()
writeto(reltxt)
write(tmp)
writeto()
end
SendToAll(Bot, "New Release has been added by "..user.sName.."... Type +rd to see the release list.")
user:SendData(Bot, "Your Release as been added to our lits, thank you.")
end
end
function ShowRelease(user, data, type)
local tmp = ""
local tline = 0
if (type == "last") then
tmp = tmp.."\r\n\r\nOur List of teh last 30 Releases: \r\n\r\n"
tmp = tmp.."Date Style Release Submitter\r\n\r\n"
else
tmp = tmp.."\r\n\r\nOur List of Releases: \r\n\r\n"
tmp = tmp.."Date Style Release Submitter\r\n\r\n"
end
readfrom(reltxt)
while 1 do
local line = read()
if (type == "last") then
if (tline == 4) then
break
end
end
if (line == nil) then
break
else
local s,e,rel,desc,who,time = strfind(line, "(.*)$(.*)$(.*)$(.*)|")
if (rel ~= nil) then
tmp = tmp..time.." "..desc.." "..rel.." "..who
tline = tline + 1
end
end
end
readfrom()
user:SendPM(Bot, tmp)
end
function GetTime()
d = date("%d")
mm = date("%m")
y = date("%y")
Date = y..mm..d
return Date
end
Best regards, nErBoS
yes the script work very good but... PLEASE Connecet my hub for a sec i need to shaow you and i can't show it here coz it's not show this as i write it
so please connect my hub i will show you :)
QuoteOriginally posted by D-J Valhala
yes the script work very good but... PLEASE Connecet my hub for a sec i need to shaow you and i can't show it here coz it's not show this as i write it
so please connect my hub i will show you :)
show your example between the code tags and it will show like you want it.
plop
Hi there...
Great bot.. But....
When I am posting something on to him I want everybody on the
mainchat to see what I was posting, and when ..
f.x
Nebon added file (24.02.2004): Terminator.2.SCREENER.divX
Can you help me ?
QuoteOriginally posted by Nebon Noden
Hi there...
Great bot.. But....
When I am posting something on to him I want everybody on the
mainchat to see what I was posting, and when ..
f.x
Nebon added file (24.02.2004): Terminator.2.SCREENER.divX
Can you help me ?
look here (http://board.univ-angers.fr/thread.php?threadid=1951&boardid=12&styleid=1) or here (http://board.univ-angers.fr/thread.php?threadid=900&boardid=12&styleid=1&page=1).
plop