[SERVICE] Die Questkontrolle

QUEST : warptest
STATE : start
WHEN  : 70007.use
local warptab = {
[ "Reiche" ] = {
[ "minlvl" ] = 1 ,
[ "subs" ] = {
[ "Map 1" ] = {
[ "minlvl" ] = 5 ,
[ "subs" ] = {
[ "Shinsoo" ] = { [ "x" ] = 4096 + 646 , [ "y" ] = 8960 + 585 } ,
[ "Chunjo" ] = { [ "x" ] = 0 + 635 , [ "y" ] = 1024 + 640 } ,
[ "Jinno" ] = { [ "x" ] = 9216 + 382 , [ "y" ] = 2048 + 643 } ,
} ,
} ,
[ "Map 2" ] = {
[ "minlvl" ] = 20 ,
[ "subs" ] = {
[ "Shinsoo" ] = { [ "x" ] = 3072 , [ "y" ] = 8192 } ,
[ "Chunjo" ] = { [ "x" ] = 1024 + 430 , [ "y" ] = 2048 + 351 } ,
[ "Jinno" ] = { [ "x" ] = 8192 , [ "y" ] = 2048 } ,
} ,
} ,
[ "Gildenmap#1" ] = { [ "x" ] = 1285 , [ "y" ] = 10 , [ "empire" ] = 1 } ,
[ "Gildenmap#2" ] = { [ "x" ] = 1795 , [ "y" ] = 10 , [ "empire" ] = 2 } ,
[ "Gildenmap#3" ] = { [ "x" ] = 2718 , [ "y" ] = 130 , [ "empire" ] = 3 } ,
} ,
} ,
[ "Standardmaps" ] = {
[ "minlvl" ] = 30 ,
[ "subs" ] = {
[ "Burgschlacht#1" ] = { [ "x" ] = 9752 , [ "y" ] = 1330 , [ "empire" ] = 1 } ,
[ "Burgschlacht#2" ] = { [ "x" ] = 9772 , [ "y" ] = 1850 , [ "empire" ] = 2 } ,
[ "Burgschlacht#3" ] = { [ "x" ] = 9239 , [ "y" ] = 1836 , [ "empire" ] = 3 } ,
[ "Tal von Seungryong#1" ] = { [ "x" ] = 4021 , [ "y" ] = 6739 , [ "empire" ] = 1 } ,
[ "Tal von Seungryong#2" ] = { [ "x" ] = 2704 , [ "y" ] = 7399 , [ "empire" ] = 2 } ,
[ "Tal von Seungryong#3" ] = { [ "x" ] = 3213 , [ "y" ] = 8080 , [ "empire" ] = 3 } ,
[ "Wueste#1" ] = { [ "x" ] = 2718 , [ "y" ] = 6272 , [ "empire" ] = 1 } ,
[ "Wueste#2" ] = { [ "x" ] = 2219 , [ "y" ] = 5027 , [ "empire" ] = 2 } ,
[ "Wueste#3" ] = { [ "x" ] = 3440 , [ "y" ] = 5025 , [ "empire" ] = 3 } ,
[ "Berg Sohan#1" ] = { [ "x" ] = 4342 , [ "y" ] = 2906 , [ "empire" ] = 1 } ,
[ "Berg Sohan#2" ] = { [ "x" ] = 3752 , [ "y" ] = 1749 , [ "empire" ] = 2 } ,
[ "Berg Sohan#3" ] = { [ "x" ] = 4918 , [ "y" ] = 1736 , [ "empire" ] = 3 } ,
} ,
} ,
[ "Special Maps" ] = {
[ "minlvl" ] = 50 ,
[ "subs" ] = {
[ "HandelsMap" ] = { [ "x" ] = 9752 , [ "y" ] = 1330 } ,
} ,
} ,
[ "Runs" ] = {
[ "subs" ] = {
[ "Daemonenturm" ] = {
[ "minlvl" ] = 40 ,
[ "subs" ] = {
[ "Teleportier mich!" ] = { [ "x" ] = 5905 , [ "y" ] = 1105 } ,
} ,
} ,
[ "Devils Catacomb" ] = {
[ "minlvl" ] = 80 ,
[ "subs" ] = {
say ( "Bitte begib dich zum Waechter der Katakomben." )
say ( "Nur über ihn kannst du in zu Azrael" )
say ( "gelangen." )
wait ( )
say ( "Du findest ihn auf Map1." )
wait ( )
say ( "Wenn du dich nach Map1 porten moechtest," )
say ( "Klick einfach unten auf das entsprechende" )
say ( "Reich." )
wait ( )
say ( "Wir wünschen dir viel Glück!" )
[ "Map 1" ] = { [ "x" ] = 3072 , [ "y" ] = 8192 , [ "empire" ] = 1 } ,
[ "Map 1" ] = { [ "x" ] = 0 + 635 , [ "y" ] = 1024 + 640 , [ "empire" ] = 2 } ,
[ "Map 1" ] = { [ "x" ] = 9216 + 382 , [ "y" ] = 2048 + 643 , [ "empire" ] = 3 } ,
} ,
} ,
} ,
[ "Beta Maps" ] = {
[ "minlvl" ] = 90 ,
[ "subs" ] = {
[ "Nephritbucht" ] = { [ "x" ] = 10496 , [ "y" ] = 15104 } ,
[ "Kap des Drachenfeuers" ] = { [ "x" ] = 10240 , [ "y" ] = 16640 } ,
[ "Gautamakliff" ] = { [ "x" ] = 11776 , [ "y" ] = 16640 } ,
[ "Donnerberge" ] = { [ "x" ] = 11264 , [ "y" ] = 15104 } ,
} ,
} ,
[ "Dungeons" ] = {
[ "minlvl" ] = 40 ,
[ "subs" ] = {
[ "Doyyumhwaji#1" ] = { [ "x" ] = 5994 , [ "y" ] = 7563 , [ "empire" ] = 1 } ,
[ "Doyyumhwaji#2" ] = { [ "x" ] = 5978 , [ "y" ] = 6222 , [ "empire" ] = 2 } ,
[ "Doyyumhwaji#3" ] = { [ "x" ] = 7307 , [ "y" ] = 6898 , [ "empire" ] = 3 } ,
[ "Geisterwald" ] = { [ "x" ] = 2887 , [ "y" ] = 57 , [ "minlvl" ] = 60 } ,
[ "Roter Wald" ] = { [ "x" ] = 11199 , [ "y" ] = 708 , [ "minlvl" ] = 80 } ,
[ "Land der Riesen" ] = { [ "x" ] = 8451 , [ "y" ] = 7459 } ,
[ "Daemonenturm" ] = { [ "x" ] = 5905 , [ "y" ] = 1105 , [ "empire" ] = 3 } ,
[ "Spinnendungeon" ] = { [ "x" ] = 600 , [ "y" ] = 4960 } ,
} ,
} ,
}
local wp = { }
local function create_list ( nm , index )
table . foreach ( ( index or warptab ) ,
function ( i , l )
local x = ( nm or "" ) .. "#/" .. i
if l . subs ~= nil then
create_list ( x , l . subs )
wp [ x ] = { [ "type" ] = "kat" }
else
wp [ x ] = l
wp [ x ] [ "type" ] = "warp"
wp [ x ] [ "kat" ] = ( nm or "" )
end
end
)
end
create_list ( )
local function show_menu ( id , kat )
local index = id or 1
local function count ( str , del )
local out = 0
for i in string . gfind ( str , del ) begin
out = out + 1
end
return out
end
local function trim ( str )
str = string . gsub ( str , ".-#/" , "" , index )
return str
end
local wl , co = {
[ "list" ] = { } ,
[ "data" ] = { } ,
} , 1
table . sort ( wp )
table . foreach ( wp ,
function ( i , l )
if count ( i , ".-#/" ) == index then
local function cc ( )
if l . empire == nil or l . empire == pc . get_empire ( ) then
if l . maxlvl == nil or pc . get_level ( ) <= l . maxlvl then
if l . minlvl == nil or pc . get_level ( ) >= l . minlvl then
if l . minalign == nil or pc . get_real_alignment ( ) >= l . minalign then
if l . maxalign == nil or pc . get_real_alignment ( ) <= l . maxalign then
if l . eventflag == nil or game . get_event_flag ( l . eventflag ) == 1 then
if l . is_gm == nil or pc . is_gm ( ) == l . is_gm then
if l . type == "kat" then
local str = "> " .. ( string . gsub ( trim ( i ) , "#%d+" , "" ) ) .. " <"
wl . list [ co ] = str
wl . data [ str ] = l
wl . data [ str ] [ "name" ] = i
else
local str = ( string . gsub ( trim ( i ) , "#%d+" , "" ) )
wl . list [ co ] = str
wl . data [ str ] = l
end
co = co + 1
end
end
end
end
end
end
end
end
if index == 1 then
cc ( )
elseif kat ~= nil and string . sub ( i , 1 , string . len ( kat ) ) == kat then
cc ( )
end
end
end
)
table . sort ( wl . list )
table . insert ( wl . list , 1 , 8 )
if index ~= 1 then
table . insert ( wl . list , "Zurück" )
end
table . insert ( wl . list , "Abbrechen" )
local sel = select2 ( wl . list )
if sel == table . getn ( wl . list ) then return end
if index ~= 1 and sel == table . getn ( wl . list ) - 1 then
local nextkat = function ( )
local t , out = split ( kat , "#/" ) , ""
table . foreach ( t ,
function ( i , l )
if i < table . getn ( t ) and i > 1 then
out = out .. "#/" .. l
end
end
)
return out
end
show_menu ( index - 1 , nextkat ( ) )
return
end
if wl . data [ wl . list [ sel ] ] [ "type" ] == "kat" then
show_menu ( index + 1 , wl . data [ wl . list [ sel ] ] [ "name" ] , kat or nil
return
else
pc . warp ( wl . data [ wl . list [ sel ] ] [ "x" ] * 100 , wl . data [ wl . lis
end
end
show_menu ( )

syntax error : [string "start"]:61: `}' expected (to close `{' at line 59) near
warpring.quest:233:Error occured on compile warpring.quest