[SERVICE] Die Questerstellung

Page 86 of 248

04/04/2014 03:43 Pytho0n#1276

Servus Leute,
nunja habe f�r meinen Server Biologen von DE ausgew�hlt da die aber buggy sind und irgendwie bekommen die Spieler die 90er 92 94er bio nicht.
Dacht ich mir was anderes aus, dennoch ben�tige ich eure Hilfe.
Wer kann mir die bitte erstellen?..

Level - Belohnung
----------------
Lv1 Herzlich Willkommen auf dem Server xxxx
Ein langer und harter Weg wartet auf dich um dich f�r diese Reise zu st�rken
darfst du hier einen Boni w�hlen den du permanent erh�lst:

W�hle:

5 St�rke
5 Int
5 Dex

Gute Wahl! Du erh�lst 5 xxx Statuspunkte Permanent

Lvl30
Du zeigst starke Leistungen die G�tter belohnen dich mit einem Boni der dir zu nutzen sein wird.

Du erh�lst 10% Stark gegen Monster!

Lvl50
Du zeigst beeindruckende St�rke dennoch liegt ein langer Weg vor dir mein Freund
Du erh�lst:

500TP
25 AW
30 Deff

Sehr gute Wahl! Du erh�lst xxx permanent

Lvl 75
Nun weisen dich die G�tter zu den F�rchterlichen Monstern aus der Grotte der Verbannung!
Sei Vorsichtig mein Freund diese Monster sind sehr stark!

Ich gebe dir das hier auf den Weg, um dich nicht in der Grotte fallen zu sehen.
Es wird dich st�rken gegen die Monster.

Du erh�lst 50 Deff

Lvl90

Mein Freund du bis sehr stark geworden deine Kraft steigt enorm an!
Die G�tter bef�rchten das in dir noch sehr viel mehr steckt aus dem Grund gebe ich dir das hier mit auf den Weg.

Du erh�lst 5% Chance nahkampf angriff abzublocken

Lvl100

Du bist einer der st�rksten hier geworden dein Name spricht sich im jeden Reich rum.
Man sagt es werden Attentate auf dich geplant mein Freund nimm das hier um dich davor zu besch�tzen!

Du erh�lst

10 % Deff gegen alle Rassen
50 AW

Lvl 105

Mein Freund es war ein sehr langer Weg und ein harter Weg du hast ziemlich viel gesehen und erlebt und dich bewiesen das du eine Legende bist.
Nur wenige schaffen es soweit ich gratuliere dir.
Damit hast du dir eine Gro�e Belohnung verdient!

(W�HLE AUS)

5% Stark gegen Halbmenschen
100 Deff
15 %Monster

Du erh�lst ......

Vielen Dank wenn sich jemand die Zeit daf�r nimmt lediglich gebe ich daf�r 10PSC als Dankesch�n :-)

04/04/2014 11:50 HighWave#1277

Quote:

Originally Posted by TayzZ.?

Hallo,

Kann bitte einer eine Quest Schreiben, Die eigendlich so ist wie eine Yang Bank quest aber halt ohne yang, sondern mit "DR" und wenn man auf ein Item Rechtsklick Dr�ckt man z.B. 100 DR auf sein Konto bekommt.Man sollte auch �ber einen NPC "20500" als ersten seinen Pin eingeben und dan kann man sich in sein Konto einloggen. Wenn man Im Konto ist, sollte man Seinen:

PHP Code:

-Kontostand Sehen -DR Gutscheine in Wert von 100,500 oder 1000 DR abholen (als Item) -Pin �ndern -DR shop �ffnen wo z.B. 5 Verschiedene Items Zu kaufen. (DR w�hrung)

Der sinn Dahinter ist:

PHP Code:

Man kann selten von einigen Monstern DR gutscheine in wert von 100,500,1000 DR Droppen und per Rechtsklick Einzahlen Und Einen "Ingame Itemshop" haben.

H�tte auch Interesse....

04/04/2014 21:06 .PrimeStar ##1278

Hallo. Ich ben�tige eine Quest mit der man seine Gilde leveln kann oder die Gilde direkt max. Level wird, irgendwie sowas.. W�re nett, wenn mir jemand sowas machen k�nnte. Danke.

04/05/2014 12:02 .yorliK#1279

Quote:

Originally Posted by TayzZ.?

Hallo,

