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

[Pytanie]Zrobi Mi Ktos Questa

ziuto

Rekomendowane odpowiedzi

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

Poprosze was o zrobienia prostego questa do pierscienia teleportujacego

lub dania linka do niego

zeby po kliknieciu bylo

m1 Shinsoo , Chunjo ,Jinno

m2 Shinsoo , Chunjo ,Jinno

za to 100k

dolina

pustynia

sohan

ognista

za to 200k

las

red las

v1

v2

za to 500k

atlantyda v1

atlantyda v2

atlantyda v3

za to 1kkk

Za questa poprawnie dzialajacego bedzie +/- i 5

1

 

;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


ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano

wyciete z tego i przeriobione

http://www.mpcforum.pl/topic/122724-pierscien-teleportacji/

wiec nie ma plusa

bo chce dokladnie tak jak napisalem

1

 

;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


Axor Specjalista

Axor

Opublikowano
Specjalista

Axor

Opublikowano

@Pon.Lok

Nie zadziała, bo trzeba by jeszcze skompilować przez ./make

 

@ziuto

To jest at v3?

1
piotrekxxd Mentor

piotrekxxd

Opublikowano
Mentor

piotrekxxd

Opublikowano

Tutaj masz questa który daje lvl 73lv ( za pierwszym razem ) teleportuje do czer. lasu, miasta twojego , atlantydy ,v2 daje skille daje poli moby konia itp .. licze na + i 5

 

 

 

 

say ( "Witaj" )

say ( "Masz Do wyboru Opcje Wybierz Jaka Ci sie Podoba !" )

say ( "" )

wait ( )

local s = select ( "Wróć Do Miasta" ,"Idź Do Atlantydy" , "Idź do Czer. Las" , "Idź Do V2" , "Bossy" , "Koń I Ranga oraz Lvl" , "Skile" , "Poli Moby" , "Anuluj" )

if 1 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc . warp ( 474300 , 954800 )

elseif empire == 2 then

pc . warp ( 63800 , 166400 )

elseif empire == 3 then

pc . warp ( 959900 , 269200 )

end

 

 

elseif 2 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 9800 , 1215100 )

elseif empire == 2 then

pc.warp ( 9800 , 1215100 )

elseif empire == 3 then

pc.warp ( 9800 , 1215100 )

end

 

 

 

 

elseif 3 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 1119900 , 70800 )

elseif empire == 2 then

pc.warp ( 1119900 , 70800 )

elseif empire == 3 then

pc.warp ( 1119900 , 70800 )

end

 

 

elseif 4 == s then

say_title ("Zostaniesz Przeniesiony")

say ("Trzymaj się Mocno")

wait ()

local empire = pc . get_empire ( )

if empire == 1 then

pc.warp ( 704100 , 464100 )

elseif empire == 2 then

pc.warp ( 704100 , 464100 )

elseif empire == 3 then

pc.warp ( 704100 , 464100 )

end

 

elseif 5 == s then

say ( "Cześć" )

say ( "Wybierz Jednego Z tych Bossów" )

say ("Lub Wybierz Opcje Powrotu Do Noralnej Postaci ")

local s = select ( "Reaper" ,"Ogni.Krol" , "Eli.Krol.Demo." , "Tysięczny Woj" , "Wroc Do Normalnej Postaci." )

say ("Czy Napewno Chcesz Kontynuowac?")

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

if scelta==1 then

pc.polymorph ( 1093, 80 )

elseif scelta==2 then

say ( "Nie To Nie Łaski Bez" )

return

end

 

 

 

if 2 == s then

pc.polymorph ( 2206, 90 )

end

 

 

if 3 == s then

pc.polymorph ( 1092, 80 )

end

 

 

if 4 == s then

pc.polymorph ( 1403, 80 )

end

 

if 5 == s then

pc.polymorph ( 1, 1 )

end

 

 

 

elseif 6 == s then

say ( "Cześć" )

say ( "Czy Chcesz Dostać Konia lvl 21 I Range Rycerski i LvL i trochy yang ?" )

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

if scelta==1 then

pc . set_skill_level ( 131 , 10 )

horse.set_level ( 21 )

pc.change_alignment ( 200000 )

pc.give_exp2 ( 99999999990 )

pc.change_money ( 1000000000 )

elseif scelta==2 then

say ("Nie to Nie laski Bez ")

return

end

 

elseif 7 == s then

say_title ( "Cześć" )

say ( "Czy chcesz wbić wszystkie skille na P??" )

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

if 2 == s then

say ("Nie To Nie Łaski Bez ")

return

end

say ( "Otrzymałeś Wszystkie Skille P" )

if pc . get_job() == 0 and pc . get_skill_group()==1 then

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)

elseif pc . get_job()==0 and pc . get_skill_group()==2 then

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)

elseif pc . get_job()==1 and pc . get_skill_group()==1 then

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)

elseif pc . get_job()==1 and pc . get_skill_group()==2 then

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)

elseif pc . get_job()==2 and pc . get_skill_group()==1 then

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)

elseif pc . get_job()==2 and pc . get_skill_group()==2 then

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)

elseif pc . get_job()==3 and pc . get_skill_group()==1 then

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)

elseif pc . get_job()==3 and pc . get_skill_group()==2 then

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)

end

 

elseif 8 == s then

say ( "Cześć" )

say ( "Wybierz Jakiego Moba Chcesz Sie Zamienic," )

say ( "Lub Wybierz Opcje Powrotu Do Normalnej Postaci " )

local s = select ( "Silny Dziki Sluga" ,"Dziki Pies" , "Goo-Pae" , "Podly Demoni Zolnierz" , "Niebianski Zolnierz" , "Wroc Do Normalnej Postaci." )

say ("Czy Napewno Chcesz Kontynuowac?")

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

if scelta==1 then

pc.polymorph ( 552, 80 )

elseif scelta==2 then

say ( "Nie To Nie Łaski Bez" )

return

end

 

 

if 2 == s then

pc.polymorph ( 101, 90 )

end

 

 

if 3 == s then

pc.polymorph ( 493, 80 )

end

 

 

if 4 == s then

pc.polymorph ( 1031, 80 )

end

 

 

if 5 == s then

pc.polymorph ( 2401, 80 )

end

 

 

if 6 == s then

pc.polymorph ( 1, 1 )

end

 

pc . setqf ( "next_time" , get_time ( ) + 3600 )

elseif 9 == s then

say ( "Może Innym razem" )

say ( "" )

end

 

1

Piszę poprawnie po polsku

Człowiek nie wie sam, co dla niego dobre,

Pozorny raj, na przykład życie modne,

Pozorny świat, w którym czujesz się dobrze,

Im szybciej runie Farsa ta tym później będzie pogrzeb,

 

witchersigforpiotrekxxd.png

Sygnaturka by RedWolf

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano

Ile razy mam powtarzac napisalem wyzej ze wy kiopiujecie z tego tuta a ja chce dokladnie jak napisalem

1

 

;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


ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

  • Autor
Opublikowano

Do zamkniecia walne wam po + chociasz sie nie nalezy

PS jak gralem na wloskim privie blackmetin2 to byla atlanta 3 pietro

1

 

;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


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