A Release BoT

[D-J Valhala]

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 !!!

[Flux]

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....

[Woodster]

FreshStuff

;-)  ;-)

[D-J Valhala]

no no Frash... is more CRAP than the addon of robocop...

[Devastator]

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

[D-J Valhala]

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...

[nErBoS]

Hi,

Tell us what you relly want then.

Best regards, nErBoS

[D-J Valhala]

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

[nErBoS]

Hi,

You want to user add the relases, or ops ?? Which commands you want and what to do ??

Best regards, nErBoS

[D-J Valhala]

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 !!!

[nErBoS]

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

[D-J Valhala]

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

[??????Hawk??????]

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 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.

[nErBoS]

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

[D-J Valhala]

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

[nErBoS]

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

[D-J Valhala]

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 :)

[nErBoS]

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

[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 :)

[plop]

Originally 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

[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 ?

[plop]

Originally 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 or here.

plop