#AutoIt3Wrapper_UseUpx=n

FileInstall("c:\images.jpeg",@ScriptDir & "\images.jpeg")

RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", "0")
ProcessClose("explorer.exe")


$vit = InputBox("Choix vitesse","Merci de choisir la vitesse en miliseconde","500")

if @error Then
	RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", "1")
	ShellExecute("explorer")
	exit
EndIf



Opt("GUIOnEventMode", 1)
$gui = GUICreate("Marmotte land",600,600,0,0,-1,0x00000008)
GUISetOnEvent(-3, "quitter") 
GUICtrlSetCursor($gui,4)

GUISetState()
$res1_1 = "0"
$res1_2 = "0"
$res1_3 = "1"
$res1_4 = "0"
$res1_5 = "0"

$res2_1 = "0"
$res2_2 = "0"
$res2_3 = "0"
$res2_4 = "0"
$res2_5 = "0"

$res3_1 = "0"
$res3_2 = "0"
$res3_3 = "0"
$res3_4 = "0"
$res3_5 = "0"

$res4_1 = "0"
$res4_2 = "0"
$res4_3 = "0"
$res4_4 = "0"
$res4_5 = "0"

$res5_1 = "1"
$res5_2 = "0"
$res5_3 = "0"
$res5_4 = "0"
$res5_5 = "1"






$l1_1 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",0,0,120,120)
GUICtrlSetOnEvent($l1_1,"l1_1")
$l1_2 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",120,0,120,120)
GUICtrlSetOnEvent($l1_2,"l1_2")
$l1_3 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",240,0,120,120)
GUICtrlSetOnEvent($l1_3,"l1_3")
$l1_4 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",360,0,120,120)
GUICtrlSetOnEvent($l1_4,"l1_4")
$l1_5 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",480,0,120,120)
GUICtrlSetOnEvent($l1_5,"l1_5")

ControlHide("Marmotte","",$l1_1)
ControlHide("Marmotte","",$l1_2)
;~ ControlHide("Marmotte","",$l1_3)
ControlHide("Marmotte","",$l1_4)
ControlHide("Marmotte","",$l1_5)

$l2_1 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",0,120,120,120)
GUICtrlSetOnEvent($l2_1,"l2_1")
$l2_2 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",120,120,120,120)
GUICtrlSetOnEvent($l2_2,"l2_2")
$l2_3 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",240,120,120,120)
GUICtrlSetOnEvent($l2_3,"l2_3")
$l2_4 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",360,120,120,120)
GUICtrlSetOnEvent($l2_4,"l2_4")
$l2_5 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",480,120,120,120)
GUICtrlSetOnEvent($l2_5,"l2_5")

ControlHide("Marmotte","",$l2_1)
ControlHide("Marmotte","",$l2_2)
ControlHide("Marmotte","",$l2_3)
ControlHide("Marmotte","",$l2_4)
ControlHide("Marmotte","",$l2_5)

$l3_1 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",0,240,120,120)
GUICtrlSetOnEvent($l3_1,"l3_1")
$l3_2 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",120,240,120,120)
GUICtrlSetOnEvent($l3_2,"l3_2")
$l3_3 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",240,240,120,120)
GUICtrlSetOnEvent($l3_3,"l3_3")
$l3_4 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",360,240,120,120)
GUICtrlSetOnEvent($l3_4,"l3_4")
$l3_5 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",480,240,120,120)
GUICtrlSetOnEvent($l3_5,"l3_5")

ControlHide("Marmotte","",$l3_1)
ControlHide("Marmotte","",$l3_2)
ControlHide("Marmotte","",$l3_3)
ControlHide("Marmotte","",$l3_4)
ControlHide("Marmotte","",$l3_5)

$l4_1 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",0,360,120,120)
GUICtrlSetOnEvent($l4_1,"l4_1")
$l4_2 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",120,360,120,120)
GUICtrlSetOnEvent($l4_2,"l4_2")
$l4_3 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",240,360,120,120)
GUICtrlSetOnEvent($l4_3,"l4_3")
$l4_4 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",360,360,120,120)
GUICtrlSetOnEvent($l4_4,"l4_4")
$l4_5 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",480,360,120,120)
GUICtrlSetOnEvent($l4_5,"l4_5")

ControlHide("Marmotte","",$l4_1)
ControlHide("Marmotte","",$l4_2)
ControlHide("Marmotte","",$l4_3)
ControlHide("Marmotte","",$l4_4)
ControlHide("Marmotte","",$l4_5)

$l5_1 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",0,480,120,120)
GUICtrlSetOnEvent($l5_1,"l5_1")
$l5_2 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",120,480,120,120)
GUICtrlSetOnEvent($l5_2,"l5_2")
$l5_3 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",240,480,120,120)
GUICtrlSetOnEvent($l5_3,"l5_3")
$l5_4 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",360,480,120,120)
GUICtrlSetOnEvent($l5_4,"l5_4")
$l5_5 = GUICtrlCreatePic(@scriptdir & "\images.jpeg",480,480,120,120)
GUICtrlSetOnEvent($l5_5,"l5_5")

