[SERVICE] Die Questkontrolle

Page 312 of 845 « First 212262302310311 312 313314322362412812 Last »
02/01/2012 19:18 Sp0ngeb0b ist cool#4666
@derkiler: habs bereits verbessert & mal etwas kürzer gefasst ;)
siehe vorletzten beitrag...
02/01/2012 19:22 [ShiizoPhreN]™#4667
sponge könntest mir eventuell bei meinem Q problem helfen ?
02/01/2012 19:49 derkiler#4668
Quote:
Originally Posted by Sp0ngeb0b ist cool View Post
@derkiler: habs bereits verbessert & mal etwas kürzer gefasst ;)
siehe vorletzten beitrag...
stimmt habs voll übersehen..

Quote:
Originally Posted by [ShiizoPhreN]™ View Post

okay atlasinfo liegt im spoiler xD
Wie ich es mir gedacht habe...
Das hier ist die original Atlasinfo ausm Modified:

-> Also mit dem Inhalt müsste es klappen
02/01/2012 20:16 [ShiizoPhreN]™#4669
@DErKiller die sache ist das ich in Putty die Fehlermeldung

" Assertion failed: (m_pUsedList==NULL && "CDynamicPool::~CDynamicPool() - NOT Clear"), function ~CDynamicPool, file ../../common/pool.h, line 41.
connect: Connection refus"


nachdem ich den metin gekillt habe bekomme und dann server abstürzt das hat also NULL mit der atlasinfo zu tun
02/01/2012 21:22 Sαirex#4670
Quote:
Originally Posted by Kingalex™ View Post
Habe Problem mit dieser Quest.
Wenn ich die Einfüge dann kann ich nicht mehr Lager öffnen. Benutze auch die
1678 Serverfiles von Daroo. Und möchte die für den NPC haben /m 20095. Und für den NPC gibt es schon eine Quest Namens "Blutsteine" und möchte jetzt diese Quest. (Siehe PHP)

