[SERVICE] Die Questkontrolle

10/01/2012 14:15 |★|554#6916
Quote:
Originally Posted by x3Campinox3 View Post
ICH LIEBE DICH!! danke dir! ich hab mir meinen verdammten kopf die ganze nacht zebrochen warum es nicht ging! xD
Wäre nice wenn du mir evtl. noch helfen könntest das das feld "Festhalten" noch auftaucht. weil jetzt kommt das gar nicht mehr xD

Naja auf jeden fall DANKE!
Setz ein
PHP Code:
wait() 
zwischen den Text und dem
PHP Code:
pc.warp() 
10/01/2012 14:23 x3Campinox3#6917
Quote:
Setz ein
PHP-Code:
wait()
zwischen den Text und dem
PHP-Code:
pc.warp()
Verdammt jetzt muss ich dich heiraten :D Danke :D
10/01/2012 16:14 .Seriously#6918
PHP Code:
quest userpanel begin
    state start begin
        when login begin
            send_letter
("Der Userpanel")
        
end
            when button 
or info begin
                userpanel
.show_menu()
            
end
            
                
function show_menu()
                    
say_title("Der Userpanel")
                    
say("")
                    
say("Was willst du tun?")
                    
say("")
                    
local user = select("Teleportieren","Information","Events","Abbrechen")
                    if 
user == 1 then
                        userpanel
.show_seite1()
                    
end
                    
if user == 2 then
                        userpanel
.show_seite2()
                    
end
                    
if user == 3 then
                        userpanel
.show_seite3()
                    
end
                    
if user == 4 then
                        
return
                    
end
            
                
function show_seite1()
                    
say_title("Teleportieren")
                    
say("")
                    
say("Wohin möchtest du?")
                    
say("")
                    
local tele = select("Rotes Reich","Gelbes Reich","Blaues Reich","Zurück")
                    if 
tele == 4 then
                        userpanel
.show_menu()
                    
end
                    
if tele == 1 then
                        pc
.warp(rotes,reich)
                    
end
                    
if tele == 2 then
                        pc
.warp(gelbes,reich)
                    
end
                    
if tele == 3 then
                        pc
.warp(blaues,reich)
                    
end
                
                
function show_seite2()
                    
say_title("Information")
                    
say("")
                    
say("Was willst du Wissen?")
                    
say("")
                    
local info = select("Text","text","text","text","Zurück")
                    if 
info == 5 then
                        userpanel
.show_menu()
                    
end
                    
if info == 1 then
                        say
("text")
                    
end
                    
if info == 2 then
                        say
("text")
                    
end
                    
if info == 3 then
                        say
("text")
                    
end
                    
if info == 4 then
                        say
("text")
                    
end
                
                
function show_seite3()
                    
say_title("Events")
                    
say("")
                    
say("Was möchtest du über Events wissen?")
                    
say("")
                    
local events = select("Event1","Event2","Event3","Event4","Zurück")
                    if 
events == 5 then
                        userpanel
.show_menu()
                    
end
                    
if events == 1 then
                        say
("text")
                    
end
                    
if events == 2 then
                        say
("text")
                    
end
                    
if events == 3 then
                        say
("text")
                    
end
                    
if events == 4 then
                        say
("text")
                    
end
                end
            end 
Ist glaube ich ein end fehler.
10/01/2012 17:04 Mijago#6919
Das war nicht nur einer :D
PHP Code:
quest userpanel begin
    state start begin
        when login begin
            send_letter
("Der Userpanel")
        
end
        when button 
or info begin
            userpanel
.show_menu()
        
end
        
        
function show_menu()
            
say_title("Der Userpanel")
            
say("")
            
say("Was willst du tun?")
            
say("")
            
local user = select("Teleportieren","Information","Events","Abbrechen")
            if 
user == 1 then
                userpanel
.show_seite1()
            
end
            
if user == 2 then
                userpanel
.show_seite2()
            
end
            
if user == 3 then
                userpanel
.show_seite3()
            
end
            
if user == 4 then
                
return
            
end
        end
        
function show_seite1()
            
say_title("Teleportieren")
            
say("")
            
say("Wohin möchtest du?")
            
say("")
            
local tele = select("Rotes Reich","Gelbes Reich","Blaues Reich","Zurück")
            if 
tele == 4 then
                userpanel
.show_menu()
            
end
            
if tele == 1 then
                pc
.warp(rotes,reich)
            
end
            
if tele == 2 then
                pc
.warp(gelbes,reich)
            
end
            
if tele == 3 then
                pc
.warp(blaues,reich)
            
end
        end
        
function show_seite2()
            
say_title("Information")
            
say("")
            
say("Was willst du Wissen?")
            
say("")
            
local info = select("Text","text","text","text","Zurück")
            if 
info == 5 then
                userpanel
.show_menu()
            
end
            
if info == 1 then
                say
("text")
            
end
            
if info == 2 then
                say
("text")
            
end
            
if info == 3 then
                say
("text")
            
end
            
if info == 4 then
                say
("text")
            
end
        end
        
        
function show_seite3()
            
say_title("Events")
            
say("")
            
say("Was möchtest du über Events wissen?")
            
say("")
            
local events = select("Event1","Event2","Event3","Event4","Zurück")
            if 
events == 5 then
                userpanel
.show_menu()
            
end
            
if events == 1 then
                say
("text")
            
end
            
if events == 2 then
                say
("text")
            
end
            
if events == 3 then
                say
("text")
            
end
            
if events == 4 then
                say
("text")
            
end
        end
    end
end 
10/01/2012 20:09 xxxTribelx#6920
hay epvp ich hab nach langem suchen keine Warpquest gefunden die mich überall hinportet wo ich den gern hin möchte... also hab ich mich mal hingesetzt und mir eine geschrieben ist zwar bissel lang und irgendwie klapt des net... wäre echt spitze von euch wenn einer sich die quest mal anschauen könnte;)
PS. ist meine erste quest ;)