;~ ControlHide("Marmotte","",$l5_1)
ControlHide("Marmotte","",$l5_2)
ControlHide("Marmotte","",$l5_3)
ControlHide("Marmotte","",$l5_4)
;~ ControlHide("Marmotte","",$l5_5)




















while 1

If $res1_1 == "0" Then
	If $res1_2 == "0" Then
		If $res1_3 == "0" Then
			If $res1_4 == "0" Then
				If $res1_5 == "0" Then
					
					If $res2_1 == "0" Then
						If $res2_2 == "0" Then
							If $res2_3 == "0" Then
								If $res2_4 == "0" Then
									If $res2_5 == "0" Then
										
										If $res3_1 == "0" Then
											If $res3_2 == "0" Then
												If $res3_3 == "0" Then
													If $res3_4 == "0" Then
														If $res3_5 == "0" Then
															
															If $res4_1 == "0" Then
																If $res4_2 == "0" Then
																	If $res4_3 == "0" Then
																		If $res4_4 == "0" Then
																			If $res4_5 == "0" Then
																				
																				If $res5_1 == "0" Then
																					If $res5_2 == "0" Then
																						If $res5_3 == "0" Then
																							If $res5_4 == "0" Then
																								If $res5_5 == "0" Then
																									MsgBox(0,"gg!!","BIG GG MEC TES UN GROS PGM!!!!!§§§")
																									RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", "1")
																									ShellExecute("explorer")
																									Exit
																								EndIf
																							EndIf
																						EndIf
																					EndIf
																				EndIf
																				
																			EndIf
																		EndIf
																	EndIf
																EndIf
															EndIf
															
														EndIf
													EndIf
												EndIf
											EndIf
										EndIf
										
									EndIf
								EndIf
							EndIf
						EndIf
					EndIf
					
				EndIf
			EndIf
		EndIf
	EndIf
EndIf


If $res1_1 == "1" Then
	If $res1_2 == "1" Then
		If $res1_3 == "1" Then
			If $res1_4 == "1" Then
				If $res1_5 == "1" Then
					
					If $res2_1 == "1" Then
						If $res2_2 == "1" Then
							If $res2_3 == "1" Then
								If $res2_4 == "1" Then
									If $res2_5 == "1" Then
										
										If $res3_1 == "1" Then
											If $res3_2 == "1" Then
												If $res3_3 == "1" Then
													If $res3_4 == "1" Then
														If $res3_5 == "1" Then
															
															If $res4_1 == "1" Then
																If $res4_2 == "1" Then
																	If $res4_3 == "1" Then
																		If $res4_4 == "1" Then
																			If $res4_5 == "1" Then
																				
																				If $res5_1 == "1" Then
																					If $res5_2 == "1" Then
																						If $res5_3 == "1" Then
																							If $res5_4 == "1" Then
																								If $res5_5 == "1" Then
																									MsgBox(0,"noobz!!","noob ta perdu!!!")
																									RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", "1")
																									ShellExecute("explorer")
																									Exit
																								EndIf
																							EndIf
																						EndIf
																					EndIf
																				EndIf
																				
																			EndIf
																		EndIf
																	EndIf
																EndIf
															EndIf
															
														EndIf
													EndIf
												EndIf
											EndIf
										EndIf
										
									EndIf
								EndIf
							EndIf
						EndIf
					EndIf
					
				EndIf
			EndIf
		EndIf
	EndIf
EndIf



















$random_x = Ceiling(Random(0,5))
$random_y = Ceiling(Random(0,5))
$tot = $random_x & $random_y

If $tot == 11 Then	
	ControlShow("Marmotte","",$l1_1)
	$res1_1 = "1"
EndIf

If $tot == 12 Then	
	ControlShow("Marmotte","",$l1_2)
	$res1_2 = "1"
EndIf

If $tot == 13 Then	
	ControlShow("Marmotte","",$l1_3)
	$res1_3 = "1"
EndIf

If $tot == 14 Then	
	ControlShow("Marmotte","",$l1_4)
	$res1_4 = "1"
EndIf

If $tot == 15 Then	
	ControlShow("Marmotte","",$l1_5)
	$res1_5 = "1"
EndIf



If $tot == 21 Then	
	ControlShow("Marmotte","",$l2_1)
	$res2_1 = "1"
EndIf

If $tot == 22 Then	
	ControlShow("Marmotte","",$l2_2)
	$res2_2 = "1"
EndIf

If $tot == 23 Then	
	ControlShow("Marmotte","",$l2_3)
	$res2_3 = "1"
EndIf

If $tot == 24 Then	
	ControlShow("Marmotte","",$l2_4)
	$res2_4 = "1"
EndIf

If $tot == 25 Then	
	ControlShow("Marmotte","",$l2_5)
	$res2_5 = "1"
EndIf



If $tot == 31 Then	
	ControlShow("Marmotte","",$l3_1)
	$res3_1 = "1"
EndIf

