Hub Guestbook

[pHaTTy]

Originally posted by plop

Originally posted by (uk-kingdom)pH?tt?

Originally posted by plop

Originally posted by (uk-kingdom)pH?tt?
yep looks ok but still doesnt win me over to large tabs :p

eeehm lets see then.
lua is a character interprative language, your way takes 3 extra characters per tab.
so on 10 lines this means 30 extra characters, which means my small tabs are slightly faster. lol

did i convice ya now ???  lol
i bet not.

plop

lol hahahaha almost :p

oki maby i should sleep over some more things 2 fully convice ya.
but it's a bit useless so i won't.
every1 has it's own style in how they write/tab or do things.
and this makes it only more fun.
i just love titmouse as the build-in debbugger is really handy.

plop

where can i get this program you speak of please /:)

pHaTz,

[plop]

Originally posted by (uk-kingdom)pH?tt?

Originally posted by plop

Originally posted by (uk-kingdom)pH?tt?

Originally posted by plop

Originally posted by (uk-kingdom)pH?tt?
yep looks ok but still doesnt win me over to large tabs :p

eeehm lets see then.
lua is a character interprative language, your way takes 3 extra characters per tab.
so on 10 lines this means 30 extra characters, which means my small tabs are slightly faster. lol

did i convice ya now ???  lol
i bet not.

plop

lol hahahaha almost :p

oki maby i should sleep over some more things 2 fully convice ya.
but it's a bit useless so i won't.
every1 has it's own style in how they write/tab or do things.
and this makes it only more fun.
i just love titmouse as the build-in debbugger is really handy.

plop

where can i get this program you speak of please /:)

pHaTz,

omg did i convice you. ????  lol
here you can get it.
but it needs some dll, saintsinner or nighlitch know where 2 get it.
on me it never asked for this as i started with an earlyer version.
but if you want it i can email that 1 2 you.

plop

[pHaTTy]

thx bro ill get right to it, see what its like, i think the save cpu sounds good to me :p

thx ;)

[pHaTTy]

:rolleyes: ooh almost lol. starts ok, but i cant start a new script or open without bill telling me windows has perfomred a sh**y mistake *lol*

[plop]

Originally posted by (uk-kingdom)pH?tt?
:rolleyes: ooh almost lol. starts ok, but i cant start a new script or open without bill telling me windows has perfomred a sh**y mistake *lol*

thats the missing dll.
send me an email and i'll respond with what you need. lol

plop

[pHaTTy]

Originally posted by plop

Originally posted by (uk-kingdom)pH?tt?
:rolleyes: ooh almost lol. starts ok, but i cant start a new script or open without bill telling me windows has perfomred a sh**y mistake *lol*

thats the missing dll.
send me an email and i'll respond with what you need. lol

plop

send about 20mins ago bah :(( lol i pm you addy

[SaintSinner]

here ya go

http://mitglied.lycos.de/dirtyfinger01/files/TitMouse.zip

has the prog and the dll file

[pHaTTy]

Originally posted by SaintSinner
here ya go

http://mitglied.lycos.de/dirtyfinger01/files/TitMouse.zip

has the prog and the dll file

doesnt work

[SaintSinner]

Originally posted by (uk-kingdom)pH?tt?


doesnt work

the link?

right click and save as


if its the prog
then unzip it and then run it.

[pHaTTy]

Originally posted by SaintSinner

Originally posted by (uk-kingdom)pH?tt?


doesnt work

the link?

right click and save as


if its the prog
then unzip it and then run it.

ok done thx

[SaintSinner]

no prob

[Woodster]

Was wondering - How many adds can it store within the guestbook ??

Also how to you delete an entry??

Any way of confermation of entry complete? ??

Woodster

[plop]

Originally posted by Woodster
Was wondering - How many adds can it store within the guestbook ??

Also how to you delete an entry??

Any way of confermation of entry complete? ??

Woodster

the limit of it is your drive space avail. lol
there isn't a delete command in it but you can delete things manualy from the data file.

plop

[((UKSN))shad_dow]

ello phatty,plop,saintsinner

right been trying to add a delete comand to this script eg:

#deleteGBook

but i can make it delete All the messages  with

GBook = "guestbook.dat"

function DelGBook(user,data)
                    writeto(GBook)
                                  write("")
                                  writeto()
                                  user:SendPM(Bot,"GBook
 is Deleted..!")
end

but cant work out how to make delte the a message when using this command :-

#deleteGBook

any help would be most welcome since u lot are the best of the best :) (that should get me some brownie points LOL)

[kepp]

-- GuestBook by kepp
-- add,read,delete
-- Have fun

sBot = "GuestBook"

function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,1) == "<") then
		data = strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data,"%b<>%s+(%S+)")

		if (cmd=="+addgb") then
			AddIt(user, data) return 1

		elseif (cmd=="+readgb") then
			ReadIt(user, data) return 1

		elseif (cmd=="+delete") then
			Delfile(user, data)
		end
	end
end


function AddIt(user, data)
s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)%s+(.+)")
	if arg == nil then
		user:SendData(sBot,"Please enter a message!! (I don't think people like reading empty posts!)")
	else
		local file = openfile("guestbook.lst","a+")
		write(file," Author : "..user.sName.." & Date : "..date().." & Subject : & "..arg.." &&")
		user:SendData(sBot,"Your entry has been saved..")
		closefile(file)
	end
end

function ReadIt(user, data)
brd = "@==== G U E S T  B O O K ====@"
ebrd = "@========== E N D ==========@"
local file = openfile("guestbook.lst","r")
	if file == nil then
		user:SendData(sBot,"There are no entries yet! You want the first place? ;)?")
	else
		line = read(file,"*a")
		line = gsub(line,"&","\r\n")
		user:SendData(sBot,"\r\n"..brd.."\r\n\r\n"..line.."\r\n"..ebrd)
		closefile(file)
	end
end

function Delfile(user, data)
local file = remove("guestbook.lst")
user:SendData(sBot,"File is removed.")
	if file == nil then
	user:SendData(sBot,"ERROR*** File dosen't exist") return 1
	end
end

[((UKSN))shad_dow]

nice 1 keep :)

thats better than my GBook commands in my New Bot , now how do i delete a enter out of the book ????


hope this is right , cant test aint got my over comp running as yet [HD crashed on it :( ]

heres the code

function DeleteMessage(user, data)
s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)%s+(.+)")
	if arg == nil then
		user:SendData(sBot," ERROR*** Type +DelMessage ...Try again***")	else
		local file = openfile("guestbook.lst","a+")
		remove(file,"..arg..")
		user:SendData(sBot,"Message Deleted..")
		closefile(file)
	end

u would have to copy the message stright from guestbook.lst after u done +readgb if u follow as it would have to be exctly the same as it was writein to the guestbook.lst :)

 

[kepp]

not sure if this remove(file,"..arg..") will work

How does the output look like?

is it in a table? :S

[((UKSN))shad_dow]

like i said kepp i aint shaw cos i cant test on this comp , use other comp for codeing (down due to JD crash) , but u might be right on the table , but i aint that good , going to to install Backup HD in 2nd comp and test , cos i got the bug now and i wont sleep :) :)

[((UKSN))shad_dow]

hello kepp

dident take that long to install backup HD

heres what i get when i run the +Delmessage command


Syntax Error: bad argument #1 to 'remove, {string expected, got userdata)

no this is were my lack of luna comes in to play cos i aint a clue as yet what to do
 ?(