#edit hier noch der fehler code beim quest hochladen
[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
quest test1 begin
    state start begin
        when 40004.
use with pc.get_level() >= 1 begin
            local main_set 
= select("Reichsporter", "Standart Maps", "Dungen's", "Abbrechen")
            if 
main_set == 4 then 
                
return
            
end
            
if main_set == 1 then
            local a 
= select ("Map1 Blau", "Map1 Rot", "Map1 Gelb", "Abbrechen")
                if 
a == 4 then
                    
return
                
end
                
if a == 1 then
                    pc
.warp (599600,269000)
                
end
                
if a == 2 then
                    pc
.warp (474400,954400)
                
end
                
if a == 3 then
                    pc
.warp (63500,166200)
                
end
            end
            
if main_set == 2 then
            local b 
= select ("Orktal", "Wüste", "Eisland", "Feuerland", "Geisterwald", "Roterwald", "Abbrechen",)
                if 
b == 7 then
                    
return
                
end
                
if b == 1 then
                local c 
= select ("OT-Mitte", "OT-Anfang Blau", "OT-Anfang Gelb", "OT-Anfang Rot", "Abbrechen")
                    if 
c == 5 then
                        
return
                    
end
                    
if c == 1 then
                        pc
.warp (332800,747700)
                    
end
                    
if c == 2 then
                        pc
.warp (321300,808000)
                    
end
                    
if c == 3 then
                        pc
.warp (270400,739900)
                    
end
                    
if c == 4 then
                        pc
.warp (402100,673900)
                    
end
                end
                
if b == 2 then
                local d 
= select ("Wüste-Mitte", "Wüste-Anfang Blau", "Wüste-Anfang Gelb", "Wüste-Anfang Rot", "Abbrechen")
                    if 
d == 5 then
                        
return
                    
end
                    
if d == 1 then
                        pc
.warp (296400,547500)
                    
end
                    
if d == 2 then
                        pc
.warp (344000,502500)
                    
end
                    
if d == 3 then
                        pc
.warp (221900,502700)
                    
end
                    
if d == 4 then
                        pc
.warp (217800,627200)
                    
end
                end
                
if  b == 3 then
                local e 
= select ("Eisland-Mitte", "Eisland-Anfang Blau", "Eisland-Anfang Gelb", "Eisland-Anfang Rot", "Abbrechen")
                    if 
e == 5 then
                        
return
                    
end
                    
if e == 1 then
                        pc
.warp (435900,215100)
                    
end
                    
if e == 2 then
                        pc
.warp (491800,173600)
                    
end
                    
if e == 3 then
                        pc
.warp (375200,174900)
                    
end
                    
if e == 4 then
                        pc
.warp (434200,290600)
                    
end
                end
                
if b == 4 then
                local f 
= select ("Feuerland-Mitte", "Feuerland-Anfang Blau", "Feuerland-Anfang Gelb", "Feuerland-Anfang Rot", "Abbrechen")
                    if 
f == 5 then
                        
return
                    
end
                    
if f == 1 then
                        pc
.warp (600800,687600)
                    
end
                    
if f == 2 then
                        pc
.warp (730700,689800)
                    
end
                    
if f == 3 then
                        pc
.warp (597800,622200)
                    
end
                    
if f == 4 then
                        pc
.warp (599400,756300)
                    
end
                end
                
if b == 5 then
                local g 
= select ("Geisterwald-Anfang", "Geisterwald-Mitte", "Geisterwald-Ende", "Abbrechen")
                    if 
g == 4 then
                        
return
                    
end
                    
if g == 1 then
                        pc
.warp (290100,5700)
                    
end
                    
if g == 2 then
                        pc
.warp (303200,27000)
                    
end
                    
if g == 3 then
                        pc
.warp (286700,43500)
                    
end
                end
                
if b == 6 then
                local h 
= select ("Roterwald-Anfang", "Roterwald-Ende", "Abbrechen")
                    if 
h == 3 then
                        
return
                    
end
                    
if h == 1 then
                        pc
.warp (1119900,70800)
                    
end
                    
if h == 2 then
                        pc
.warp (1116600,72000)
                    
end
                end
            end
            
if main_set == 3 then
            local i 
= select ("DT", "DC", "SD1", "SD2", "Abbrechen")
                if 
i == 5 then
                    
return
                
end
                
if i == 1 then
                    pc
.warp (591000,111000)
                
end
                
if i == 2 then
                    pc
.warp (589900,98700)
                
end
                
if i == 3 then
                local j 
= select ("SD1-Anfang", "SD1-Ende", "Abbrechen")
                    if 
j == 3 then
                        
return
                    
end
                    
if j == 1 then
                        pc
.warp (60000,496600)
                    
end
                    
if j == 2 Then
                        pc
.warp (91600,525400)
                    
end
                end
                
if i == 4 then
                local k 
= select ("SD2-Anfang", "SD2-Ende", "Abbrechen")
                    if 
k == 3 then
                        
return
                    
end
                    
if k == 1 then
                        pc
.warp (704000,463600)
                    
end
                    
if k == 2 then
                        pc
.warp (704100,517300)
                    
end
                end
            end
        end
    end
end 
10/01/2012 21:54 .HC'Destrox#6921
Ich sag nur: [Only registered and activated users can see links. Click Here To Register...]
Die ist nice geschrieben & leich änderbar.

Mfg
10/01/2012 22:25 xxxTribelx#6922
ja da blick ich aber iwie net durch...
ausrdem will ich ja mein fehler wissen ;)
den nur dadurch lernt man :)
der questeditor sagt mir nur das ein end fehlt
ich weis aber net wo ^^
10/01/2012 23:38 Mijago#6923
Fehlerliste:
Zeile 4: "Dungen's" -> Erstmal, im deutschen gibts kein ' beim Plural.. und zweitens wird ' vom Questcompiler in " Übersetzt -> "Duneon"s" -> Fehler :(
Zeile 24: , "Abbrechen",) -> , "Abbrechen") (Kein Komma in einer Parameterfolge)
Zeile 147: if j == 2 Then -> if j == 2 then (then klein)

PHP Code:
quest test1 begin
    state start begin
        when 40004.
use with pc.get_level() >= 1 begin
            local main_set 
= select("Reichsporter", "Standart Maps", "Dungens", "Abbrechen")
            if 
main_set == 4 then 
                
return
            
end
            
if main_set == 1 then
                local a 
= select ("Map1 Blau", "Map1 Rot", "Map1 Gelb", "Abbrechen")
                if 
a == 4 then
                    
return
                
end
                
if a == 1 then
                    pc
.warp (599600,269000)
                
end
                
if a == 2 then
                    pc
.warp (474400,954400)
                
end
                
if a == 3 then
                    pc
.warp (63500,166200)
                
end
            end
            
if main_set == 2 then
                local b 
= select ("Orktal", "Wüste", "Eisland", "Feuerland", "Geisterwald", "Roterwald", "Abbrechen")
                if 
b == 7 then
                    
return
                
end
                
if b == 1 then
                    local c 
= select ("OT-Mitte", "OT-Anfang Blau", "OT-Anfang Gelb", "OT-Anfang Rot", "Abbrechen")
                    if 
c == 5 then
                        
return
                    
end
                    
if c == 1 then
                        pc
.warp (332800,747700)
                    
end
                    
if c == 2 then
                        pc
.warp (321300,808000)
                    
end
                    
if c == 3 then
                        pc
.warp (270400,739900)
                    
end
                    
if c == 4 then
                        pc
.warp (402100,673900)
                    
end
                end
                
if b == 2 then
                    local d 
