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

Duży Lotek


Rekomendowane odpowiedzi

Opublikowano

No to tak z edytowalem Quest Mini-Lotto od

xDeStRuCtx

By przypominal bardziej prawdziwego Totolotka.

Tresc questa :
--------------------------------------------------------------------------------------------
------------------------------------ quest by xDeStRuCtx -----------------------------------
-------------------------------------- Edited by ziuto -------------------------------------
---------------------------------------- lotek quest ---------------------------------------
--------------------------------------------------------------------------------------------
quest lotek begin
state start begin
when 9003.chat."Duży lotek" begin
if get_time() >= pc.getqf("tajm") then
say_title("Witaj " .. pc . name .. "")
say("[ENTER]Czy chcesz zagrać w Dużego lotka ?[ENTER]")
local s=select("Tak", "Nie")
if s==1 then
say_title("Pani od Totolotka :")
say("[ENTER]Aby zagrać w Dużego lotka ,[ENTER]trzeba wpłacić 2000000 Yang.")
say("Losawać można co dwie godziny.")
say("Wybrane liczby musza byc od 1 do 36.")
say("Aby cos wygrać trzeba trafić przynajmniej 3 liczby.")
say("Wygrać można olbrzymią ilość Yang.")
say("[ENTER]Czy chczesz wziąć udział w losowaniu ?[ENTER]")
local s=select("Tak", "Rezyguje")
if s==1 then
if pc.money<2000000 then
say_title("Pani od Totolotka :")
say("[ENTER]Nie masz 20000000 Yang.[ENTER]")
else
pc.setqf("juz", 1)
pc.changemoney(-2000000)
say_title("Pani od Totolotka :")
say("[ENTER]A więc tak ,[ENTER]wybierz sześć liczb.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 1 :[ENTER]")
local jeden = tonumber(input(""))
say_title("Wpisz")
say("[ENTER]Liczbe numer 2 :[ENTER]")
local dwa = tonumber(input(""))
say_title("Wpisz")
say("[ENTER]Liczbe numer 3 :[ENTER]")
local trzy = tonumber(input(""))
say_title("Wpisz")
say("[ENTER]Liczbe numer 4 :[ENTER]")
local cztery = tonumber(input(""))
say_title("Wpisz")
say("[ENTER]Liczbe numer 5 :[ENTER]")
local piec = tonumber(input(""))
say_title("Wpisz")
say("[ENTER]Liczbe numer 6 :[ENTER]")
local szesc = tonumber(input(""))
local jeeden = number(1, 36)
local dwaa = number(1, 36)
local trzyy = number(1, 36)
local czteryy = number(1, 36)
local pieec = number(1, 36)
local szescc = number(1, 36)
say_title("Pani od Totolotka :")
say("[ENTER]Twoje liczby to :[ENTER]")
say_reward(jeden.." , "..dwa.." , "..trzy.." , "..cztery.." , "..piec.." , "..szesc.."")
say("[ENTER]Wylosowane liczby to :[ENTER]")
say_reward(jeeden.." , "..dwaa.." , "..trzyy.." , "..czteryy.." , "..pieec.." , "..szescc.."[ENTER]")
if jeden == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
wait()
say_title("Pani od Totolotka :")
local aaa = number(1000000, 20000000)
local bbb = number(50000000, 100000000)
local ccc = number(200000000, 500000000)
local ddd = number(1000000000, 1999999999)
if pc.getqf("ilosc")==0 then
say("[ENTER]Nie udało Ci się żadnej liczby trafić ![ENTER]")
end
if pc.getqf("ilosc")==1 then
say("[ENTER]Trafiono tylko jedną liczbe.[ENTER]")
end
if pc.getqf("ilosc")==2 then
say("[ENTER]Trafiono dwie liczby.[ENTER]")
end
if pc.getqf("ilosc")==3 then
say("[ENTER]Trafiono trzy liczby.[ENTER]")
say_reward("Otrzymujesz "..aaa.." Yang.[ENTER]")
pc . change_money(aaa)
end
if pc.getqf("ilosc")==4 then
say("[ENTER]Trafiono cztery liczby.[ENTER]")
say_reward("Otrzymujesz "..bbb.." Yang.[ENTER]")
pc . change_money(bbb)
end
if pc.getqf("ilosc")==5 then
say("[ENTER]Trafiono pięć liczb.[ENTER]")
say_reward("Otrzymujesz "..ccc.." Yang.[ENTER]")
pc . change_money(ccc)
end
if pc.getqf("ilosc")==6 then
say("[ENTER]Trafiono aż sześć liczb.[ENTER]")
say("Serdeczne Gratulacje.[ENTER]")
say_reward("Otrzymujesz "..ddd.." Yang.[ENTER]")
pc . change_money(ddd)
end
end
pc.setqf("ilosc", 0)
pc.setqf("tajm", get_time()+7200)
elseif 2==s then
say_title("Pani od Totolotka :")
say("[ENTER]To przyjdz tu jak bedziesz pewny że chczesz losować.[ENTER]")
end
elseif 2==s then
say_title("Pani od Totolotka :")
say("[ENTER]Nie to nie.[ENTER]")
end
else
say_title("Pani od Totolotka :")
say("[ENTER]Nie mineły jeszcze dwie godziny ![ENTER]")
end
end
end
end

 