PHP Code:
quest gmitem begin
    state start begin
        when 90025.use with pc.is_gm() begin
            say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
            say("")
            say("Aktion wählen:")
            local akt = select("Strafe verhängen", "Events", "Farbe ändern", "Online/Offline", "Teleportieren", "Abbrechen")
            if akt == 1 then
                say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                say("")
                say("Aktion wählen:")
                local akt1 = select("Verwarnen", "Chatblock geben", "Chatblock aufheben", "User betäuben", "User verlangsamen", "Abbrechen")
                if akt1 == 1 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Name des Users:")
                    say("")
                    local warname = input()
                    if warname != "" then
                        say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                        say("")
                        say("Grund der Verwarnung:")
                        say("")
                        local wargrund = input()
                        if wargrund != "" then
                            say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                            say("")
                            say("Verwarnung wurde ausgesprochen!")
                            say("")
                            notice_all("Info: "..warname.." wurde verwarnt! Grund: "..wargrund)
                            char_log(0,"GMITEM",pc.get_name().." WARNED "..warname)
                        else
                            return
                        end
                    else
                        return
                    end
                elseif akt1 == 2 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Name des Users:")
                    say("")
                    local blockname = input()
                    if blockname != "" then
                        say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                        say("")
                        say("Dauer (in h):")
                        say("")
                        local blockdauer1 = input()
                        if blockdauer1 != "" then
                            say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                            say("")
                            say("Grund:")
                            say("")
                            local blockgrund = input()
                            if blockgrund != "" then
                                say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                                say("")
                                say(blockname.." hat nun für "..blockdauer1.." Stunden Chatblock!")
                                say("Grund: "..blockgrund)
                                say("")
                                notice_all(blockname.." hat nun für "..blockdauer1.." Stunden Chatblock! Grund: "..blockgrund)
                                command("block_chat "..blockname.." "..blockdauer1.."h")
                                char_log(0,"GMITEM",pc.get_name().." CHATBLOCKED "..blockname.." GRUND: "..blockgrund)
                            else
                                return
                            end
                        else
                            return
                        end
                    else
                        return
                    end
                elseif akt1 == 3 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Name des Users:")
                    say("")
                    local deblockname = input()
                    if deblockname != "" then
                        say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                        say("")
                        say("Grund für Entsperrung:")
                        say("")
                        local deblockgrund = input()
                        if deblockgrund != "" then
                            say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                            say("")
                            say("Der Chatblock von "..deblockname.."wurde gelöscht!")
                            say("Grund: "..deblockgrund)
                            notice_all("Der Chatblock von "..deblockname.." wurde gelöscht! Grund: "..deblockgrund)
                            command("block_chat "..deblockname.." 0")
                            char_log(0,"GMITEM",pc.get_name().." CHATENTLOCK "..deblockname.." GRUND: "..deblockgrund)
                        else
                            return
                        end
                    else
                        return
                    end
                elseif akt1 == 4 then
                elseif akt1 == 5 then
                else
                end
            elseif akt == 2 then
                say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                say("")
                say("Derzeitig nicht verfügbar!")
                say("")
            elseif akt == 3 then
                say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                say("")
                say("Welche Farbe möchtet Ihr tragen?")
                say("")
                local farbe = select("Schwarz", "Rot", "Grün", "Gelb", "Abbrechen")
                if farbe == 1 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Farbe wurde in schwarz geändert!")
                    say("")
                    pc.change_empire(4)
                    char_log(0,"GMITEM",pc.get_name().." FARBE SCHWARZ")
                elseif farbe == 2 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Farbe wurde in rot geändert!")
                    say("")
                    pc.change_empire(5)
                    char_log(0,"GMITEM",pc.get_name().." FARBE ROT")
                elseif farbe == 3 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Farbe wurde in grün geändert!")
                    say("")
                    pc.change_empire(6)
                    char_log(0,"GMITEM",pc.get_name().." FARBE GRÜN")
                elseif farbe == 4 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Farbe wurde in gelb geändert!")
                    say("")
                    pc.change_empire(7)
                    char_log(0,"GMITEM",pc.get_name().." FARBE GELB")
                else
                    return
                end
            elseif akt == 4 then
                say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                say("")
                say("Aktion wählen:")
                say("")
                local akt4 = select("Online", "Offline", "Abbrechen")
                if akt4 == 1 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Es wird nun eine Nachricht an-")
                    say("gezeigt, dass du Online bist!")
                    say("")
                    notice_all("Info: "..pc.get_name().." steht nun für eure Fragen zur Verfügung!")
                    char_log(0,"GMITEM",pc.get_name().." KAM ONLINE")
                elseif akt4 == 2 then
                    say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                    say("")
                    say("Es wird nun eine Nachricht an-")
                    say("gezeigt, dass du Offline bist!")
                    say("")
                    notice_all("Info: "..pc.get_name().." geht nun Offline! Bis Später!")
                    char_log(0,"GMITEM",pc.get_name().." GING OFFLINE")
                else
                    return
                end
            elseif akt == 5 then
                say_title(locale.lv1_color.."SmallYu-Server"..locale.lv1_color_old)
                say("")
                say("Derzeitig nicht verfügbar!")
                say("")
            else
                return
            end
        end
    end 
Danke


Mfg

