Como Localizar A Quest Do Armazem

[rafaelxte2 38]

Ola galera alguem sabe como posso localizar a quest do armazem dentro do meu

servidor?Obriagado.

[henriques. 99]

-- ????? -> ??

-- ???+4 -> ???????

-- ????? -> ?????

quest stash begin

state start begin -- ???? ??? ??

when warehouse_keeper.click begin

local l = game.get_safebox_level()

--syschat(l) -- for debug

if l == 0 then

say(locale.stash.greet1)

if pc.gold < 500 then

say(locale.stash.not_enough_money)

else

local s = select(locale.stash.pay_ok, locale.stash.pay_no)

if s == 1 then

--stash.setlevel(1)

pc.changegold(-500)

game.set_safebox_level(1)

say(locale.stash.first_open)

else

say(locale.stash.dont_open)

end

end

elseif l == 1 then

say(locale.stash.greet2)

if pc.getqf("open_count") < 3 then

say(locale.stash.beginner_info)

pc.setqf("open_count",pc.getqf("open_count")+1)

end

local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

game.open_safebox()

elseif s == 2 then

-- ?? ?? ??? ?? ??,?? ????

--if pc.getqf("gold_bar_say_count") < 3 then

--say(locale.stash.gold_bar_beginner_info)

--pc.setqf("gold_bar_say_count",pc.getqf("gold_bar_say_count")+1)

--wait()

--end

--npc.open_shop()

say("ah......")

say("Recentemente minas , todas desperdicadas suficiente..")

say("E dificil de se encontrar com tijolos de prata BRIC")

say("Se nao , entao a descoberta de novas veias")

say("Com nenhuma forma de encontrar os tijolos de prata BRIC.")

say("")

q.done()

elseif s == 3 then

game.open_mall()

end

elseif l == 2 then

say(locale.stash.greet3)

local f = pc.getqf("recommendation")

local s = 0

if f <= 1 then