= select ("Wüste-Mitte", "Wüste-Anfang Blau", "Wüste-Anfang Gelb", "Wüste-Anfang Rot", "Abbrechen")
                    if 
d == 5 then
                        
return
                    
end
                    
if d == 1 then
                        pc
.warp (296400,547500)
                    
end
                    
if d == 2 then
                        pc
.warp (344000,502500)
                    
end
                    
if d == 3 then
                        pc
.warp (221900,502700)
                    
end
                    
if d == 4 then
                        pc
.warp (217800,627200)
                    
end
                end
                
if  b == 3 then
                    local e 
= select ("Eisland-Mitte", "Eisland-Anfang Blau", "Eisland-Anfang Gelb", "Eisland-Anfang Rot", "Abbrechen")
                    if 
e == 5 then
                        
return
                    
end
                    
if e == 1 then
                        pc
.warp (435900,215100)
                    
end
                    
if e == 2 then
                        pc
.warp (491800,173600)
                    
end
                    
if e == 3 then
                        pc
.warp (375200,174900)
                    
end
                    
if e == 4 then
                        pc
.warp (434200,290600)
                    
end
                end
                
if b == 4 then
                    local f 
= select ("Feuerland-Mitte", "Feuerland-Anfang Blau", "Feuerland-Anfang Gelb", "Feuerland-Anfang Rot", "Abbrechen")
                    if 
f == 5 then
                        
return
                    
end
                    
if f == 1 then
                        pc
.warp (600800,687600)
                    
end
                    
if f == 2 then
                        pc
.warp (730700,689800)
                    
end
                    
if f == 3 then
                        pc
.warp (597800,622200)
                    
end
                    
if f == 4 then
                        pc
.warp (599400,756300)
                    
end
                end
                
if b == 5 then
                    local g 
= select ("Geisterwald-Anfang", "Geisterwald-Mitte", "Geisterwald-Ende", "Abbrechen")
                    if 
g == 4 then
                        
return
                    
end
                    
if g == 1 then
                        pc
.warp (290100,5700)
                    
end
                    
if g == 2 then
                        pc
.warp (303200,27000)
                    
end
                    
if g == 3 then
                        pc
.warp (286700,43500)
                    
end
                end
                
if b == 6 then
                local h 
= select ("Roterwald-Anfang", "Roterwald-Ende", "Abbrechen")
                    if 
h == 3 then
                        
return
                    
end
                    
if h == 1 then
                        pc
.warp (1119900,70800)
                    
end
                    
if h == 2 then
                        pc
.warp (1116600,72000)
                    
end
                end
            end
            
if main_set == 3 then
                local i 
= select ("DT", "DC", "SD1", "SD2", "Abbrechen")
                if 
i == 5 then
                    
return
                
end
                
if i == 1 then
                    pc
.warp (591000,111000)
                
end
                
if i == 2 then
                    pc
.warp (589900,98700)
                
end
                
if i == 3 then
                    local j 
= select ("SD1-Anfang", "SD1-Ende", "Abbrechen")
                    if 
j == 3 then
                        
return
                    
end
                    
if j == 1 then
                        pc
.warp (60000,496600)
                    
end
                    
if j == 2 then
                        pc
.warp (91600,525400)
                    
end
                end
                
if i == 4 then
                    local k 
= select ("SD2-Anfang", "SD2-Ende", "Abbrechen")
                    if 
k == 3 then
                        
return
                    
end
                    
if k == 1 then
                        pc
.warp (704000,463600)
                    
end
                    
if k == 2 then
                        pc
.warp (704100,517300)
                    
end
                end
            end
        end
    end
end 
Code:
./qc mijago/test/xpp
QUEST : test1
STATE : start
WHEN  : 40004.use
        with pc . get_level ( ) >= 1
Grüße, Mijago
10/02/2012 00:29 xxxTribelx#6924
Danke dir ;)
die quet klapt ;)
10/02/2012 12:44 thespeedyy#6925
Bei der ersten sollen alle User im Dungeon nur 1 mal uppen und nicht nur 1 und dann gar keiner mehr
PHP Code:
when kill with npc.get_race() == 1095 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
            d
.kill_all()
            
d.kill_all()
            
d.notice("10. Ebene:")
            
d.notice("- Unglaublich, ihr habt tatsächlich den Blauen Tod bezwungen, als kleine Belohnung")
            
d.notice("- erscheinen alle drei Turmschmiede und ihr dürft natürlich die Beute mitnehmen.")
            
d.spawn_mob(34000, 601, 433)
            
d.setf("btkill", 1)
            
pc.setqf("boss_killed", 1)
            
game.set_event_flag("uppen",0)
        
end
        when 34000.take begin
            local out 
= mysql_query("SELECT * FROM player.refine_proto WHERE id = (SELECT refine_set FROM player.item_proto WHERE vnum = "..item.get_vnum()..");")
            if 
type(out) ~= "table" then syschat("Du kannst diesen Gegenstand nicht verbessern.") end
            out
.cost[1] = out.cost[1] --Faktor zur erhöhung des Preises
            
if pc.get_gold() < out.cost[1] then
                syschat
("Nicht genügend Yang für eine Verbesserung.")
                return    
            
end  
        
if game.get_event_flag("uppen") == 1 then
            syschat
("Du kannst nur 1 mal uppen.")
        elseif 
game.get_event_flag("uppen") == 0 then
            pc
.change_gold(-out.cost[1])
            
item.over9refine()
            
game.set_event_flag("uppen",1)
            
syschat("Die Gegenstandsverbesserung war erfolgreich.")
            
end 
        end 
In der zweiten schreibt er die Sachen nicht in die Datenbank
PHP Code:
quest auktionshaus begin
    state start begin
        when 9010.chat
."Auktions Haus" begin
            say_title
("Auktionsverwalter:")
            
say("")
            
say("Hey du...")
            
say("Wie ich sehe möchtest du in meinem Auktionshaus")
            
say("etwas verkaufen. Wenn du ein Item auf mich")
            
say("ziehst, werde ich es in dein Auktionslager")
            
say("legen. Dieses kannst du im Auktionsshop verwalten.")
            
say("")
        
end
        
        
        when 9010.take with item
.vnum > 1 begin
            
            local item_vnum 
= item.get_vnum()
            
local inventarcount = pc.count_item(item.get_vnum())
            
            
            
say_title("Auktionsverwalter:")
            
say("")
            
say("Du möchtest was in dein Auktionslager ablegen?")
            
say("")
            
say_item("Möchtest du "..item.get_name().." ins Auktionshaus legen?", item.get_vnum(), "")
            
say("")
            
say("")
            
local s = select("Ja","Abbrechen")
            
            if 
s == 1 then
                local count 
= mysql_query("SELECT COUNT(*) FROM player.item WHERE id="..item.get_id().." AND owner_id="..pc.get_player_id().." AND socket0="..item.get_socket(0).." AND socket1="..item.get_socket(1).." AND socket2="..item.get_socket(2).."")
                if 
