Beiträge von Sonto

quest Warpring begin
state start begin
when login begin
cmdchat("Warpring "..q.getcurrentquestindex())
end
when button or info begin
local warp = {--koord Pflicht, rest optional!
{--Map1
name = "Map 1",
{--Rotes Reich
name = "Rotes Reich (Lv.1)",
koord = {474100, 955000},
},
{--Gelbes Reich
name = "Gelbes Reich (Lv.1)",
koord = {63525, 166543},
},
{--Blaues Reich
name = "Blaues Reich (Lv.1)",
koord = {960100, 268800},
},
},
{--Map2
name = "Map 2",
{--Rotes Reich
name = "Rotes Reich (Lv.1)",
koord = {352200, 882200},
},
{--Gelbes Reich
name = "Gelbes Reich (Lv.1)",
koord = {145900, 239800},
},
{--Blaues Reich
name = "Blaues Reich (Lv.1)",
koord = {863700, 246300},
},
},
{--PvP-Maps
name = "PvP-Maps",
{--Wüste Mitte
name = "Wüste (Lv.1)",
koord = {297300, 547900},
},
{--Dämonenturm
name = "Dämonenturm (Lv.1)",
koord = {590406, 110717},
},
},
}
warpring.showwarps(warp)
end
function warp(tbl)
local level = pc.get_level()
if tbl.minlevel and level < tbl.minlevel then
say("Dein Level ist zu niedrig, um diese Map zu betreten.")
say("Minimal Level: "..tbl.minlevel)
select("Abbrechen")
return
elseif tbl.maxlevel and level > tbl.maxlevel then
say("Dein Level ist zu hoch, um diese Map zu betreten.")
say("Maximal Level: "..tbl.maxlevel)
select("Abbrechen")
return
end
while not pc.can_warp() do
say("Du kannst dich noch nicht teleportieren, da du in")
say("den letzten 10 Sekunden gehandelt hast.")
if select("Erneut versuchen", "Abbrechen") == 2 then return end
end
local warpneedstrings = warpring.get_warpneedstrings(tbl)
if table.getn(warpneedstrings) > 0 then
say("Um diese Map zu betreten benötigst du folgende")
say("Dinge:")
for _,v in ipairs(warpneedstrings) do
say(v)
end
say("")
say("Möchtest du trotzdem fortfahren?")
if select("Teleportieren", "Abbrechen") == 2 then return end
end
if not warpring.check_and_remove_warpneeds(tbl) then
say("Dir fehlt mindestens eins der benötigten Dinge.")
select("Abbrechen")
return
end
pc.warp(tbl.koord[1], tbl.koord[2])
end
function get_warpneedstrings(tbl)
local warpneeds = {}
if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
for _,v in ipairs(tbl.itemneed) do
table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1]))
end
end
if tbl.goldneed and tbl.goldneed > 0 then
table.insert(warpneeds, "- "..tbl.goldneed.." Yang")
end
return warpneeds
end
function check_warpneeds(tbl)
if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
for _,v in ipairs(tbl.itemneed) do
if pc.count_item(v[1]) < v[2] then
return false
end
end
end
if tbl.goldneed and tbl.goldneed > 0 then
if pc.get_gold() < tbl.goldneed then
return false
end
end
return true
end
function remove_warpneeds(tbl)
if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
for _,v in ipairs(tbl.itemneed) do
pc.remove_item(v[1], v[2])
end
end
if tbl.goldneed and tbl.goldneed > 0 then
pc.change_gold(-tbl.goldneed)
end
end
function check_and_remove_warpneeds(tbl)
if not warpring.check_warpneeds(tbl) then
return false
end
warpring.remove_warpneeds(tbl)
return true
end
function get_warpnames(tbl)
local level = pc.get_level()
local names = {}
for _,v in ipairs(tbl) do
if v.minlevel and level < v.minlevel then
v.name = v.name.." (ab Lv. "..v.minlevel..")"
elseif v.maxlevel and level > v.maxlevel then
v.name = v.name.." (bis Lv. "..v.maxlevel..")"
end
table.insert(names, v.name)
end
return names
end
function showwarps(tbl)
local warpnames = warpring.get_warpnames(tbl)
local s = tbl[select3(warpnames)] or false
if not s then return end
if s.koord then
warpring.warp(s)
return
end
warpring.showwarps(s)
end
end
end

quest userpanel begin
state start begin
when 70058.use begin
say_title("Userpanel - ~tzz~")
say("Was möchtest du tun?")
local head = select("1. Warpring", "2. Lager", "3. Itemshop", "Abbrechen")
if head == 1 then
say_title("Userpanel - ~tzz~")
say("1. Warpring:")
say("")
say_reward("Wohin möchtest du dich teleportieren?")
local on = select (" Map1", "Yongbi Wüste", "PvP-Arena", "Farmmap", "Abbrechen")
if on == 1 then
say_title("Userpanel - ~tzz~")
say("Die Map1:")
local map1 = select ("Rotes Reich (Lv.1)", "Gelbes Reich (Lv.1)", "Blaues Reich (Lv.1)", "Abbrechen")
if map1 == 1 then
pc.warp(474100, 955000)
end
if map1 == 2 then
pc.warp(63525, 166543)
end
if map1 == 3 then
pc.warp(960100, 268800)
end
if map1 == 4 then
return
end
end
if on == 3 then
say_title("Userpanel - ~tzz~")
say("Die PvP-Maps:")
local f = select ("In die PvP Turnier (Lv.1)", "Abbrechen")
if f == 1 then
pc.warp(857504, 848605)
end
if f == 2 then
return
end
end
if on == 4 then
say_title("Userpanel - ~tzz~")
say("Die PvM-Maps:")
local f = select ("Farmmap (Lv.1)", "Abbrechen")
if f == 1 then
pc.warp(828300, 763500)
end
if f == 2 then
return
end
end
if on == 2 then
say_title("Userpanel - ~tzz~")
say("Yongbi Wüste:")
local dt = select("In die Mitte (Lv.1)", "Abbrechen")
if dt == 1 then
pc.warp(297600, 546800)
end
if dt == 2 then
return
end
end
if on == 4 then
return
end
end

if head == 2 then
game.open_safebox()
setskin(NOWINDOW)
end
if head == 3 then
game.open_mall()
setskin(NOWINDOW)
end
if head == 4 then
return
end
end
end
end