[SERVICE] Die Questkontrolle

02/16/2014 15:27 LanQeWeilex3#9706
PHP Code:
Group    Morsche Holzkiste
(
    
vnum    50124
    1    50701    5    35
    2    50702    5    15
    3    50703    5    25
    4    50704    5    30
    5    50705    5    15        
    6    50706    5    5
    7    50707    5    5        
    8    50708    5    5
    9    50813    2    1        
    10    50814    2    1
    11    50815    2    1
    12    50816    2    1
    13    50817    2    1
    14    50818    2    1
    15    50819    2    1
    16    50820    2    1
    17    50901    5    10
    18    50821    1    1
    19    50822    1    1
    20    50823    1    1
    21    50824    1    1
    22    50825    1    1
    23    50826    1    1
)
Group    Krieger Fertigkeitstruhe
(
    
vnum    50126
    1    50401    1    5
    2    50402    1    5
    3    50403    1    5
    4    50404    1    5
    5    50405    1    5
    6    50416    1    5
    7    50417    1    5
    8    50418    1    5
    9    50419    1    5
    10    50420    1    5
)
Group    Ninja Fertigkeitstruhe
(
    
vnum    50127
    1    50431    1    5
    2    50432    1    5
    3    50433    1    5
    4    50434    1    5
    5    50435    1    5
    6    50446    1    5
    7    50447    1    5
    8    50448    1    5
    9    50449    1    5
    10    50450    1    5
)
Group    Sura Fertigkeitstruhe
(
    
vnum    50128
    1    50461    1    5
    2    50462    1    5
    3    50463    1    5
    4    50464    1    5
    5    50465    1    5
    6    50466    1    5
    7    50476    1    5
    8    50477    1    5
    9    50478    1    5
    10    50479    1    5
    11    50480    1    5
    12    50481    1    5
)
Group    Schame Fertigkeitstruhe
(
    
vnum    50129
    1    50491    1    5
    2    50492    1    5
    3    50493    1    5
    4    50494    1    5
    5    50495    1    5
    6    50496    1    5
    7    50506    1    5
    8    50507    1    5
    9    50508    1    5
    10    50509    1    5
    11    50410    1    5
    12    50511    1    5

Wo ist der Fehler? jedes mal wenn ich die QUest einfüge bekomme ich ein Core Dumbed .. >:< sind Invoice files von Gr33n und läuft auf hamachi..

wollte truhen dropps einfügen :o
02/17/2014 13:09 Mijago#9707
Quote:
Originally Posted by Noa_ View Post
[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
input input()
_,_,found string.find(input"(%W)")
if 
~= nil then
say
("Gefundener Sonderzeichen ("..found..")")
end 
Mach es ohne variablen speichern, spart Speicher
02/17/2014 16:42 dragoniraqer#9708
Warpquest
ich hab veruscht selbst eine zu schreiben leider erfolglos :(


PHP Code:
 quest farmmap begin
    state start begin
        when 40004.
use begin
        
if pc.get_level() >= 75 then
            say_title
("75er Farmmap")
            
say("Du kannst dich zur Farm-Map teleportieren")
            
say("Möchtest du reisen?")
            
local tele=select("Ja""Nein")
            if 
1==tele then
                pc
.warp(77980487752773)
                
chat("Du wirst Teleportiert")
                return
            elseif 
2==tele then
            
return
            
end
        
if pc.get_level() >= 35 then
            say_title
("75er Farmmap")
            
say("Du kannst dich zur Farm-Map teleportieren")
            
say("Möchtest du reisen?")
            
local tele=select("Ja""Nein")
            if 
1==tele then
                pc
.warp(26429002694300  )
                
chat("Du wirst Teleportiert")
                return
            elseif 
2==tele then
            
return
            
end
        end
    end
end 
Was ist daran falsch?
02/17/2014 18:51 MakkeNN#9709
PHP Code:
 quest farmmap begin
    state start begin
        when 40004.
use begin
        
if pc.get_level() >= 75 then
            say_title
("75er Farmmap")
            
say("Du kannst dich zur Farm-Map teleportieren")
            
say("Möchtest du reisen?")
            
local tele=select("Ja""Nein")
            if 
1==tele then
                pc
.warp(77980487752773)
                
chat("Du wirst Teleportiert")
                return
            elseif 
2==tele then
            
return
            
end
        
if pc.get_level() >= 35 then
            say_title
("75er Farmmap")
            
say("Du kannst dich zur Farm-Map teleportieren")
            
say("Möchtest du reisen?")
            
local tele=select("Ja""Nein")
            if 
1==tele then
                pc
.warp(26429002694300  )
                
chat("Du wirst Teleportiert")
                return
            elseif 
2==tele then
            
return
            
end
        end
    end
end 
Was ist daran falsch?[/quote]
PHP Code:
quest farmmap begin
    state start begin
        when 40004.
use begin
            
if pc.get_level() >= 75 then
                say_title
("75er Farmmap")
                
say("Du kannst dich zur Farm-Map teleportieren")
                
say("Mochtest du reisen?")
                
local tele=select("Ja""Nein")
                if 
1==tele then
                    pc
.warp(77980487752773)
                    
chat("Du wirst Teleportiert")
                elseif 
2==tele then
                    
return
                
end
            end
            
if pc.get_level() >= 35 then
                say_title
("75er Farmmap")
                
say("Du kannst dich zur Farm-Map teleportieren")
                
say("Mochtest du reisen?")
                
local tele=select("Ja""Nein")
                if 
1==tele then
                    pc
.warp(26429002694300  )
                    
chat("Du wirst Teleportiert")
                elseif 
2==tele then
                    
return
                
end
            end
        end
    end
end 
02/17/2014 19:07 Tiger121282#9710
Quote:
Originally Posted by Noa_ View Post
PHP Code:
quest tausch begin 
    state start begin 
        when 9007.chat
."Steinstücke eintauschen" begin 
            local items 
= {27987,27992,27993,27994}
            
table.insert(items,"Abbrechen!")
            
say_title("Steinstücke eintauschen"
            
say(""
            
say("Hallo lieber Abenteurer,"
            
say("willst du deine Steinstücke, bei mir eintauschen."
            
say("Hier eine kleine Liste für dich:"
            
say(""
            
say("5 Steinstücke: 2 Muscheln"
            
say("25 Steinstücke: beliebige Perle"
            
say(""
            
say_reward("Gegen was willst du deine Steinstücke eintauschen?:"
            
say(""
            
local s select(unpack(items)) 
            if 
== table.getn(itemsthen
                
return
            else
                
local steine,rew_c,item = (s==and or 25),(s==and or 1),items[s]
                if 
pc.count_item(27990) < steine then 
                    say
("Du hast nicht genügend Steinstücke"
                    return 
                
end 
                say
("Du hast erfolgreich gegen "..rew_c.." "..item_name(item).." getauscht"
                
pc.remove_item(27990steine
                
pc.give_item2(itemrew_c
            
end
        end 
    end 
end 
Putty sagt:


WHEN : 9007.chat ("Steinstücke eintauschen")
Calls undeclared function! :
02/17/2014 19:27 Sir.?#9711
Quote:
Originally Posted by Tiger121282 View Post
Putty sagt:


WHEN : 9007.chat ("Steinstücke eintauschen")
Calls undeclared function! :
Dann schreib die Funktion die angegeben wurde in die Quest_functions dann geht es.
02/17/2014 20:15 Tiger121282#9712
Quote:
Originally Posted by Rikarshi ™ View Post
Dann schreib die Funktion die angegeben wurde in die Quest_functions dann geht es.
Ich weiss ja nicht welche Funktion das ist.
Eine Seite vorher ist die Quest die ich vorher hatte.
02/17/2014 20:38 BlackBynes#9713
Hi

ich benötige kurz eure Hilfe
PHP Code:
when 35002.chat."Mein erstes Pet" with horse.get_level()==21 begin
            
if pc.is_gm() then
                setbgimage
("peti.tga"
was ist hier dran falsch ?

das wird mir angezeigt
PHP Code:
syntax error : [string "runhorse . get_level ( ) == 21"]:60'unexpected symbol near 'with
02/17/2014 21:48 alfabet02#9714
Oke, so i had a quest with a few functions in + which players didn't apreciate, so i wanted to take them out, but now i get an error.
The quest before editing:
The quest after editing:
The error:


Please help !:handsdown::handsdown:
02/18/2014 18:59 G.I Duke#9715
Quote:
Originally Posted by BlackBynes View Post
Hi

ich benötige kurz eure Hilfe
PHP Code:
when 35002.chat."Mein erstes Pet" with horse.get_level()==21 begin
            
if pc.is_gm() then
                setbgimage
("peti.tga"
was ist hier dran falsch ?

das wird mir angezeigt
PHP Code:
syntax error : [string "runhorse . get_level ( ) == 21"]:60'unexpected symbol near 'with
Eig. is dort kein Fehler.. ggfalls änder es mal in
PHP Code:
when 35002.chat."Mein erstes Pet" and horse.get_level() == 21 begin
            
if pc.is_gm() then
                setbgimage
("peti.tga"
oder
PHP Code:
when 35002.chat."Mein erstes Pet" with horse.get_level(21begin
            
if pc.is_gm() then
                setbgimage
("peti.tga"
sollte das immernoch nich funktionieren dann schreib mich mal in [Only registered and activated users can see links. Click Here To Register...] an
02/18/2014 19:12 BlackBynes#9716
Quote:
Originally Posted by .мαяfυ™ View Post
Eig. is dort kein Fehler.. ggfalls änder es mal in
PHP Code:
when 35002.chat."Mein erstes Pet" and horse.get_level() == 21 begin
            
if pc.is_gm() then
                setbgimage
("peti.tga"
oder
PHP Code:
when 35002.chat."Mein erstes Pet" with horse.get_level(21begin
            
if pc.is_gm() then
                setbgimage
("peti.tga"
sollte das immernoch nich funktionieren dann schreib mich mal in [Only registered and activated users can see links. Click Here To Register...] an
hat leider beides nicht geklappt habe es nun so umgeschrieben.

PHP Code:
when 35002.chat."Mein erstes Pet" begin
        
if horse.get_level() == 21 then
            
if pc.is_gm() then
                setbgimage
("peti.tga"
dennoch besten dank für die hilfe
02/18/2014 19:27 G.I Duke#9717
Quote:
Originally Posted by BlackBynes View Post
hat leider beides nicht geklappt habe es nun so umgeschrieben.

PHP Code:
when 35002.chat."Mein erstes Pet" begin
        
if horse.get_level() == 21 then
            
if pc.is_gm() then
                setbgimage
("peti.tga"
dennoch besten dank für die hilfe
^^ dann hättest du es auch so schreiben können
PHP Code:
when 35002.chat."Mein erstes Pet" begin
        
if horse.get_level() == 21 and pc.is_gm() then
                setbgimage
("peti.tga"
02/18/2014 20:36 Tiger121282#9718
Was für eine Fuktion muss ich in quest_funktion einbauen???

Quote:
Originally Posted by Noa_ View Post
PHP Code:
quest tausch begin 
    state start begin 
        when 9007.chat
."Steinstücke eintauschen" begin 
            local items 
= {27987,27992,27993,27994}
            
table.insert(items,"Abbrechen!")
            
say_title("Steinstücke eintauschen"
            
say(""
            
say("Hallo lieber Abenteurer,"
            
say("willst du deine Steinstücke, bei mir eintauschen."
            
say("Hier eine kleine Liste für dich:"
            
say(""
            
say("5 Steinstücke: 2 Muscheln"
            
say("25 Steinstücke: beliebige Perle"
            
say(""
            
say_reward("Gegen was willst du deine Steinstücke eintauschen?:"
            
say(""
            
local s select(unpack(items)) 
            if 
== table.getn(itemsthen
                
return
            else
                
local steine,rew_c,item = (s==and or 25),(s==and or 1),items[s]
                if 
pc.count_item(27990) < steine then 
                    say
("Du hast nicht genügend Steinstücke"
                    return 
                
end 
                say
("Du hast erfolgreich gegen "..rew_c.." "..item_name(item).." getauscht"
                
pc.remove_item(27990steine
                
pc.give_item2(itemrew_c
            
end
        end 
    end 
end 
02/20/2014 02:21 pserverzocker#9719
PHP Code:
quest gm_panel begin
    state start begin
        when letter with pc
.is_gm()begin
            send_letter
("Silvania2 GM-Panel")
         
end 
        when button 
or info begin 
            say_title
("Hallo "..pc.get_name().." ")
            
say_red("Die Inhalte nur nach absprache")
            
say_red("mit [SA]DieMaske benutzen")
            
say("")
            
say("Bitte wähle eine Option aus")
            
local auswahl select("Ankündigung""Lager""GM-Stuff""Tag/Nacht""Abbrechen")
            
            if 
auswahl == 5 then
            
return
        
end

            
if auswahl == 1 then
            say_title
("Ankündigung")
            
say("")
            
say_red("Wähle eine Option")
            
local on select("... ist Online""... ist noch erreichbar""... verabschieded sich""Abbrechen"
            
                if 
on == 1 then 
                            send_letter
("Silvania2 GM-Panel"
                            
notice_all("".. pc.get_name() .." ist online"
                            
notice_all("Er/Sie steht für eure Fragen zur verfügung"
                            return
                        
end

                        
if on == 2 then 
                            send_letter
("Silvania2 GM-Panel"
                            
notice_all("".. pc.get_name() .." steht euch immer noch zur verfügung") ) 
                            return
                        
end
                        
                        
if on == 3 then 
                            send_letter
("Silvania2 GM-Panel"
                            
notice_all("".. pc.get_name() .." verabschieded sich"
                            
notice_all("und wünscht euch noch viel spaß auf Silvania2"
                            return
                        
end
                        
if on == 4 then 
                        
return 
                    
end
                
            
if auswahl == 2 then
                    say_title
("Lager"
                    
say_red("Wähle deine Option"
                    
local lager select("Lager öffnen""Itemshop Lager öffnen""Abbrechen"
                     
                    if 
lager ==1 then 
                    send_letter
("Silvania2 GM-Panel"
                        
game.open_safebox() 
                        
setskin(NOWINDOW)
                        return
                    
end
                         
                    
if lager == 2 then 
                    send_letter
("Silvania2 GM-Panel"
                        
game.open_mall() 
                        
setskin(NOWINDOW
                        return
                    
end
                         
                    
if lager == 3 then 
                    send_letter
("Silvania2 GM-Panel"
                        return 
                    
end 
            
if auswahl == 3 then
                    say_title
("Gib das Passwort ein damit der GM-Stuff frei wird")
                    
say_red("Nur mit absprache mit den SA oder GA")
                    
local s=input()
                    if 
s!="DieMaske" then
                    local eq 
select("Shinnings""Pets""Abbrechen")
                    
                    if 
eq == 1 then
                        send_letter
("Silvania2 GM-Panel")
                        
say_red("Such dir aus was du haben möchtest")
                    
local auswahl2 select("Roter Shinning""Blauer Shinning""Grüner Shinning""Gelber Shinning""Violetter Shinning""Weisser Shinning""Abbrechen")    
          
                    if 
auswahl2 == 1 then
                        pc
.give_item2(111111)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                        
                    
if auswahl2 == 2 then
                        pc
.give.item2(111121)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                            
                    
if auswahl2 == 3 then
                        pc
.give.item2(111131)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                    
                    
if auswahl2 == 4 then
                        pc
.give.item2(111141)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                        
                    
if auswahl2 == 5 then
                        pc
.give.item2(111151)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                        
                    
if auswahl 2 == 6 then
                        pc
.give.item2(11116,1)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                        
                    
if auswahl2 == 7 then
                        
return
                    
end
                    
                    
if eq == 2 then 
                        send_letter
("Silvania2 GM-Panel")
                        
say_red("Such dir aus was du haben möchtest")
                        
local auswahl3 select("Knuud-Siegel""Henker-Siegel(s)""BaoBao-Siegel""Henker-Siegel(g)""Abbrechen")
                        
                    if 
auswahl3 == 1 then
                        pc
.give.item2(530111)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                        
                    
if auswahl3 == 2 then
                        pc
.give.item2(530151)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                    
                    
if auswahl3 == 3 then
                        pc
.give.item2(530121)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                    
                    
if auswahl3 == 4 then
                        pc
.give.item2(530151)
                        
send_letter("Silvania2 GM-Panel")
                        return
                    
end
                        
                    
if auswahl3 == 5 then
                        
return
                    
end
                    
                    
if eq == 3 then
                    
return
                
end
                
                
if auswahl ==  4 then
                say_title
("Wähle die Tageszeiten aus")
                
say("")
                
local auswahl4 select("Tag""Nacht""Abbrechen")
                
                            if 
auswahl4 == 1 then 
                                command
("x 2"
                                
send_letter("Silvania2 GM-Panel"
                                return
                            
end
                                 
                            
if auswahl4 == 2 then 
                                command
("x 1"
                                
send_letter("Silvania2 GM-Panel")
                                return
                            
end
                                 
                            
if auswahl4 == 3 then 
                                send_letter
("Silvania2 GM-Panel"
                                return 
                         
end
                    end
                end
            end
        end
    end
end 
Kann mir jmd helfen wen ich in der VB python make.py eingebe kommt der fehler qc in malloc (): error: allocation failed
Habe qc schon 777 rechte gegeben aber bringt noch immer nix.
Danke im vorraus
02/20/2014 11:34 Boogie'#9720
Wenn ich die erste Truhe öffne bekomme ich nur die Holzohringe+9

PHP Code:
quest truhen_zero begin 
    state start begin 
        when login begin
            pc
.give_item2(50187)
            
set_state(truhen)
        
end
    end
    state truhen begin
        when 50187.
use begin
            local item_vnum 
19 --Schwert+9
            local item_vnum 
12209 --Traditioneler Helm+9
            local item_vnum 
11209 --Mönchplatenpanzer+9
            local item_vnum 
13009 --Schlachtschild+9
            local item_vnum 
14009 --Holzarmband+9
            local item_vnum 
15009 --Lederschuhe+9
            local item_vnum 
16009 --Holzhalskette+9
            local item_vnum 
17009 --Holzohringe+9
            
if pc.get_job() == 1 then
                item_vnum 
1009 --Dolche+9
                item_vnum 
12349 --Lederkaputze+9
                item_vnum 
11409 --Azuranzug+9
                item_vnum 
13009 --Schlachtschild+9
                item_vnum 
14009 --Holzarmband+9
                item_vnum 
15009 --Lederschuhe+9
                item_vnum 
16009 --Holzhalskette+9
                item_vnum 
17009 --Holzohringe+9
            
elseif pc.get_job() == 2 then                
                item_vnum 
19   --Schwert+9
                item_vnum 
12489 --Blutigerhelm+9
                item_vnum 
11609 --Requiem-Plattenpanzer+9
                item_vnum 
13009 --Schlachtschild+9
                item_vnum 
14009 --Holzarmband+9
                item_vnum 
15009 --Lederschuhe+9
                item_vnum 
16009 --Holzhalskette+9
                item_vnum 
17009 --Holzohringe+9
            
elseif pc.get_job() == 3 then
                item_vnum 
7009 --Fächer+9
                item_vnum 
12629 --Mönchshut+9
                item_vnum 
11809 --Azurkleidung+9
                item_vnum 
13009 --Schlachtschild+9
                item_vnum 
14009 --Holzarmband+9
                item_vnum 
15009 --Lederschuhe+9
                item_vnum 
16009 --Holzhalskette+9
                item_vnum 
17009 --Holzohringe+
            
end
            pc
.give_item2(item_vnum) --lvl 1er waffe je nach rasse
            pc
.give_item2(27003200) --Roter Trank(G)
            
pc.give_item2(27006200) --Blauer Trank(G)
            
pc.give_item2(2711250)  --Grüner Trank(G)
            
pc.give_item2(551450)  --Geschwindigkeitstrank
            pc
.remove_item(501871) --Lehrlingstruhe I verschwindet
        end 
        when 50188.
use with pc.get_level() >= 10 begin 
            pc
.give_item2(727231)  --Elixier der Sonne (K)
            
pc.give_item2(271113)  --Grüner Trank(M
            
pc.give_item2(271133)  --Geschwindigkeits Trank(K)
            
pc.give_item2(760083)  --Medaille des Drachen 
            pc
.give_item2(501891)  --Lehrlingstruhe III
            pc
.remove_item(501881) --Lehrlingstruhe II verschwindet
        end 
        when 50189.
use with pc.get_level() >= 20 begin 
            pc
.give_item2(727271)  --Elixier des Mondes (K)
            
pc.give_item2(271113)  --Grüner Trank(M)
            
pc.give_item2(271133)  --Geschwindigkeits Trank(K
            
pc.give_item2(760061)  --Kompass des Metinsteins 
            pc
.give_item2(760243)  --Grüner Zauber
            pc
.give_item2(760253)  --Grüne Stärke
            pc
.give_item2(501901)  --Expertentruhe I
            pc
.remove_item(501891) --Lehrlingstruhe III verschwindet
        end 
        when 50190.
use with pc.get_level() >= 30 begin 
            pc
.give_item2(271133)  --Geschwindigkeits Trank(K
            
pc.give_item2(271123)  --Trank des Angriffs
            pc
.give_item2(250405)  --Segenschriftrollen
            pc
.give_item2(700031)  --Buch des Anführers            
            pc
.give_item2(501911)  --Expertentruhe II
            pc
.remove_item(501901) --Expertentruhe I verschwindet
        end 
        when 50191.
use with pc.get_level() >= 40 begin 
            pc
.give_item2(711013)  --Trank der Hast
            pc
.give_item2(271123)  --Trank des Angriffs
            pc
.give_item2(711531)  --Trank der Weisheit
            pc
.give_item2(700031)  --Buch des Anführers
            pc
.give_item2(501921)  --Expertentruhe III
            pc
.remove_item(501911) --Expertentruhe II verschwindet
        end 
        when 50192.
use with pc.get_level() >= 50 begin 
            pc
.give_item2(711013)  --Trank der Hast
            pc
.give_item2(271123)  --Trank des Angriffs
            pc
.give_item2(7003820)  --Tapferkeitsümhänge
            pc
.give_item2(710955)  --Passierschein
            pc
.give_item2(700581)  --Teleportationsring
            pc
.give_item2(501931)  --Meistertruhe I
            pc
.remove_item(501921) --Expertentruhe III verschwindet
        end 
        when 50193.
use with pc.get_level() >= 60 begin 
            pc
.give_item2(710323)  --Schriftrolle des Drachen
            pc
.give_item2(711013)  --Trank der Hast
            pc
.give_item2(271123)  --Trank des Angriffs
            pc
.give_item2(760005)  --Pfirsichblütenwein
            pc
.give_item2(501941)  --Meistertruhe II
            pc
.remove_item(501931) --Meistertruhe I verschwindet
        end 
        when 50194.
use with pc.get_level() >= 70 begin
            pc
.give_item2(711013)  --Trank der Hast
            pc
.give_item2(271123)  --Trank des Angriffs
            pc
.give_item2(760012)  --Status-Neuverteilung
            pc
.give_item2(710843)  --Gegenstand verstärken
            pc
.give_item2(710853)  --Gegenstand verzaubern
            pc
.give_item2(501951)  --Meistertruhe III
            pc
.remove_item(501941) --Meistertruhe II verschwindet
        end 
        when 50195.
use with pc.get_level() >= 80 begin
            pc
.give_item2(711013)  --Trank der Hast
            pc
.give_item2(271123)  --Trank des Angriffs
            pc
.give_item2(727281)  --Elixier des Mondes (M)
            
pc.give_item2(727283)  --Elixier des Forschers
            pc
.give_item2(501961)  --Großmeistertruhe
            pc
.remove_item(501951) --Meistertruhe III verschwindet
        end 
        when 50196.
use with pc.get_level() >= 90 begin
            pc
.give_item2(390041)  --Segenskugel
            pc
.give_item2(727241)  --Elixier der Sonne (M)
            
pc.give_item2(760103)  --Blutstein
            pc
.give_item2(303193)  --Schrumpfkopf
            pc
.give_item2(501271)  --Grüne Zaubertruhe
            pc
.remove_item(501961) --Großmeistertruhe verschwindet
        end 
    end 
end