count[1][1] == "0" then
                    say_title
("Auktionsverwalter:")
                    
say("")
                    
say_reward("Das Item kannst du leider noch nicht verkaufen.")
                    
say_reward("Versuche es in ein Paar Minuten wieder.")
                    
say("")
                    return
                
end
                
                say_title
("Auktionsverwalter:")
                
say("")
                
say_reward("Damit deine Bonis im Item erhalten bleiben")
                
say_reward("dürfen die Bonis vorher eine Stunde lang")
                
say_reward("nicht geändert worden sein!")
                
say_reward("Wenn du dies nicht befolgst gibt es keinen")
                
say_reward("ersatz der Bonis. Also nur verkaufen wenn Du")
                
say_reward("die Bonis eine Stunde lang nicht geändert hast!")
                
say("")
                
wait("")
                
say_title("Auktionsverwalter:")
                
say("")
                
say("Bestätige bitte das du den Text gelesen hast mit:")
                
say("")
                
say_reward("gelesen und verstanden")
                
say("")
                
local agb = input()
                
                if 
agb == "gelesen und verstanden" then
                    
                    local inventarcount2 
= pc.count_item(item_vnum)
            
                    if 
inventarcount2 < inventarcount or inventarcount2 > inventarcount then
                        notice_all
("Hopla, da versucht wer beim Auktionsverwalter zu tricksen oO")
                        
notice_all("Hm was machen wir denn dagegen? Ah ich habe eine Idee....")
                        
notice_all(""..pc.get_name().." Steht für 2 Stunden mit -Movespeed beim Auktionsverwalter.")
                        
affect.add_collect(apply.MOV_SPEED, -20000, 60*60*2)
                        
say_title("Auktionsverwalter:")
                        
say("")
                        
say_reward("Was machst du denn? Du willst mich betrügen?")
                        
say_reward("Ich habe dich leider erwischt und gebe dir")
                        
say_reward("für 2 Stunden einen Movespeed von -20000!")
                        
say("")
                        
say_reward("In der Zeit kannst du drüber nachdenken.....")
                        
say("")
                    else
                        
say_title("Auktionsverwalter:")
                        
say("")
                        
say("Das Item "..item.get_name().."")
                        
say("habe ich dir in dein Auktionslager gelegt.")
                        
say("Du kannst das Item nun im Auktionshaus verwalten.")
                        
say("")
                        
local item_details = mysql_query("SELECT type,wearflag FROM player.item_proto WHERE vnum="..item_vnum.." LIMIT 1")
                        
                        
local item_copy = mysql_query("SELECT id,count,vnum,socket0,socket1,socket2,socket3,socket4,socket5,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6 FROM player.item WHERE id="..item.get_id().." LIMIT 1")
                        
mysql_query("INSERT INTO account.auktionen (count,vnum,socket0,socket1,socket2,socket3,socket4,socket5,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6,old_item_id,verkaufer,type,wearflag) VALUES ("..item.get_count()..","..item_copy[i][3]..","..item_copy[i][4]..","..item_copy[i][5]..","..item_copy[i][6]..","..item_copy[i][7]..","..item_copy[i][8]..","..item_copy[i][9]..","..item_copy[i][10]..","..item_copy[i][11]..","..item_copy[i][12]..","..item_copy[i][13]..","..item_copy[i][14]..","..item_copy[i][15]..","..item_copy[i][16]..","..item_copy[i][17]..","..item_copy[i][18]..","..item_copy[i][19]..","..item_copy[i][20]..","..item_copy[i][21]..","..item_copy[i][22]..","..item_copy[i][23]..","..item.get_id()..","..pc.get_account_id()..","..item_details[i][1]..","..item_details[i][2]..")")
                        
item.remove(item.get_id(), item.get_count())
                    
end
                
else
                    
say_title("Auktionsverwalter:")
                    
say("")
                    
say_reward("Du hast die Eingabe leider Falsch bestätigt.")
                    
say("")
                    
say_reward("Versuch es erneut wenn du soweit bist.")
                    
say("")
                
end
            
else
                return
            
end
        end
        
        when 9010.chat
."Yang einzahlen" begin
            say_title
("Auktionsverwalter:")
            
say("")
            
say("Hey du...")
            
say("Um im Auktionshaus mitbieten zu können, benötigst")
            
say("du etwas Yang. Dieses kannst du bei mir ganz")
            
say("bequem einzahlen und auf die tollen Items auf")
            
say("www.New-World2.com im Auktionshaus mitbieten.")
            
say("")
            
say_reward("Möchtest du etwas Yang bei mir einzahlen?")
            
say("")
            
local einzahlen = select("Ja","Abbrechen")
            
            if 
einzahlen == 1 then
                say_title
("Auktionsverwalter:")
                
say("")
                
say_reward("Wieviel Yang möchtest du einzahlen?")
                
say("")
                
local einzahlmenge = select("10 Milionen Yang","20 Milionen Yang","50 Milionen Yang","100 Milionen Yang","200 Milionen Yang","Abbrechen")
                
                
say_title("Auktionsverwalter:")
                
say("")
                if 
einzahlmenge == 1 then
                    
if pc.gold < 10000000 then
                        say_reward
("Du hast leider nicht genug Yang dabei!")
                        
say("")
                        
say_reward("Komm wieder wenn du genug Yang besitzt.")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 10 Milionen Yang")
                        
say("gutgeschrieben. Du kannst jederzeit weiteres")
                        
say("Yang bei mir einzahlen. Ich wünsche dir")
                        
say("viel Spaß beim bieten und ersteigern.")
                        
say("")
                        
pc.changegold(-10000000)
                        
