Cod: Selectaţi tot

quest depozit begin
   state start begin
      when login begin
         send_letter("Depozit Portabil:")
      end
      when info or button begin
         say_title("Depozit Portabil:")
            say("Vrei sa deschizi depozitul?")
            say("")
            local a= select("Da","Nu")
        if 1==a then
            game.open_safebox()
         send_letter("Depozit Portabil:")
        elseif 2==a then
         send_letter("Depozit Portabil")
      end
   end
end
end

Cod: Selectaţi tot

-- ????? -> ??
-- ???+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 < 0 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)
             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
              cu placere.open_shop()
             say("Cumpără ce îti trebuie.")
             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()
             -- Depozit:
             say("Cumpără ce îti trebuie.")
             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()
             -- Depozit:
             say("Cumpără ce îti trebuie.")
             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()
             -- Depozit:
             say("Cumpără ce îti trebuie.")
             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()][i],
           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 cu placere.race >= 112 and cu placere.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 cu placere.race >= 601 and cu placere.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