Kann bitte einer eine Quest Schreiben, Die eigendlich so ist wie eine Yang Bank quest aber halt ohne yang, sondern mit "DR" und wenn man auf ein Item Rechtsklick Dr�ckt man z.B. 100 DR auf sein Konto bekommt.Man sollte auch �ber einen NPC "20500" als ersten seinen Pin eingeben und dan kann man sich in sein Konto einloggen. Wenn man Im Konto ist, sollte man Seinen:

PHP Code:

-Kontostand Sehen -DR Gutscheine in Wert von 100,500 oder 1000 DR abholen (als Item) -Pin �ndern -DR shop �ffnen wo z.B. 5 Verschiedene Items Zu kaufen. (DR w�hrung)

Der sinn Dahinter ist:

PHP Code:

Man kann selten von einigen Monstern DR gutscheine in wert von 100,500,1000 DR Droppen und per Rechtsklick Einzahlen Und Einen "Ingame Itemshop" haben.

Ich hab vor einiger Zeit etwas �hnliches geschrieben, ich kann die Quest releasen, wenn noch Bedarf ist.

04/05/2014 12:48 Azuko#1280

Heyho, Ich suche eine Quest die einen Befehlt innerhalb von 10 Minuten in einer Gruppe 100 Monster der sorte X zu t�ten.

Wichtig ist das die Kills der gruppe auch zum Counter z�hlen.

04/05/2014 13:48 .Weezy#1281

Quote:

Originally Posted by Azuko

Heyho, Ich suche eine Quest die einen Befehlt innerhalb von 10 Minuten in einer Gruppe 100 Monster der sorte X zu t�ten.

Wichtig ist das die Kills der gruppe auch zum Counter z�hlen.

nimm die KG Quest und �nder sie um.

04/05/2014 14:25 TayzZ.?#1282

#Kilroy.

Ich w�rde mich Richtig Freuen wenn du das tuen w�rdest ^.^

04/05/2014 15:36 Azuko#1283

Quote:

Originally Posted by .Weezy

nimm die KG Quest und �nder sie um.

besitze diese Quest nicht ^^ Beim Suchergebnis kommt auch nix raus

04/05/2014 15:51 .yorliK#1284

Quote:

Originally Posted by Azuko

Heyho, Ich suche eine Quest die einen Befehlt innerhalb von 10 Minuten in einer Gruppe 100 Monster der sorte X zu t�ten.

Wichtig ist das die Kills der gruppe auch zum Counter z�hlen.

Quote:

Originally Posted by .Weezy

nimm die KG Quest und �nder sie um.

Joa Weezy hat Recht:

Spoiler

PHP Code:


			
quest horse_upgrade begin
    state start begin
        when 20349.chat."Kill 100 Monster" with party.is_leader() begin
            say_title("Quest")
            say("")
            say("In 10 Minuten m�sst ihr 100 X t�ten")
            say("Nur dann bekommst der Leader eine Belohnung!")
            say("")
            if select("Wir versuchen es.", "Sp�ter vielleicht.")==2 then return end
            set_state(kill_it)
        end
    end
    state kill_it begin
        when letter begin
            q.set_counter("Verbleibende:", 100-pc.getqf("kill_count"))
        end
        when XX.party_kill begin
            pc.setqf("kill_count", pc.getqf("kill_count")+1)
            q.set_counter("SkorpionSchlange", 100-pc.getqf("kill_count"))
            if get_time()>=pc.getqf("limit_time") then
                clear_letter()
                set_state(failure)
            end
        end
        when letter begin
            q.set_clock("Zeit:", pc.getqf("limit_time")-get_time())
        end
        when enter begin
            pc.setqf("limit_time", get_time()+30*60)
            pc.setqf("kill_count", 0)
        end
        when letter begin
            send_letter("T�te 100 Monster!")
        end
        when button begin
            say_title("T�te 100 Monster!")
            say("T�te innerhalb 10 Minuten mindestens 100")
            say("Monster..haltet euch also ran!")
        end
        when XX.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
            set_state(finish)
            clear_letter()
        end
    end
    state finish begin
        when letter begin
            setskin(NOWINDOW)
            send_letter("Ihr habt es geschafft!")
        end
        when button or info begin
            say_title("Ihr habt es geschafft!")
            say("TEXT TEXT")
            say("TEXT TEXT")
            say("TEXT TEXT")
        end
        when 20349.chat."Geschafft" begin
            say("Herzlichen Gl�ckwunsch.")
            say("TEXT TEXT TEXT TEXT TEXT TEXT")
            say("TEXT TEXT TEXT TEXT TEXT TEXT ")
            say("TEXT TEXTTEXT TEXTTEXT TEXT")
            clear_letter()
            pc.give_item2(XX, 1)
            set_state(__COMPLETE__)
        end
    end
    state failure begin
        when letter begin
            setskin(NOWINDOW)
            send_letter("Nicht geschafft!")
            set_state(start)
        end
        when button or info begin
            say_title("Nicht geschafft!")
            say("TEXT TEXT")
            say("TEXT TEXT.")
            say("TEXT TEXT.")
            say("TEXT TEXT")
            say("versuche es noch einmal.")
            clear_letter()
            set_state(start)
        end
    end
    state __COMPLETE__ begin
    end
