Can somebody give me !help script?

[Janhouse]

I am looking for !help script.
I whant that help is shown in PM and ptokax help won't show.
If it's posible to show for each profile each help?
For masters, for operators, for vips, regs and standart users.
If it is posible, then please can you give me that script?

[Janhouse]

Can somebody help me? Please!!!
 :D

[Janhouse]

OK! I found one but it doesn't work.

Kos = "LV"

function Main()
	frmHub:RegBot(Kos)
end

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

			user:SendPM(Kos, Help(user, type))
		end
	end
end

function Help(user)
	local disp = "\r\n\r\n"
	if (user.iProfile == 5) then
		disp = disp.."~~				COMANDI PER GLI UTENTI:				~~\r\n\r\n"
		disp = disp.."\r\n"
		disp = disp.."	!report 			-	Spedisce un messaggio agli Operatori\r\n"
		disp = disp.."	!changepass 		-	Cambia la tua attuale password\r\n"
		disp = disp.."	!me 				-	Fai un discorso in terza persona\r\n"
		disp = disp.."	+help					-	Visualizza questa finestra\r\n"
		disp = disp.."\r\n"
	elseif (user.iProfile == 2) then
		disp = disp.."\r\n"
		disp = disp.."~~				COMANDI PER GLI OPERATORI:			~~\r\n\r\n"
		disp = disp.."\r\n"
		disp = disp.."	!boom  			-	Banna un utente\r\n"
		disp = disp.."	!disconnect  		-	Disconnette un utente\r\n"
		disp = disp.."	!addreg   	-	Registra un utente (livello consentito Reg)\r\n"
		disp = disp.."	!delreg 				-	Deregistra un utente (livello consentito Reg)\r\n"
		disp = disp.."	!mass 			-	Spedisce un messaggio a tutti (comando abbreviato !mm)\r\n"
		disp = disp.."\r\n"
	elseif (user.iProfile == 4) then
		disp = disp.."\r\n"
		disp = disp.."~~				COMANDI PER I MODERATORI:			~~\r\n\r\n"
		disp = disp.."\r\n"
		disp = disp.."	!getbanlist 				- 	Mostra la lista dei bannati\r\n"
		disp = disp.."	!getinfo  			- 	Mostra le informazioni di un nick\r\n"
		disp = disp.."	!gag  				- 	Imbavaglia un utente\r\n"
		disp = disp.."	!ungag  				- 	Leva il bavaglio\r\n"
		disp = disp.."	!clrtempban 				- 	Cancella lista dei ban temporanei\r\n"
		disp = disp.."	!clrpermban 				- 	Cancella la lista dei ban permanenti\r\n"
		disp = disp.."\r\n"
	elseif (user.iProfile == 0) then
		disp = disp.."\r\n"
		disp = disp.."~~				COMANDI PER I MASTER:				~~\r\n\r\n"
		disp = disp.."\r\n"
		disp = disp.."	!reloadtxt 				- 	Fai ripartire tutti i textfiles\r\n"
		disp = disp.."\r\n"
	elseif (user.iProfile == 1) then
		disp = disp.."\r\n"
		disp = disp.."~~				COMANDI PER GLI ADMIN:				~~\r\n\r\n"
		disp = disp.."\r\n"
		disp = disp.."	!restartscripts 			- 	Resetta gli script\r\n"
		disp = disp.."	!stat 					-	Mostra le statisctiche dell'hub\r\n"
		disp = disp.."	!topic  				- 	Setta un nuovo topic. O !topic off per cancellare il topic\r\n"
		disp = disp.."	!ipinfo  				- 	Mostra tutte le informazioni di un ip\r\n"
		disp = disp.."	!iprangeinfo  			- 	Mostra le informazioni di un iprange\r\n"
		disp = disp.."	!userinfo  			- 	Mostra le visite di un certo utente\r\n"
		disp = disp.."\r\n"
	elseif (user.iProfile == 0) then
		disp = disp.."\r\n"
		disp = disp.."~~				COMANDI PER GLI OWNER:				~~\r\n\r\n"
		disp = disp.."\r\n"
		disp = disp.."	!hubname 			-	Cambia il nome dell'hub\r\n"
		disp = disp.."	!hubdescr 			-	Cambia la descrizione dell'hub\r\n"
		disp = disp.."	!setredirect 		-	Setta l'indirizzo di redirect\r\n"
		disp = disp.."	!setredirectall 		-	Setta l'indirizzo dove redirettare tutti\r\n"
		disp = disp.."	!setredirectfull 		-	Setta l'indirizzo del redirect nel caso in cui l'hub sia pieno\r\n"
		disp = disp.."	!setregserver 		-	Setta l'indirizzo del Server dove registrare l'hub\r\n"
		disp = disp.."	!setminshare  	-	Setta lo share minimo (grandezza: 0=byte  1=KB  2=MB  3=GB)\r\n" 
		disp = disp.."	!setmaxuser 			-	Setta il numero massimo di utenti\r\n"
		disp = disp.."	!setmaxslots 			-	Setta il numero massimo di slots che un utente pu? tenere aperti\r\n"
		disp = disp.."	!setminslots 			-	Setta il numero minimo di slots che un utente pu? tenere aperti\r\n"
		disp = disp.."	!setslotratio 			-	Setta il numero di slots aperti in relazione agli hub aperti\r\n"
		disp = disp.."	!setmaxhub 			-	Setta il numero massimo di hub in cui un utente pu? stare\r\n"
		disp = disp.."	!op  				- 	Permette di creare un op temporaneo fino a quendo non si sconnette\r\n"
		disp = disp.."	!restart 				- 	Fai ripartire l'hub\r\n"
		disp = disp.."\r\n"
	end
	return disp