Kann mir KEINER helfen :(
02/02/2012 18:10 KingAura619#4671
wenn ich diese quest ausfürhe in VB kommt der fehler :

shop_in_meile .quest :1: Error occured on compile shop_in_meilo quest

hier die quest :

quest shop_in_meile begin
state start begin
when 50200.use begin
if pc.get_map_index() == 42 then
cmdchat("OpenPrivateShop")
else
say_title("Shop eröffnen:")
say("")
say("Du befindest dich nicht in der Handelsmeile.")
say("Du kannst nur Shops in der Handelsmeile eröffnen.")
say("Falls du möchtest kann ich dich dorthin bringen.")
say("")
say("Möchtest du zur Handelsmeile gelangen?")
local s = select ("Ja", "Nein")
if s == 2 then
return
elseif s == 1 then
pc.warp(444400, 444400)
end
end
end
end
end
02/03/2012 01:05 fgruyIsBack#4672
probiere so diggA:
quest shop_in_meile begin
state start begin
when 50200.use begin
if pc.get_map_index() == 42 then
cmdchat("OpenPrivateShop")
else
say_title("Shop eröffnen:")
say("")
say("Du befindest dich nicht in der Handelsmeile.")
say("Du kannst nur Shops in der Handelsmeile eröffnen.")
say("Falls du möchtest kann ich dich dorthin bringen.")
say("")
say("Möchtest du zur Handelsmeile gelangen?")
local s = select ("Ja", "Nein")
if s == 2 then
return
elseif s == 1 then
pc.warp(444400, 444400)
end
end
02/03/2012 13:47 KingAura619#4673
ne geht nicht immer noch

shop_in_meile .quest :1: Error occured on compile shop_in_meilo quest
02/03/2012 13:52 Sp0ngeb0b ist cool#4674
deine quest ist völlig korrekt ;)
bennen mal die quest datei in "shop_in_meile.quest"
das dann auch in die locale list einfügen ;)
momentan ist es so, dass der datei name nicht mit dem namen bzw. titel der quest nicht übereintstimmt; siehe: shop_in_meile.quest & shop_in_meilo ;)
02/03/2012 21:44 ι¢н☆#4675
Quote:
quest umtausch begin
state start begin
when 20090.chat."Hey Du" begin
say_title("Umtausch")
say("Hallo")
say("Ich bin ein fairer Händler")
say("Ich tausche Sachen um!")
say("Willst du Sachen umtauschen?")
local s = select("Yes","No")
if s == 1 then
say_title("Umtausch")
say("Bitte wähle aus was du umtauschen mochtest")
local t = select("20 Weiße Perlen gegen 5 Rote","20 Blaue Perlen gegen 10 Rote","5 Rote Perlen gegen 15 Weiße")
if t == 1 then
pc.count_item(27992,20)
pc.remove_item(27992,20)
pc.give_item2(27994,5)
say_reward("Du hast 5 Rote Perlen erhalten")
elseif t == 2 then
pc.count_item(27993,20)
pc.remove_item(27993,20)
pc.give_item2(27994,10)
say_reward("Du hast 10 Rote Perlen erhalten")
elseif t == 3 then
pc.count_item(27994,5)
pc.remove_item(27994,5)
pc.give_item2(27992,15)
say_reward("Du hast 15 Weiße Perlen erhalten")
else
say("Schade")
say("Bye!")
end
end
Meine erste Quest was ist der Fehler
02/03/2012 22:06 Sp0ngeb0b ist cool#4676
PHP Code:
quest umtausch begin
    state start begin
        when 20090.chat."Hey Du" begin
            say_title("Umtausch")
            say("Hallo")
            say("Ich bin ein fairer Händler")
            say("Ich tausche Sachen um!")
            say("Willst du Sachen umtauschen?")
            local s = select("Yes", "No")
            if s == 1 then
                say_title("Umtausch")
                say("Bitte wähle aus was du umtauschen mochtest")
                local t = select("20 Weiße Perlen gegen 5 Rote","20 Blaue Perlen gegen 10 Rote","5 Rote Perlen gegen 15 Weiße", "Abbrechen")
                if t == 1 then
                    if pc.count_item(27992) >= 20 then
                        pc.remove_item(27992,20)
                        pc.give_item2(27994,5)
                        say_reward("Du hast 5 Rote Perlen erhalten")
                    else
                        say("Du hast zuwenig Perlen")
                        return
                    end    
                elseif t == 2 then
                    if pc.count_item(27993) >= 20 then
                        pc.remove_item(27993,20)
                        pc.give_item2(27994,10)
                        say_reward("Du hast 10 Rote Perlen erhalten")
                    else
                        say("Du hast zuwenig Perlen")
                        return
                    end
                elseif t == 3 then
                    if pc.count_item(27994) >= 5 then
                        pc.remove_item(27994,5)
                        pc.give_item2(27992,15)
                        say_reward("Du hast 15 Weiße Perlen erhalten")
                    else
                        say("Du hast zuwenig Perlen")
                        return
                    end    
                else
                    say("Schade")
                    say("Bye!")
                end 
            end
        end
    end
end 
02/03/2012 22:12 ι¢н☆#4677
Thx waren Leichtsinnsfehler
02/04/2012 17:54 Structurix#4678
hallo,diese 2 quest´s wollen nich,bekomm immer bei make

Error occured on compile buffs.quest
bei der anderen auch,habe sie so übernommen wie sie hier in dem Howtow für die effecte drinne waren
PHP Code:
quest potionuse begin
    state start begin
        when 27113.click or 27114.click or 27115.click begin
            cmdchat("pot1")
        end
        when 27110.click or 27111.click or 27112.click begin
            cmdchat("pot2")
        end
    end