end

Quote:

Originally Posted by TayzZ.?

#Kilroy.

Ich w�rde mich Richtig Freuen wenn du das tuen w�rdest ^.^

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

04/05/2014 17:05 GoldenProductionHD#1285

Hey hat jemand zuf�llig eine "G-Regenbogenstein" Quest wo man die Skills von "1-20" direkt auf G machen kann? Also so das die Skills nicht auf M1 sein m�ssen, sondern direkt mit lv. 6 einen G Skill hat.
Danke im Vorraus

04/05/2014 17:30 .yorliK#1286

Quote:

Originally Posted by GoldenProductionHD

Hey hat jemand zuf�llig eine "G-Regenbogenstein" Quest wo man die Skills von "1-20" direkt auf G machen kann? Also so das die Skills nicht auf M1 sein m�ssen, sondern direkt mit lv. 6 einen G Skill hat.
Danke im Vorraus

Es gibt eine gute von [Only registered and activated users can see links. Click Here To Register...] dort muss man f�r dein vorhaben nur an zwei Stellen etwas �ndern. Dies hab ich jetzt mal f�r dich �bernommen.

Spoiler

PHP Code:


			
quest regenbogenstein begin 

    state start begin 

        function BuildPerfectMasterSkillList(job, group) 

        GRAND_MASTER_SKILL_LEVEL = 1 

        PERFECT_MASTER_SKILL_LEVEL = 40 



        local skill_list = special.active_skill_list[job+1][group] 

        local ret_vnum_list = {} 

        local ret_name_list = {} 



        -- test_chat(string.format("job=%d, group=%d", job, group)) 



        table.foreach(skill_list,  

        function(i, skill_vnum)  

        local skill_level = pc.get_skill_level(skill_vnum) 



        -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level)) 

        if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then 



            table.insert(ret_vnum_list, skill_vnum) 

            local name=locale.GM_SKILL_NAME_DICT[skill_vnum] 

            if name == nil then name=skill_vnum end 

            table.insert(ret_name_list, name) 

        end 

        end) 

        return {ret_vnum_list, ret_name_list} 





        --return {ret_vnum_list, ret_name_list} 

        end 

        when 50512.use begin 

            local count = pc.count_item(50512) 

            pc.setqf("regen_count", count) 

            if pc.get_skill_group() == 0 then 

                say("Du hast noch keine Fertigkeiten.") 

                say("Versuche es sp�ter erneut.") 

                return 

            end 

            local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group()) 

            local vnum_list = result[1] 

            local name_list = result[2] 

            if table.getn(vnum_list) == 0 then 

                say("Du hast keine Gro�meister-Fertigkeiten.") 

                return 

            end 

            local menu_list = {} 

            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end) 

            table.insert(menu_list, "Abbrechen")  

            local s=select_table(menu_list) 

            if table.getn(menu_list) == s then 

                return 

            end 

            local skill_name=name_list[s] 

            local skill_vnum=vnum_list[s] 

            say("M�chtest du "..skill_name.." wirklich auf P skillen?") 

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

            if wahl == 1 then 

                if pc.count_item(50512) == pc.getqf("regen_count") then 

                    pc.set_skill_level(skill_vnum, 30) 

                    say(skill_name.." wurde auf G1 gesetzt.") 

                else 

                    say("Buguser bekommen keine G-Skills ! ") 

                end 

            elseif wahl == 2 then 

                return 

            end 

            pc.remove_item(50512, 1) 

        end 

    end 

end

04/05/2014 20:33 TayzZ.?#1287

