Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Quest Na Hwang! Poprawnosc?

kamilpl1

Przez kamilpl1
w Metin2 - Tworzenie serwerów prywatnych

Rekomendowane odpowiedzi

kamilpl1 Rekrut

kamilpl1

Opublikowano
Rekrut

kamilpl1

Opublikowano

Tak jak w tytule chce sprawdzic poprawność questa.

 

 

quest Hwang begin

state start begin

end

state run begin

when login or levelup with pc.level >= 1 and pc.level <= 99 begin

set_state(information)

end

end

 

state information begin

when letter begin

local v = find_npc_by_vnum(20086)

if v != 0 then

target.vid("__TARGET__", v, "Hand-UP")

end

send_letter("Hand-UP")

end

 

when button or info begin

say_title("Znajdz Hand-UP")

say("")

say("Handu-UP, uczeń Baek-Goa,")

say("właśnie Cie szukał. Proszę idz")

say("do niego i zaoferuj mu swoją pomoc.")

say("")

end

 

when __TARGET__.target.click or

20086.chat."Proszę o Hwanga" begin

target.delete("__TARGET__")

say("Hand-UP:")

--- l

say("Witaj, proszę pomóż mi... ")

say("Chciałbys/ałabyś mieć zbroje Hwang?")

say("Teraz tak albo nie do wybrania")

say_reward("Czy chcesz zdobyć zbroje Hwang?")

local s=select("Tak", "Nie")

if 1==s then

say("Swietnie!")

say("Jesteś odważny/a że chcesz ją zdobyć.")

say("Każdy bardzo chce ją mieć.")

say("A teraz musisz dla mnie zabić:")

say("Musisz teraz zabić 3 Umarłych Rozpruwaczy!")

say("Będą z nich dropiły sekrety Chi")

say_item_vnum(69010)

say_reward("Zabij Trzech Umarłych Rozpruwaczy!")

set_state(key_item)

return

elseif 2==s then

return

end

end

end

 

 

 

state key_item begin

when letter begin

send_letter("Zdobyłeś Trzy Sekrety Chi!")

 

if pc.count_item(69010)>2 then

local v = find_npc_by_vnum(20086)

if v != 0 then

target.vid("__TARGET__", v, "Sekret Chi")

end

end

 

end

when button or info begin

if pc.count_item(69010) >2 then

say_title("Wróć do Hand-UP!")

say("")

--- l

say("Zdobyłeś Wystarczającą ilość sekretów Chi!! ")

say("Idz szybko przynieś je Hand-Up.")

say("")

return

end

 

say_title("Sekrety Chi")

say("")

--- l

say("Dostałeś pewną misje")

say("od samego Hand-UP.")

say("Musisz teraz znalezc trzy Sekrety Chi! ")

say_item_vnum(69010)----------Żu¤`ĆFĆF»îĄŰ

say("Sekrety ")

say("Można zdobyć zabijająć Umarłego rozpruwacza")

say("Nie zawiedz Hand-UP!")

end

 

 

 

when 1093.kill begin

local s = number(1, 1)

if s == 1 and pc.count_item(69010)<3 then

pc.give_item2(69010)

send_letter("Sekrety Chi")

end

end

 

 

 

when __TARGET__.target.click or

20086.chat."Mam Trzy Sekreti Chi" with pc.count_item(69010) > 3 begin

target.delete("__TARGET__")

say("Hand-UP:")

say("OH!! Zdobyłeś je! ")

say("Odnalazłeś Sekrety Chi")

say("Ciesze się bardzo")

say("Dziękuję Ci za pomoc")

say("Ale to nie wsystko...")

say("Musisz jeszcze zdobyć kolejne sekrety Chi")

say("Lecz tym razem już nie z Umarłego Rozpruwacza")

say("Tylko z Niebieskiej śmierci...")

say("Zabij dwie niebieskie śmierci")

say("aby otrzymać kolejne Sekrety Chi!")

say("")

pc.remove_item(69010,3)

set_state(key_item2)

when 1095.kill begin

local s = number(1, 1)

if s == 1 and pc.count_item(69010)<2 then

pc.give_item2(69010)

send_letter("Sekrety Chi")

end

end

when __TARGET__.target.click or

20086.chat."Mam Trzy Sekreti Chi" with pc.count_item(69010) > 2 begin

target.delete("__TARGET__")

say("Hand-UP:")

say("OH!! Zdobyłeś je! ")

say("Odnalazłeś Sekrety Chi")

say("Ciesze się bardzo")

say("Dziękuję Ci za pomoc")

say("Ale to nie wsystko...")

say("Musisz jeszcze zdobyć kolejne sekrety Chi")

say("Lecz tym razem już nie z Umarłego Rozpruwacza")

say("Tylko z Czerwonego Smoka...")

say("Zabij Czerwonego Smoka")

say("aby otrzymać kolejne Sekrety Chi!")

say("")

pc.remove_item(69010,3)

set_state(__reward)

end

 

state __reward begin

when letter begin

send_letter("Odbierz nagrode!")

 

local v = find_npc_by_vnum(20018)

if v != 0 then

target.vid("__TARGET__", v, "Baek-Go")

end

 

end

when button or info begin

say_title("Odbierz nagrode!")

--- l

say("Udaj się do Baek-Goa")

say("by otrzymac nagrode za")

say("Twój ciezki trud...")

say("Baek-Go znajduje się w pierwszej wiosce")

say("Masz go na mapie. Spiesz się!")

say("")

end

 

when __TARGET__.target.click or

20018.chat."Nagroda!" begin

target.delete("__TARGET__")

say("Baek-Go:")

say("Drogi przyjacielu")

say("Za Twój cięzki trud otrzymujesz")

say("Zbroje Hwang!")

say("Wybierz sobie zbroję którą chcesz otrzymać...")

say("Pamiętaj dopasuj ją do swojej postaci!")

local s = select("Hwang - Wojownik ", "Hwang - Ninja", "Hwang - Sura", "Hwang - Szaman")

 

if 1 == s then

pc.give_item2(11971, 1)

say_reward("Otrzymano Zbroje Hwang")

 

 

elseif 2 == s then

pc.give_item2(11972, 1)

say_reward("Otrzymano Zbroje Hwang")

 

elseif 3 == s then

pc.give_item2(11973, 1)

say_reward("Otrzymano Zbroje Hwang")

 

elseif 4 == s then

pc.give_item2(11974, 1)

ssay_reward("Otrzymano Zbroje Hwang")

 

 

end

 

clear_letter()

set_quest_state("Bambus3k", "run")

set_state(__complete)

end

 

end

 

 

state __complete begin

end

 

 

No to tak jestem ciekawy co jest w nim źle za odp daje + lub - i 5

 

Prosze o Prefix ;/ bo się skasował

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano (edytowane)

buahahahahaha ale quest i juz lepsza stalka niz sie tak trudzic

ale sprawdze go

no nie dziala ;/ nwm jak naprawic nie wychodzi ;p

Edytowane przez ziuto

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


kamilpl1 Rekrut

kamilpl1

Opublikowano
Rekrut

kamilpl1

  • Autor
Opublikowano

buahahahahaha ale quest i juz lepsza stalka niz sie tak trudzic

 

Trzeba urozmajcić gre ^^ jak nie masz zamiaru pomóc to nie pisz w tym temacie ok?

 

Proszę o naprawienie bo cos się nie zgadza Bambus3k robił 1 część potem mówil ze mam zrobić sam i coś nie wyszło....

Poza tym mam bony powiększone i nie był by to wielki problem na moim serwie;p

Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
Tematy
×
×
  • Dodaj nową pozycję...