Mój Quest

[wojtek109]

Po Ładowaniu ./qc Wyskakuje

quest

state start

when login or

when levelup with pc . get_levl >46

when letter

when button or

when info

when target (__TRAGET__.click) or

when 20008.chat ("TECZOWY KAMIEN")

qc in malloc() error allocation failed

abort (core dumper)

 

 

TREŚĆ QUESTA

quest begin

state start begin

when login or levelup with pc.get_level > 46 begin

set_state(info)

end

when letter begin

local v = find_npc_by_vnum(20008)

if v != 0 then

target.vid("__TARGET__", v, "Octavio")

end

send_letter("Teczowy Kamien")

end

 

when button or info begin

say_title("Kamien")

say("")

say("Idz do kowala, musisz")

say("dla niego zrobic!")

end

 

when __TARGET__.target.click or

20008.chat."Teczowy Kamien" begin

target.delete("__TARGET__")

 

 

 

 

 

say_title("Zagadki")

say("Chcesz Odpowiadac Na Moje Pytania ???")

wait(3)

say("Wiesz , Ze Nie Sa One Proste I Tylko Najlepsi Gracze , Ktorzy Odpowiedza Na Wszystkie 5 Pytan Otrzymuja Nagrode")

say("Czy Napewno Chcesz Odpowiadac Na Moje Pytania?")

say("Jesli Wycofasz Sie Teraz Bedziesz Mogl Odpowiadac Potem , Ale Jesli Odpowiesz Zle Nie Bedzie Mozliwosci Odpowiadania Drugi Raz ? A Wiec Chcesz Odpowiadac ?")

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

if s == 2 then

say_title("...")

say("Przyjdz Potem")

end

elseif s == 1 then

say("Pytanie 1")

say("Pierwszy Test")

say("Jest To Nie Typowa Misja Z Cyklu Pytan")

say("Komputer Zadaje Pytania , A Gracz")

say("Udzielajac Wlasciwych Odpowiedzi Dostaje Nagrody")

say("Tylko Odpowiadajac Na Wszystkie 5 Pytan Mozna Otrzymac Nagrode")

say_reward("Pytanie 1")

say_title("Czy Ozon Zawiera Trzy Czasteczki Tlenu - O ???")

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

 

 

if s == 2 then

 

say("Ta Odpowiedz Jest")

 

say_reward("Nieprawdziwa")

set_state(__COMPLETE__)

end

 

 

 

elseif s == 1 then

say("Ta Odpowiedz Jest")

 

say("Prawdziwa")

 

set_state(Pytanie2)

 

 

 

say_reward("Pytanie 2")

say("Czy Pierwszym ---KROLEM--- Nie Wladca Byl Mieszko I ???")

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

if s == 2 then

 

say("Ta Odpowiedz Jest")

 

say_reward("Nieprawdziwa")

set_state(__COMPLETE__)

end

 

 

 

 

elseif s == 1 then

say("Ta Odpowiedz Jest")

 

say("Prawdziwa")

 

set_state(Pytanie3)

 

 

say_reward("Pytanie 3")

say("Czy Trzecia Forma Czasownika BE To Been ???")

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

elseif s == 1 then

say("Ta Odpowiedz Jest")

 

say("Nieprawdziwa")

set_state(__COMPLETE__)

 

 

 

if s == 2 then

 

say("Ta Odpowiedz Jest")

 

say_reward("Prawdziwa")

set_state(Pytanie4)

wait()

 

 

 

 

 

 

 

send_leter("Pytanie 4")

when button or info begin

say_reward("Pytanie 4")

say("Czy Liczba Mieszkancow W Polsce Przekroczyla Kiedykolwiek 40 MLN Osob ???")

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

if s == 2 then

 

say("Ta Odpowiedz Jest")

 

say_reward("Nieprawdziwa")

set_state(__COMPLETE__)

 

end

 

 

 

elseif s == 1 then

say("Ta Odpowiedz Jest")

 

say("Prawdziwa")

set_state(Pytanie5)

 

 

 

 

say_reward("Pytanie 5")

say("Czy Miejscem Zerowym Funkcji y=7x+14 Jest Argument -3 ???")

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

if s == 2 then

 

say("Ta Odpowiedz Jest")

 

say_reward("Nieprawdziwa")

set_state(__COMPLETE__)

 

end

 

 

 

 

elseif s == 1 then

say("Ta Odpowiedz Jest")

 

say("Prawdziwa")

pc.change_money(300000)

pc.give_exp2(5000000)

 

 

end

end

 

 

state __COMPLETE__ begin

end

[wojtek109]

ponawiam prośbe.

[wojtek109]

A Możesz Mi Go Przerobić Żeby Dzial I Żeby Octavio Zadawał Re Pytania

Suchemu Napisałem Ale Nie Umiał Mi Go Przerobić....