Hallo leute,
Ich wollte mich entschuldigen, das ich Immer F�r Jede Kleine Quest eure Hilfe Brauche, aber Ich bin noch nicht so gut, sodass ich das alleine Schaffe.

Ich Br�uchte hilfe bei der Quest von Kilroy. .

Bei Mir Klappt die nicht (ich habe in Navicat die Spalten Hinzugef�gt), darum wollte ich fragen ob die einer auch schreiben kann, ohne Die DB zu benutzen.

Hier nomma die Quest:

Spoiler

PHP Code:


			


quest drBank begin

    state start begin

        when 80014.use or 80015.use or 80016.use begin

            local dr_pin = mysql_query("SELECT dr_pin FROM account.account WHERE id = '"..pc.get_account_id().."';")[1][1]

            dr = item.get_vnum()

            scheine={ 

                    [80014] = { 100 },

                    [80015] = { 500 },

                    [80016] = { 1000 }

                    }

            say_title(scheine[dr][1].." - DR Schein")

            say("")

            say(scheine[dr][1].." - DR Schein ins DR - Konto einzahlen?")

            say("")

            if select("Ja","Nein")==2 then return end

            if dr_pin == "" then

                say_title("Pin Eingabe")

                say("")

                say("Du hast noch keinen Pin f�r dein")

                say("Konto. W�hle einen Pin, um")

                say("DR - Scheine einl�sen zu k�nnen.")

                return

            end

            say_title("Pin Eingabe")

            say("")

            say("Um mehr Sicherheit zu garantieren, musst")

            say("du dein DR - Bank Passwort angeben.")

            pin = tonumber(input())

            if pin != dr_pin then syschat("DR - Bank: Falscher Pin.") return end

            mysql_query("UPDATE account.account SET dr_bank = dr_bank + "..scheine[dr][1].." WHERE id = '"..pc.get_account_id().."';")

            syschat(scheine[dr][1].." - DR Schein eingel�st.")

            pc.remove_item(dr, 1)

        end





        when kill with not npc.is_pc() begin

            zufall = number(1,1000)            

            if zufall < 10 then

                chance = number(1, 11)

                if chance == 11 then

                game.drop_item_with_ownership(Dr1000ID ,1) -- ID eintragen

                elseif chance <= 10 and chance >= 7 then

                    game.drop_item_with_ownership(Dr500ID, 1) -- ID eintragen

                elseif chance <= 5 then

                    game.drop_item_with_ownership(Dr100ID, 1) -- ID eintragen

                end

            end

        end







        when 20500.chat."DR - Bank" begin

            local dr_pin = mysql_query("SELECT dr_pin FROM account.account WHERE id = '"..pc.get_account_id().."';")[1][1]

            local dr_bank = mysql_query("SELECT dr_bank FROM account.account WHERE id = '"..pc.get_account_id().."';")[1][1]

            if dr_pin == "" then

                say_title("DR - Bank")

                say("")

                say("Du hast noch keinen Pin.")

                say("Bitte gebe den gew�nschten Pin ein,")

                say("um dein Konto nutzen zu k�nnen.")

                say("")

                say_reward("Pinl�nge genau 5 Zahlen.")

                pin = tonumber(input())

                if string.len(pin) != 5 then return end

                mysql_query("UPDATE account.account SET dr_pin = "..pin.." WHERE id = '"..pc.get_account_id().."';")

                syschat(pin.." - Passwort gesetzt.")

                return

            else

                say_title("Pin Abfrage")

                say("")

                say("Bitte geb deinen Pin ein.")

                say("")

                pin = tonumber(input())

                if dr_pin != pin then syschat("DR - Bank: Falscher Pin.") return end

            end

                

            if dr_bank == "" then 

                dr_bank = 0 

            end

            say_title("Dr Optionen")

            say("")

            say("W�hle deine Option:")

            say("")

            Options = { "Pin �ndern",  "Shop �ffnen", "Konto abfragen", "DR-Scheine abholen", "Schlie�en" }

            local s = select_table(Options)

            if s == table.getn(Options) then return end

            if s == 1 then

                say_title("Pin �ndern")

                say("")

                say("Du m�chtest also deinen Pin �ndern?")

                say("Gut, gebe deinen derzeitigen Pin ein.")

                say("")

                pin = tonumber(input())

                if pin != dr_pin then syschat("DR - Bank: Falscher Pin.") return end

                say_title("Pin �ndern")

                say("")

                say("Okay, gebe nun deinen neuen Pin ein.")

                say("")

                say_reward("Pinl�nge genau 5 Zahlen")

                pin = tonumber(input())

                if string.len(pin) != 5 then return end

                say_title("Pin �ndern")

                say("")

                say("Pin wirklich zu "..pin.." �ndern?")

                if select("Ja","Nein")==2 then return end

                mysql_query("UPDATE account.account SET dr_pin = "..pin.." WHERE id = '"..pc.get_account_id().."';")

                syschat(pin.." - neues Passwort gesetzt.")

            elseif s == 2 then

                itemname = { "Giftschwert - 100 DR", "Grollschwert - 500 DR", "Kristall - 1000 DR", "Schwert - 1000 DR", "Blatt - 1000 DR", "Schlie�en" }

                item = {

                            [1] = {189 , 1, 100},

                            [2] = {6169 , 1, 500},

                            [3] = {90003 , 1, 1000},

                            [4] = {19 , 1, 1000},

                            [5] = {30040 , 200, 1000}

                            }

                say_title("Item Shop")

                say("")

                say("Kontostand: "..dr_bank.." - DR")

                say("W�hle das Item")

                s = select_table(itemname)

                if s == table.getn(itemname) then return end

                if dr_bank < item[s][3] then syschat("Du hast nicht gen�gend DR auf dem Konto.") return end

                say_title("Item Shop")

                say("")

                say(itemname[s].." wirklich kaufen?")

                if select("Ja","Nein")==2 then return end

                mysql_query("UPDATE account.account SET dr_bank = dr_bank - "..item[s][3].." WHERE id = '"..pc.get_account_id().."';")

                pc.give_item2(item[s][1], item[s][2])

                syschat(itemname[s].." f�r gekauft.")

            elseif s == 3 then

                say_title("Konto abfragen")

                say("")

                say("Kontostand: "..dr_bank.." - DR")

                say("")

                say("")

            elseif s == 4 then

                drSchein = {

                            [1] = { 100 , 80014 },

                            [2] = { 500 , 80015 },

                            [3] = { 1000 , 80016 }

                            }

                say_title("Dr-Scheine abholen")

                say("")

                say("Kontostand "..dr_bank.." - DR.")

                say("Welche Art von Schein m�chtest du entnehmen?")

                say("")

                dr = select("100 DR", "500 DR", "1000 DR", "Abbrechen")

                if dr == 4 then return end

                    say_title(drSchein[dr][1].." - DR")

                    say("")

                    say(drSchein[dr][1].." DR wirklich entnehmen?")

                    if select("Ja","Nein") == 2 then return end

                    if dr_bank < drSchein[dr][1] then syschat("Du hast nicht gen�gend DR auf dem Konto.") return end

                    mysql_query("UPDATE account.account SET dr_bank = dr_bank - "..drSchein[dr][1].." WHERE id = '"..pc.get_account_id().."';")

                    pc.give_item2(drSchein[dr][2], 1)

                    syschat(drSchein[dr][1].." - DR Schein entnommen.")

            end

        end

    end

