Unmantained Guida [Release]Quest Biologo

[7he Boss]

----------------------------------------------------
--MAKE HERB LV95
--METIN2 Herb Quest  
----------------------------------------------------
quest make_herb_lv95  begin
 state start begin
  when login or levelup with pc.get_level() ==95  begin
   set_state(information)
  end 
 end
 state information begin
  when letter begin
   local v = find_npc_by_vnum(20084)
   if v != 0 then
    target.vid("__TARGET__", v, "Quest del Biologo")
   end
   send_letter("Gli studi del Biologo")
  end
  when button or info begin
   say_title("Gli studi del Biologo")
   say("")
   say("Vai subito dal Biologo Chaegirab,")
   say("deve affidarti una missione molto importante.")
   say("Sbrigati! Ti sta gia aspettando!!!")
   say("")
  end
 
  when __TARGET__.target.click or
   20084.chat."Cristallo" begin
   target . delete ( "__TARGET__" ) 
   say ( "Biologo Chaegirab:" ) 
   say ( "Mi serve una mano..." ) 
   say ( "sto studiando I Cristalli." ) 
   say ( "Puoi darmi una mano?" ) 
   say ( "Te ne sarei grato!" ) 
   wait ( ) 
   say ( "Biologo Chaegirab:" ) 
   say ( "Grazie Mille!" ) 
   say ( "Ti prego, caccia I MilleWar Residenti a campo serpi 2" ) 
   say ( "Per ottenere I Cristalli!" ) 
   say ( "" )                                 
   set_state(go_to_disciple)
   pc.setqf("collect_count",0) 
   pc.setqf("drink_drug",0) 
  end
 end
 state go_to_disciple begin
  when letter begin
   send_letter("Trova I Cristalli")
 
  end
  when button or info begin
   say_title ( "I Cristalli" ) 
   say ( "" ) 
   say ( "Il biologo ha bisogno del tuo aiuto" ) 
   say ( "sta studiando I Cristalli" ) 
   say ( "Puoi trovarli uccidendo i " .. mob_name ( 1603 ) .. "!!" ) 
   say("")
   say_item_vnum(70031) 
   say_reward ( "Attualmente hai trovato" .. " " .. pc . getqf ( "collect_count" ) .. " Cristalli." ) 
   say("")
  end
 
  when 70031.use begin --°g´bÃĤô
   if pc.getqf("drink_drug")==1 then
    say("")
    say("Hai una Cristaòòp")
    say("")
    return
   end
   if pc.count_item(70031)==0 then
    say("Se non mi porti i Cristalli,")
    say("come faccio a completare le mie")
    say("ricerche? Trovamene qualcuna!")
    say("")
    return
   end
   item.remove() 
   pc.setqf("drink_drug",1)
  end
 
  when 182.kill begin
   if  pc.count_item(70031)< 10 - pc.getqf("collect_count")then
    pc.give_item2(70031, 1)
   end
  end
 
     when 20084.chat."Hai un Cristallo?" with pc.count_item(70031) >0   begin
    say("Biologo Chaegirab:")
    say("Humm...")
    say("Mi hai portato una Cristallo,")
    say("Fammela esaminare...")
    say("")
    pc.remove_item(70031, 1)
    wait()
 
    local pass_percent
    if pc.getqf("drink_drug")==0 then
     pass_percent=50
    else  
     pass_percent=25
    end
 
    local s= number(1,100)
    if s<= pass_percent  then
       if pc.getqf("collect_count")< 9 then     --10­Ó¥H¤U 
      local index =pc.getqf("collect_count")+1 
      pc.setqf("collect_count",index)     --¨ú±o¤@­Ó®É +1
      say("Biologo Chaegirab:")
      say("Grandioso!!!")
      say("Questo materiale e adatto alle mie ricerche, ".." "..10-pc.getqf("collect_count").. " !!!")
      say("devi portarmi solo altri".." "..10-pc.getqf("collect_count").. " e potrò completare!")
      say("")
      pc.setqf("drink_drug",0)
      return
     end
     say_title("Biologo Chaegirab:")
     say("Grandissimo!!!")
     say("Ho completato le mie ricerche...")
     say("Ti sono davvero riconoscente.")
        say("Ecco la tua ricompensa.")
     say("")
     say_reward("Per aver aiutato il biologo")
     say_reward("Ricevi 500.000.000 Punti Esperienza, 100kk Yang e")
     say_reward("AntiWar +4 !") 
 
     pc.setqf("collect_count",0)
     pc.setqf("drink_drug",0) 
 
     clear_letter()
     set_state(__complete)
 
     pc.give_item2(28453)
     pc.change_money(10000)
     pc.give_exp2(500000000)
     set_quest_state("levelup","run")
 
     return
    else        
    say("Biologo Chaegirab:")
    say("Questo materiale non è adatto alle mie ricerche!")
    say("Potresti portarmene un altro???")
    say("")
    pc.setqf("drink_drug",0)
    return
    end
 end
end
 
 
 state __complete begin
 end
end

Questa quest e stata fatta seguendo un altra fatta da ErLibano , se vi piace provatela ^^.

A se volete potete anche cambiare la ricompensa , io ho usato questa che verra usata nel mio server , ma voi potete modificarla vostro paicimento .

Fonti : ErLibano ( Quest base)
Io glio fatto giusto 3-4 modifiche ​

.