mysql_query("UPDATE account.account SET yang=yang+10000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif einzahlmenge == 2 then
                    
if pc.gold < 20000000 then
                        say_reward
("Du hast leider nicht genug Yang dabei!")
                        
say("")
                        
say_reward("Komm wieder wenn du genug Yang besitzt.")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 20 Milionen Yang")
                        
say("gutgeschrieben. Du kannst jederzeit weiteres")
                        
say("Yang bei mir einzahlen. Ich wünsche dir")
                        
say("viel Spaß beim bieten und ersteigern.")
                        
say("")
                        
pc.changegold(-20000000)
                        
mysql_query("UPDATE account.account SET yang=yang+20000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif einzahlmenge == 3 then
                    
if pc.gold < 50000000 then
                        say_reward
("Du hast leider nicht genug Yang dabei!")
                        
say("")
                        
say_reward("Komm wieder wenn du genug Yang besitzt.")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 50 Milionen Yang")
                        
say("gutgeschrieben. Du kannst jederzeit weiteres")
                        
say("Yang bei mir einzahlen. Ich wünsche dir")
                        
say("viel Spaß beim bieten und ersteigern.")
                        
say("")
                        
pc.changegold(-50000000)
                        
mysql_query("UPDATE account.account SET yang=yang+50000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif einzahlmenge == 4 then
                    
if pc.gold < 100000000 then
                        say_reward
("Du hast leider nicht genug Yang dabei!")
                        
say("")
                        
say_reward("Komm wieder wenn du genug Yang besitzt.")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 100 Milionen Yang")
                        
say("gutgeschrieben. Du kannst jederzeit weiteres")
                        
say("Yang bei mir einzahlen. Ich wünsche dir")
                        
say("viel Spaß beim bieten und ersteigern.")
                        
say("")
                        
pc.changegold(-100000000)
                        
mysql_query("UPDATE account.account SET yang=yang+100000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif einzahlmenge == 5 then
                    
if pc.gold < 200000000 then
                        say_reward
("Du hast leider nicht genug Yang dabei!")
                        
say("")
                        
say_reward("Komm wieder wenn du genug Yang besitzt.")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 200 Milionen Yang")
                        
say("gutgeschrieben. Du kannst jederzeit weiteres")
                        
say("Yang bei mir einzahlen. Ich wünsche dir")
                        
say("viel Spaß beim bieten und ersteigern.")
                        
say("")
                        
pc.changegold(-200000000)
                        
mysql_query("UPDATE account.account SET yang=yang+200000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
else
                    return
                
end
            
else
                return
            
end
        end
        
        when 9010.chat
."Kasse zum Auszahlen" begin
            say_title
("Auktionsverwalter:")
            
say("")
            
say("Hey du...")
            
say("Wie ich sehe hast du was versteigert und")
            
say("möchtest dir dein Yang auszahlen lassen?")
            
say("")
            
say_reward("Dein Auktionskontostand liegt bei:")
            
local account_yang = mysql_query("SELECT yang FROM account.account WHERE id="..pc.get_account_id().." LIMIT 1")
            
say_reward(""..account_yang[i][1].." Yang")
            
say("")
            
say_reward("Möchtest du dein Yang auszahlen lassen?")
            
say("")
            
local auszahlen = select("Ja","Abbrechen")
            
            if 
auszahlen == 1 then
                say_title
("Auktionsverwalter:")
                
say("")
                
say_reward("Wieviel Yang möchtest du auszahlen lassen?")
                
say("")
                
local auszahlmenge = select("10 Milionen Yang","20 Milionen Yang","50 Milionen Yang","100 Milionen Yang","200 Milionen Yang","Abbrechen")
                
                
say_title("Auktionsverwalter:")
                
say("")
                if 
auszahlmenge == 1 then
                    local account_yang2 
= mysql_query("SELECT yang FROM account.account WHERE id="..pc.get_account_id().." LIMIT 1")
                    
local yang = tonumber(account_yang2[i][1])
                    if 
pc.gold >= 1700000000 then
                        say_reward
("Du hast leider zu viel Yang dabei!")
                        
say_reward("Du darfst nicht mehr als 1,7 Miliarden")
                        
say_reward("Yang bei dir haben. Geh dir ein paar")
                        
say_reward("Goldbarren kaufen und versuch es dann")
                        
say_reward("erneut :)")
                        
say("")
                    elseif 
yang < 10000000 then
                        say_reward
("Tut mir leid aber dein Auktionskonto")
                        
say_reward("beinhaltet nicht so viel Yang!")
                        
say("")
                        
say_reward("Du hast nur "..yang.." Yang darauf!")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 10 Milionen Yang")
                        
say("abgezogen. Du kannst dir jederzeit weiteres")
                        
say("Yang bei mir auszahlen lassen solange dein")
                        
say("Auktionskonto gedeckt ist.")
                        
say("")
                        
pc.changegold(10000000)
                        
mysql_query("UPDATE account.account SET yang=yang-10000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif auszahlmenge == 2 then
                    local account_yang2 
= mysql_query("SELECT yang FROM account.account WHERE id="..pc.get_account_id().." LIMIT 1")
                    
local yang = tonumber(account_yang2[i][1])
                    if 
pc.gold >= 1700000000 then
                        say_reward
("Du hast leider zu viel Yang dabei!")
                        
say_reward("Du darfst nicht mehr als 1,7 Miliarden")
                        
say_reward("Yang bei dir haben. Geh dir ein paar")
                        
say_reward("Goldbarren kaufen und versuch es dann")
                        
say_reward("erneut :)")
                        
say("")
                    elseif 
yang < 20000000 then
                        say_reward
("Tut mir leid aber dein Auktionskonto")
                        
say_reward("beinhaltet nicht so viel Yang!")
                        
say("")
                        
say_reward("Du hast nur "..yang.." Yang darauf!")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 20 Milionen Yang")
                        
say("abgezogen. Du kannst dir jederzeit weiteres")
                        
say("Yang bei mir auszahlen lassen solange dein")
                        
say("Auktionskonto gedeckt ist.")
                        
say("")
                        
pc.changegold(20000000)
                        
mysql_query("UPDATE account.account SET yang=yang-20000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif auszahlmenge == 3 then
                    local account_yang2 
= mysql_query("SELECT yang FROM account.account WHERE id="..pc.get_account_id().." LIMIT 1")
                    
local yang = tonumber(account_yang2[i][1])
                    if 
pc.gold >= 1700000000 then
                        say_reward
("Du hast leider zu viel Yang dabei!")
                        
say_reward("Du darfst nicht mehr als 1,7 Miliarden")
                        
say_reward("Yang bei dir haben. Geh dir ein paar")
                        
say_reward("Goldbarren kaufen und versuch es dann")
                        
say_reward("erneut :)")
                        
say("")
                    elseif 
yang < 50000000 then
                        say_reward
("Tut mir leid aber dein Auktionskonto")
                        
say_reward("beinhaltet nicht so viel Yang!")
                        
say("")
                        
say_reward("Du hast nur "..yang.." Yang darauf!")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 50 Milionen Yang")
                        
say("abgezogen. Du kannst dir jederzeit weiteres")
                        
say("Yang bei mir auszahlen lassen solange dein")
                        
say("Auktionskonto gedeckt ist.")
                        
say("")
                        
pc.changegold(50000000)
                        
mysql_query("UPDATE account.account SET yang=yang-50000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif auszahlmenge == 4 then
                    local account_yang2 
= mysql_query("SELECT yang FROM account.account WHERE id="..pc.get_account_id().." LIMIT 1")
                    
local yang = tonumber(account_yang2[i][1])
                    if 
pc.gold >= 1700000000 then
                        say_reward
("Du hast leider zu viel Yang dabei!")
                        
say_reward("Du darfst nicht mehr als 1,7 Miliarden")
                        
say_reward("Yang bei dir haben. Geh dir ein paar")
                        
say_reward("Goldbarren kaufen und versuch es dann")
                        
say_reward("erneut :)")
                        
say("")
                    elseif 
yang < 100000000 then
                        say_reward
("Tut mir leid aber dein Auktionskonto")
                        
say_reward("beinhaltet nicht so viel Yang!")
                        
say("")
                        
say_reward("Du hast nur "..yang.." Yang darauf!")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 100 Milionen Yang")
                        
say("abgezogen. Du kannst dir jederzeit weiteres")
                        
say("Yang bei mir auszahlen lassen solange dein")
                        
say("Auktionskonto gedeckt ist.")
                        
say("")
                        
pc.changegold(100000000)
                        
mysql_query("UPDATE account.account SET yang=yang-100000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
elseif auszahlmenge == 5 then
                    local account_yang2 
= mysql_query("SELECT yang FROM account.account WHERE id="..pc.get_account_id().." LIMIT 1")
                    
local yang = tonumber(account_yang2[i][1])
                    if 
pc.gold >= 1700000000 then
                        say_reward
("Du hast leider zu viel Yang dabei!")
                        
say_reward("Du darfst nicht mehr als 1,7 Miliarden")
                        
say_reward("Yang bei dir haben. Geh dir ein paar")
                        
say_reward("Goldbarren kaufen und versuch es dann")
                        
say_reward("erneut :)")
                        
say("")
                    elseif 
yang < 200000000 then
                        say_reward
("Tut mir leid aber dein Auktionskonto")
                        
say_reward("beinhaltet nicht so viel Yang!")
                        
say("")
                        
say_reward("Du hast nur "..yang.." Yang darauf!")
                        
say("")
                    else
                        
say("Deinem Auktionskonto wurden 200 Milionen Yang")
                        
say("abgezogen. Du kannst dir jederzeit weiteres")
                        
say("Yang bei mir auszahlen lassen solange dein")
                        
say("Auktionskonto gedeckt ist.")
                        
say("")
                        
pc.changegold(200000000)
                        
mysql_query("UPDATE account.account SET yang=yang-200000000 WHERE id="..pc.get_account_id().." LIMIT 1")
                    
end
                
else
                    return
                
end
            
else
                return
            
end
        end
        
        
        
    end
end 
10/02/2012 14:04 DeScO!#6926
Was ist an dieser Quest wieder fail?


PHP Code:
quest belohnung_early begin
    state start begin
        when levelup begin
            
if pc.get_level() == 5 or pc.get_level() == 8 or pc.get_level() == 9 or pc.get_level() == 11 or pc.get_level() == 13 or pc.get_level() == 15 then
                local belohnung 
= {1, 2, 3, 4, 13009, 6, 7, 15009, 16009, 10, 14009, 12, 13, 14, 17009} 
                
local helm = {12209, 12349, 12489, 12629, 12209, 12349, 12489, 12629}
                if 
pc.get_level() == 13 then
                    pc
.give_item2(helm[pc.get_job() + 1], 1)
                
end
                pc
.give_item2(belohnung[pc.get_level()], 1)
                
pc.give_item2("71085", 10)
                
pc.give_item2("71084", 10)
                
pc.give_item2("70021", 1)                
                
say_title("Belohnung Level "..pc.get_level()..".")
                
say("")
                
say("Du erhälst:")
                
say("[DELAY value;500]. . .[/DELAY]")
                if 
pc.get_level() == 5 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Schlachtschild +9[/COLOR]")
                elseif 
pc.get_level() == 8 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Lederschuhe +9[/COLOR]")
                elseif 
pc.get_level() == 9 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Holzkette +9[/COLOR]")
                elseif 
pc.get_level() == 11 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Holzarmband +9[/COLOR]")
                elseif 
pc.get_level() == 13 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Anfangshelm +9[/COLOR]")
                elseif 
pc.get_level() == 15 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Holzohrringe +9[/COLOR]")
                
end
                say
("[COLOR r;1|g;0.1|b;0.1]• - 10x Gegenstand Verzaubern[/COLOR]")
                
say("[COLOR r;1|g;0.1|b;0.1]• - 10x Gegenstand Verstärken[/COLOR]")
                
say("[COLOR r;1|g;0.1|b;0.1]• - 1x Segen des Engels[/COLOR]")
                
say_color("red" , "~~~~~~~~~~~~HINWEIS!~~~~~~~~~~~~~~")
                
say_color("gold" , "Mit dem Item Segen den Engels kannst du,
                say_color("
gold" , "dich in verschiedene Reiche teleportieren,
                
say_color("gold" , "und dein Lager öffnen!")
                
say_color("red" , "~~~~~~~~~~~~HINWEIS ENDE!~~~~~~~~~~~~")
                
say("")
                
say("Viel Spass auf Exodia2.")
                
pc.remove_item("13", pc.countitem("13"))
            else
                return
            
end
        end
    end
end 
[Only registered and activated users can see links. Click Here To Register...]
10/02/2012 14:36 |★|554#6927
PHP Code:
quest belohnung_early begin
    state start begin
        when levelup begin
            
if pc.get_level() == 5 or pc.get_level() == 8 or pc.get_level() == 9 or pc.get_level() == 11 or pc.get_level() == 13 or pc.get_level() == 15 then
                local belohnung 
= {1, 2, 3, 4, 13009, 6, 7, 15009, 16009, 10, 14009, 12, 13, 14, 17009} 
                
local helm = {12209, 12349, 12489, 12629, 12209, 12349, 12489, 12629}
                if 
pc.get_level() == 13 then
                    pc
.give_item2(helm[pc.get_job() + 1], 1)
                
end
                pc
.give_item2(belohnung[pc.get_level()], 1)
                
pc.give_item2("71085", 10)
                
pc.give_item2("71084", 10)
                
pc.give_item2("70021", 1)                
                
say_title("Belohnung Level "..pc.get_level()..".")
                
say("")
                
say("Du erhälst:")
                
say("[DELAY value;500]. . .[/DELAY]")
                if 
pc.get_level() == 5 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Schlachtschild +9[/COLOR]")
                elseif 
pc.get_level() == 8 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Lederschuhe +9[/COLOR]")
                elseif 
pc.get_level() == 9 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Holzkette +9[/COLOR]")
                elseif 
pc.get_level() == 11 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Holzarmband +9[/COLOR]")
                elseif 
pc.get_level() == 13 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Anfangshelm +9[/COLOR]")
                elseif 
pc.get_level() == 15 then
                    say
("[COLOR r;1|g;0.1|b;0.1]• - 1x Holzohrringe +9[/COLOR]")
                
end
                say
("[COLOR r;1|g;0.1|b;0.1]• - 10x Gegenstand Verzaubern[/COLOR]")
                
say("[COLOR r;1|g;0.1|b;0.1]• - 10x Gegenstand Verstärken[/COLOR]")
                
say("[COLOR r;1|g;0.1|b;0.1]• - 1x Segen des Engels[/COLOR]")
                
say_color("red" , "~~~~~~~~~~~~HINWEIS!~~~~~~~~~~~~~~")
                
say_color("gold" , "Mit dem Item Segen den Engels kannst du,")
                
say_color("gold" , "dich in verschiedene Reiche teleportieren,")
                
say_color("gold" , "und dein Lager öffnen!")
                
say_color("red" , "~~~~~~~~~~~~HINWEIS ENDE!~~~~~~~~~~~~")
                
say("")
                
say("Viel Spass auf Exodia2.")
                
pc.remove_item("13", pc.countitem("13"))
            else
                return
            
end
        end
    end
end 
Klammern in Zukunft auch wieder schließen. ^^
10/02/2012 22:46 yunus990#6928
Hallo Ich möchte in einem neue map boss legen und wenn einer der drei reichen gekillt wird. wird sein namen oben vorkomen
und er bekommt Geld %50 von den er gekillt hat und sein rang verbessert sich z.B von freundlich zu Nett
und der der gekillt worden ist verschlimmert sich sein rang z.b von freundlich zu normal
10/03/2012 17:45 .CHHorny#6929
PHP Code:
quest ringe begin
    state start begin
    
        when 71135.
use with pc.getqf("ringuse") == 1 begin
            cmdchat
("buff1")
            
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,30,60*60*24*365*60)
            
affect.add_collect(apply.POINT_EXP_DOUBLE_BONUS,20,60*60*24*365*60)
            
affect.add_collect(apply.GOLD_DOUBLE_BONUS,20,60*60*24*365*60)
            
pc.setqf("ringuse",1)
        
end
        when 71135.
use with pc.getqf("ringuse") == 0 begin
            chat
("Der Ring wirkt nun nicht mehr!")
            
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,30,60*60*24*365*60)
            
affect.remove_collect(apply.EXP_DROP_BONUS,20,60*60*24*365*60)
            
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,20,60*60*24*365*60)            
            
pc.setqf("ringuse",0)
        
end 
        when 71143.
use with pc.getqf("ringuse") == 1 begin
            cmdchat
("buff3")
            
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,30,60*60*24*365*60)
            
affect.add_collect(apply.POINT_EXP_DOUBLE_BONUS,20,60*60*24*365*60)
            
affect.add_collect(apply.GOLD_DOUBLE_BONUS,20,60*60*24*365*60)
            
pc.setqf("ringuse",1)
        
end
        when 71143.
use with pc.getqf("ringuse") == 0 begin
            chat
("Der Ring wirkt nun nicht mehr!")
            
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,30,60*60*24*365*60)
            
affect.remove_collect(apply.POINT_EXP_DOUBLE_BONUS,20,60*60*24*365*60)
            
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,20,60*60*24*365*60)            
            
pc.setqf("ringuse",0)
        
end 
        when 71145.
use with pc.getqf("ringuse") == 1 begin
            cmdchat
("buff4")
            
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,50,60*60*24*365*60)
            
affect.add_collect(apply.POINT_EXP_DOUBLE_BONUS,20,60*60*24*365*60)
            
affect.add_collect(apply.GOLD_DOUBLE_BONUS,20,60*60*24*365*60)
            
pc.setqf("ringuse",1)
        
end
        when 71145.
use with pc.getqf("ringuse") == 0 begin
            chat
("Der Ring wirkt nun nicht mehr!")
            
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,50,60*60*24*365*60)
            
affect.remove_collect(apply.EXP_DROP_BONUS,20,60*60*24*365*60)
            
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,20,60*60*24*365*60)            
            
pc.setqf("ringuse",0)
        
end
        when 71148.
use with pc.getqf("ringuse") == 1 begin
            cmdchat
("buff5")
            
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,30,60*60*24*365*60)
            
affect.add_collect(apply.POINT_EXP_DOUBLE_BONUS,20,60*60*24*365*60)
            
affect.add_collect(apply.EXP_DOUBLE_BONUS,50,60*60*24*365*60)
            
pc.setqf("ringuse",1)
        
end
        when 71148.
use with pc.getqf("ringuse") == 0 begin
            chat
("Der Ring wirkt nun nicht mehr!")
            
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,30,60*60*24*365*60)
            
