Ecco a voi un nuovo script.
--//TASTO DX COMMAND V0.3
--//BY ROLLO-G TEAM 12-4-2004 (Luigino Viscione [***ADMN***]Mouped)
sBotName = "LO_STERMINATORE"
sMenu = "FAST D.A.G.A."
function Main()
frmHub:RegBot(sBotName)
end
function NewUserConnected(user)
if (user.iProfile) == 4 then NewbCommands(user)
elseif (user.iProfile) == 3 then RegCommands(user)
elseif (user.iProfile) == 2 then VIPCommands(user)
else UserCommands(user)
end
user:SendData("<"..sBotName.."> Comandi di FAST D.A.G.A. Attivati. REGISTRATI PER AVERE TUTTI I COMANDI A TUA DISPOSIZIONE|")
end
function OpConnected(user)
if (user.iProfile) == 1 then OpCommands(user)
elseif (user.iProfile) == 5 then ModCommands(user)
elseif (user.iProfile) == 6 then AdminCommands(user)
elseif (user.iProfile) == 7 or (user.iProfile) == 0 then OwnerCommands(user)
else NewUserConnected(user)
end
end
function DataArrival(user,data)
if user.bOperator then
if (user.iProfile) == 7 or (user.iProfile) == 0 or (user.iProfile) == 6 then
if (strsub(data,1,1) == "<" ) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind( data,"%b<>%s+(%S+)" )
if (cmd=="!comanditastodx")then
SetCommands(user)
user:SendData("<"..sBotName.." privato> COMANDI ATTIVATI|")
elseif (cmd=="!dxcmd")then
CMDCommands(user)
user:SendData("<"..sBotName.." privato> COMANDI ATTIVATI|")
end
end
end
end
end
function UserCommands(user)
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\COMANDI DISPONIBILI$<%[mynick]> !help||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\REGOLE DELL'HUB$<%[mynick]> !rules||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Vedi tutti gli utenti registrati$<%[mynick]> !showreg||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\REGISTRAZIONE AUTOMATICA - PRIMA DEVI INSERIRE ® alla fine del NICK$<%[mynick]> !regme %[line:Password - INSERISCI LA PASSWORD

]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\PARLA IN 3a PERSONA$<%[mynick]> !me %[line:MESSAGGIO DA INVIARE IN MAIN CHAT?]||")
end
function NewbCommands(user)
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\"..frmHub:GetHubName().."$<%[mynick]> !rules||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\COMANDI DISPONIBILI$<%[mynick]> !help||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\REGOLE DELL'HUB$<%[mynick]> !rules||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Vedi tutti gli utenti registrati$<%[mynick]> !showreg||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\PARLA IN 3a PERSONA$<%[mynick]> !me %[line:MESSAGGIO DA INVIARE IN MAIN CHAT?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Diario ORSO\Aggiungi un Diario$<%[mynick]> !aggiungi %[line:messaggio da inserire]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Diario ORSO\Leggi i Messaggi$<%[mynick]> !leggimessaggi||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\PICCOLA FAQ SU DC++ [MOMENTANEAMENTE ANCORA IN INGLESE]$<%[mynick]> !faq||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\MODALITA' AWAY\ON$<%[mynick]> !away %[line:Messaggio automatico da inviare agli Utenti che ti contattano?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\MODALITA' AWAY\OFF$<%[mynick]> !back||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\SEGNALA UN'UTENTE SOSPETTO AGLI [OP]$<%[mynick]> !report %[line:NICK?] %[line:Motivo della tua segnalazione]||")
end
function RegCommands(user)
NewbCommands(user)
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Opzioni di Registrazione\Cambia password$<%[mynick]> !repass %[line:Nuova Password?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Inizia a Giocare$<%[mynick]> !gioco||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Vedi La Classifica Generale$<%[mynick]> !migliori||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Smetti di Giocare$<%[mynick]> !no.gioco||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\Dadi V0.1\Tira i Dai e leggi il risultato in Main Chat

$<%[mynick]> !dado||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\VEDI IL TUO INDIRIZZO IP$<%[mynick]> !myip||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\vedi le ultime informazioni sull'utente$<%[mynick]> !seen %[line:Nick?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Leggi Una Barzelletta [TI AVVERTIAMO CHE LE BARZELLETTE SONO CASUALI, ALCUNE UN POCHINO 'SPINTE']$<%[mynick]> !barz||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\Vedi IL TEMPO TOTALE DELLA TUA CONNESSIONE NELL'HUB$<%[mynick]> !myhubtime||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\Versione dello Script Principale$<%[mynick]> !version||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\VEDI GLI INDIRIZZI DEGLI HUB AMICI$<%[mynick]> !jump||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\VEDI GLI UTENTI CHE SONO MAGGIORMENTE CONNESSI NELL'HUB$<%[mynick]> !tophubbers||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\Vedi Gli slot Liberi Presenti nell'hub$<%[mynick]> !slots||")
end
function VIPCommands(user)
RegCommands(user)
end
function OpCommands(user)
VIPCommands(user)
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\UTILITA'\MESSAGGI\Lascia un messaggio ad un'utente non connesso$<%[mynick]> !offline %[line:Nick dell'utente?] %[line:Messaggio?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi la Configurazione attuale dell'HUB$<%[mynick]> !hconfig||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi le Statistiche dell'HUB$<%[mynick]> !hstat||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi la lista degli utenti + volte cacciati$<%[mynick]> !topkickers||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\vedi la lista degli utenti che + volte si sono connessi nell'hub$<%[mynick]> !tophubbers||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Vedi Tutte le Informazioni relative all'utente$<%[mynick]> !info %[line:Nick dell'utente da controllare?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\invia una comunicazione in Main Chat$<%[mynick]> !banner %[line:Messaggio da inviare?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Invia un Messaggio Privato a Tutti Gli Utenti nell'HUB$<%[mynick]> !mass %[line:MESSAGGIO?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\SPIA\ATTIVA LA SPIA SULL'UTENTE$<%[mynick]> !watch %[line:Nick dell'utente da osservare?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\SPIA\DISATTIVA LA SPIA SULL'UTENTE(I)$<%[mynick]> !watchoff||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Avvertimi quando l'utente è on-line$<%[mynick]> !online %[line:Nock dell'utente?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Registra Utente$<%[mynick]> !reguser %[line:Nick - Ricorda che devi aggiungere ® alla fine del Nick] %[line:Password scelta dall'utente]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Informazioni Generali Utenti On/Off-Line$<%[mynick]> !seen||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\Caccia Temporaneamente un'utente$<%[mynick]> !kick %[line:NICK DELL'UTENTE DA CACCIARE?] %[Line:MOTIVO DELL'ALLONTANAMENTo?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\Banna Permanentemente un'utente$<%[mynick]> !kick %[line:NICK DELL'UTENTE DA BANNARE?] %[Line:MOTIVO DELL'ALLONTANAMENTo?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\Banna Permanentemente un'utente [Sia Nick Che IP]$<%[mynick]> !kill %[line:NICK DELL'UTENTE DA CACCIARE?] %[Line:MOTIVO DELL'ALLONTANAMENTo?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\Riabilita un'utente precedentemente bannato/cacciato a rientrare nell'hub$<%[mynick]> !unban %[line:INSERISCI IL NICK OPPURE L'IP]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\MANDA UN MESSAGGIO D'AVVERTIMENTO AD UN'UTENTE$<%[mynick]> !warn %[line:MESSAGGIO D'AVVERTIMENTO?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi la lista degli IP bannati$<%[mynick]> !getbanlist||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi le informazioni relative all'indirizzo IP$<%[mynick]> !ipinfo %[line:INDIRIZZO IP DA CONTROLLARE?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi tutti gli utenti che si sono connessi utilizzando lo stesso indirizzo IP$<%[mynick]> !iprangeinfo %[line:INDIRIZZO IP DA CONTROLLARE?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\Vedi le visite dell'utente nell'hub$<%[mynick]> !userinfo %[line:nick utente da controllare?]||")
end
function OpUserCommands(user)
OpCommands(user)
end
function ModCommands(user)
OpCommands(user)
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Avvia il Quiz$<%[mynick]> !avvia.gioco||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Ferma il Quiz$<%[mynick]> !ferma||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Memorizza i Punteggi$<%[mynick]> !salva||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\Giochi\QUIZ.ORSO\Vedi i Comandi Disponibili$<%[mynick]> !help||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\Banna il Nick dell'Utente Permanentemente$<%[mynick]> !nameban %[line:NICK DELL'UTENTE?] %[line:MOTIVAZIONE DEL BAN?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\Banna l'utente per un determinato periodo di tempo$<%[mynick]> !timeban %[line:NICK DELL'UTENTE?] %[line:tempo durata ban? (Ore:Minuti)] %[line:Motivo del Ban?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\MAIN CHAT\Vieta All'utente di chattare$<%[mynick]> !gag %[line:NICK DELL'UTENTE?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\AZIONI SUGLI UTENTI\MAIN CHAT\Riabilita L'utente a Chattare$<%[mynick]> !ungag %[line:NICK DELL'UTENTE?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\SETTAGGI AVANZATI\Riavvia L'hub$<%[mynick]> !restart||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\SETTAGGI AVANZATI\Riavvia gli Scripts$<%[mynick]> !restartscripts||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\SETTAGGI AVANZATI\Protezione HUB (gli utenti non registrati non possono scaricare)$<%[mynick]> !hubprotect %[line:ON oppure OFF?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\SETTAGGI AVANZATI\$<%[mynick]> !hminshare %[line:SHARE MINIMO (IN GIGA - ES: 1)] %[line:UNITA'? ( SCRIVI GB)]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Registra un'utente come VIP$<%[mynick]> !regvip %[line:NICK UTENTE?] %[line:PASSWORD?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Registra un'utente come OPERATORE$<%[mynick]> !regop %[line:NICK UTENTE?] %[line:PASSWORD?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Registra un'utente come MASTER$<%[mynick]> !regmaster %[line:NICK UTENTE?] %[line:PASSWORD?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Cancella la Registrazione Di Un'utente$<%[mynick]> !deluser %[line:NICK UTENTE?]||")
user:SendData("$UserCommand 1 3 FAST D.A.G.A.\GESTIONE HUB\UTENTI\Promuovi Un'utente Registrato$<%[mynick]> !upgrade %[line:NICK UTENTE?] %[line:PROFILO (vip/op/master)?]||")
end
function AdminCommands(user)
ModCommands(user)
end
function OwnerCommands(user)
AdminCommands(user)
end
spero che vada bene

^REG^GLADIATORE-URSUS mia chiesto di metterlo a disposizione di tutti visto che lui ha contribuito no posso negagli questo.