Cod: Selectaţi tot

if game . get_event_flag ( "block" ) == 1 then 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Îmi pare rãu, dar camera este ocupatã momentan." ) 
say ( "Trebuie sã aºtepþi pânã se elibereazã." ) 
say ( "" ) 
return 
end 
if game . get_event_flag ( "enter" ) >= 1 then 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Îmi pare rãu, dar deja este cineva înãuntru." ) 
say ( "Dacã ai parola te pot lãsa sã intri." ) 
say ( "" ) 
say ( "Te rog introdu parola ..." ) 
say ( "" ) 
local password = input ( ) 
if game . get_event_flag ( "parola" ) == tonumber ( password ) then 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Ai introdus parola corectã. Pentru a" ) 
say ( "te lãsa sã intri ai nevoie de 3 Chei Rãsucite." ) 
say ( "" ) 
local s = select ( "Te rog lasã-mã sã intru!" , "Ieºire" ) 
if s == 1 then 
if pc . count_item ( 30179 ) >= 3 then 
pc . remove_item ( 30179 , 3 ) 
game . set_event_flag ( "enter" , 1 ) 
pc . warp ( 844000 , 1.0669e+06 , 207 ) 
pc . setqf ( "payment" , 1 ) 
pc . setqf ( "leader" , 0 ) 
else 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Îmi pare rãu, dar nu te pot lãsa sã intri." ) 
say ( "Nu ai destule Chei Rãsucite." ) 
say ( "" ) 
end 
else 
return 
end 
else 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Parola pe care ai introdus-o nu este" ) 
say ( "corectã." ) 
say ( "" ) 
return 
end 
end 
if game . get_event_flag ( "enter" ) == 0 then 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Deci, vrei sã lupþi împotriva dragonului?" ) 
say ( "Te rog dã-mi o parolã pentru a intra în" ) 
say ( "bârlogul dragonului (doar numere) ca sã o pot" ) 
say ( "proteja. Poþi spune parola prietenilor tãi" ) 
say ( "pentru a te ajuta sã învingi dragonul." ) 
say ( "Spune-mi parola acum..." ) 
say ( "" ) 
local password = tonumber ( input ( "" ) ) 
game . set_event_flag ( "parola" , password ) 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Bun, acum cã ai introdus parola, mai" ) 
say ( "am nevoie de 3 Chei Rãsucite pentru a" ) 
say ( "te lãsa sã intri." ) 
say ( "" ) 
local s = select ( "Te rog lasã-mã sã intru!" , "Ieºire" ) 
if s == 1 then 
if pc . count_item ( 30179 ) >= 3 then 
game . set_event_flag ( "enter" , 1 ) 
pc . remove_item ( 30179 , 3 ) 
pc . warp ( 844000 , 1.0669e+06 , 207 ) 
pc . setqf ( "payment" , 1 ) 
pc . setqf ( "leader" , 1 ) 
else 
say_title ( mob_name ( 30121 ) ) 
say ( "" ) 
say ( "Îmi pare rãu, dar nu te pot lãsa sã intri." ) 
say ( "Nu ai destule Chei Rãsucite." ) 
say ( "" ) 
return 
end 
elseif s == 2 then 
return 
end 
end 

Cod: Selectaţi tot

if get_time ( ) > game . get_event_flag ( "Grotte_time" ) then 
game . set_event_flag ( "Grotte_zugang" , 0 ) 
end 
if pc . is_gm ( ) or pc . count_item ( 80041 ) >= 1 then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say ( "Bun venit " .. pc . get_name ( ) .. "" ) 
say ( "Nu ai nevoie nici de chei nici de parola" ) 
say ( "esti GM poti intra cand vrei." ) 
wait ( ) 
pc . warp ( 843200 , 1.0669e+06 ) 
return 
end 
if game . get_event_flag ( "Grotte_zugang" ) == 0 and pc . count_item ( 30179 ) < 3 then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say_reward ( "Pentru a intra în templul lui Beran," ) 
say_reward ( "ai nevoie de " .. item_name ( 30179 ) .. "" ) 
say_item_vnum ( 30179 ) 
say_reward ( "Aceastã cheie rãsucitã picã la Cãpitanul Setaou." ) 
say_reward ( "Ai nevoie de trei Chei Rãsucite pentru a intra." ) 
return 
end 
if game . get_event_flag ( "Grotte_zugang" ) == 1 then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
pc . setqf ( "grotte_passworto" , 7.89547e+10 ) 
if pc . getqf ( "abgabe" ) == 1 then 
pc . setqf ( "abgabe" , 0 ) 
say ( "Ai cele trei Chei Rãsucite." ) 
say ( "Te voi teleporta imediat în camera de cristal." ) 
pc . setqf ( "erlaubt" , 1 ) 
wait ( ) 
pc . warp ( 843200 , 1.0669e+06 ) 
return 
end 
say ( "Introdu codul ales de liderul grupului." ) 
local passwort = tonumber ( input ( "" ) ) 
if game . get_event_flag ( "Grotte_passwort" ) == passwort then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say ( "Ai introdus codul corect." ) 
if pc . count_item ( 30179 ) < 3 then 
say ( "Nu te pot teleporta deoarece nu ai" ) 
say ( "" .. item_name ( 30179 ) .. "" ) 
say_item_vnum ( 30179 ) 
say ( "Ai nevoie de cele trei Chei Rãsucite." ) 
return 
end 
say ( "Te voi teleporta imediat." ) 
pc . setqf ( "erlaubt" , 1 ) 
wait ( ) 
if pc . can_warp ( ) then 
pc . remove_item ( "30179" , 3 ) end 
pc . warp ( 843200 , 1.0669e+06 ) 
elseif passi ~= pc . getqf ( "grotte_passworto" ) then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say ( "" ) 
return 
end 
end 
if game . get_event_flag ( "Grotte_zugang" ) == 0 and pc . count_item ( 30179 ) >= 3 then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say ( "Deþin în mine, ultima suflare a zului dragon." ) 
say ( "Aceastã suflare magicã te pot ajuta sã mergi în" ) 
say_reward ( "Camera de cristal." ) 
say ( "" ) 
say ( "Ai nevoie de cele trei chei rãsucite." ) 
local i = select ( "Da, Vreau" , "Nu, Mulþumesc" ) 
if 1 == i then 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say ( "Ai nevoie de un cod pentru tine ºi grupul tãu." ) 
say ( "Codul pe care îl vei introduce, va trebui sã " ) 
say ( "conþinã maxim 2 cifre." ) 
local passwort = tonumber ( input ( "" ) ) 
if passwort and passwort <= 1e+09 and pc . count_item ( 30179 ) >= 1 then 
game . set_event_flag ( "Grotte_zugang" , 1 ) 
game . set_event_flag ( "Grotte_passwort" , passwort ) 
local times = get_time ( ) + 300 
game . set_event_flag ( "Grotte_time" , times ) 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
pc . setqf ( "abgabe" , 1 ) 
say_reward ( "Parola aleasa este: " .. passwort .. "" ) 
pc . remove_item ( "30179" , 3 ) 
else 
say_title ( "" .. mob_name ( 30123 ) .. "" ) 
say ( "Nu ai scris codul corect." ) 
end 
end 
end