affect.remove_collect(apply.POINT_EXP_DOUBLE_BONUS,20,60*60*24*365*60)
            
affect.remove_collect(apply.EXP_DOUBLE_BONUS,50,60*60*24*365*60)            
            
pc.setqf("ringuse",0)
        
end
        when 71149.
use with pc.getqf("ringuse") == 1 begin
            cmdchat
("buff6")
            
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,50,60*60*24*365*60)
            
affect.add_collect(apply.POINT_EXP_DOUBLE_BONUS,30,60*60*24*365*60)
            
affect.add_collect(apply.GOLD_DOUBLE_BONUS,30,60*60*24*365*60)
            
pc.setqf("ringuse",1)
        
end
        when 71149.
use with pc.getqf("ringuse") == 0 begin
            chat
("Der Ring wirkt nun nicht mehr!")
            
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,50,60*60*24*365*60)
            
affect.remove_collect(apply.POINT_EXP_DOUBLE_BONUS,30,60*60*24*365*60)
            
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,30,60*60*24*365*60)            
            
pc.setqf("ringuse",0)
        
end 
        
    end
end 

Ingame bekomme ich keinen EXP Boni
10/04/2012 09:11 .ZiPPO#6930
Bei mir funktionieren die Bonis der Pets nicht ganz:(
PHP Code:
quest official_pets begin
    state start begin
        when 53005.
use with pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            
if pc.getqf("firephoenix_use") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("firephoenix_use", 1)
                
pc.setqf("firephoenix", 1)
                
affect.add_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
                
affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*8)
                