end

04/05/2014 20:56 .yorliK#1288

Quote:

Originally Posted by TayzZ.?

Hallo leute,
Ich wollte mich entschuldigen, das ich Immer F�r Jede Kleine Quest eure Hilfe Brauche, aber Ich bin noch nicht so gut, sodass ich das alleine Schaffe.

Ich Br�uchte hilfe bei der Quest von Kilroy. .

Bei Mir Klappt die nicht (ich habe in Navicat die Spalten Hinzugef�gt), darum wollte ich fragen ob die einer auch schreiben kann, ohne Die DB zu benutzen.

Hier nomma die Quest:

Frag doch einfach mich, ich hab sich ja auch erstellt, ob ich die nicht auf non-mysql umschreibe? :D?

Spoiler

PHP Code:


			




quest drBank begin

    state start begin

        when 80014.use or 80015.use or 80016.use begin

            dr = item.get_vnum()

            scheine={ 

                    [80014] = { 100 },

                    [80015] = { 500 },

                    [80016] = { 1000 }

                    }

            say_title(scheine[dr][1].." - DR Schein")

            say("")

            say(scheine[dr][1].." - DR Schein ins DR - Konto einzahlen?")

            say("")

            if select("Ja","Nein")==2 then return end

            if pc.getqf("drbankpassword") == 0 then

                say_title("Pin Eingabe")

                say("")

                say("Du hast noch keinen Pin f�r dein")

                say("Konto. W�hle einen Pin, um")

                say("DR - Scheine einl�sen zu k�nnen.")

                return

            end

            say_title("Pin Eingabe")

            say("")

            say("Um mehr Sicherheit zu garantieren, musst")

            say("du dein DR - Bank Passwort angeben.")

            pin = tonumber(input())

            if pin != pc.getqf("drbankpassword") then syschat("DR - Bank: Falscher Pin.") return end

            pc.setqf("drbankguthaben", pc.getqf("drbankguthaben")+ scheine[dr][1])

            syschat(scheine[dr][1].." - DR Schein eingel�st.")

            pc.remove_item(dr, 1)

            end





        when kill with not npc.is_pc() begin

            zufall = number(1,1000)            

            if zufall < 10 then

                chance = number(1, 11)

                if chance == 11 then

                game.drop_item_with_ownership(Dr1000ID ,1) -- ID eintragen

                elseif chance <= 10 and chance >= 7 then

                    game.drop_item_with_ownership(Dr500ID, 1) -- ID eintragen

                elseif chance <= 5 then

                    game.drop_item_with_ownership(Dr100ID, 1) -- ID eintragen

                end

            end

        end







        when 20500.chat."DR - Bank" begin

            if pc.getqf("drbankpassword") == 0 then

                say_title("DR - Bank")

                say("")

                say("Du hast noch keinen Pin.")

                say("Bitte gebe den gew�nschten Pin ein,")

                say("um dein Konto nutzen zu k�nnen.")

                say("")

                say_reward("Pinl�nge genau 5 Zahlen.")

                pin = tonumber(input())

                if string.len(pin) != 5 then return end

                pc.setqf("drbankpassword")

                syschat(pin.." - Passwort gesetzt.")

                return

            else

                say_title("Pin Abfrage")

                say("")

                say("Bitte geb deinen Pin ein.")

                say("")

                pin = tonumber(input())

                if pc.getqf("drbankpassword") != pin then syschat("DR - Bank: Falscher Pin.") return end

            end



            say_title("Dr Optionen")

            say("")

            say("W�hle deine Option:")

            say("")

            Options = { "Pin �ndern",  "Shop �ffnen", "Konto abfragen", "DR-Scheine abholen", "Schlie�en" }

            local s = select_table(Options)

            if s == table.getn(Options) then return end

            if s == 1 then

                say_title("Pin �ndern")

                say("")

                say("Du m�chtest also deinen Pin �ndern?")

                say("Gut, gebe deinen derzeitigen Pin ein.")

                say("")

                pin = tonumber(input())

                if pin != pc.getqf("drbankpassword") then syschat("DR - Bank: Falscher Pin.") return end

                say_title("Pin �ndern")

                say("")

                say("Okay, gebe nun deinen neuen Pin ein.")

                say("")

                say_reward("Pinl�nge genau 5 Zahlen")

                pin = tonumber(input())

                if string.len(pin) != 5 then return end

                say_title("Pin �ndern")

                say("")

                say("Pin wirklich zu "..pin.." �ndern?")

                if select("Ja","Nein")==2 then return end

                pc.setqf("drbankpassword", pin)

                syschat(pin.." - neues Passwort gesetzt.")

            elseif s == 2 then

                itemname = { "Giftschwert - 100 DR", "Grollschwert - 500 DR", "Kristall - 1000 DR", "Schwert - 1000 DR", "Blatt - 1000 DR", "Schlie�en" }

                item = {

                            [1] = {189 , 1, 100},

                            [2] = {6169 , 1, 500},

                            [3] = {90003 , 1, 1000},

                            [4] = {19 , 1, 1000},

                            [5] = {30040 , 200, 1000}

                            }

                say_title("Item Shop")

                say("")

                say("Kontostand: "..pc.getqf("drbankguthaben").." - DR")

                say("W�hle das Item")

                s = select_table(itemname)

                if s == table.getn(itemname) then return end

                if pc.getqf("drbankguthaben") < item[s][3] then syschat("Du hast nicht gen�gend DR auf dem Konto.") return end

                say_title("Item Shop")

                say("")

                say(itemname[s].." wirklich kaufen?")

                if select("Ja","Nein")==2 then return end

                pc.setqf("drbankguthaben", pc.getqf("drbankguthaben") - item[s][3])

                pc.give_item2(item[s][1], item[s][2])

                syschat(itemname[s].." f�r gekauft.")

            elseif s == 3 then

                say_title("Konto abfragen")

                say("")

                say("Kontostand: "..pc.getqf("drbankguthaben").." - DR")

                say("")

                say("")

            elseif s == 4 then

                drSchein = {

                            [1] = { 100 , 80014 },

                            [2] = { 500 , 80015 },

                            [3] = { 1000 , 80016 }

                            }

                say_title("Dr-Scheine abholen")

                say("")

                say("Kontostand "..pc.getqf("drbankguthaben").." - DR.")

                say("Welche Art von Schein m�chtest du entnehmen?")

                say("")

                dr = select("100 DR", "500 DR", "1000 DR", "Abbrechen")

                if dr == 4 then return end

                    say_title(drSchein[dr][1].." - DR")

                    say("")

                    say(drSchein[dr][1].." DR wirklich entnehmen?")

                    if select("Ja","Nein") == 2 then return end

                    if pc.getqf("drbankguthaben") < drSchein[dr][1] then syschat("Du hast nicht gen�gend DR auf dem Konto.") return end

                    pc.setqf("drbankguthaben", pc.getqf("drbankguthaben") - drSchein[dr][1])

                    pc.give_item2(drSchein[dr][2], 1)

                    syschat(drSchein[dr][1].." - DR Schein entnommen.")

            end

        end

    end