end

Can somebody fix this script?

[nErBoS]

Hi,

That script was made to a certain bot i belive, nad have differents profiles. Give us all ptokax commands and we can do that.

Best regards, nErBoS

[Sprinting]

wouldn't using a bot like robocop look after this?

[Janhouse]

But I don't whant to use robocop. I whant it seperately.

[plop]

Originally posted by Janhouse
But I don't whant to use robocop. I whant it seperately.

the problem is that the help menu is depending on the bot you are running.
having a standalone help menu is always in someway gone fail.
but what would make it the easyest for you is a kind of texter bot, showing different files on the same command.
that way you can just mod the text files 2 show the commands for the users level.

plop

[Janhouse]

Ploop can you give me that script?

[(=CyberPimp=)]

This works  :D
Just add in the commands you want users to see.
Hope you know how to do that  ;)

**************************************
  Modyfied by: (=CyberPimp=)
  Made by: ?
**************************************

Bot = "Commands"

function Main()
	frmHub:RegBot(Bot)
end

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)
		local s,e,cmd = nil
		s,e,cmd = strfind(data, "%b<>%s+(%S+)")
	if cmd == "+help" then
   local _,_,type = strfind(data,"%b<>%s+%S+%s+(%S+)")

			user:SendPM(Bot, Help(user, type))
		end
	end
end

function Help(user)
	local disp = "\r\n\r\n"

if (user.iProfile == 0) then
		disp = disp.."\r\n"
		disp = disp.." MASTER COMMANDS \r\n\r\n"
disp = disp.." !rules				- Shows you the rules of the hub\r\n"
disp = disp.."                                                                  \r\n"
		disp = disp.."\r\n"

elseif (user.iProfile == 1) then
		disp = disp.."\r\n"
		disp = disp.." OPPERATOR \r\n\r\n"
disp = disp.."                                                                  \r\n"
disp = disp.."                                                                  \r\n"
		disp = disp.."\r\n"

elseif (user.iProfile == 2) then
		disp = disp.."\r\n"
		disp = disp.." V.I.P User COMMANDS\r\n\r\n"
disp = disp.."                                                                  \r\n"
disp = disp.."                                                                  \r\n"
		disp = disp.."\r\n"


elseif (user.iProfile == 3) then
		disp = disp.."\r\n"
		disp = disp.." Registerd User COMMANDS\r\n\r\n"
disp = disp.."                                                                  \r\n"
disp = disp.."                                                                  \r\n"
		disp = disp.."\r\n"


elseif (user.iProfile == 4) then
		disp = disp.."\r\n"
		disp = disp.." User \r\n\r\n"
disp = disp.."                                                                  \r\n"
disp = disp.."                                                                  \r\n"
		disp = disp.."\r\n"


elseif (user.iProfile == 5) then
		disp = disp.."\r\n"
		disp = disp.." 5 \r\n\r\n"
disp = disp.."                                                                  \r\n"
disp = disp.."                                                                  \r\n"
		disp = disp.."\r\n"

end
return disp
end

[plop]

untested modded version of my texterbot V1.

-- help texter bot by plop.
-- thx 2 chilla for the faster routine for opening the files.
-- shows help files per user level.
-- doesn't mather what prefix is used.
-- help.txt 
-- examples: 
-- help-1.txt for unregged users.
-- help0.txt for masters.

Bot = "something"
FDFolder = "text"

function Main()
   frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   data=strsub(data,1,strlen(data)-1) 
   if( strsub(data, 1, 1) == "<" ) then
      s,e,cmd = strfind(data,"%b<>%s+(%S+)") 
      cmd = strsub(cmd, 2,strlen(cmd))
      if cmd == "help" then
         showtext(user)
         return 1
      end
   elseif(strsub(data, 1, 4) == "$To:") then
      s,e,cmd = strfind(data,"$To:%s+%S+%s+From:%s+%S+%s+$%b<>%s+(%S+)")
      cmd = strsub(cmd, 2,strlen(cmd))
      if cmd == "help" then
         showtext(user)
         return 1
      end
   end
end

function showtext(user)
	local handle = openfile(FDFolder.."/help"..(user.iProfile or "")..".txt", "r")
	local contents = gsub(read(handle, "*a"),strchar(10), "\r\n")
	closefile (handle)
	user:SendPM(Bot, "\r\n"..contents.."\r\n|")
end

plop

[Janhouse]

It doesn't work. Maybe that I am using PtokaX DC Hub 0.3.3.0 build 15.25 [debug] helps.

[plop]

Originally posted by Janhouse
It doesn't work. Maybe that I am using PtokaX DC Hub 0.3.3.0 build 15.25 [debug] helps.

which 1 doesn't work?

plop

[Janhouse]

both of them

[plop]

just tested my version and it works 100%.
remember that you need 2 make a folder called text in the scripts directory.
after that you make the help text files for every level in that text folder.
help0.txt -- master help.
help1.txt -- operator help.
help2.txt -- vip help.
help3.txt -- user help.
help-1.txt -- unreg user help.

all of them user the same command +help/!help to view it.

plop

[Janhouse]

Thanx... I will try!