s = select(locale.stash.enlarge, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

elseif f == 2 then

s = select(locale.stash.enlarge_2_no_mark, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

elseif f == 3 then

s = select(locale.stash.enlarge_2_have_mark, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

end

if s == 1 then

if f == 1 then

say(locale.stash.enlarge_2_again)

q.set_title(locale.stash.enlarge_2_title)

if pc.countitem(locale.stash.enlarge_2_item) < 1 then

pc.give_item2(locale.stash.enlarge_2_item)

end

elseif f == 2 then

say(locale.stash.enlarge_2_no_mark2)

pc.setqf("recommendation", 0)

q.done()

elseif f == 3 then

-- ??? ??? ?? ??

if pc.countitem(locale.stash.enlarge_2_mark_item) == 0 then

say(locale.stash.enlarge_2_have_mark2)

q.set_title(locale.stash.enlarge_2_title)

q.start()

pc.setqf("recommendation", 1)

else

say(locale.stash.enlarge_2_have_mark3)

game.set_safebox_level(3)

pc.removeitem(locale.stash.enlarge_2_mark_item)

q.done()

end

else

say(locale.stash.enlarge_2_msg1,pc.name,math.mod(pc.job,2)==0 and locale.man_postfix or locale.woman_postfix,locale.stash.enlarge_2_msg2)

if pc.countitem(locale.stash.enlarge_2_item)<1 then

pc.give_item2(locale.stash.enlarge_2_item)

end

pc.setqf("recommendation",1)

q.set_title(locale.stash.enlarge_2_title)

q.start()

end

elseif s == 2 then

game.open_safebox()

elseif s == 3 then

--npc.open_shop()

-- ?? ??? ?? ?? ??

say("嗯......")

say("最近礦山, 全部都夠荒廢了..")

say("所以很難找金磚跟銀磚")

say("如果不會發現新的礦脈的話")

say("沒有辦法找到金磚跟銀磚.")

say("")

q.done()

elseif s == 4 then

game.open_mall()

end

elseif l == 3 then

say(locale.stash.greet4)

local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

game.open_safebox()

elseif s == 2 then

--npc.open_shop()

-- ?? ??? ?? ?? ??

say("嗯......")

say("最近礦山, 全部都夠荒廢了..")

say("所以很難找金磚跟銀磚")

say("如果不會發現新的礦脈的話")

say("沒有辦法找到金磚跟銀磚.")

say("")

q.done()

elseif s == 3 then

game.open_mall()

end

--local s = select(locale.stash.enlarge, locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter)

--if s == 1 then

-- say(locale.stash.enlarge_3_msg1)

-- local s = select(locale.stash.enlarge_try_ok, locale.stash.enlarge_try_no)

-- if s == 1 then

-- say(locale.stash.enlarge_try_ok_answer)

-- setstate("enlarge_3")

-- pc.setqf("3_left_time", 30*60)

-- loop_timer("enlarge_3_kill_esoteric",3)

-- pc.setqf("3_left_count",100)

-- q.set_title(locale.stash.enlarge_3_title)

-- q.set_counter_name(locale.stash.enlarge_3_counter)

-- q.set_counter_value(100)

-- q.set_clock_name(locale.stash.enlarge_3_timer)

-- q.set_clock_value(30 * 60)

-- q.start()

-- else

-- say(locale.stash.enlarge_no_need)

-- end

--elseif s == 2 then

-- game.open_safebox()

--end

elseif l >= 3 then

say(locale.stash.greet2)

local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

game.open_safebox()

elseif s == 2 then

--npc.open_shop()

-- ?? ??? ?? ?? ??

say("嗯......")

say("最近礦山, 全部都夠荒廢了..")

say("所以很難找金磚跟銀磚")

say("如果不會發現新的礦脈的話")

say("沒有辦法找到金磚跟銀磚.")

say("")

q.done()

elseif s == 3 then

game.open_mall()

end

end

end

when oldwoman.chat.locale.stash.enlarge_2_recommendation with pc.getf("stash","recommendation") == 1 begin

say(locale.stash.enlarge_2_oldwoman_greet)

say(delay(400), ". . . [/DELAY]")

if pc.level < 25 then

-- ??? 25?? ??? ?????? ?? ???.

say(locale.stash.enlarge_2_oldwoman_reject)

pc.setqf("recommendation", 2)

q.set_title(locale.stash.enlarge_2_oldwoman_title1)

else

-- ?????? ??.. ?????? ??? ?? ?.

say(locale.stash.enlarge_2_oldwoman_accept)

pc.setqf("recommendation", 3)

pc.give_item2(locale.stash.enlarge_2_mark_item)

q.set_title(locale.stash.enlarge_2_oldwoman_title2)

end

pc.removeitem(locale.stash.enlarge_2_item)

end

end

state enlarge_stash1 begin

when info begin

setskin(SCROLL)

setbgimage("level_bg.tga")

addimage(20,12,special.levelup_quest[8][4])

setcolor(0,0,0)

say(locale.stash.enlarge_1_info1,item_name(pc.job<3 and locale.stash.enlarge_item1 or locale.stash.enlarge_item2),locale.stash.enlarge_1_info2)

if pc.get_map_index() > 0 and pc.get_map_index() <= table.getn(special.lvq_map) then

for j,i in {8,9,10,11,17} begin

table.foreachi(

special.lvq_map[pc.get_map_index()],

function (n,p) addmapsignal(p[1]*100, p[2]*100) end

)

end

setmapcenterposition(200, 0)

end

select(locale.confirm)

clearmapsignal()

setskin(NOWINDOW)

end

when warehouse_keeper.click begin

say(locale.stash.greet2)

local s = select(locale.stash.enlarge_1_take_bear,locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter);

if s == 1 then

-- ????? ???? ??

if pc.countitem(locale.stash.enlarge_1_item)>=30 then

say(locale.stash.enlarge_1_success)

pc.removeitem(locale.stash.enlarge_1_item,30)

game.set_safebox_level(2)

setstate(start)

q.done()

cleartimer("enlarge_1_kill_bear")

else

say(locale.stash.enlarge_1_notyet)

end

elseif s == 2 then

game.open_safebox()

elseif s == 3 then

game.open_mall()

end

end

when kill begin

if npc.race >= 112 and npc.race <= 116 and -- ?????

(pc.weapon == 50 or pc.weapon == 5030) then

if math.random(5) == 1 then

-- ?? ??!

syschat(locale.stash.enlarge_1_getone)

pc.give_item2(locale.stash.enlarge_1_item)

if pc.countitem(locale.stash.enlarge_1_item) == 30 then

q.set_counter_value(0)

chat(pc.name,locale.stash.enlarge_1_complete)

elseif pc.countitem(locale.stash.enlarge_1_item) < 30 then

q.set_counter_value(30 - pc.countitem(locale.stash.enlarge_1_item))

end

end

end

end

when enlarge_1_kill_bear.timer begin

setstate(enlarge_1_fail)

end

when login begin

if game.get_safebox_level() == 1 then

setstate(enlarge_1_fail)

else

setstate(start)

end

end

end

state enlarge_1_fail begin

when info begin

say(locale.stash.enlarge_1_fail_info)

end

when warehouse_keeper.click begin

say(locale.stash.enlarge_1_fail_ms)

q.done()

setstate("start")

end

end

state enlarge_3 begin

when info begin

end

when warehouse_keeper.click begin

say(locale.stash.greet2)

local s = select(locale.stash.enlarge_3_complete, locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

-- ????? ???? ??

if pc.getqf("3_left_count")<=0 then

say(locale.stash.enlarge_3_success)

game.set_safebox_level(4)

setstate(start)

q.done()

cleartimer("enlarge_3_kill_esoteric")

else

say(locale.stash.enlarge_3_notyet)

end

elseif s == 2 then

game.open_safebox()

elseif s == 3 then

game.open_mall()

end

end

when kill begin

if npc.race >= 601 and npc.race <= 609 then-- ??????

local n = pc.getqf("3_left_count")-1

pc.setqf("3_left_count",n)

q.set_counter_name(locale.stash.enlarge_3_counter)

q.set_counter_value(n)

end

end

when enlarge_3_kill_esoteric.timer begin

local t = pc.getqf("3_left_time")

if t <= 0 then

setstate(enlarge_3_fail)

cleartimer("enlarge_3_kill_esoteric")

else

pc.setqf("3_left_time",t-3);

end

end

when login begin

local t = pc.getqf("3_left_time")

if t <= 0 then

setstate(enlarge_3_fail)

else

loop_timer("enlarge_3_kill_esoteric",3)

q.set_counter_name(locale.stash.enlarge_3_counter)

q.set_counter_value(pc.getqf("3_left_count"))

q.set_clock_name(locale.stash.enlarge_3_timer)

q.set_clock_value(t)

q.start()

end

end

end

state enlarge_3_fail begin

when warehouse_keeper.click begin

say(locale.stash.enlarge_1_fail_msg)

q.done()

setstate("start")

end

end

end

isso supostamente deveria ser o quê?

[TMoore 217]

warehouse.quest

 

o nome mais comum dela.

[Khavro 467]

warehouse.quest

 

o nome mais comum dela.

[rafaelxte2 38]

Depois que dou os camando...  

cd /home/game/share/locale/germany/quest
./qc nomedaquest.quest

 

os arquivos .when .arg .script criam sozinho?

[Khavro 467]

Depois que dou os camando...  

cd /home/game/share/locale/germany/quest

./qc nomedaquest.quest

 

os arquivos .when .arg .script criam sozinho?

 

Sim

[rafaelxte2 38]

O meu nao ta criando

[rafaelxte2 38]

_{-- ????? -> ??}

-- ???+4 -> ???????

-- ????? -> ?????

quest stash begin

state start begin -- ???? ??? ??

when warehouse_keeper.click begin

local l = game.get_safebox_level()

--syschat(l) -- for debug

if l == 0 then

say(locale.stash.greet1)

if pc.gold < 500 then

say(locale.stash.not_enough_money)

else

local s = select(locale.stash.pay_ok, locale.stash.pay_no)

if s == 1 then

--stash.setlevel(1)

pc.changegold(-500)

game.set_safebox_level(1)

say(locale.stash.first_open)

else

say(locale.stash.dont_open)

end

end

elseif l == 1 then

say(locale.stash.greet2)

if pc.getqf("open_count") < 3 then

say(locale.stash.beginner_info)

pc.setqf("open_count",pc.getqf("open_count")+1)

end

local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

game.open_safebox()

elseif s == 2 then

-- ?? ?? ??? ?? ??,?? ????

--if pc.getqf("gold_bar_say_count") < 3 then

--say(locale.stash.gold_bar_beginner_info)

--pc.setqf("gold_bar_say_count",pc.getqf("gold_bar_say_count")+1)

--wait()

--end

--npc.open_shop()

say("ah......")

say("Recentemente minas , todas desperdicadas suficiente..")

say("E dificil de se encontrar com tijolos de prata BRIC")

say("Se nao , entao a descoberta de novas veias")

say("Com nenhuma forma de encontrar os tijolos de prata BRIC.")

say("")

q.done()

elseif s == 3 then

game.open_mall()

end

elseif l == 2 then

say(locale.stash.greet3)

local f = pc.getqf("recommendation")

local s = 0

if f <= 1 then

s = select(locale.stash.enlarge, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

elseif f == 2 then

s = select(locale.stash.enlarge_2_no_mark, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

elseif f == 3 then

s = select(locale.stash.enlarge_2_have_mark, locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

end

if s == 1 then

if f == 1 then

say(locale.stash.enlarge_2_again)

q.set_title(locale.stash.enlarge_2_title)

if pc.countitem(locale.stash.enlarge_2_item) < 1 then

pc.give_item2(locale.stash.enlarge_2_item)

end

elseif f == 2 then

say(locale.stash.enlarge_2_no_mark2)

pc.setqf("recommendation", 0)

q.done()

elseif f == 3 then

-- ??? ??? ?? ??

if pc.countitem(locale.stash.enlarge_2_mark_item) == 0 then

say(locale.stash.enlarge_2_have_mark2)

q.set_title(locale.stash.enlarge_2_title)

q.start()

pc.setqf("recommendation", 1)

else

say(locale.stash.enlarge_2_have_mark3)

game.set_safebox_level(3)

pc.removeitem(locale.stash.enlarge_2_mark_item)

q.done()

end

else

say(locale.stash.enlarge_2_msg1,pc.name,math.mod(pc.job,2)==0 and locale.man_postfix or locale.woman_postfix,locale.stash.enlarge_2_msg2)

if pc.countitem(locale.stash.enlarge_2_item)<1 then

pc.give_item2(locale.stash.enlarge_2_item)

end

pc.setqf("recommendation",1)

q.set_title(locale.stash.enlarge_2_title)

q.start()

end

elseif s == 2 then

game.open_safebox()

elseif s == 3 then

--npc.open_shop()

-- ?? ??? ?? ?? ??

say("嗯......")

say("最近礦山, 全部都夠荒廢了..")

say("所以很難找金磚跟銀磚")

say("如果不會發現新的礦脈的話")

say("沒有辦法找到金磚跟銀磚.")

say("")

q.done()

elseif s == 4 then

game.open_mall()

end

elseif l == 3 then

say(locale.stash.greet4)

local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

game.open_safebox()

elseif s == 2 then

--npc.open_shop()

-- ?? ??? ?? ?? ??

say("嗯......")

say("最近礦山, 全部都夠荒廢了..")

say("所以很難找金磚跟銀磚")

say("如果不會發現新的礦脈的話")

say("沒有辦法找到金磚跟銀磚.")

say("")

q.done()

elseif s == 3 then

game.open_mall()

end

--local s = select(locale.stash.enlarge, locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter)

--if s == 1 then

-- say(locale.stash.enlarge_3_msg1)

-- local s = select(locale.stash.enlarge_try_ok, locale.stash.enlarge_try_no)

-- if s == 1 then

-- say(locale.stash.enlarge_try_ok_answer)

-- setstate("enlarge_3")

-- pc.setqf("3_left_time", 30*60)

-- loop_timer("enlarge_3_kill_esoteric",3)

-- pc.setqf("3_left_count",100)

-- q.set_title(locale.stash.enlarge_3_title)

-- q.set_counter_name(locale.stash.enlarge_3_counter)

-- q.set_counter_value(100)

-- q.set_clock_name(locale.stash.enlarge_3_timer)

-- q.set_clock_value(30 * 60)

-- q.start()

-- else

-- say(locale.stash.enlarge_no_need)

-- end

--elseif s == 2 then

-- game.open_safebox()

--end

elseif l >= 3 then

say(locale.stash.greet2)

local s = select(locale.stash.open_stash, locale.stash.buy_silver_and_gold_bar, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

game.open_safebox()

elseif s == 2 then

--npc.open_shop()

-- ?? ??? ?? ?? ??

say("嗯......")

say("最近礦山, 全部都夠荒廢了..")

say("所以很難找金磚跟銀磚")

say("如果不會發現新的礦脈的話")

say("沒有辦法找到金磚跟銀磚.")

say("")

q.done()

elseif s == 3 then

game.open_mall()

end

end

end

when oldwoman.chat.locale.stash.enlarge_2_recommendation with pc.getf("stash","recommendation") == 1 begin

say(locale.stash.enlarge_2_oldwoman_greet)

say(delay(400), ". . . [/DELAY]")

if pc.level < 25 then

-- ??? 25?? ??? ?????? ?? ???.

say(locale.stash.enlarge_2_oldwoman_reject)

pc.setqf("recommendation", 2)

q.set_title(locale.stash.enlarge_2_oldwoman_title1)

else

-- ?????? ??.. ?????? ??? ?? ?.

say(locale.stash.enlarge_2_oldwoman_accept)

pc.setqf("recommendation", 3)

pc.give_item2(locale.stash.enlarge_2_mark_item)

q.set_title(locale.stash.enlarge_2_oldwoman_title2)

end

pc.removeitem(locale.stash.enlarge_2_item)

end

end

state enlarge_stash1 begin

when info begin

setskin(SCROLL)

setbgimage("level_bg.tga")

addimage(20,12,special.levelup_quest[8][4])

setcolor(0,0,0)

say(locale.stash.enlarge_1_info1,item_name(pc.job<3 and locale.stash.enlarge_item1 or locale.stash.enlarge_item2),locale.stash.enlarge_1_info2)

if pc.get_map_index() > 0 and pc.get_map_index() <= table.getn(special.lvq_map) then

for j,i in {8,9,10,11,17} begin

table.foreachi(

special.lvq_map[pc.get_map_index()],

function (n,p) addmapsignal(p[1]*100, p[2]*100) end

)

end

setmapcenterposition(200, 0)

end

select(locale.confirm)

clearmapsignal()

setskin(NOWINDOW)

end

when warehouse_keeper.click begin

say(locale.stash.greet2)

local s = select(locale.stash.enlarge_1_take_bear,locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter);

if s == 1 then

-- ????? ???? ??

if pc.countitem(locale.stash.enlarge_1_item)>=30 then

say(locale.stash.enlarge_1_success)

pc.removeitem(locale.stash.enlarge_1_item,30)

game.set_safebox_level(2)

setstate(start)

q.done()

cleartimer("enlarge_1_kill_bear")

else

say(locale.stash.enlarge_1_notyet)

end

elseif s == 2 then

game.open_safebox()

elseif s == 3 then

game.open_mall()

end

end

when kill begin

if npc.race >= 112 and npc.race <= 116 and -- ?????

(pc.weapon == 50 or pc.weapon == 5030) then

if math.random(5) == 1 then

-- ?? ??!

syschat(locale.stash.enlarge_1_getone)

pc.give_item2(locale.stash.enlarge_1_item)

if pc.countitem(locale.stash.enlarge_1_item) == 30 then

q.set_counter_value(0)

chat(pc.name,locale.stash.enlarge_1_complete)

elseif pc.countitem(locale.stash.enlarge_1_item) < 30 then

q.set_counter_value(30 - pc.countitem(locale.stash.enlarge_1_item))

end

end

end

end

when enlarge_1_kill_bear.timer begin

setstate(enlarge_1_fail)

end

when login begin

if game.get_safebox_level() == 1 then

setstate(enlarge_1_fail)

else

setstate(start)

end

end

end

state enlarge_1_fail begin

when info begin

say(locale.stash.enlarge_1_fail_info)

end

when warehouse_keeper.click begin

say(locale.stash.enlarge_1_fail_ms)

q.done()

setstate("start")

end

end

state enlarge_3 begin

when info begin

end

when warehouse_keeper.click begin

say(locale.stash.greet2)

local s = select(locale.stash.enlarge_3_complete, locale.stash.open_stash, locale.stash.open_mall, locale.stash.nomatter)

if s == 1 then

-- ????? ???? ??

if pc.getqf("3_left_count")<=0 then

say(locale.stash.enlarge_3_success)

game.set_safebox_level(4)

setstate(start)

q.done()

cleartimer("enlarge_3_kill_esoteric")

else

say(locale.stash.enlarge_3_notyet)

end

elseif s == 2 then

game.open_safebox()

elseif s == 3 then

game.open_mall()

end

end

when kill begin

if npc.race >= 601 and npc.race <= 609 then-- ??????

local n = pc.getqf("3_left_count")-1

pc.setqf("3_left_count",n)

q.set_counter_name(locale.stash.enlarge_3_counter)

q.set_counter_value(n)

end

end

when enlarge_3_kill_esoteric.timer begin

local t = pc.getqf("3_left_time")

if t <= 0 then

setstate(enlarge_3_fail)

cleartimer("enlarge_3_kill_esoteric")

else

pc.setqf("3_left_time",t-3);

end

end

when login begin

local t = pc.getqf("3_left_time")

if t <= 0 then

setstate(enlarge_3_fail)

else

loop_timer("enlarge_3_kill_esoteric",3)

q.set_counter_name(locale.stash.enlarge_3_counter)

q.set_counter_value(pc.getqf("3_left_count"))

q.set_clock_name(locale.stash.enlarge_3_timer)

q.set_clock_value(t)

q.start()

end

end

end

state enlarge_3_fail begin

when warehouse_keeper.click begin

say(locale.stash.enlarge_1_fail_msg)

q.done()

setstate("start")

end

end

end

 

[☆♕ CabrinhaSexy ♕☆ 738]

poe essa merd dentro de spoiler, por adeus da santa engracia dass.....

 

Cabeça nao serve só para ter cabelo....

[rafaelxte2 38]

isso supostamente deveria ser o quê?

A quest do armazem

[Khavro 467]

A quest do armazem

 

Mete esta.

 

-- Scroll of Return -> Bear gall

-- Spirit Stone of Haste+4 -> Recommendation from Storage Guard

-- Heroic Symbol -> Heroic Symbol

quest stash begin

state start begin --Status when nothing is open

when warehouse_keeper.chat."GM::Yang SHOP" with pc.is_gm() begin

setskin(NOWINDOW)

npc.open_shop()

end

when warehouse_keeper.chat."Do you want to use the Warehouse?"  begin

----"123456789012345678901234567890123456789012345678901234567890"|

say_title("Storekeeper:")

say("")

say("Do you want to use the Warehouse?")

say("You have to pay Yang to use the Warehouse..")

say("")

say("I am in a good mood today - so you can use it for 500 Yang.")

say("")

say("So - come on, that's cheap, huh?")

say("")

wait()

 

if pc.gold < 500 then

say_title("Storekeeper:")

say("")

say("What? Not enough Yang?")

say("")

say("Then come back later when you have enough.")

say("")

else

local s = select("Pay", "Don't pay")

if s == 1 then

----"123456789012345678901234567890123456789012345678901234567890"|

--stash.setlevel(1)

pc.changegold(-500)

game.set_safebox_level(1)

set_state(use)

say_title("Storekeeper:")

say("")

say("Your Warehouse is open now. If you want to use it, just")

say("talk to me. The password for your storage is:")

say_reward("000000")

say("You should change it for security reasons!")

say("")

say("You may think that 15 boxes aren't enough. But who")

say("knows, maybe I'll give you more space when we get to")

say("know each other better, hehe!")

say("")

else

say_title("Storekeeper:")

say("")

say("Oh well even the Mayor needn't do it if he")

say("doesn't want to...")

say("")

end

end

end

end

 

state use begin

when warehouse_keeper.chat."Open Warehouse" begin

if pc.getqf("open_count") < 3 then

say_title("Storekeeper")

say("")

say("Welcome, welcome!")

say("You know what Gold Bars are for?")

say("")

say("If you carry Yang around")

say("that's like saying:")

say("Please kill me!")

say("")

say("That's why I exchange the Yang")

say("into Gold Bars I can store for you.")

say("")

wait()

say_title("Storekeeper:")

say("")

say("Hummmm..")

say("Okay, I ask for more than you'd usually")

say("pay for a Gold Bar. But it's still fair, isn't")

say("it? There is no reason to feel betrayed.")

say("As you know it's dangerous")

say("outside.")

say("")

pc.setqf("open_count", pc.getqf("open_count") + 1)

wait()

end

setskin(NOWINDOW)

game.open_safebox()

end

 

when warehouse_keeper.chat."Open Itemshop Storage" begin

setskin(NOWINDOW)

game.open_mall()

end

 

when warehouse_keeper.chat."Buying of Silver or Gold Bars" begin

npc.open_shop()

say_title("Storekeeper:")

say("")

say("Humm..")

say("The mines are all drained out.")

say("It's hard to find Gold or Silver.")

say("As long as no new vein is found,")

say("there will be no new Gold- or Silver bars.")

say("")

end

end

end