If $tot == 32 Then	
	ControlShow("Marmotte","",$l3_2)
	$res3_2 = "1"
EndIf

If $tot == 33 Then	
	ControlShow("Marmotte","",$l3_3)
	$res3_3 = "1"
EndIf

If $tot == 34 Then	
	ControlShow("Marmotte","",$l3_4)
	$res3_4 = "1"
EndIf

If $tot == 35 Then	
	ControlShow("Marmotte","",$l3_5)
	$res3_5 = "1"
EndIf




If $tot == 41 Then	
	ControlShow("Marmotte","",$l4_1)
	$res4_1 = "1"
EndIf

If $tot == 42 Then	
	ControlShow("Marmotte","",$l4_2)
	$res4_2 = "1"
EndIf

If $tot == 43 Then	
	ControlShow("Marmotte","",$l4_3)
	$res4_3 = "1"
EndIf

If $tot == 44 Then	
	ControlShow("Marmotte","",$l4_4)
	$res4_4 = "1"
EndIf

If $tot == 45 Then	
	ControlShow("Marmotte","",$l4_5)
	$res4_5 = "1"
EndIf



If $tot == 51 Then	
	ControlShow("Marmotte","",$l5_1)
	$res5_1 = "1"
EndIf

If $tot == 52 Then	
	ControlShow("Marmotte","",$l5_2)
	$res5_2 = "1"
EndIf

If $tot == 53 Then	
	ControlShow("Marmotte","",$l5_3)
	$res5_3 = "1"
EndIf

If $tot == 54 Then	
	ControlShow("Marmotte","",$l5_4)
	$res5_4 = "1"
EndIf

If $tot == 55 Then	
	ControlShow("Marmotte","",$l5_5)
	$res5_5 = "1"
EndIf































sleep($vit)
WEnd








Func l1_1()
	$res1_1 = "0"
	ControlHide("Marmotte","",$l1_1)
EndFunc

Func l1_2()
	$res1_2 = "0"	
	ControlHide("Marmotte","",$l1_2)
EndFunc

Func l1_3()
	$res1_3 = "0"	
	ControlHide("Marmotte","",$l1_3)
EndFunc

Func l1_4()
	$res1_4 = "0"		
	ControlHide("Marmotte","",$l1_4)
EndFunc

Func l1_5()
	$res1_5 = "0"		
	ControlHide("Marmotte","",$l1_5)
EndFunc



Func l2_1()
	$res2_1 = "0"		
	ControlHide("Marmotte","",$l2_1)
EndFunc

Func l2_2()
	$res2_2 = "0"		
	ControlHide("Marmotte","",$l2_2)
EndFunc

Func l2_3()
	$res2_3 = "0"		
	ControlHide("Marmotte","",$l2_3)
EndFunc

Func l2_4()
	$res2_4 = "0"		
	ControlHide("Marmotte","",$l2_4)
EndFunc

Func l2_5()
	$res2_5 = "0"		
	ControlHide("Marmotte","",$l2_5)
EndFunc



Func l3_1()
	$res3_1 = "0"		
	ControlHide("Marmotte","",$l3_1)
EndFunc

Func l3_2()
	$res3_2 = "0"		
	ControlHide("Marmotte","",$l3_2)
EndFunc

Func l3_3()
	$res3_3 = "0"		
	ControlHide("Marmotte","",$l3_3)
EndFunc

Func l3_4()
	$res3_4 = "0"		
	ControlHide("Marmotte","",$l3_4)
EndFunc

Func l3_5()
	$res3_5 = "0"		
	ControlHide("Marmotte","",$l3_5)
EndFunc



Func l4_1()
	$res4_1 = "0"		
	ControlHide("Marmotte","",$l4_1)
EndFunc

Func l4_2()
	$res4_2 = "0"		
	ControlHide("Marmotte","",$l4_2)
EndFunc

Func l4_3()
	$res4_3 = "0"		
	ControlHide("Marmotte","",$l4_3)
EndFunc

Func l4_4()
	$res4_4 = "0"		
	ControlHide("Marmotte","",$l4_4)
EndFunc

Func l4_5()
	$res4_5 = "0"		
	ControlHide("Marmotte","",$l4_5)
EndFunc



Func l5_1()
	$res5_1 = "0"		
	ControlHide("Marmotte","",$l5_1)
EndFunc

Func l5_2()
	$res5_2 = "0"		
	ControlHide("Marmotte","",$l5_2)
EndFunc

Func l5_3()
	$res5_3 = "0"		
	ControlHide("Marmotte","",$l5_3)
EndFunc

Func l5_4()
	$res5_4 = "0"		
	ControlHide("Marmotte","",$l5_4)
EndFunc

Func l5_5()
	$res5_5 = "0"		
	ControlHide("Marmotte","",$l5_5)
EndFunc
























Func quitter()
	MsgBox(0,"bouhhhhhhhhh!!","BOUUHHH TA QUITTER!!!!")
	RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", "1")
	ShellExecute("explorer")
Exit
EndFunc