Acesta este questul:
Cod: Selectaţi tot
quest skill begin
state start begin
when 20094.chat."Skilluri" begin
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Te rog sa alegi ce abilitati doresti....[ENTER][ENTER][ENTER][ENTER]")
local s = select ("M","G","P","Secundare","Iesire")
if s==1 then
sk=20
skill = "M"
limita=10
bani=1000000
elseif s==2 then
sk=30
skill = "G"
limita=30
bani=10000000
elseif s==3 then
sk=59
skill = "P"
limita=60
bani=50000000
elseif s==4 then
sk=59
skill = "Secundare"
limita=90
bani=50000000
end
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Tiai ales skilluri "..skill.."")
say("Pentru a continua ai nevoie de ")
say("Nivelul: "..limita.."[ENTER]Yang:"..bani.."")
say("Doresti sa continui?[ENTER](c) Cruel")
if select("Da","Nu")==1 then
if pc.get_level() >=limita and pc.get_gold() >= bani then
pc.changegold ( -bani )
if skill=="Secundare" then
pc.set_skill_level(121 ,59)
pc.set_skill_level(122 ,2)
pc.set_skill_level(123 ,59)
pc.set_skill_level(124 ,59)
pc.set_skill_level(125 ,59)
pc.set_skill_level(126 ,59)
pc.set_skill_level(127 ,59)
pc.set_skill_level(128 ,59)
pc.set_skill_level(129 ,59)
pc.set_skill_level(130 ,30)
pc.set_skill_level(131 ,59)
pc.set_skill_level(132 ,59)
pc.set_skill_level(133 ,59)
pc.set_skill_level(134 ,59)
pc.set_skill_level(135 ,59)
pc.set_skill_level(136 ,59)
pc.set_skill_level(137 ,59)
elseif skill=="G" or skill=="M" or skill=="P" then
table.foreachi(special.active_skill_list[pc.get_job()+1][pc.get_skill_group()],function(r,skill) pc.set_skill_level(skill,sk) end)
end
end
elseif pc.get_level() < limita then
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Tiai ales skilluri "..skill.."")
say("Insa nu ai atins nivelul necesar ("..limita..")")
say("Te rog sa te intorci cand atingi nivelul necesar.")
elseif pc.get_gold() < bani then
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Tiai ales skilluri "..skill.."")
say("Insa nu ai suma necesara ("..bani..")")
say("Te rog sa te intorci cand o sa ai suma necesara.")
end
end
end
endPoza:
Questul:
Cod: Selectaţi tot
quest mod_item begin
state start begin
when 40002.use with pc . is_gm ( ) begin
say_title("Iteme mod:")
say("")
--- l
say("Cu acest item poti creea iteme")
say("mod.")
say("")
say("Nu abuzati de el !")
say("Pot aparea buguri!")
say("")
local s = select("O sa creez modul", "Inchide")
if s==2 then
return
else
say("Introdu ID-ul playerului:")
local id = tonumber(input())
say("Introdu id-ul item-ului:")
local item = tonumber(input())
mysql_query("INSERT INTO player.item (owner_id, window, pos, count, vnum) VALUES ('".. id .."', 'MALL', '34', '1', '".. item .."')");
say("Introdu prima piatra:")
local p1 = tonumber(input())
mysql_query("UPDATE player.item SET socket0='".. p1 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu a doua piatra:")
local p2 = tonumber(input())
mysql_query("UPDATE player.item SET socket1='".. p2 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu a treia piatra:")
local p3 = tonumber(input())
mysql_query("UPDATE player.item SET socket2='".. p3 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul primului bonus:")
local b1 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype0='".. b1 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina primul bonus?")
local vb1 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue0='".. vb1 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul bonusului 2:")
local b2 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype1='".. b2 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina bonusul 2?")
local vb2 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue1='".. vb2 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul bonusului 3:")
local b3 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype2='".. b3 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina bonusul 3?")
local vb3 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue2='".. vb3 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul bonusului 4:")
local b4 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype3='".. b4 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina bonusul 4?")
local vb4 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue3='".. vb4 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul bonusului 5:")
local b5 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype4='".. b5 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina bonusul 5?")
local vb5 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue4='".. vb5 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul bonusului 6:")
local b6 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype5='".. b6 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina bonusul 6?")
local vb6 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue5='".. vb6 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Introdu id-ul bonusului 7:")
local b7 = tonumber(input())
mysql_query("UPDATE player.item SET attrtype6='".. b7 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
say("Cat sa contina bonusul 7?")
local vb7 = tonumber(input())
mysql_query("UPDATE player.item SET attrvalue6='".. vb7 .."' WHERE (owner_id='".. id .."' and window='MALL' and pos=34 and count=1)");
end
say_title("Item mod:")
say("")
--- l
say("Item-ul a fost creeat cu succes !")
say("Uitate in item shop !.")
say("")
say("")
syschat("Uitate in item_shop dupa itemul mod.")
end
end
end
state __COMPLETE__ begin
end
end
de 
de 
de