[RELEASE] 92er Bio

03/11/2012 23:38 MetinLegende#1
Hey,
da ich hier gesucht habe und nichts gefunden, dachte ich mir ich release mal die 92er bioquest.

PHP Code:
quest seon_pyeongs_forschung begin
    state start begin
        when login 
or levelup with pc.get_level() >= 92 begin
            set_state
(information)
        
end
    end
    state information begin
        when letter begin
            send_letter
("Seon-Pyeongs Forschung")
            
local v find_npc_by_vnum(20091)
            if 
!= 0 then
                target
.vid("target1"v,"seon_pyeong")
            
end
        end
        when info 
or button begin
            say_title
("Seon-Pyeongs Forschung")
            
say("Da der Biologe nun keine Aufgaben mehr")
            
say("für dich hat mussten wir überall nach ")
            
say("jemandem suchen der dir neue Aufträge ")
            
say("geben kann. Bei der Suche bin ich auf")
            
say("Seon-Pyeong gestoßen. Er sagte, dass er")
            
say("eine Aufgabe für dich habe.")
            
say("")
            
say_reward("Gehe zu Seon-Pyeong und hole deine Aufgabe ab.")
        
end
        when target1
.target.click or 20091.chat."Juwelen der Missgunst" begin
            target
.delete("target1")
            
say_title("Seon-Pyeong:")
            
say("Hallo, der Hauptmann hat mir schon")
            
say("berichtet, dass du kommen würdest.")
            
say("Ich übernehme ab jetzt deine Ausbildung.")
            
wait()
            
say_title("Seon-Pyeong:")
            
say("Ich möchte von dir, dass du mir 10")
            
say("Juwelen der Missgunst besorgst und")
            
say("ein NEIN lasse ich nicht durch.")
        
            
set_state(go_to_disciple)
            
pc.setqf("duration",0)
            
pc.setqf("collect_count",0)
            
pc.setqf("drink_drug",0)
        
end
    end
    state go_to_disciple begin
        when letter begin
            send_letter
("Seon-Pyeongs Forschung")
        
end
        when button 
or info begin
            say_title
("Seon-Pyeongs Forschung")
            
say("Da der Biologe keine Aufträge mehr hatte,")
            
say("ist nun Seon-Pyeong für deine Ausbildung")
            
say("zuständig. Der erste Auftrag den du von")
            
say("ihm bekommen hast, ist die Juwelen der")
            
say("Missgunst zu suchen.")
            
say("")
            
say_reward("Die Juwelen der Missgunst bekommst du von")
            
say_reward("den Unterwelt-Eisgolems und den ")
            
say_reward("Unterwelt-Eismann aus der Grotte der Verbannung.")
            
say("")
            
say_item_vnum(30251)
            
say("")
            
say_reward("Du hast schon ".." "..pc.getqf("collect_count").." gesammelt.")
        
end
        when 71035.
use begin
            
