Regenbogenstein...

Page 1 of 2

12/23/2009 21:33 Jumper2#1

Hey leute ...
Ich wollte mal versuchen einen Regenbogenstein zu machen...
So wie bei New-World2. Ich habe mir als Vorlage den Selenstein genommen...
und ihn "ver�ndert"...
Ich will erreichen das die Fertigkeiten von G1 Direkt auf P springen ...
Doch es klappt nicht so ganz, es gibt 2 Probleme:
1. Wenn ich den Regenbogenstein �ndere (Neue Quest) �bertr�gt er sich auf den Selenstein.
2. Ingame wird trotzdem nur 1 Stufe rauf gerechnet ...

Spoiler

PHP Code:


			
quest stone begin

    state start begin

    when 50512.use begin

        say_title ( "Regenbogenstein" ) 

if pc . get_skill_group ( ) == 0 then 

say ( "�A�S������¾�~." .. pc . get_skill_group ( ) ) 

return 

end 

if get_time ( ) < pc . getqf ( "next_time" ) then 

if pc . is_skill_book_no_delay ( ) then 

say ( "Hiermit kannst du eine Fertigkeit perfektionieren." ) 

say ( "Dr�cke weiter." ) 

say ( "" ) 

wait ( ) 

say_title ( "Regenbogenstein" ) 

else 

say ( "Du kannst erst morgen wieder" )

say ( "einen Regenbogenstein lesen!" )

return 

end 

end 

local result = training_grandmaster_skill . BuildGrandMasterSkillList ( 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 ( "Deine Fertigkeiten sind bereits perfekt!" ) 

return 

end 

say ( "W�hle einen skill aus." ) 

say ( "" ) 

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 ] 

local skill_level = pc . get_skill_level ( skill_vnum ) 

local cur_alignment = pc . get_real_alignment ( ) 

local need_alignment = 1000 + 500 * ( skill_level - 30 ) 

test_chat ( "�{�b���c*�: " .. cur_alignment ) 

test_chat ( "Ben�tigte Rangpunkte: " .. need_alignment ) 

local title = string . format ( "Fertigkeit perfektionieren:" , skill_name , skill_level - 30 + 1 ) 

say_title ( title ) 

say ( "Beim lesen des Regenbogensteins" ) 

say ( "verlierst du Rangpunkte! " ) 

say ( "" ) 

if cur_alignment < - 19000 + need_alignment then 

say_reward ( "Leider hast du nicht gen�gend Rangpunkte" ) 

return 

end 

if cur_alignment < 0 then 

say_reward ( string . format ( "Ben�tigte Rangpunkte: %d -> %d" , need_alignment , need_alignment * 2 ) ) 

need_alignment = need_alignment * 2 

elseif cur_alignment < need_alignment then 

say_reward ( string . format ( "Ben�tigte Rangpunkte: %d" , need_alignment ) ) 

else 

say_reward ( string . format ( "Ben�tigte Rangpunkte: %d" , need_alignment ) ) 

end 

say ( "" ) 

local s = select ( "Weiter" , "Abbrechen" ) 

if s == 2 then 

return 

end 

if cur_alignment >= 0 and cur_alignment < need_alignment then 

say_title ( string . format ( "Fertigkeit perfektionieren:" , title ) ) 

say ( "Es ist soweit!" ) 

say ( "Um zu trainieren," ) 

say ( "gib bitte ein: Stein" ) 

local s = input ( ) 

if s ~= "Stein" then 

return 

end 

end 

if get_time ( ) < pc . getqf ( "next_time" ) then 

if pc . is_skill_book_no_delay ( ) then 

pc . remove_skill_book_no_delay ( ) 

else 

say ( "[���ŵ���]�ޯ�*׽m���~: �𮧤�" ) 

return 

end 

end 

pc . setqf ( "next_time" , get_time ( ) + time_hour_to_sec ( number ( 8 , 12 ) ) ) 

if need_alignment > 0 then 

if pc . learn_grand_master_skill ( skill_vnum ) then 

pc . change_alignment ( - need_alignment ) 

say_title ( string . format ( "%s Erfolgreich!" , title ) ) 

if 40 == pc . get_skill_level ( skill_vnum ) then 

say ( string . format ( "Herzlichen gl�ckwunsch! =)" , skill_name ) ) 

else 

say ( string . format ( "[���ŵ���]*׽m�� %s�O %d ����." , skill_name , skill_level - 30 + 10 + 10 ) ) 

end 

say ( "" ) 

say_reward ( "Perfektionieren erfolgreich!" ) 

say_reward ( string . format ( "Rangpunkte verloren: %d " , need_alignment ) ) 

say ( "" ) 

else 

say_title ( string . format ( "%s Fehlgeschlagen!" , title ) ) 

say ( "Pech gehabt" ) 

say ( "" ) 

say_reward ( "Perfektionieren fehlgeschlagen!" ) 

say ( "" ) 

pc . change_alignment ( - number ( need_alignment / 3 , need_alignment / 2 ) ) 

end 

end 

item . remove ( ) 

    end

    function BuildGrandMasterSkillList(job, group)

        GRAND_MASTER_SKILL_LEVEL = 30

        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

    end

end

Ich bedanke mich bei Jeder Antwort...

12/23/2009 22:04 Jumper2#2

