Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: DorianG on 03 March, 2004, 02:22:50

Title: Help command doesn't start
Post by: DorianG on 03 March, 2004, 02:22:50
Why this help command doesn' t start??
Please help me :(

Code Select
Kos = "HELP"

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
Help(user)
user:SendPM(Kos, userhelp)
end
end
end

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

Try this one..

Code Select
Kos = "HELP"

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
user:SendPM(Kos, Help(user, "userhelp"))
end
end
end

function Help(user, type)
local disp = "\r\n\r\n"
if (type == "userhelp") 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 (type == "ophelp") 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 (type == "modhelp") 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 (type == "masterhelp") 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 (type == "adminhelp") 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 (type == "ownerhelp") 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"
else
end
return disp
end

Best regards, nErBoS
Title:
Post by: DorianG on 03 March, 2004, 10:16:57
nothing...
the bot send me:           userhelp
Title:
Post by: Stravides on 03 March, 2004, 10:48:59
check your profiles.dat in your hub directory and get the number of the profiles and replace the numbers below with the relevant number... remember you can only have the number appear once ie user.iProfile == 4 can only be seen once, so if admin and master are the same profile you need to merge the two lines

Code Select

Kos = "HELP"

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
user:SendPM(Kos, Help(user))
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
Title:
Post by: NightLitch on 03 March, 2004, 10:51:23
put this in:

Code Select
if cmd == "+help" then
   local _,_,type = strfind(data,"%b<>%s+%S+%s+(%S+)")

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

here is the small correction try this one.

/NL
Title:
Post by: NightLitch on 03 March, 2004, 10:55:46
But Stravides is more the one I would use.

Cause somewhere you need to put in the user.iProfile==num so not anyone can view the ex. op help and being user.

/NL
Title:
Post by: DorianG on 03 March, 2004, 11:11:26
thank you NightLitch always kind..
And thank to all
Title:
Post by: NightLitch on 03 March, 2004, 11:36:17
remeber to set user.iProfile otherwise all can view the help.

/NL
Title:
Post by: nErBoS on 03 March, 2004, 14:36:03
Hi,

The Bot i send was working with me, strange...

Best regards, nErBoS
Title:
Post by: Stravides on 03 March, 2004, 23:25:35
you mean I did something right hehehehe
Title:
Post by: nErBoS on 04 March, 2004, 00:03:35
No :)

It was because of this

--------------------------------------------
nothing...
the bot send me: userhelp
--------------------------------------------

Best regards, nErBoS
Text only | Text with Images