if get_time() < pc.getqf("duration"then
                say
("BLA BLA BLA")
                return
            
end
            
if pc.getqf ("drink_drug") == 1 then
                say
("BLUB BLUB BLUB")
                return
            
end
            
if pc.count_item(30251) == 0 then
                say
("Biologe:~:")
                
say("¥ý§ä¨ìÆF»îªº«Hª«¥H«á")
                
say("¤~¨Ï¥Î°g´bÃĤô¤]¤£·|¦³°ÝÃD")
                
say("")
                return
            
end
            
            item
.remove()
            
pc.setqf("drink_drug",1)
        
end
        when 1137.kill 
or 1135.kill begin
            local s 
number(1,100)
            if 
<= 25 then
                pc
.give_item2(302511)
            
end
        end
        when 20091.chat
."Juwelen der Missgunst" with pc.count_item(30251) > 0 begin
            
if get_time() > pc.getqf("duration"then
                say_title
("Seon-Pyeong:")
                
say("Oh!!!! Wie ich sehe hast du ein")
                
say("Exemplar. Gib es mir, damit ich es")
                
say("untesuchen kann.")
                
say("")
                
pc.remove_item(302511)
                
pc.setqf("duration",get_time()+0*0*22)
                
wait()
                
                
local pass_percent
                
if pc.getqf("drink_drug") == 0 then
                    pass_percent 
60
                
else
                    
pass_percent 90
                end
                local s 
number(1,100)
                if 
<= pass_percent then
                    
if pc.getqf("collect_count") < 9 then
                        local index 
pc.getqf("collect_count") + 1
                        pc
.setqf("collect_count",index)
                        
say("Seon-Pyeong:")
                        
say("Das Juwel ist von guter Qualität.")
                        
say("Es wäre schön wenn du mir")
                        
say("noch".." "..10-pc.getqf("collect_count").. " bringen würdest.")
                        
say("")
                        
pc.setqf("drink_drug",0)
                        return
                    
end
                    say_title
("Seon-Pyeong")
                    
say("Gut gemacht!")
                    
say("Du hast alle 10 Juwelen gesammelt.")
                    
say("")
                    
say("Um deine Aufgabe nun zu beenden")
                    
say("gehen zu Baek-Go.")
                    
set_state(baekgo)
                else
                
say_title("Seon-Pyeong:")
                
say("Oh dieses Juwel ist nicht in so")
                
say("gutem Zustand, bitte bring mir noch")
                
say("eins.")
                
pc.setqf("drink_drug",0)
                return
                
end
            
else
            
say_title("Seon-Pyeong:")
            
say("Es tut mir leid aber ich habe")
            
say("meine Forschungen noch nicht ")
            
say("abgeschlossen. Bitte komm später")
            
say("noch einmal wieder.")
            return
            
end
        end
    end
    state baekgo begin
        when letter begin
            send_letter
("Aufgabe abschließen")
            
local v find_npc_by_vnum(20018)
            if 
!= 0 then
                target
.vid("target2"v"baekgo")
            
end
        end
        when info 
or button begin
            say_title
("Aufgabe abschließen")
            
say("Um deine Aufgabe abzuschließen musst")
            
say("du zu Baek-Go gehen.")
        
end
        when target2
.target.click or 20018.chat."Aufgabe abschließen" begin
            target
.delete("target2")
            
say_title("Baek-Go:")
            
say("")
            
say("Seon-Pyeong hat mich bereits über deine")
            
say("Tat informiert. Aber bei dieser Belohnung")
            
say("gibt es eine Ängerung.")
            
say("Diesmal kannst du zwischen 3 Belohnungen")
            
say("wählen.")
            
say("")
            
say_reward("Welche Belohnung hättest du denn gerne?")
            
say("")
            
local s select ("1000 TP""120 Verteidigung""51 Angriffswert")
            
            if 
== 1 then
                affect
.add_collect(apply.MAX_HP,1000,60*60*24*365*60)
                
set_state(finish)
            elseif 
== 2 then
                affect
.add_collect(apply.DEF_GRADE_BONUS,120,60*60*24*365*60)
                
set_state(finish)
            elseif 
== 3 then
                affect
.add_collect(apply.ATT_GRADE_BONUS,51,60*60*24*365*60)
                
set_state(finish)
            
end
        end
    end
    state finish begin
    end
end 
So, um aus der 92er die 94er zu machen nur die 30251 in die 30251 ändern, die 10 benötigten zu 20 und die Mobs die sie droppen sollen anpassen. Dann müsst ihr noch von z.b. der 90er Bio den Seelenstein dropp anpassen und einfügen und ihr könnt sie auch als 94er nutzen.

xBlix


Und wenn es doch schon welche pub geben sollte, tuts mir leid, habe aber nichts gefunden
03/11/2012 23:54 xllMethoXx#2
Cool, danke :)