These days I'm working on a server. I thought to give a teleporter quest.
Download:
Download:
Quote:
[Only registered and activated users can see links. Click Here To Register...]
Quote:
Change:
22030 - whit your item vnum.
when 22030.use begin
PHP Code:
quest teleport begin
state start begin
when 22030.use begin
say_title("Metin2KSA:")
say("")
say("Hi, choose the destination !")
local opzioni =select ("Kingdom","Pvm Maps","Close")
if opzioni == 1 then
say_title("Metin2KSA:")
say("")
say("Choose the destination !")
local kingdom =select("Listhmos's Castle","Dendera's Castle","Milgaard's Castle","Close")
if kingdom == 1 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 5000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 5.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-5000)
pc . warp ( 474300, 954800 )
elseif kingdom == 2 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 5000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 5.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-5000)
pc . warp ( 63800, 166400 )
elseif kingdom == 3 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 5000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 5.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-5000)
pc . warp ( 959900, 269200 )
elseif kingdom == 4 then
return
end
elseif opzioni == 2 then
say_title("Metin2KSA:")
say("")
say("Choose the destination !")
local pvm =select("Nula Valley","Waste Land","Tangra Mountain","Hwang Temple","Forward","Close")
if pvm == 1 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 10000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 10.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-10000)
pc . warp ( 333900 , 752500 )
elseif pvm == 2 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 10000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 10.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-10000)
pc . warp ( 290000 , 550000 )
elseif pvm == 3 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 10000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 10.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-10000)
pc . warp ( 436210 , 215744 )
elseif pvm == 4 then
if pc.get_level() < 10 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 10,")
say_reward("to continue.")
return
end
if pc.get_gold() < 10000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 10.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-10000)
pc . warp ( 553600 , 144100 )
elseif pvm == 5 then
say_title("Metin2KSA:")
say("")
say("Choose the destination !")
local pvm1 =select("Demon Tower","Cave I","Cave II","Doyyumhwaji","Forward","Close")
if pvm1 == 1 then
if pc.get_level() < 40 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 40,")
say_reward("to continue.")
return
end
if pc.get_gold() < 25000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 25.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-25000)
pc . warp ( 590500 , 110500 )
elseif pvm1 == 2 then
if pc.get_level() < 40 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 40,")
say_reward("to continue.")
return
end
if pc.get_gold() < 25000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 25.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-25000)
pc . warp ( 60000 , 496000 )
elseif pvm1 == 3 then
if pc.get_level() < 60 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 60,")
say_reward("to continue.")
return
end
if pc.get_gold() < 30000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 30.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-30000)
pc . warp ( 704100 , 464100 )
elseif pvm1 == 4 then
if pc.get_level() < 60 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 60,")
say_reward("to continue.")
return
end
if pc.get_gold() < 40000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 40.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-40000)
pc . warp ( 599400 , 680000 )
elseif pvm1 == 5 then
say_title("Metin2KSA:")
say("")
say("Choose the destination !")
local pvm2 =select("Lungsam","Red Wood","Snakefield I","Snakefield II","Forward","Close")
if pvm2 == 1 then
if pc.get_level() < 60 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 60,")
say_reward("to continue.")
return
end
if pc.get_gold() < 40000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 40.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-40000)
pc . warp ( 288700 , 5700 )
elseif pvm2 == 2 then
if pc.get_level() < 75 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 75,")
say_reward("to continue.")
return
end
if pc.get_gold() < 70000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 70.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-70000)
pc . warp ( 1119900 , 70800 )
elseif pvm2 == 3 then
if pc.get_level() < 60 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 60,")
say_reward("to continue.")
return
end
if pc.get_gold() < 40000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 40.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-40000)
pc . warp ( 1059000 , 726200 )
elseif pvm2 == 4 then
if pc.get_level() < 75 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 75,")
say_reward("to continue.")
return
end
if pc.get_gold() < 70000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 70.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-70000)
pc . warp ( 828300 , 763500 )
elseif pvm2 == 5 then
say_title("Metin2KSA:")
say("")
say("Choose the destination !")
local pvm3 =select("Grotto of Exile I","Grotto of Exile II","Beran-Setaou","Close")
if pvm3 == 1 then
if pc.get_level() < 75 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 75,")
say_reward("to continue.")
return
end
if pc.get_gold() < 70000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 70.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-70000)
pc . warp ( 10000 , 1207800 )
elseif pvm3 == 2 then
if pc.get_level() < 80 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 80,")
say_reward("to continue.")
return
end
if pc.get_gold() < 100000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 100.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-100000)
pc . warp ( 241300 , 1275500 )
elseif pvm3 == 3 then
if pc.get_level() < 90 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum Level 90,")
say_reward("to continue.")
return
end
if pc.get_gold() < 200000 then
say_title("Metin2KSA:")
say("")
say_reward("You need a minimum 200.000 Yang,")
say_reward("to continue.")
return
end
say_title("Metin2KSA:")
say("")
say_reward("Soon you will be teleported:")
wait()
pc.changegold(-200000)
pc . warp ( 177600 , 1220800 )
return
end
end
end
end
elseif opzioni == 3 then
return
end
end
end
end
