[SERVICE] Die Questkontrolle

Page 644 of 845

644

02/01/2014 17:46 nOa##9646

Quote:

Originally Posted by Noa_

da sind die letzten fehler
[Only registered and activated users can see links. Click Here To Register...]

Worin besteht der Fehler? kann ihn nicht wirklich finden -.-

02/01/2014 18:09 .yorliK#9647

Quote:

Originally Posted by 123Crusher123

Worin besteht der Fehler? kann ihn nicht wirklich finden -.-

Er meint bei den "when"s metinkill1,metinkill2,metinkill3 fehlt das END, du beendest die If-Abfrage aber die When nicht.

PHP Code:


			
    when metinkill1.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Verbleibende Zeit: 5 Minuten")  
            timer("metinkill2", 240)      
        end  
    end
    when metinkill2.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Verbleibende Zeit: 1 Minute")  
            timer("metinkill3", 60)      
        end
    end  
    when metinkill3.timer begin  
        if d.getf("drachenebene") == 4 then  
            d.notice("Ihr werdet in 3 Sekunden zu Map1 zur�ck teleportiert")  
            d.notice("Ihr habt es leider nicht geschafft!")  
            timer("devildown_escapetimer", 3)      
        end 
    end

02/01/2014 18:53 KinqDmX_#9648

Hallo Leute ...
undzwar such ich schon die ganze zeit und find die quest einfach nich..
und selber schreiben kann ich sie leider nich ...

Also ich br�uchte bitte ein Reittier Quest f�r VNUM 71125 mob: 20115
und 2 bonis..
ABER: So das das Siegel nich da hingeht wo die Windschuhe sind und das man mit STRG-G auf und ab steigen kann...

