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

[Tutorial]+[Quest]Podzielenia Questa Na Czesc Meska I Zenska

ziuto

Przez ziuto
w Metin2 - Tutoriale i Download

Informacja  

23 użytkowników zagłosowało

  1. 1. Czy temat okazal sie przydatny ??

  2. 2. Czy quest podany wprzykladzie wykorzystacie do serwa ??

Rekomendowane odpowiedzi

ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

Pokaze wam dzis jak podzielic quest na czesc meska i zenska

 

o to wzor questa


quest nazwa_questa begin
state start begin
when jak_i_kiedy begin

local m_sex = pc.get_sex()

if m_sex == 0 then
----------------------- Czesc questa dla pleci meskiej
else
----------------------- Czesc questa dla pleci zenskiej
end
end
end
end














nazwa_questa - wpisujesz nazwe swojego questa


jak_i_kiedy - wpisujesz kiedy ma dzialac quest


----------------------- Czesc questa dla pleci meskiej - tu wpisujesz quest dotyczacy pleci meskiej


----------------------- Czesc questa dla pleci zenskiej - tu wpisujesz quest dotyczacy pleci zenskiej


 


i to by bylo na tyle mozna zastosowac do wszystkiego


 


A tutaj dam przyklad questa by me














--------------------------------------------------------------------------------------------
-------------------------------------- quest by ziuto --------------------------------------
-------------------------------- quest for user mpcforum.pl --------------------------------
--------------------------------------- poziom quest ---------------------------------------
--------------------------------------------------------------------------------------------
quest poziom begin
        state start begin
        when levelup with pc.level >= 70 and pc.level <= 255 begin
                local z = pc.get_level()-1
                local na = pc.get_level()
                local nick = pc.get_name()

				local m_sex = pc.get_sex()

				if m_sex == 0 then
        notice_all( "Pan "..nick.." awansowal z "..z.." poziomu na "..na.." poziom !" )
        notice_all( "Gratulujemy ci "..nick.." !" )
				else
        notice_all( "Pani "..nick.." awansowala z "..z.." poziomu na "..na.." poziom !" )
        notice_all( "Gratulujemy ci "..nick.." !" )
				end
        end
        end
end
















Zakaz kopiowania na inne fora !!!




Mam nadzieje ze sie wam przyda 

:)






			
		


		

		
			

	

		

		

			








 


;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









		

	


		
	


	
    


	




					
					
						



	
	



					
					
				

					

					
					







					
					
					
				

					

					
					







	

	

	

		

			

				


	
		Jobis
	

				
				
					
						
Budowniczy
					
				
			

		

		

			

				


Jobis
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Budowniczy
		
		




Jobis
			
		



		




	

		

			

				
    
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   Opublikowano 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
Ja tam o tym już wiedziałem, ale podoba mi się, że to opisałeś - innym się może przydać, szczególnie początkującym "writer'om" questów :P


Ode mnie masz: add.png Nie delete.png" :D



			
		


		

		
			

	

		

		

			65994253024037513199.png
		

	


		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   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









		

	


		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   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









		

	


		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		T-00
	

				
				
					
						
Bywalec
					
				
			

		

		

			

				


T-00
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Bywalec
		
		




T-00
			
		



		




	

		

			

				
    
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   Opublikowano 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
Mała rzecz, a cieszy. Z pewnością przyda się innym przy pisaniu questów, także innych niż informacje o levelup'ie. :)


			
		


		

		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		xDeStRuCtx
	

				
				
					
						
Legenda
					
				
			

		

		

			

				


xDeStRuCtx
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Legenda
		
		




xDeStRuCtx
			
		



		




	

		

			

				
    
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   Opublikowano 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
można tak robić z każdą funkcją to żadna nowość ;o to tak samo jak z prostymi zmiennymi np.:




czesc questa
local s=select("asd", "assdd")
if s==1 then
else return







nic nowego, najbanalniejsze co moze byc ;x w kazdym jezyku programowania jest cos takiego jak if...


wiele razy bylo wyjasniane ;x



			
		


		

		
			

	

		

		

			

 

		

	


		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   Opublikowano 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
@up :


jakos nikt na to nie w padl ja tylko napisalem jak zrobic + maly quest


@up2:


dalem przyklad wykorzystania funkcji w quescie



			
		


		

		
			

	

		

		

			








 


;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









		

	


		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		Qwaq
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


Qwaq
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




Qwaq
			
		



		




	

		

			

				
    
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   Opublikowano 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
Co do tematyki-Każdy kto pisze questy powinien to wiedzieć,ale są także tacy co tylko takie proste rzeczy robią  ^_^


Tutorial-Dobrze zrobiony i przejrzysty


Ogólnie to oceniam dla początkujących na 10/10



			
		


		

		
			

	

		

		

			
GG:5542533


Bez jakichkolwiek danych,proszę nie pisać w sprawie pomocy...


		

	


		
	


	
    


	




					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   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









		

	


		
	


	
    


	




					
					
					
				

					

					
					







					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   Opublikowano 
		   
			
			
				
				
			
		

	


	

    

	

		
		

			
nie 


spojrz to local m_sex


to jest pc.get_sex() 


czyli obie plecie mozesz 


wpisac cos chczesz np


 


                                local sex = pc.get_sex()


 


                                if sex == 0 then



			
		


		

		
			

	

		

		

			








 


;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









		

	


		
	


	
    


	




					
						
    
							
							
								
  • 
									2 tygodnie później...
								
    • 
							
						

					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   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









		

	


		
	


	
    


	




					
						
    
							
							
								
  • 
									2 miesiące temu...
								
    • 
							
						

					
					
					
				

					

					
					







	

	

	

		

			

				


	
		ziuto
	

				
				
					
						
Znawca
					
				
			

		

		

			

				


ziuto
			

			

			    Opublikowano 
				
			

		

	

	
	

		

		
			
Znawca
		
		




ziuto
			
		



		




	

		

			

				
    
					
						
  • Autor
    • 
					
					
					
					
					
				

			

			
    
				
  • 
					
					
      
						
						
                        
						
						
						
							
								
							
							
							
							
							
							
						
					
    
				
    • 
				
			

		


		

		   
		   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









		

	


		
	


	
    


	




					
					
					
				
			
			



		

	


	
	
	
		

			
Zarchiwizowany

			

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

		

	
	
	

	







	

		
			
				Tematy
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Dodaj nową pozycję...
    •