affect.add_collect(apply.ATT_MAX_HP, 10000, 60*60*8)
                
horse.set_level("22")
                
horse.unsummon() horse.summon()
                

            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
                
affect.remove_collect(apply.CRITICAL_PCT, 5, 60*60*8) 
                
affect.remove_collect(apply.ATT_MAX_HP, 10000, 60*60*8)                 
                
horse.unsummon()
                
pc.setqf("firephoenix_use", 0)
                
pc.setqf("firephoenix", 0)
                
            
            
end
        end
        when logout 
or login with pc.getqf("firephoenix_use") == 1 begin
            
            pc
.setqf("firephoenix_use", 0)
            
pc.setqf("firephoenix", 0)
                
            
            
chat("Dein Haustier ging alleine fort!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 10, 60*60*8)
                
affect.remove_collect(apply.CRITICAL_PCT, 5, 60*60*8) 
                
affect.remove_collect(apply.ATT_MAX_HP, 10000, 60*60*8)  
        
end
        when 53006.
use with pc.getqf("firephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            
if pc.getqf("icephoenix_use") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("icephoenix_use", 1)
                
pc.setqf("icephoenix", 1)
                
affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)
                
affect.add_collect(apply.MAX_HP, 5000, 60*60*8)
                
horse.set_level("23")
                
horse.unsummon() horse.summon()
                
            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)       
                