end

04/05/2014 21:06 TayzZ.?#1289

Danke aber Ich habe Immer noch ein Fehler. Wenn ich mein Pin Festlege kommt In den Chat 12345 - Passwort gesetzt danach schlie�t sich das Gespr�ch mit den NPC. Wenn ich ihn dann wieder anspreche sagt der mir, das ich noch kein pin h�tte.

04/05/2014 21:25 .yorliK#1290

Quote:

Originally Posted by TayzZ.?

Danke aber Ich habe Immer noch ein Fehler. Wenn ich mein Pin Festlege kommt In den Chat 12345 - Passwort gesetzt danach schlie�t sich das Gespr�ch mit den NPC. Wenn ich ihn dann wieder anspreche sagt der mir, das ich noch kein pin h�tte.

Joa, war nen Fehler meinerseits.

PHP Code:


			




quest drBank begin

    state start begin

        when 80014.use or 80015.use or 80016.use begin

            dr = item.get_vnum()

            scheine={ 

                    [80014] = { 100 },

                    [80015] = { 500 },

                    [80016] = { 1000 }

                    }

            say_title(scheine[dr][1].." - DR Schein")

            say("")

            say(scheine[dr][1].." - DR Schein ins DR - Konto einzahlen?")

            say("")

            if select("Ja","Nein")==2 then return end

            if pc.getqf("drbankpassword") == 0 then

                say_title("Pin Eingabe")

                say("")

                say("Du hast noch keinen Pin f�r dein")

                say("Konto. W�hle einen Pin, um")

                say("DR - Scheine einl�sen zu k�nnen.")

                return

            end

            say_title("Pin Eingabe")

            say("")

            say("Um mehr Sicherheit zu garantieren, musst")

            say("du dein DR - Bank Passwort angeben.")

            pin = tonumber(input())

            if pin != pc.getqf("drbankpassword") then syschat("DR - Bank: Falscher Pin.") return end

            pc.setqf("drbankguthaben", pc.getqf("drbankguthaben")+ scheine[dr][1])

            syschat(scheine[dr][1].." - DR Schein eingel�st.")

            pc.remove_item(dr, 1)

            end





        when kill with not npc.is_pc() begin

            zufall = number(1,1000)            

            if zufall < 10 then

                chance = number(1, 11)

                if chance == 11 then

                game.drop_item_with_ownership(Dr1000ID ,1) -- ID eintragen

                elseif chance <= 10 and chance >= 7 then

                    game.drop_item_with_ownership(Dr500ID, 1) -- ID eintragen

                elseif chance <= 5 then

                    game.drop_item_with_ownership(Dr100ID, 1) -- ID eintragen

                end

            end

        end







        when 20500.chat."DR - Bank" begin

            if pc.getqf("drbankpassword") == 0 then

                say_title("DR - Bank")

                say("")

                say("Du hast noch keinen Pin.")

                say("Bitte gebe den gew�nschten Pin ein,")

                say("um dein Konto nutzen zu k�nnen.")

                say("")

                say_reward("Pinl�nge genau 5 Zahlen.")

                pin = tonumber(input())

                if string.len(pin) != 5 then return end

                pc.setqf("drbankpassword", pin)

                syschat(pin.." - Passwort gesetzt.")

                return

            else

                say_title("Pin Abfrage")

                say("")

                say("Bitte geb deinen Pin ein.")

                say("")

                pin = tonumber(input())

                if pc.getqf("drbankpassword") != pin then syschat("DR - Bank: Falscher Pin.") return end

            end



            say_title("Dr Optionen")

            say("")

            say("W�hle deine Option:")

            say("")

            Options = { "Pin �ndern",  "Shop �ffnen", "Konto abfragen", "DR-Scheine abholen", "Schlie�en" }

            local s = select_table(Options)

            if s == table.getn(Options) then return end

            if s == 1 then

                say_title("Pin �ndern")

                say("")

                say("Du m�chtest also deinen Pin �ndern?")

                say("Gut, gebe deinen derzeitigen Pin ein.")

                say("")

                pin = tonumber(input())

                if pin != pc.getqf("drbankpassword") then syschat("DR - Bank: Falscher Pin.") return end

                say_title("Pin �ndern")

                say("")

                say("Okay, gebe nun deinen neuen Pin ein.")

                say("")

                say_reward("Pinl�nge genau 5 Zahlen")

                pin = tonumber(input())

                if string.len(pin) != 5 then return end

                say_title("Pin �ndern")

                say("")

                say("Pin wirklich zu "..pin.." �ndern?")

                if select("Ja","Nein")==2 then return end

                pc.setqf("drbankpassword", pin)

                syschat(pin.." - neues Passwort gesetzt.")

            elseif s == 2 then

                itemname = { "Giftschwert - 100 DR", "Grollschwert - 500 DR", "Kristall - 1000 DR", "Schwert - 1000 DR", "Blatt - 1000 DR", "Schlie�en" }

                item = {

                            [1] = {189 , 1, 100},

                            [2] = {6169 , 1, 500},

                            [3] = {90003 , 1, 1000},

                            [4] = {19 , 1, 1000},

                            [5] = {30040 , 200, 1000}

                            }

                say_title("Item Shop")

                say("")

                say("Kontostand: "..pc.getqf("drbankguthaben").." - DR")

                say("W�hle das Item")

                s = select_table(itemname)

                if s == table.getn(itemname) then return end

                if pc.getqf("drbankguthaben") < item[s][3] then syschat("Du hast nicht gen�gend DR auf dem Konto.") return end

                say_title("Item Shop")

                say("")

                say(itemname[s].." wirklich kaufen?")

                if select("Ja","Nein")==2 then return end

                pc.setqf("drbankguthaben", pc.getqf("drbankguthaben") - item[s][3])

                pc.give_item2(item[s][1], item[s][2])

                syschat(itemname[s].." f�r gekauft.")

            elseif s == 3 then

                say_title("Konto abfragen")

                say("")

                say("Kontostand: "..pc.getqf("drbankguthaben").." - DR")

                say("")

                say("")

            elseif s == 4 then

                drSchein = {

                            [1] = { 100 , 80014 },

                            [2] = { 500 , 80015 },

                            [3] = { 1000 , 80016 }

                            }

                say_title("Dr-Scheine abholen")

                say("")

                say("Kontostand "..pc.getqf("drbankguthaben").." - DR.")

                say("Welche Art von Schein m�chtest du entnehmen?")

                say("")

                dr = select("100 DR", "500 DR", "1000 DR", "Abbrechen")

                if dr == 4 then return end

                    say_title(drSchein[dr][1].." - DR")

                    say("")

                    say(drSchein[dr][1].." DR wirklich entnehmen?")

                    if select("Ja","Nein") == 2 then return end

                    if pc.getqf("drbankguthaben") < drSchein[dr][1] then syschat("Du hast nicht gen�gend DR auf dem Konto.") return end

                    pc.setqf("drbankguthaben", pc.getqf("drbankguthaben") - drSchein[dr][1])

                    pc.give_item2(drSchein[dr][2], 1)

                    syschat(drSchein[dr][1].." - DR Schein entnommen.")

            end

        end

    end

end

Page 86 of 248