Po kliknieciu na npc 9003 ( Pomocnik zdarzen ) wyswietli nam sie przycisk Duzy lotek ,

potem gdy dalej wejdziemy pokaze sie nam okno z instrukcja.

 

@EDIT : wystarczy przeczytac poczatek questa w nim jest intruckja ( a dokladniej od 10 linijki nie liczac stopki )

@EDIT2 : Mozna dodac nagrode i za 2 liczby trafione ale ja wzorowalem sie na prawdziwym totolotku

 

;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


Opublikowano

@Up

1. Dodana "losowość" nagrody.

2. Zmieniony czas oddawania z 1h na 2h

3. zamiast 5 liczb jest ich 6 i są losowane z puli 1-36, a nie 1-30

4. NAJWAŻNIEJSZE- dopisanie formułki "-------------------------------------- Edited by ziuto -------------------------------------"

 

;>

 

Wg mnie to nie ma sensu, gdyż trafienie 3 z 6 numerków od 1 do 36, jest równe dosłownie kilku procentom ;x


 

Opublikowano

@Refresh

 

;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


Opublikowano

@Up

Jak zwykle najmądrzejszy -.-

 

To tylko gra, a lotto ma być tylko podstawką loterii ;x Przecież można zrobić coś takiego, że codziennie o xx godzinie odbywa się losowanie, tylko pytanie: po co? ;x


 

Opublikowano

@Up

Jak zwykle najmądrzejszy -.-

 

To tylko gra, a lotto ma być tylko podstawką loterii ;x Przecież można zrobić coś takiego, że codziennie o xx godzinie odbywa się losowanie, tylko pytanie: po co? ;x

Dla beki na przykład.

Skoro już tak się rozdrabniać na 6 liczb, cuda wianki to zawsze można dodać losowanie o danej godzinie, dzielenie nagrody, kumulacje etc.

Opublikowano

@up kiedys chcialem cos takiego zrobic ale nieumialem cud ze juz tyle jest

 

;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


Opublikowano

Nie krytykuje, pochwale, bo sam lepszego nie zrobię ;)

 

Świetna robota panowie. Panowie, ponieważ tak jakby napisaliście go razem ;)

Opublikowano

@UP

hahah, razem? sorry, ale nie mogłem się powstrzymać przed napisaniem tego posta.

 

