Cod: Selectaţi tot

quest obtain_key begin
    state start begin
      when login with get_global_time() - pc.getqf("last_mission") >= 24*60*60 begin
         send_letter("Armatele")
         local v = find_npc_by_vnum(20355)
         target.vid("captain", v, "Capitan")
      end
      
      when info or button begin
         --if pc.getqf("action") == 0
            say_title("Atentie, ".. pc.get_name() ..".Este nevoie de tine!")
            say("")
            say("Capitanul are nevoie de tine!")
            say("Armatele noastre sunt pregatite sa treaca")
            say("in imparatia raului si au nevoie de cristale")
            say("pentru a activa portalul dintre lumea noastra")
            say("si lumea de dincolo.")
            say_item_vnum("90003")
            say("Ia-ti arma si mergi la el!")
         --end
      end
      
      when captain.target.click begin
         say_title("Capitanul:")
         say("Iti multimesc pentru ca ai venit atat de repede.")
         say("Armatele noastre sunt pregatite sa treaca granita")
         say("dar ne lipsesc cristalele pentru a activa portalul.")
         say("Te rugam sa ne ajuti sa le obtinem.")
         say_reward("Ca recompensa vei primi 3 bilete de trecere")
         say_reward("spre Valea ******.")
         wait()
         say_title("Capitanul:")
         say("Pentru a obtine aceste cristale am nevoie de zece")
         say("pietre ale sufletelor")
         say_item_vnum(30221)
         say("Le poti obtine omorand demoni din Turnul Diavolilor")
         say("Obtine aceste pietre si du-i-le lui Uriel")
         target.delete("captain")
         set_state(killing)
      end
   end
   
   state killing begin
   
      when letter begin
         send_letter("Armatele")         
      end
      
      when button or info begin
         say_title("Armatele")
         say("Omoara demoni din Turnul Diavolului")
         say("pentru a obtine pietrele sufletelor")
         say("necesare crearii cristalelor")
         say_item_vnum(30221)
      end
      
      when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
         local n = number(0,30)
         if n>27 then
            if pc.count_item(30221) == 9 then
               pc.give_item2(30221, 1)
               say_title("Armatele")
               say("Ai obtinut toate pietrele necesare.")
               say("Du-le lui Uriel pentru a le transforma in cristale.")
               set_state(backuriel)
            else
               pc.give_item2(30221, 1)
            end
         end
      end
   end
   
   state backuriel begin
      when letter begin
         send_letter("Armatele")
         local v = find_npc_by_vnum(20011)
         target.vid("uriel", v, "Uriel")
      end
      
      when button or info begin
         say_title("Armatele")
         say("Ai obtinut toate pietrele necesare.")
         say("Du-le lui Uriel pentru a le transforma in cristale.")
      end
      
      when uriel.target.click begin
         if pc.count_item(30221) <10 then
            say("Am nevoie de zece pietre pentru a crea cristale!")
         else
            say_title("Uriel:")
            say("Iti multumesc ca ai adus pietrele.")
            say("Te rog sa ma astepti putin, ca sa iti dau cristalele")
            pc.remove_item(30221, 10)
            wait()
            say_title("Uriel:")
            say("Uite aici cristalul pentru gardian.")
            say("Du-il repede, cat armatele noastre sunt")
            say("inca in avantaj.")
            target.delete("uriel")
            pc.give_item2(90003, 1)
            set_state(captback)
         end
      end
   end
   state captback begin
      when letter begin
         send_letter("Armatele")
         local v = find_npc_by_vnum(20355)
         target.vid("captain", v, "Capitan")
      end
      
      when button or info begin
         say_title("Armatele")
         say("Dute si dui captitanului cristalul cat mai repede.")
      end
      
      when captain.target.click begin
         if pc.count_item(90003) > 0 then
            say_title("Capitan:")
            say("Iti multumesc pentru ca mi-ai adus acest cristal.")
            say("Acum vom fi mai aproape de a distruge raul.")
            say_reward("Poftim ce ti-am promis.")
            say_reward("Ca rasplata iti dau si un inel de EXP.")
            pc.setqf("last_mission", get_global_time())
            pc.remove_item(90003, 1)
            pc.give_item(71095, 3)
            pc.give_item2(70005, 1)
            target.delete("captain")
            set_state(start)
            clear_letter()
         else
            say_title("Capitan:")
            say("Adu-mi cristalul cat mai repede!")
         end
      end
   end
end

Cod: Selectaţi tot

quest Costume begin
  state start begin
  when login with pc.level >= 1 begin
  set_state(information)
  end
  end

  state information begin
  when letter begin
  send_letter("Costume")
  end

  when info or button begin
  say_title("Costume")
  say("Salut , Metin2Test te va ajuta sa castigi ")
  say("Sihastru si freza.")
  say_reward("Omoara 20 Mistret Flamand")
  say("")
  pc.setqf("state", )
  q.set_counter("", )
  end

  when .kill begin
  local count = pc.getqf("state") - 1
  if count <=  then
  pc.setqf("state", count)
  q.set_counter("", count)
  end
  if count == 0 then
  say_title("Costume - Succes!")
  say("")
  say("Ai terminat misiunea cu succes!")
  say("Drept multumire vei primi")
  say("o recompensa frumusica.")
  say("")
  say_reward("Recompensa:")
  say_reward("Ai primit Sihastru M")
  say_reward("Ai primit Sihastru F")
  say_reward("Ai primit Freza M")
  say_reward("Ai primit Freza F")
  pc.give_item2(41003, 1)
  pc.give_item2(41004, 1)
  pc.give_item2(45007, 1)
  pc.give_item2(45008, 1)
  clear_letter()
  set_state(__COMPLETE__)

  end
  end
  end

  state __COMPLETE__ begin
  end
  end

Cod: Selectaţi tot

quest kill_for_prize begin
    state start begin
      when login with get_global_time() - pc.getqf("last_mission") >= 24*60*60 begin
         set_state(killing)
      end
	end
    state killing begin
      when letter begin
         send_letter("Ucide pentru recompensa zilnica")         
      end
      when button or info begin
         say_title("Ucide mobii")
         say("Omoara xxxxxxxxx")
         say("pentru a obtine xxxxxxx")
         say_item_vnum(xxxxx)
      end
      
      when xxxx.kill or xxxx.kill or xxxx.kill or xxxx.kill begin
         local n = number(0,30)
         if n>27 then
               pc.give_item2(xxxxx, 1)
               say_title("Recompensa")
               say("Ai obtinut recompensa meritata.")
         end
      end
    end
end