Forum Italia FastDaga Hub

Reply
scripts, sponsor per HUB che ne pensate? provalo
icon7  view post Posted on 22/5/2004, 13:02Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


-- TimeBot by aMutex - 30.12.2002
BotName = "-=SPONSOR=-"

TimeSpanInMinutes = 20
function Main()
frmHub:RegBot(BotName)
SetTimer(TimeSpanInMinutes*60000)
StartTimer()
end

function OnTimer()
SendToAll((""))
SendToAll((""))
SendToAll( BotName, date("Oggi è %A di %D. Sono le ore %T"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll((" ----->>>>> NON DIMENTICARTI DI METTERCI TRA I FAVORITI <<<<<-----"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll((" ----->>>>> ECCO IL NOSTRO INDIRIZZO <<<<<-----"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("¨˜”°º•<<<<< ITA-FASTWEB-D.A.G.A. : fastdaga.no-ip.org >>>>>•º°”˜¨"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("¨˜”°º•<<<<< .....................SIAMO TORNATI......................>>>>>•º°”˜¨"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("¨˜”°º•<<<<< Registrati sul forum e diventa anche tu user d'elite -=i@h=- >>>>>•º°”˜¨"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("¨˜”°º•<<<<< IL FORUM : http://www.fastdaga.135.it >>>>>•º°”˜¨"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("¨˜”°º•<<<<< IL SITO : http://www.fastdaga.135.it >>>>>•º°”˜¨ "))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("¨˜”°º•<<<<< ...RESTATE CON NOI....NON VE NE PENTIRETE........"))
SendToAll((""))
SendToAll((" "))
SendToAll((""))
SendToAll(("::::::::T:h:E:::H:u:B:::A:n:D:::S:c:R:i:P:t::S:e:c:u:r:i:t:y::::M:a:d:e::b:y:::::>>>L:E:G:O:L:A:S<<<:::"))


end

Basta fare coppia e in colla

 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
icon2  view post Posted on 23/5/2004, 01:07Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


Certo che ne ho altri basta chiedere! beccati questo scripts

--------- Random Op Msg On Entry ---------

function RandomEntryMsg(user)
local randomSeed = random(7)
if randomSeed == 1 then
return "Tremate mortali ... "..user.sName.." ha fatto il suo ingresso nell'hub!"
elseif randomSeed == 2 then
return "Mi dispiace Gino ... "..user.sName.." è di nuovo qua!"
elseif randomSeed == 3 then
return user.sName.." appare da una nube alquanto strana ..."
elseif randomSeed == 4 then
return user.sName.." arriva su una tartaruga volante ..."
elseif randomSeed == 5 then
return "Facendo finta di niente ... "..user.sName.." si catapulta nell'hub dicendo 'Webeeeeeee.'"
elseif randomSeed == 6 then
return "Tutto ciò che ti appartiene, ti verrà fregato da "..user.sName.."!"
elseif randomSeed == 7 then
return "E tu saprai che il mio nome è "..user.sName.." quando farò ricadere la mia vendetta su di te."
end
end

--------- Random VIPS Msg On Entry ---------

function RandomVIPMsgConnect(user)
local randomSeed = random(3)
if randomSeed == 1 then
return user.sName.." sfonda la porta ed entra. Shhh, che casino!!"
elseif randomSeed == 2 then
return "Non è amorevole come "..user.sName.." abbia deciso di gratificarci con la sua presenza?"
elseif randomSeed == 3 then
return user.sName.." è qui tra noi.. ops ...... ehm...."
end
end

--------- Random Op Msg On Exit ---------

function RandomExitMsg(user)
local randomSeed = random(7)
if randomSeed == 1 then
return user.sName.." schiocca le dita e scompare in una nuvola di fumo ... fumo???"
elseif randomSeed == 2 then
return user.sName.." semplicemente sparisce come una scoreggia al vento ..."
elseif randomSeed == 3 then
return user.sName.." balza sulla sua Harley e guida verso l'orizzonte ..."
elseif randomSeed == 4 then
return "Mostrando il suo dito medio, "..user.sName.." dice 'Acchiappami ... Sto andando!'"
elseif randomSeed == 5 then
return "'weeebee baby!', dice "..user.sName.." e poi si dirige verso luoghi lontani con la sua Ferrari ..."
elseif randomSeed == 6 then
return user.sName.." fugge via urlando: 'Baffo! Pizza! Birra! .. Donne!'"
elseif randomSeed == 7 then
return user.sName.." dice, 'Ascoltami attentamente ... Lo dirò solo una volta!'"
end
end

--------- Random VIPS Msg On Exit ---------

function RandomVIPMsgExit(user)
local randomSeed = random(3)
if randomSeed == 1 then
return user.sName..", come ti permetti ad andar via senza il mio permesso?!"
elseif randomSeed == 2 then
return "Procedendo lungo il tappeto rosso, "..user.sName.." abbandona l'edificio."
elseif randomSeed == 3 then
return user.sName.." ha appena preso fuoco spontaneamente!"
end
end
Che ne penesi? e pure italiano che vuoi di più ciao a presto

 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
pibedeoro
icon1  view post Posted on 29/5/2004, 10:43Quote

Utente cancellato






Grazie orso mi servivanno!!! hai trovato un amico heheheh!!!!!
 
Top
icon2  view post Posted on 30/5/2004, 08:44Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


Sono contento che ti servivano ciao.

 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
view post Posted on 14/6/2004, 09:52Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


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



 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
view post Posted on 14/6/2004, 09:58Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


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.

 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
Fabiux
view post Posted on 8/10/2004, 22:14Quote

Utente cancellato






scusate ragazzi, sono un lua ignorante.....
come faccio a far funzionare questi script???? GRAZIE!!!!
 
Top
view post Posted on 17/10/2004, 12:31Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


Gli script fatti lua si usano con pkotax che 1 programma per creare 1 hub ok ciaoooo

 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
view post Posted on 17/10/2004, 12:33Quote
Avatar

orsobianco fastdaga

Group: Administrator
Posts: 1765
Location: Roma


Status: Offline: ultima azione eseguita il 1/12/2009, 15:32


Spero che vi piace questo script del gioco del Dado.

botname = "Dado"

sec = 1000
min = 60 * sec
hour = 60 * min

Command = "!dado"

jokes = {


" 1 ..... CHE JELA >:-[ ",

" 2 ..... NO SE PO' >:-] ",

" 3 ..... E LA VACCA LOL ",

" 4 ..... NON E' GIORNATA 8-\ ",

" 5 ..... PORCA MISERIA PER UN PUNTO =) ",

" 6 ..... BRAVO, HAI VINTO !!! ;o) :-)) :-D ",


}

function Main()
frmHub:RegBot(botname)
SetTimer(2 * hour)
StartTimer()
end



function DataArrival(user, data)
if (strsub(data, 1, 1) == "<") or ( strsub(data, 1, 4) == "$To:" ) then
data = strsub(data,1,strlen(data)-1)

if (strfind(strlower(data), strlower(Command))) then
Joke = jokes[random(1,getn(jokes))]
SendToAll(botname,user.sName.." TIRA E FA ::::"..Joke.." !!!")

end
end
end


 
P_MSG P_EMAIL P_WEBSITE P_MSN P_YIM Top
8 replies since 22/5/2004, 13:02
 
Reply

load
Fast reply

 
 
 

Enable emoticons
Clickable Smilies
Show All


Nickname:      Email:



 

 
 




Skin creata da Armstrong