Co on zrobił? Dodał losowanie jednej liczby wzorując się na moim queście, zmienił say`e i dodał losowość nagrody(funkcją użytą już wcześniej w queście) ... Wybacz, ale ja tu żadnej współpracy nie widzę ;)

 

@Xavi

 

Pobawię się z tym kiedyś, w wolnym czasie i coś takiego napiszę ;)


 

Opublikowano

@Refresh

 

;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


Opublikowano

@UP : nie to samo jest jakas roznica moze nie jak sie patrzy na quest ale dla tych wgrze to jest duza roznica bo moga wygrac olbrzymia ilosc yang a nie kamien duchowy

 

;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


  • 4 tygodnie później...
Opublikowano

@Refresh

 

;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


Opublikowano

Fajna sprawa =]

Chociaż raz, coś z życia wzięte.

 

 

+

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

  • 3 tygodnie później...
Opublikowano

@Refresh

 

;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


Opublikowano

Ten quest nie jest dopracowany.

Jeśli jako pierwszą liczbę wybiorę np: 2 jako drugą, trzecią, czwartą, piątą i szóstą też 2 i zostanie wylosowana liczba 2 to trafiłem sześć liczb i dostaję nagrodę jak bym trafił szóstkę.

cavcav.png

  • 3 tygodnie później...
Opublikowano

@UP : nie ja tworzylem ten quest wiec nie wiedzialem o tym bugu..

teraz mialem troche czasu to chyba to dopracowalem ale nie wiem czy zadziala bo nie mam serwa

wiec czy moglby ktos sprawdzic wersje tego questa bez bugu

--------------------------------------------------------------------------------------------
------------------------------------ quest by xDeStRuCtx -----------------------------------
-------------------------------------- Edited by ziuto -------------------------------------
---------------------------------------- lotek quest ---------------------------------------
--------------------------------------------------------------------------------------------
quest lotek begin
state start begin
when 9003.chat."Duży lotek" begin
if get_time() >= pc.getqf("tajm") then
say_title("Witaj " .. pc . name .. "")
say("[ENTER]Czy chcesz zagrać w Dużego lotka ?[ENTER]")
local s=select("Tak", "Nie")
if s==1 then
say_title("Pani od Totolotka :")
say("[ENTER]Aby zagrać w Dużego lotka ,[ENTER]trzeba wpłacić 2000000 Yang.")
say("Losawać można co dwie godziny.")
say("Wybrane liczby musza byc od 1 do 36.")
say("Aby cos wygrać trzeba trafić przynajmniej 3 liczby.")
say("Wygrać można olbrzymią ilość Yang.")
say("[ENTER]Czy chczesz wziąć udział w losowaniu ?[ENTER]")
local s=select("Tak", "Rezyguje")
if s==1 then
if pc.money<2000000 then
say_title("Pani od Totolotka :")
say("[ENTER]Nie masz 20000000 Yang.[ENTER]")
else
pc.setqf("juz", 1)
pc.changemoney(-2000000)
say_title("Pani od Totolotka :")
say("[ENTER]A więc tak ,[ENTER]wybierz sześć liczb.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 1 :[ENTER]")
local jeden = tonumber(input("")) 
if jeden >= 1 and  jeden <= 36 then
else
say_title("Pani od Totolotka :")
say("[ENTER]Wpisano nie dozwoląną liczbe.[ENTER]Wpisz ją jeszcze raz.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 1 :[ENTER]")
local jeden = tonumber(input("")) 
end
say_title("Wpisz")
say("[ENTER]Liczbe numer 2 :[ENTER]")
local dwa = tonumber(input(""))
if dwa >= 1 and dwa <= 36 and dwa <> jeden then
else
say_title("Pani od Totolotka :")
say("[ENTER]Wpisano nie dozwoląną liczbe.[ENTER]Wpisz ją jeszcze raz.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 2 :[ENTER]")
end
say_title("Wpisz")
say("[ENTER]Liczbe numer 3 :[ENTER]")
local trzy = tonumber(input(""))
if trzy >= 1 and trzy <= 36 and  trzy <> jeden and trzy <> dwa then
else
say_title("Pani od Totolotka :")
say("[ENTER]Wpisano nie dozwoląną liczbe.[ENTER]Wpisz ją jeszcze raz.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 3 :[ENTER]")
local trzy = tonumber(input(""))
end
say_title("Wpisz")
say("[ENTER]Liczbe numer 4 :[ENTER]")
local cztery = tonumber(input(""))
if cztery >= 1 and cztery <= 36 and cztery <> jeden and cztery <> dwa and cztery <> trzy then
else
say_title("Pani od Totolotka :")
say("[ENTER]Wpisano nie dozwoląną liczbe.[ENTER]Wpisz ją jeszcze raz.[ENTER]")
wait()
say("[ENTER]Liczbe numer 4 :[ENTER]")
local cztery = tonumber(input(""))
end
say_title("Wpisz")
say("[ENTER]Liczbe numer 5 :[ENTER]")
local piec = tonumber(input(""))
if piec >= 1 and piec <= 36 and piec <> jeden and piec <> dwa and piec <> trzy and piec <> cztery then
else
say_title("Pani od Totolotka :")
say("[ENTER]Wpisano nie dozwoląną liczbe.[ENTER]Wpisz ją jeszcze raz.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 5 :[ENTER]")
local piec = tonumber(input(""))
end
say_title("Wpisz")
say("[ENTER]Liczbe numer 6 :[ENTER]")
local szesc = tonumber(input(""))
if szesc >= 1 and szesc <= 36 and szesc <> jeden and szesc <> dwa and szesc <> trzy and szesc <> cztery and szesc <> piec then
else
say_title("Pani od Totolotka :")
say("[ENTER]Wpisano nie dozwoląną liczbe.[ENTER]Wpisz ją jeszcze raz.[ENTER]")
wait()
say_title("Wpisz")
say("[ENTER]Liczbe numer 6 :[ENTER]")
local szesc = tonumber(input(""))
end
local jeeden = number(1, 36)
local dwaa = number(1, 36)
local trzyy = number(1, 36)
local czteryy = number(1, 36)
local pieec = number(1, 36)
local szescc = number(1, 36)
say_title("Pani od Totolotka :")
say("[ENTER]Twoje liczby to :[ENTER]")
say_reward(jeden.." , "..dwa.." , "..trzy.." , "..cztery.." , "..piec.." , "..szesc.."")
say("[ENTER]Wylosowane liczby to :[ENTER]")
say_reward(jeeden.." , "..dwaa.." , "..trzyy.." , "..czteryy.." , "..pieec.." , "..szescc.."[ENTER]")
if jeden == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if jeden == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if dwa == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if trzy == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if cztery == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if piec == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == jeeden then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == dwaa then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == trzyy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == czteryy then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == pieec then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
if szesc == szescc then
pc.setqf("ilosc", pc.getqf("ilosc")+1)
end
wait()
say_title("Pani od Totolotka :")
local aaa = number(1000000, 20000000)
local bbb = number(50000000, 100000000)
local ccc = number(200000000, 500000000)
local ddd = number(1000000000, 1999999999)
if pc.getqf("ilosc")==0 then
say("[ENTER]Nie udało Ci się żadnej liczby trafić ![ENTER]")
end
if pc.getqf("ilosc")==1 then
say("[ENTER]Trafiono tylko jedną liczbe.[ENTER]")
end
if pc.getqf("ilosc")==2 then
say("[ENTER]Trafiono dwie liczby.[ENTER]")
end
if pc.getqf("ilosc")==3 then
say("[ENTER]Trafiono trzy liczby.[ENTER]")
say_reward("Otrzymujesz "..aaa.." Yang.[ENTER]")
pc . change_money(aaa)
end
if pc.getqf("ilosc")==4 then
say("[ENTER]Trafiono cztery liczby.[ENTER]")
say_reward("Otrzymujesz "..bbb.." Yang.[ENTER]")
pc . change_money(bbb)
end
if pc.getqf("ilosc")==5 then
say("[ENTER]Trafiono pięć liczb.[ENTER]")
say_reward("Otrzymujesz "..ccc.." Yang.[ENTER]")
pc . change_money(ccc)
end
if pc.getqf("ilosc")==6 then
say("[ENTER]Trafiono aż sześć liczb.[ENTER]")
say("Serdeczne Gratulacje.[ENTER]")
say_reward("Otrzymujesz "..ddd.." Yang.[ENTER]")
pc . change_money(ddd)
end
end
pc.setqf("ilosc", 0)
pc.setqf("tajm", get_time()+7200)
elseif 2==s then
say_title("Pani od Totolotka :")
say("[ENTER]To przyjdz tu jak bedziesz pewny że chczesz losować.[ENTER]")
end
elseif 2==s then
say_title("Pani od Totolotka :")
say("[ENTER]Nie to nie.[ENTER]")
end
else
say_title("Pani od Totolotka :")
say("[ENTER]Nie mineły jeszcze dwie godziny ![ENTER]")
end
end
end
end

 

;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


  • 1 miesiąc temu...
Opublikowano

@Refresh

 

;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


  • 1 miesiąc temu...
Opublikowano

Zaraz go sprawdze i dam edit

 

 

@edit nie działa

 

 

Błąd jest

 

W maszynie pisze takie coś

 

syntax error : [string ''start'']:39: unexpeceted symbol near '>' lotek.quest:272:Abort (core dumped )

  • 9 miesięcy temu...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...