horse.unsummon()
                
pc.setqf("icephoenix_use", 0)
                
pc.setqf("icephoenix", 0)
                
                
local horse_settings = pc.getqf("horse_level_save")
                
horse.set_level(horse_settings)
            
            
end
        end
        when logout 
or login with pc.getqf("icephoenix_use") == 1 begin
            
            pc
.setqf("icephoenix_use", 0)
            
pc.setqf("icephoenix", 0)
                
            
            
chat("Dein Eisphönix verlässt dich nun!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)       
        
end
        when 53007.
use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            
if pc.getqf("reindeer") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("reindeer_use", 1)
                
pc.setqf("reindeer", 1)
                
affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)
                
affect.add_collect(apply.MAX_HP, 5000, 60*60*8)
                
horse.set_level("24")
                
horse.unsummon() horse.summon()
                
            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)             
                
horse.unsummon()
                
pc.setqf("reindeer_use", 0)
                
pc.setqf("reindeer", 0)
                
            
            
end
        end
        when logout 
or login with pc.getqf("reindeer_use") == 1 begin
            
            pc
.setqf("reindeer_use", 0)
            
pc.setqf("reindeer", 0)
                
            
local horse_settings = pc.getqf("horse_level_save")
            
horse.set_level(horse_settings)
            
            
chat("Dein Haustier verlässt dich nun!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)       
        
end
        when 53008.
use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
            
if pc.getqf("pwahuang") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("pwahuang_use", 1)
                
pc.setqf("pwahuang", 1)
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)             
                
horse.set_level("25")
                
horse.unsummon() horse.summon()
                
            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)              
                
horse.unsummon()
                
pc.setqf("pwahuang_use", 0)
                
pc.setqf("pwahuang", 0)
                
            
            
end
        end
        when logout 
or login with pc.getqf("pwahuang_use") == 1 begin
            
            pc
.setqf("pwahuang_use", 0)
            
pc.setqf("pwahuang", 0)
                
            
local horse_settings = pc.getqf("horse_level_save")
            
horse.set_level(horse_settings)
            
            
chat("Dein Haustier verlässt dich nun!")
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)       
        
end
        when 53002.
use with pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            
if pc.getqf("dog_use") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("dog_use", 1)
                
pc.setqf("dog", 1)
                
affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 5, 60*60*8)
                
affect.add_collect(apply.MAX_HP, 5000, 60*60*8)
                
horse.set_level("26")
                
horse.unsummon() horse.summon()
                
            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)                   
                
horse.unsummon()
                
pc.setqf("dog_use", 0)
                
pc.setqf("dog", 0)
                
            
            
end
        end
        when logout 
or login with pc.getqf("dog_use") == 1 begin
            
            pc
.setqf("dog_use", 0)
            
pc.setqf("dog", 0)
                
            
local horse_settings = pc.getqf("horse_level_save")
            
horse.set_level(horse_settings)
            
            
chat("Dein Haustier verlässt dich nun!")
            
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 5, 60*60*8)   
            
affect.remove_collect(apply.MAX_HP, 5000, 60*60*8)                   
        
end
        when 53003.
use with pc.getqf("dog") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            
if pc.getqf("lion_use") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("lion_use", 1)
                
pc.setqf("lion", 1)
                
affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*8)
                
affect.add_collect(apply.MAX_HP, 10000, 60*60*8)
                
horse.set_level("27")
                
horse.unsummon() horse.summon()
                
            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.CRITICAL_PCT, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 10000, 60*60*8)       
                
horse.unsummon()
                
pc.setqf("lion_use", 0)
                
pc.setqf("lion", 0)
                
            
            
end
        end
        when logout 
or login with pc.getqf("lion_use") == 1 begin
            
            pc
.setqf("lion_use", 0)
            
pc.setqf("lion", 0)
                
            
            
chat("Dein Haustier verlässt dich nun!")
            
affect.remove_collect(apply.CRITICAL_PCT, 5, 60*60*8)   
            
affect.remove_collect(apply.MAX_HP, 10000, 60*60*8)       
        
end
        when 53001.
use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            
if pc.getqf("pig") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("pig_use", 1)
                
pc.setqf("pig", 1)
                
affect.add_collect(apply.PENERATE_PCT, 5, 60*60*8)
                
affect.add_collect(apply.MAX_HP, 10000, 60*60*8)
                
horse.set_level("28")
                
horse.unsummon() horse.summon()
                
            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.PENERATE_PCT, 5, 60*60*8)   
                
affect.remove_collect(apply.MAX_HP, 10000, 60*60*8)        
                
horse.unsummon()
                
pc.setqf("pig_use", 0)
                
pc.setqf("pig", 0)
                
            
            
end
        end
                when logout 
or login with pc.getqf("pig_use") == 1 begin
            
            pc
.setqf("pig_use", 0)
            
pc.setqf("pig", 0)
                
            
local horse_settings = pc.getqf("horse_level_save")
            
horse.set_level(horse_settings)
            
            
chat("Dein Haustier verlässt dich nun!")
            
affect.remove_collect(apply.PENERATE_PCT, 5, 60*60*8)   
            
affect.remove_collect(apply.MAX_HP, 10000, 60*60*8)
        
end
        when 53009.
use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
            
if pc.getqf("tiger") == 0 then
                local old_horse_name 
= horse.get_name() ;
                    if 
string.len(old_horse_name) == 0 then
                        chat
("Dein Haustier hat noch keinen Namen!")
                    
end
                chat
("Dein Haustier wurde gerufen!")
                
pc.setqf("tiger_use", 1)
                
pc.setqf("tiger", 1)
                
affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 15, 60*60*8)
                
affect.add_collect(apply.ATTBONUS_HUMAN, 15, 60*60*8)
                
affect.add_collect(apply.ATT_MAX_HP, 15000, 60*60*8)
                
horse.set_level("29")
                
horse.unsummon() horse.summon()
                

            else
                
chat("Dein Haustier verabschiedet sich nun von dir!")
                
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER, 15, 60*60*8)
                
affect.remove_collect(apply.ATTBONUS_HUMAN, 15, 60*60*8) 
                
affect.remove_collect(apply.ATT_MAX_HP, 15000, 60*60*8)                 
                
horse.unsummon()
                
pc.setqf("tiger_use", 0)
                
pc.setqf("tiger", 0)
                
            
            
end
        end
    end
end