end 
PHP Code:
quest buffs begin
    state start begin
        when 71135.click begin
            affect.remove_collect()
            pc.mount_bonus(apply.ATT_GRADE_BONUS,200,300)
            cmdchat("buff1")
        end
    end
end 
sehen so simpel aus wollen aber absolut nich gehen
MFG
02/04/2012 20:43 [SA]Imbattle#4679
Hallo, ich hab versucht einzubauen das man für einen Militärgaul alle 3 Perlen braucht also rote blaue weiße aber irgendwie funktioniert die quest nichtmehr kann mir die schnell jemand reparieren? ein großes thanks im vorraus :)

PHP Code:
quest horse_getting begin
    state start begin
        when 20349.chat."Mein Pferd" with horse.get_level()==0 begin
            say_title("Stallbursche")
            say("Hallo "..pc.get_name())
            say("Um ein Pferd von mir zu bekommen")
            say("musst du mir eine Pferdemedaillie")
            say("abgeben.")
            say_item_vnum(50050)            
            if pc.count_item("50050")==0 then
                say("Bitte hole mir eine, dann werde")
                say("ich dir ein Pferd geben.")
                return
            end
            say("Möchtest du die Pferdemedaillie")
            say("gegen ein Pferd eintauschen?")
            local s=select("Ja", "Nein")
            if s==2 then
                say_title("Stallbursche")
                say("Schade, dann geh bitte wieder.")
                return
            end
            if pc.count_item("50050")==0 then
                chat("Du hast keine Pferdemedaillie")
                return
            end
            pc.remove_item("50050", 1)
            pc.give_item2("50051", 1)            
            say_title("Stallbursche")
            say("Oh danke! Hier kriegst du ein Pferd.")
            say("Pass gut drauf auf!")
            pc.set_skill_level(131, 10)
            horse.set_level(1)
            horse.summon()    
            horse.ride()                
        end
        when 20349.chat."Mein Kampfpferd" with horse.get_level()==1 and pc.get_level()>=35 begin
            say_title("Stallbursche")
            say("Hallo "..pc.get_name())
            say("Um ein Kampfpferd von mir zu bekommen")
            say("musst du mir 10 Pferdemedaillien.")
            say("bringen. Du erhälst sie aus den")
            say("Affendungeons.")
            say_item_vnum(50050)
            local s = select("Kaufen", "Nicht kaufen")
            if s==2 then return end
            say_title("Stallbursche")
            if pc.get_item(50050)<10 then
                say("Du hast zu wenig Pferdemedaillien um mir")
                say("eines abzukaufen.")
                return
            end            
            say("Oh danke! Hier kriegst du ein Kampfpferd.")
            say("Pass gut drauf auf!")
            pc.remove_item("50050", 10)
            pc.give_item2("50052", 1)
            pc.remove_item("50051", 1)
            horse.unride()
            horse.set_level(11)
            horse.summon()    
            horse.ride()
        end
        when 20349.chat."Mein Millitärspferd" with horse.get_level()==11 and pc.get_level()>=50 begin
            say_title("Stallbursche")
            say("Hallo "..pc.get_name())
            say("Um ein Pferd von mir zu bekommen")
            say("musst du mir eine Pferdemedaillie")
            say("abgeben.")
            say_item_vnum(27992)            
            if pc.count_item("27992")==0 then
                say("Bitte hole mir eine, dann werde")
                say("ich dir ein Pferd geben.")
                return
            end
            say("Möchtest du die Pferdemedaillie")
            say("gegen ein Pferd eintauschen?")
            local set=select("Ja", "Nein")
            if set==2 then
                say_title("Stallbursche")
                say("Schade, dann geh bitte wieder.")
                return
            end
            if pc.count_item("27992")==0 then
                chat("Du hast keine Pferdemedaillie")
                return
            end
            pc.remove_item("27992", 1)
            pc.give_item2("50053", 1)            
            say_title("Stallbursche")
            say("Oh danke! Hier kriegst du ein Pferd.")
            say("Pass gut drauf auf!")
            pc.set_skill_level(131, 10)
            horse.set_level(21)
            horse.summon()    
            horse.ride()            
        end
    end
end 
02/04/2012 23:19 Jonnykiller#4680
Ich habe hier mal meine 2 Quest die irgend wie nicht gehen würde mich über Hilfe freuen