Keiner wei� es? =(

12/23/2009 22:16 Der-Eddy#3

w�re vieleicht von Vorteil wenn du das erstmal �nderst:

Quote:

...
when 50512.use begin
...

das Rote �ndern

12/23/2009 22:17 *John*#4

ja genau

12/23/2009 22:18 hakanpisiko#5

So was geht das wusste ich garnicht das so was m�glich ist wenn ja hammer geilo :)
wenn das funz pm me pls hab auch ein paar fragen dazu

12/23/2009 22:28 Jumper2#6

Das ist die ID von Regenbogenstien ihr Knuubs xD

12/23/2009 22:29 Der-Eddy#7

Quote:

Originally Posted by Jumper2

Das ist die ID von Regenbogenstien ihr Knuubs xD

sorry dachte w�re noch von Seelenstein

12/24/2009 09:44 Jumper2#8

Keiner wei�? glaube ich nicht !

12/25/2009 22:37 ~Sty.Le.'x3~#9

Ich #PUSH mal , interessantes Thema

06/23/2010 00:33 CavenDish#10

#Push

06/23/2010 03:12 Elfendrache#11

Nimm doch einfach das hier von DarkSide^^

PHP Code:


			
----------------------------------

--   Regenbogenstein Quest by DarkSide

--        (c) by DarkSide und FireMt2 2010

----------------------------------

quest regenbogen begin

    state start begin

            when 50512.use  begin

                

                say_title("Regenbogenstein:")

                say("Du m�chtest also deine Skills auf")

                say("Perfekter-Meister setzen?")

                

                if pc.job ==0 then

                say("W�hle deine Lehre aus")

                

                local s=select("K�rper","Mental")

                

                if s==1 then

                --K�rper

                pc.set_skill_group(1)

                pc.set_skill_level(1 ,59)

                pc.set_skill_level(2 ,59)

                pc.set_skill_level(3 ,59)

                pc.set_skill_level(4 ,59)

                pc.set_skill_level(5 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                if s==2 then

                --Mentalo

                pc.set_skill_group(2)

                pc.set_skill_level(16 ,59)

                pc.set_skill_level(17 ,59)

                pc.set_skill_level(18 ,59)

                pc.set_skill_level(19 ,59)

                pc.set_skill_level(20 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                elseif pc.job ==1 then

                say("W�hle deine Lehre aus")

                

                local s=select("Nahkampf","Bogen")

                

                if s==1 then

                --Nahkampf

                pc.set_skill_group(3)

                pc.set_skill_level(31 ,59)

                pc.set_skill_level(32 ,59)

                pc.set_skill_level(33 ,59)

                pc.set_skill_level(34 ,59)

                pc.set_skill_level(35 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                if s==2 then

                --Fernkampf

                pc.set_skill_group(4)

                pc.set_skill_level(46 ,59)

                pc.set_skill_level(47 ,59)

                pc.set_skill_level(48 ,59)

                pc.set_skill_level(49 ,59)

                pc.set_skill_level(50 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                elseif pc.job ==2 then

                say("W�hle deine Lehre aus")

                local s=select("Magie","Waffe")

                

                if s==1 then

                --Magie

                pc.set_skill_group(5)

                pc.set_skill_level(76 ,59)

                pc.set_skill_level(77 ,59)

                pc.set_skill_level(78 ,59)

                pc.set_skill_level(79 ,59)

                pc.set_skill_level(80 ,59)

                pc.set_skill_level(81, 59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                if s==2 then

                --Waffe

                pc.set_skill_group(6)

                pc.set_skill_level(61 ,59)

                pc.set_skill_level(62 ,59)

                pc.set_skill_level(63 ,59)

                pc.set_skill_level(64 ,59)

                pc.set_skill_level(65 ,59)

                pc.set_skill_level(66 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                elseif pc.job ==3 then

                say("W�hle deine Lehre aus")

                local s=select("Heil","Drachen")

                

                if s==1 then

                --Heil

                pc.set_skill_group(7)

                pc.set_skill_level(106 ,59)

                pc.set_skill_level(107 ,59)

                pc.set_skill_level(108 ,59)

                pc.set_skill_level(109 ,59)

                pc.set_skill_level(110 ,59)

                pc.set_skill_level(111 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

                

                if s==2 then

                --Drachen

                pc.set_skill_group(8)

                pc.set_skill_level(91 ,59)

                pc.set_skill_level(92 ,59)

                pc.set_skill_level(93 ,59)

                pc.set_skill_level(94 ,59)

                pc.set_skill_level(95 ,59)

                pc.set_skill_level(96 ,59)

                pc.remove_item(50512, 1)

                say("Deine Skills sind auf Perfekter Meister")

                end

            end

        end

    end

end

06/23/2010 05:07 Mr.GrimmeL#12

Quote:

Originally Posted by CavenDish

#Push

Guck mal auf das Datum + Pushen ist verboten!

/reportet

06/23/2010 08:49 αίίR7 :3#13

die fertige Quest gib es zum downloaden, einfach mal die Sufu benutzen.

06/23/2010 08:50 ProfiFighter#14

Das Quest wird ja auch [Only registered and activated users can see links. Click Here To Register...] oben erw�hnt xd.
Schlie�ungsfrage des Threads abgeschickt, da hier alles geregelt wurde.

06/23/2010 09:05 αίίR7 :3#15

Quote:

Originally Posted by ProfiFighter

Das Quest wird ja auch [Only registered and activated users can see links. Click Here To Register...] oben erw�hnt xd.
Schlie�ungsfrage des Threads abgeschickt, da hier alles geregelt wurde.

Upsala, nicht gesehen sorry :'o.

Page 1 of 2