Das w�r so super wenn jemand so eine hat oder macht :(

02/01/2014 19:23 .yorliK#9649

Quote:

Originally Posted by KinqDmX_

Hallo Leute ...
undzwar such ich schon die ganze zeit und find die quest einfach nich..
und selber schreiben kann ich sie leider nich ...

Also ich br�uchte bitte ein Reittier Quest f�r VNUM 71125 mob: 20115
und 2 bonis..
ABER: So das das Siegel nich da hingeht wo die Windschuhe sind und das man mit STRG-G auf und ab steigen kann...

Das w�r so super wenn jemand so eine hat oder macht :(

Eigendlich ja der falsche Thread, aber ich hab mich daran versucht.
Da du nichts weiter zu den Bonis gesagt hast, hab ich einfach zwei gew�hlt.

PHP Code:


			
quest Mountride begin
    state start begin
        when 71125.use with pc.is_mount() or pc.getqf("ismount")==1 begin         
            pc.unmount()
            affect.remove_collect() 
            pc.setqf("ismount",0)
        end
        when 71125.use with pc.getqf("ismount") == 0 begin 
            pc.setqf("ismount",1) 
            pc.mount(20115,28800)
            pc.mount_bonus(apply.EXP_DOUBLE_BONUS,20,28800)
            pc.mount_bonus(apply.ATT_GRADE_BONUS,50,28800) 
        end
    end
end

02/01/2014 19:27 nOa##9650

Quote:

Originally Posted by KinqDmX_

Hallo Leute ...
undzwar such ich schon die ganze zeit und find die quest einfach nich..
und selber schreiben kann ich sie leider nich ...

Also ich br�uchte bitte ein Reittier Quest f�r VNUM 71125 mob: 20115
und 2 bonis..
ABER: So das das Siegel nich da hingeht wo die Windschuhe sind und das man mit STRG-G auf und ab steigen kann...

Das w�r so super wenn jemand so eine hat oder macht :(

PHP Code:


			
quest mountride begin

        state start begin

        when 71125.use with pc.getqf("mon") == 0 begin



            pc.mount(20115, 28800)

            pc.mount_bonus(apply.EXP_DOUBLE_BONUS,20, 60*60)        --z.B. Exp 20% Bonus

            pc.mount_bonus(apply.ATT_GRADE_BONUS,50, 60*60)            --z.B. 50 Angriffswert

            pc.setqf("mon",1)

        end

        when 71125.use with pc.getqf("mon") == 1 begin



            pc.unmount()

            affect.remove_collect()

            pc.setqf("mon",0)

        end

    end

Ziemlich simpel, sollte gehen.

02/02/2014 06:39 flampy1#9651

Hallo,

kann mir jemad bei der quest helfen sie funk nicht richtig.....

PHP Code:


			
quest decide begin
    state start begin
        when login with pc.get_level() == 140 begin
            timer("level", 1)
        end
        when level.timer begin
            say_size(420, 385)
            say_title("W�hle deine Start Level:")
            say("")
            say("Viel Spa� w�nscht dir das ganze Talion2 Team")
            say("")
            say_title("Dein beliebiges Level 1 - 175")
            repeat
                level= input()
                if tonumber(level)>175 then
                    say("Deine eingabe darf nicht mehr als 175 sein")
                    say("Versuchs nochmal")
                end
            until tonumber(level)< 175
            while pc.level < tonumber(level) do
                pc.give_exp2(pc.get_next_exp())
                if pc.level == 175 then say("Maximal Level erreicht") return end
            end
        end
    end    
end

02/02/2014 17:12 .yorliK#9652

Quote:

Originally Posted by flampy1

Hallo,

kann mir jemad bei der quest helfen sie funk nicht richtig.....

Spoiler

PHP Code:

quest decide begin state start begin when login with pc.get_level() == 140 begin timer("level", 1) end when level.timer begin say_size(420, 385) say_title("W�hle deine Start Level:") say("") say("Viel Spa� w�nscht dir das ganze Talion2 Team") say("") say_title("Dein beliebiges Level 1 - 175") repeat level= input() if tonumber(level)>175 then say("Deine eingabe darf nicht mehr als 175 sein") say("Versuchs nochmal") end until tonumber(level)< 175 while pc.level < tonumber(level) do pc.give_exp2(pc.get_next_exp()) if pc.level == 175 then say("Maximal Level erreicht") return end end end end end

Was an der Quest funktioniert nicht? Ohne Infos kann dir keiner helfen.

02/02/2014 17:31 alptraum96#9653

Hallo habe ein kleines problem und zwar versuche ich das ,wenn ein monster spawnt es im all chat angezeigt wird.

Spoiler

habe auch probiert

Spoiler

Wenn das Monster stirbt wird es aber im all chat angezeigt nur da nicht:o

02/02/2014 18:19 BlackBynes#9654

Hallo zusammen,

ich habe soeben ein Quest geschrieben mit der man seine HTA+9 zu einem neuen Armband uppen kann (via. quest gemacht da man zwischen mehreren ausw�hlen kann).
W�rde aber gerne die Bonis die auf dem "alten" Armband sind mit auf das neue �bertragen. Ich weis das dies �ber ein datenbank Update m�glich ist, kenne mich damit aber leider nicht so aus. Kann mir einer von euch dabei helfen?
Vielen dank

Edit:
kann es sein das die Zeile so anf�ngt?

PHP Code:


			
UPDATE player.item_proto SET ...

02/02/2014 22:12 .Despero�#9655

Wie mache ich das mit dem Katogerie und Items damit jede seite nur 5 Katogerien stehen und nicht alle ?

.LUA

PHP Code:


			
quest ig_is_mijago begin

    state start begin

        when 11000.chat."Ingame-Itemshop" or 11002.chat."Ingame-Itemshop" or 11004.chat."Ingame-Itemshop" begin

            ig_is_mijago.zeige_is()

        end

        when letter begin

            send_letter('Userpanel')

        end

        when button or info begin

            ig_is_mijago.zeige_menu()

        end

        function zeige_menu()

            say('Willkommen im Userpanel.[ENTER]Was ben�tigst du?')

            local sel = select('Ingame-Itemshop','Spenden',"Abbrechen")

            if sel == 1 then

                ig_is_mijago.zeige_is()

            elseif sel == 2 then

                ig_is_mijago.spenden()

            elseif sel == 3 then

             --   ig_is_mijago.gm_liste()

            end

        end

        function zeige_is()

            local g = mysql_query("SELECT coins FROM account.account, player.player where account.id = player.account_id and player.name = \\'"..pc.get_name().."\\'")

            say('Willkommen, '..pc.get_name()..'[ENTER]Du hast: '..g.coins[1]..' Coins.')

            if g.coins[1] == "0" then

                say("Da du keine Coins besitzt, kannst du dir leider nichts kaufen.")

            --    return

            end

            say(col.lightskyblue('Ingame-Itemshop. Written by Mijago'))

            ig_is_mijago.waehle_kat()

        end

        function waehle_kat()

            local g = mysql_query("SELECT * FROM homepage.is_kategorien")

            say('Welche Kategorie m�chtest du ansehen?')

            local i = 1

            local c = 'local sel = select('

            for i=1,getn(g.titel),1 do

                c = c..'\\"'..g.titel[i]..'\\",'

                if i == getn(g.titel) then

                    c = c..'\\"Abbrechen\\"'

                end

            end

            c = c..')\\nreturn sel'

        --    say(c)

        local sel = assert(loadstring(c))()

          if sel == getn(g.titel)+1 then

            return 0

          end

          ig_is_mijago.waehle_item(sel)

        end

        

        function waehle_item(kat)

            kat = 0+kat

            local g = mysql_query("SELECT * FROM homepage.is_items WHERE kategorie_id = "..kat)

            say('Welches Item m�chtest du ansehen?')

            local i = 1

            local d = 'sel = select('

            for i=1,getn(g.vnum),1 do

                d = d..'\\"'..ig_is_mijago.itemname(g.vnum[i])..'\\",'

                if i == getn(g.vnum) then

                    d = d..'\\"Zur Auswahl\\"'

                end

            end

            d = d..')\\nreturn sel'

          local sel = assert(loadstring(d))()

          if sel == getn(g.vnum)+1 then

            ig_is_mijago.waehle_kat()

            return

          end

          ig_is_mijago.zeige_item(g.vnum[sel],kat)

        end

        

        function zeige_item(vnum,kat)

            kat = 0+kat

            vnum = 0+vnum

            say("Du hast folgendes Item ausgew�hlt:")

            local q = mysql_query("select * from player.item_proto WHERE vnum = "..vnum)

            local q2 = mysql_query("select preis as coins from homepage.is_items WHERE vnum = "..vnum)

            local rasse = ''

--            say_item(q.locale_name[1],vnum,"Ben�tigte Coins: "..q2.coins[1])

            say_item(q.gb2312name[1],vnum,q2.coins[1])

            if q.antiflag[1] == "52" then 

                rasse = 'Ninja'

            elseif q.antiflag[1] == "308" then 

                rasse = 'Ninja'

            elseif q.antiflag[1] == "308" then 

                rasse = 'Ninja'

            elseif q.antiflag[1] == "28" then 

                rasse = 'Schamane'

            elseif q.antiflag[1] == "284" then 

                rasse = 'Schamane'

            elseif q.antiflag[1] == "56" then 

                rasse = 'Krieger'

            elseif q.antiflag[1] == "312" then 

                rasse = 'Krieger'

            elseif q.antiflag[1] == "32" then 

                rasse = 'Krieger Ninja Sura'

            elseif q.antiflag[1] == "288" then 

                rasse = 'Krieger Ninja Sura'

            elseif q.antiflag[1] == "44" then 

                rasse = 'Sura'

            elseif q.antiflag[1] == "300" then 

                rasse = 'Sura'

            elseif q.antiflag[1] == "0" then 

                rasse = 'Krieger Ninja Sura Schamane'

            else

                rasse = 'Unbekannt - '..q.antiflag[1]..' - Bitte Melden!'

            end

            local uppto = ''

            if q.refined_vnum[1] ~= "0" then

              if q.refine_set[1] ~= "0" then

                local uppq = mysql_query("select * from player.item_proto WHERE vnum = "..q.refined_vnum[1])

          --      uppto = 'Weitergeuppt zu: '..uppq.locale_name[1]

              uppto =  'Weitergeuppt zu: '..uppq.gb2312name[1]

              else

                uppto = 'Kann nicht weitergeuppt werden.'

              end

            else 

                uppto = 'Kann nicht weitergeuppt werden.'

            end

            say("[ENTER][ENTER]Ab Level: "..q.limitvalue0[1].."[ENTER]Coins: "..q2.coins[1]..'[ENTER]Rasse: '..rasse..'[ENTER]'..uppto)

            local sel = select('Kaufen','Zur Auswahl','Abbrechen')

            if sel == 3 then

                return

            elseif sel == 2 then

                ig_is_mijago.waehle_item(kat)

                return

            end

            ig_is_mijago.kaufe(vnum,q2.coins[1],kat)

            return

        end

        function kaufe(vnum,coins,kat)

            vnum = 0+vnum

            kat = 0+kat

            coins = 0+coins

            say_title('Wirklich kaufen? [ENTER]'..col.red("Es wird nichts zur�ckerstattet!")..'[ENTER]Dir werden '..coins..' Coins abgezogen.')

            local g = mysql_query("SELECT coins FROM account.account, player.player where account.id = player.account_id and player.name = \\'"..pc.get_name().."\\'")

            local int = 0+g.coins[1]

        --  if g.coins[1] < coins then

            if int < coins then

                say("Du hast nicht genug Coins.")

                local ge = select('Zur�ck','Abbruch')

                if ge == 1 then

                   ig_is_mijago.waehle_item(kat)

                    return

                elseif ge == 2 then 

                    return

                end            

            end

            local de = select('Ja, kaufen','Nein, NICHT kaufen','Zur�ck')

            if de == 2 then

                ig_is_mijago.waehle_item(kat)

                return

            elseif de == 3 then 

                return

            end

            local senf = mysql_query("SELECT account_id FROM player.player where player.name = \\'"..pc.get_name().."\\'")

            local ge = mysql_query("insert into homepage.is_log (account_id,vnum,preis,zeitpunkt) VALUES ("..senf.account_id[1]..","..vnum..","..coins..",NOW());update account.account SET account.coins = account.coins - "..coins.." where account.id = "..senf.account_id[1]..';Select coins from account.account where account.id = '..senf.account_id[1]..';')

            pc.give_item2(vnum,1)

            say("Du hast das Item erfolgreich gekauft![ENTER]"..col.blue("Danke f�r deine Unterst�tzung!"))

            chat('Dir wurden '..coins..' Coins abgezogen. Dir bleiben '..ge.coins[1]..' Coins.')

            say("Mehr einkaufen?")

            local fe = select("Ja","Nein")

            if fe == 2 then

                return

            else

                ig_is_mijago.waehle_kat()

                return

            end

        end

        function itemname(vnum)

            local g = mysql_query("SELECT * FROM player.item_proto WHERE vnum ="..vnum)

--            return g.locale_name[1]

          return g.gb2312name[1]

        end

        when 11000.chat."Spenden" or 11002.chat."Spenden" or 11004.chat."Spenden" begin 

            ig_is_mijago.spenden()

        end

        function spenden()

            say("Willkommen, "..pc.get_name()..'.[ENTER]Hier hast du die m�glichkeit, eine Paysafecard[ENTER]zu spenden.[ENTER]Im Gegenzug erh�lst du Coins, die du im[ENTER]Itemshop gegen Items eintauschen kannst.')

            say(col.red('Merke: Wenn du Ingame spendest, dauert es eine [ENTER]weile, bis deine Coins ankommen!'))

            say('M�chtest du spenden?')

            local jain = select("Ja","Nein")

            if jain == 2 then

                return

            end

            say('Gut.[ENTER]Gib nun die Nummer der Paysafecard an.[ENTER](4x4)16 Ziffern)')

            local psc = input()

            psc = machweg(psc,'-')

            psc = machweg(psc,' ')

            if string.len(psc) ~= 16 then 

                say("Deine Paysafecard ist nicht 16 Stellen lang!")

                return

            end

            if string.sub(psc,0,1) == '1' then

                say("Es tut uns leid, doch wir nehmen keine [ENTER]Online-Paysafecards an.[ENTER](Paysafecard beginnt mit einer 1)")

                return

            elseif string.sub(psc,0,2) == '00' then

                say("Es tut uns leid, doch wir nehmen keine [ENTER]Online-Paysafecards an.[ENTER](Paysafecard beginnt mit 00)")

                return

            end

            say("Welchen Wert hat diese Paysafecard?")

            local wert = input()

            if tonumber(wert) < 10 then

                say("Die Paysafecard muss mindestens einen Wert[ENTER] von 10� haben!")

                return

            end

            say("Hat die Paysafecard ein Passwort?[ENTER]Wenn ja, gib dies bitte an.[ENTER]ansonsten dr�cke einfach Enter.")

            local pw = input()

            mysql_query('insert into homepage.psc_log (code,wert,id,pass) VALUES (\\"'..psc..'\\",\\"'..wert..'\\",\\"'..pc.get_name()..'\\",\\"'..pw..'\\")')

            say("Vielen Dank f�r deinen Einkauf. Ein Serveradmin[ENTER]Wird die PSC �berpr�fen und dir deine Coins[ENTER]gutschreiben.")

        end

    end

end

02/03/2014 02:34 KinqDmX_#9656

Quote:

Originally Posted by Kilroy.

Eigendlich ja der falsche Thread, aber ich hab mich daran versucht.
Da du nichts weiter zu den Bonis gesagt hast, hab ich einfach zwei gew�hlt.

PHP Code:

quest Mountride begin state start begin when 71125.use with pc.is_mount() or pc.getqf("ismount")==1 begin pc.unmount() affect.remove_collect() pc.setqf("ismount",0) end when 71125.use with pc.getqf("ismount") == 0 begin pc.setqf("ismount",1) pc.mount(20115,28800) pc.mount_bonus(apply.EXP_DOUBLE_BONUS,20,28800) pc.mount_bonus(apply.ATT_GRADE_BONUS,50,28800) end end end

Die Funktioniert nich...
Also da holts nichmal das Reittier...

02/03/2014 15:16 .yorliK#9657

Quote:

Originally Posted by KinqDmX_

Die Funktioniert nich...
Also da holts nichmal das Reittier...

Hast den Type des Items in der Datenbank auch auf 18 gestellt?
Bei mir "holts" n�mlich das Reittier..

02/03/2014 18:33 xLosTxSouL#9658

Code:

quest Exptruhen begin 
    state start begin 
        when 50071.use begin 
            say_title("Kleine EXP-Truhe") 
            say("M�chtest du deine 10.000.000 EXP erhalten?")			
            local s = select("Ja","Nein")
			if s == 1
				say_reward("Du hast deine EXP erhalten.")
				pc.give_exp2(10000000)
				pc.remove_item(50071, 1)
			elseif s == 2
				say_reward("Ok dann ein ander mal.")
				return
			end
		when 50072.use begin
            say_title("Mittlere EXP-Truhe") 
            say("M�chtest du deine 100.000.000 EXP erhalten?")			
            local s = select("Ja","Nein")
			if s == 1
				say_reward("Du hast deine EXP erhalten.")
				pc.give_exp2(100000000)
				pc.remove_item(50072, 1)
			elseif s == 2
				say_reward("Ok dann ein ander mal.")
				return
			end
		when 50074.use begin
            say_title("Gro�e EXP-Truhe") 
            say("M�chtest du deine 1.000.000.000 EXP erhalten?")			
            local s = select("Ja","Nein")
			if s == 1
				say_reward("Du hast deine EXP erhalten.")
				pc.give_exp2(1000000000)
				pc.remove_item(50074, 1)
			elseif s == 2
				say_reward("Ok dann ein ander mal.")
				return
			end
		when 50075.use begin
            say_title("Special EXP-Truhe") 
            say("M�chtest du deine 25.000.000.000 EXP erhalten?")			
            local s = select("Ja","Nein")
			if s == 1
				say_reward("Du hast deine EXP erhalten.")
				pc.give_exp2(25000000000)
				pc.remove_item(50075, 1)
			elseif s == 2
				say_reward("Ok dann ein ander mal.")
				return
			end
		end
	end
end

Fehler:

[Only registered and activated users can see links. Click Here To Register...]

Meine Allererste Quests, sry wenns "dumme" Fehler sind :)

02/03/2014 19:08 [SA]Mister#9659

meine quest geht nicht... hilfe bitte

PHP Code:


			
quest horse_get.quest begin

    state start begin 

    when 20349.chat."Pferd steigern" begin 

            say_title("Stallbursche:") 

            say("") 

            say("Hallo!") 

            say("Bei mir kannst du dein Pferd steigern.") 

            say("Das Pferd zu steigern kostet dich 250k pro Level.") 

            say("") 

            say_reward("M�chtest du dein Pferd steigern?") 

            say("") 

                 

            local s = select("Ja", "Nein") 

                 

                if s == 1 then 

                    say_title("Stallbursche:") 

                    say("") 

                            if pc.money>=250000 then 

                            pc.changemoney("-250000") 

                            horse.unride() 

                            horse.advance() 

                            horse.ride() 

                            say("Dein Pferd hat nun Level "..(horse.get_level()).." erreicht.") 

                            say("") 

                            elseif horse.get_level()>=22 then 

                            say("Dein Pferd hat Level 22 erreicht.") 

                            say("Du kannst es nicht mehr steigern.") 

                            say("") 

                            elseif pc.money<250000 then 

                            say("Du bist ja ein armer Held. Komme wieder") 

                            say("wenn du das Yang hast!") 

                 

                elseif s == 2 then 

                    return 

        end 

    end 

end

02/03/2014 21:07 BlackBynes#9660

Hallo zusammen,

ich w�rde gerne eine Quest schreiben bei der ein NPC immer den selben von mir vorgegeben Weg l�uft. Also eine Walk.quest kann mir hierbei jemand von euch helfen?
besten dank

Page 644 of 845

644