say_title ( "Teleporter:" )
say ( "Du willst in die neue Himmelsgrotte?" )
say ( "Wo dich seltsame Kreaturen erwarten!" )
say ( "Ich hoffe du bist gut gegen sie gerüstet" )
say ( "denn sonst hast du wenig Chancen gegen sie." )
say ( "Wenn du tief genug drin bist musst du dich in" )
say ( "acht nehmen denn der Himmelsdrache läst kaum" )
say ( "einen lebendig wieder heraus kommen." )
say ( "Möchtest du dennoch in die Himmelsgrotte?" )
local main_set = select ( "Ja" , "Nein" )
if main_set == 2 then
return
end
if pc . get_level ( ) <= 95 then
say_title ( "Teleporter:" )
say ( "Hm… Mit deinem derzeitigen Level bist du noch" )
say ( "zu schwach für die Kreaturen die dich erwarten." )
say ( "Komm wieder, wenn du höher als Level 95 bist." )
return
end
local map = pc . get_map_index ( )
local empire = pc . get_empire ( )
local level = pc . get_level ( )
local cost = math . floor ( level / 5 ) * 50000
if cost < 100000 then
cost = 100000
end
say_title ( "Teleporter:" )
say ( "Wohin möchtest du teleportiert werden?" )
say_reward ( string . format ( "Das kostet dich %d Yang." , cost ) )
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
local guild_map_names = {
"Himmelsgrotte" ,
"Himmelsgrotte" ,
"Himmelsgrotte" ,
}
empire_castle = empire_castle [ empire ]
local sub_set = 0
sub_set = select ( guild_map_name , "Andere Gebiete" )
if sub_set == 2 then
return
end
end
end
end
end
if pc . gold < cost then
say ( "Du hast nicht genug Geld," )
say_title ( "Teleporter:" )
say ( "Ich würde dich auch kostenlos teleportieren," )
say ( "aber leider reicht das Geld vom Hartz IV" )
say ( "für mich nciht zum leben." )
say_reward ( string . format ( "Es kostet %d Yang." , cost ) )
return
end
pc . changegold ( - cost )
say_title ( "Teleporter:" )
say ( "Ich teleportiere dich dorthin." )
wait ( )
pc . warp ( 5575500 , 5575500 )
end
end
end





say ( "Pferdeflüsterer:" )
say ( "Ohh du hast eine Pferdemedaille für mich?" )
say ( "Warte kurz während ich sie" )
say ( "mir ansehe. Moment." )
say ( "" )
pc . remove_item ( 50050 , 1 )
wait ( )
local pass_percent
if pc . getqf ( "drink_drug" ) == 0 then
pass_percent = 90
else
pass_percent = 100
end
local s = number ( 1 , 100 )
if s <= pass_percent then
if pc . getqf ( "collect_count" ) < 4 then
local index = pc . getqf ( "collect_count" ) + 1
pc . setqf ( "collect_count" , index )
say ( "Pferdeflüsterer:" )
say ( "Du hast mir eine Pferdemedaille gebracht." )
say ( "Ich benötige noch" .. " " .. 10 - pc . getqf ( "collect_count" ) .. " Pferdemedaille." )
say ( "Bring sie mir" )
say ( "" )
pc . setqf ( "drink_drug" , 0 )
return
end
say ( "Pferdeflüsterer:" )
say ( "Du hast mir 10 Pferdemedaille gebracht." )
say ( "Als Belohnung für deine arbeit" )
say ( "Bekommst du dein Kampfgaul" )
say ( "" )
say_reward ( "Belohnungen:" )
say_reward ( "Pferd Lv 11" )
say_reward ( "Waffenpferdebuch" )
pc . setqf ( "collect_count" , 0 )
pc . setqf ( "drink_drug" , 0 )
clear_letter ( )
set_state ( "__complete" )
pc . give_item2 ( 50050 , 1 )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
horse . advance ( )
return
else
say ( "Pferdeflüsterer:" )
say ( "Diese Pferdemedaille ist leider " )
say ( "gefälscht. Bitte bring mir" )
say ( "eine neue Pferdemedaille" )
say ( "" )
pc . setqf ( "drink_drug" , 0 )
return
end
Page 312 of 845 « First 212262302310311 312 313314322362412812 Last »