; <AUT2EXE VERSION: 3.2.0.1>

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Program Files\ProjectGremBot\ProjectGremBot.au3>
; ----------------------------------------------------------------------------

; <AUT2EXE VERSION: 3.1.1.0>

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------



; version 2006/12/11 - ProjectGremBot
; ------------------------------------------------------------------------------
;
; Project:			The Best Bot For MTGO EVER!!!
; Description:		Trading BOT for MTG Online.
; Author:			Botanic<cyberempires@gmail.com>
;
; ------------------------------------------------------------------------------


; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Program Files\AutoIt3\Include\Date.au3>
; ----------------------------------------------------------------------------

; version 2006/12/11 - 4
; ------------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language:       English
; Description:    Functions that assist with dates and times.
;
; ==============================================================================
; VERSION       DATE       DESCRIPTION
; -------    ----------    -----------------------------------------------------
; v1.01.0.00    01/21/2004    Initial release
; v1.01.0.01    02/05/2004    Fixed: _TicksToTime and _TimeToTicks
; v1.01.0.02    02/06/2004    Fixed: _TicksToTime
; v1.01.0.03    02/12/2004    Added: _DateAdd, _DateDiff, _DateToDayValue, _DayValueToDate
;                                 _DateTimeFormat, _DateToDayOfWeek, _DateIsValid
;                                 _DateTimeSplit, _Now(  ) , _NowTime(  ) , _NowDate(  ) ,_DateDaysInMonth(  ) 
;                                 _DateDayOfWeek(  ) , Nowcalc(  ) 
; v1.01.0.04    12/11/2004    Updated: _DateAdd: change logic to make it faster.
; ------------------------------------------------------------------------------

;===============================================================================
;
; Description:      Calculates a new date based on a given date and add an interval.
; Parameter( s ) :     $sType    D = Add number of days to the given date
;                             M = Add number of months to the given date
;                             Y = Add number of years to the given date
;                             w = Add number of Weeks to the given date
;                             h = Add number of hours to the given date
;                             n = Add number of minutes to the given date
;                             s = Add number of seconds to the given date
;                   $iValToAdd - number to be added
;                   $sDate    - Input date in the format YYYY/MM/DD[ HH:MM:SS]
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Date newly calculated date.
;                   On Failure - 0  and Set
;                                   @ERROR to:  1 - Invalid $sType
;                                                  2 - Invalid $iValToAdd
;                                                  3 - Invalid $sDate
; Author( s ) :        Jos van der Zande
; Note( s ) :          The function will not return an invalid date.
;                   When 3 months is are to 2004/1/31 then the result will be 2004/04/30
;
;
;===============================================================================
Func _DateAdd( $sType, $iValToAdd, $sDate ) 
	Local $asTimePart[4]
	Local $asDatePart[4]
	Local $iJulianDate
	Local $iTimeVal
	Local $iNumDays
	Local $Y
	Local  $dayaddfor2
	; Verify that $sType is Valid
	$sType = StringLeft( $sType, 1 ) 
	If StringInStr( "D,M,Y,w,h,n,s", $sType )  = 0 Or $sType = "" Then
		SetError( 1 ) 
		Return ( 0 ) 
	EndIf
	; Verify that Value to Add  is Valid
	If Not StringIsInt( $iValToAdd )  Then
		SetError( 2 ) 
		Return ( 0 ) 
	EndIf
	; Verify If InputDate is valid
	If Not _DateIsValid( $sDate )  Then
		SetError( 3 ) 
		Return ( 0 ) 
	EndIf
	; split the date and time into arrays
	_DateTimeSplit( $sDate, $asDatePart, $asTimePart ) 

	; ====================================================
	; adding days then get the julian date
	; add the number of day
	; and convert back to Gregorian
	If $sType = "d" Or $sType = "w" Then
		If $sType = "w" Then $iValToAdd = $iValToAdd * 7
		$iJulianDate = _DateToDayValue( $asDatePart[1], $asDatePart[2], $asDatePart[3] )  + $iValToAdd
		_DayValueToDate( $iJulianDate, $asDatePart[1], $asDatePart[2], $asDatePart[3] ) 
	EndIf
	; ====================================================
	; adding Months
	If $sType == "m" Then
		$asDatePart[2] = $asDatePart[2] + $iValToAdd
		; pos number of months
		While $asDatePart[2] > 12
			$asDatePart[2] = $asDatePart[2] - 12
			$asDatePart[1] = $asDatePart[1] + 1
		WEnd
		; Neg number of months
		While $asDatePart[2] < 1
			$asDatePart[2] = $asDatePart[2] + 12
			$asDatePart[1] = $asDatePart[1] - 1
		WEnd
	EndIf
	; ====================================================
	; adding Years
	If $sType = "y" Then
		$asDatePart[1] = $asDatePart[1] + $iValToAdd
	EndIf
	; ====================================================
	; adding Time value
	If $sType = "h" Or $sType = "n" Or $sType = "s" Then
		$iTimeVal = _TimeToTicks( $asTimePart[1], $asTimePart[2], $asTimePart[3] )  / 1000
		If $sType = "h" Then $iTimeVal = $iTimeVal + $iValToAdd * 3600
		If $sType = "n" Then $iTimeVal = $iTimeVal + $iValToAdd * 60
		If $sType = "s" Then $iTimeVal = $iTimeVal + $iValToAdd
		; calculated days to add
		 $dayaddfor2 = Int(  $iTimeVal / ( 24 * 60 * 60 )  ) 
		$iTimeVal = $iTimeVal -  $dayaddfor2 * 24 * 60 * 60
		If $iTimeVal < 0 Then
			 $dayaddfor2 =  $dayaddfor2 - 1
			$iTimeVal = $iTimeVal + 24 * 60 * 60
		EndIf
		$iJulianDate = _DateToDayValue( $asDatePart[1], $asDatePart[2], $asDatePart[3] )  +  $dayaddfor2
		; calculate the julian back to date
		_DayValueToDate( $iJulianDate, $asDatePart[1], $asDatePart[2], $asDatePart[3] ) 
		; caluculate the new time
		_TicksToTime( $iTimeVal * 1000, $asTimePart[1], $asTimePart[2], $asTimePart[3] ) 
	EndIf
	; ====================================================
	; check if the Input day is Greater then the new month last day.
	; if so then change it to the last possible day in the month
	$iNumDays = StringSplit( '31,28,31,30,31,30,31,31,30,31,30,31', ',' ) 
	If _DateIsLeapYear( $asDatePart[1] )  Then $iNumDays[2] = 29
	;
	If $iNumDays[$asDatePart[2]] < $asDatePart[3] Then $asDatePart[3] = $iNumDays[$asDatePart[2]]
	; ========================
	; Format the return date
	; ========================
	; Format the return date
	$sDate = $asDatePart[1] & '/' & StringRight( "0" & $asDatePart[2], 2 )  & '/' & StringRight( "0" & $asDatePart[3], 2 ) 
	; add the time when specified in the input
	If $asTimePart[0] > 0 Then
		If $asTimePart[0] > 2 Then
			$sDate = $sDate & " " & StringRight( "0" & $asTimePart[1], 2 )  & ':' & StringRight( "0" & $asTimePart[2], 2 )  & ':' & StringRight( "0" & $asTimePart[3], 2 ) 
		Else
			$sDate = $sDate & " " & StringRight( "0" & $asTimePart[1], 2 )  & ':' & StringRight( "0" & $asTimePart[2], 2 ) 
		EndIf
	EndIf
	;
	return ( $sDate ) 
EndFunc   ;==>_DateAdd

;===============================================================================
;
; Description:      Returns the name of the weekday, based on the specified day.
; Parameter( s ) :     $iDayNum - Day number
;                   $iShort  - Format:
;                              0 = Long name of the weekday
;                              1 = Abbreviated name of the weekday
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Weekday name
;                   On Failure - A NULL string and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          English only
;
;===============================================================================
Func _DateDayOfWeek( $iDayNum, $iShort = 0 ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $aDayOfWeek[8]

	$aDayOfWeek[1] = "Sunday"
	$aDayOfWeek[2] = "Monday"
	$aDayOfWeek[3] = "Tuesday"
	$aDayOfWeek[4] = "Wednesday"
	$aDayOfWeek[5] = "Thursday"
	$aDayOfWeek[6] = "Friday"
	$aDayOfWeek[7] = "Saturday"
	Select
		Case Not StringIsInt( $iDayNum )  Or Not StringIsInt( $iShort ) 
			SetError( 1 ) 
			Return ""
		Case $iDayNum < 1 Or $iDayNum > 7
			SetError( 1 ) 
			Return ""
		Case Else
			Select
				Case $iShort = 0
					Return $aDayOfWeek[$iDayNum]
				Case $iShort = 1
					Return StringLeft( $aDayOfWeek[$iDayNum], 3 ) 
				Case Else
					SetError( 1 ) 
					Return ""
			EndSelect
	EndSelect
EndFunc   ;==>_DateDayOfWeek

;===============================================================================
;
; Function Name:  _DateDaysInMonth(  ) 
; Description:    Returns the number of days in a month, based on the specified
;                 month and year.
; Author( s ) :      Jeremy Landes <jlandes@landeserve.com>
;
;===============================================================================
Func _DateDaysInMonth( $iYear, $iMonthNum ) 
	Local $aiNumDays

	$aiNumDays = "31,28,31,30,31,30,31,31,30,31,30,31"
	$aiNumDays = StringSplit( $aiNumDays, "," ) 

	If _DateIsMonth( $iMonthNum )  And _DateIsYear( $iYear )  Then
		If _DateIsLeapYear( $iYear )  Then $aiNumDays[2] = $aiNumDays[2] + 1
		SetError( 0 ) 
		Return $aiNumDays[$iMonthNum]
	Else
		SetError( 1 ) 
		Return 0
	EndIf
EndFunc   ;==>_DateToDaysInMonth

;===============================================================================
;
; Description:      Returns the difference between 2 dates, expressed in the type requested
; Parameter( s ) :     $sType - returns the difference in:
;                               d = days
;                               m = Months
;                               y = Years
;                               w = Weeks
;                               h = Hours
;                               n = Minutes
;                               s = Seconds
;                   $sStartDate    - Input Start date in the format "YYYY/MM/DD[ HH:MM:SS]"
;                   $sEndDate    - Input End date in the format "YYYY/MM/DD[ HH:MM:SS]"
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Difference between the 2 dates
;                   On Failure - 0  and Set
;                                   @ERROR to:  1 - Invalid $sType
;                                               2 - Invalid $sStartDate
;                                               3 - Invalid $sEndDate
; Author( s ) :        Jos van der Zande
; Note( s ) :
;
;===============================================================================
Func _DateDiff( $sType, $sStartDate, $sEndDate ) 
	Local $asStartDatePart[4]
	Local $asStartTimePart[4]
	Local $asEndDatePart[4]
	Local $asEndTimePart[4]
	Local $iTimeDiff
	Local $iYearDiff
	Local $iMonthDiff
	Local $iStartTimeInSecs
	Local $iEndTimeInSecs
	Local $aDaysDiff
	;
	; Verify that $sType is Valid
	$sType = StringLeft( $sType, 1 ) 
	If StringInStr( "d,m,y,w,h,n,s", $sType )  = 0 Or $sType = "" Then
		SetError( 1 ) 
		Return ( 0 ) 
	EndIf
	; Verify If StartDate is valid
	If Not _DateIsValid( $sStartDate )  Then
		SetError( 2 ) 
		Return ( 0 ) 
	EndIf
	; Verify If EndDate is valid
	If Not _DateIsValid( $sEndDate )  Then
		SetError( 3 ) 
		Return ( 0 ) 
	EndIf
	; split the StartDate and Time into arrays
	_DateTimeSplit( $sStartDate, $asStartDatePart, $asStartTimePart ) 
	; split the End  Date and time into arrays
	_DateTimeSplit( $sEndDate, $asEndDatePart, $asEndTimePart ) 
	; ====================================================
	; Get the differens in days between the 2 dates
	$aDaysDiff = _DateToDayValue( $asEndDatePart[1], $asEndDatePart[2], $asEndDatePart[3] )  - _DateToDayValue( $asStartDatePart[1], $asStartDatePart[2], $asStartDatePart[3] ) 
	; ====================================================
	; Get the differens in Seconds between the 2 times when specified
	If $asStartTimePart[0] > 1 And $asEndTimePart[0] > 1 Then
		$iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3]
		$iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3]
		$iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs
		If $iTimeDiff < 0 Then
			$aDaysDiff = $aDaysDiff - 1
			$iTimeDiff = $iTimeDiff + 24 * 60 * 60
		EndIf
	Else
		$iTimeDiff = 0
	EndIf
	Select
		Case $sType = "d"
			Return ( $aDaysDiff ) 
		Case $sType = "m"
			$iYearDiff = $asEndDatePart[1] - $asStartDatePart[1]
			$iMonthDiff = $asEndDatePart[2] - $asStartDatePart[2] + $iYearDiff * 12
			If $asEndDatePart[3] < $asStartDatePart[3] Then $iMonthDiff = $iMonthDiff - 1
			$iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3]
			$iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3]
			$iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs
			If $asEndDatePart[3] = $asStartDatePart[3] And $iTimeDiff < 0 Then $iMonthDiff = $iMonthDiff - 1
			Return ( $iMonthDiff ) 
		Case $sType = "y"
			$iYearDiff = $asEndDatePart[1] - $asStartDatePart[1]
			If $asEndDatePart[2] < $asStartDatePart[2] Then $iYearDiff = $iYearDiff - 1
			If $asEndDatePart[2] = $asStartDatePart[2] And $asEndDatePart[3] < $asStartDatePart[3] Then $iYearDiff = $iYearDiff - 1
			$iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3]
			$iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3]
			$iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs
			If $asEndDatePart[2] = $asStartDatePart[2] And $asEndDatePart[3] = $asStartDatePart[3] And $iTimeDiff < 0 Then $iYearDiff = $iYearDiff - 1
			Return ( $iYearDiff ) 
		Case $sType = "w"
			Return ( Int( $aDaysDiff / 7 )  ) 
		Case $sType = "h"
			Return ( $aDaysDiff * 24 + Int( $iTimeDiff / 3600 )  ) 
		Case $sType = "n"
			Return ( $aDaysDiff * 24 * 60 + Int( $iTimeDiff / 60 )  ) 
		Case $sType = "s"
			Return ( $aDaysDiff * 24 * 60 * 60 + $iTimeDiff ) 
	EndSelect
EndFunc   ;==>_DateDiff

;===============================================================================
;
; Description:      Returns 1 if the specified year falls on a leap year and
;                   returns 0 if it does not.
; Parameter( s ) :     $iYear - Year to check
; Requirement( s ) :   None
; Return Value( s ) :  On Success - 0 = Year is not a leap year
;                                1 = Year is a leap year
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateIsLeapYear( $iYear ) 
	If StringIsInt( $iYear )  Then
		Select
			Case Mod( $iYear, 4 )  = 0 And Mod( $iYear, 100 )  <> 0
				Return 1
			Case Mod( $iYear, 400 )  = 0
				Return 1
			Case Else
				Return 0
		EndSelect
	Else
		SetError( 1 ) 
		Return 0
	EndIf
EndFunc   ;==>_DateIsLeapYear

;===============================================================================
;
; Function Name:  _DateIsMonth(  ) 
; Description:    Checks a given number to see if it is a valid month.
; Author( s ) :      Jeremy Landes <jlandes@landeserve.com>
;
;===============================================================================
Func _DateIsMonth( $iNumber ) 
	If StringIsInt( $iNumber )  Then
		If $iNumber >= 1 And $iNumber <= 12 Then
			Return 1
		Else
			Return 0
		EndIf
	Else
		Return 0
	EndIf
EndFunc   ;==>_DateIsMonth

;===============================================================================
;
; Description:      Verify if date and time are valid "yyyy/mm/dd[ hh:mm[:ss]]".
; Parameter( s ) :     $sDate format "yyyy/mm/dd[ hh:mm[:ss]]"
; Requirement( s ) :   None
; Return Value( s ) :  On Success - 1
;                   On Failure - 0
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
;                   Jos van der Zande <jdeb@autoitscript.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateIsValid( $sDate ) 
	Local $asDatePart[4]
	Local $asTimePart[4]
	Local $iNumDays

	$iNumDays = "31,28,31,30,31,30,31,31,30,31,30,31"
	$iNumDays = StringSplit( $iNumDays, "," ) 
	; split the date and time into arrays
	_DateTimeSplit( $sDate, $asDatePart, $asTimePart ) 

	If $asDatePart[0] <> 3 Then
		Return ( 0 ) 
	EndIf
	; verify valid input date values
	If _DateIsLeapYear( $asDatePart[1] )  Then $iNumDays[2] = 29
	If $asDatePart[1] < 1900 Or $asDatePart[1] > 2999 Then Return ( 0 ) 
	If $asDatePart[2] < 1 Or $asDatePart[2] > 12 Then Return ( 0 ) 
	If $asDatePart[3] < 1 Or $asDatePart[3] > $iNumDays[$asDatePart[2]] Then Return ( 0 ) 

	; verify valid input Time values
	If $asTimePart[0] < 1 Then Return ( 1 )     ; No time specified so date must be correct
	If $asTimePart[0] < 3 Then Return ( 0 )     ; need at least HH:MM when something is specified
	If $asTimePart[1] < 0 Or $asTimePart[1] > 23 Then Return ( 0 ) 
	If $asTimePart[2] < 0 Or $asTimePart[2] > 59 Then Return ( 0 ) 
	If $asTimePart[3] < 0 Or $asTimePart[3] > 59 Then Return ( 0 ) 
	; we got here so date/time must be good
	Return ( 1 ) 
EndFunc   ;==>_DateIsValid

;===============================================================================
;
; Function Name:  _DateIsYear(  ) 
; Description:    Checks a given number to see if it is a valid year.
; Author( s ) :      Jeremy Landes <jlandes@landeserve.com>
;
;===============================================================================
Func _DateIsYear( $iNumber ) 
	If StringIsInt( $iNumber )  Then
		If StringLen( $iNumber )  = 4 Then
			Return 1
		Else
			Return 0
		EndIf
	Else
		Return 0
	EndIf
EndFunc   ;==>_DateIsYear

;===============================================================================
;
; Description:      Returns previous weekday number, based on the specified day
;                   of the week.
; Parameter( s ) :     $iWeekdayNum - Weekday number
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Previous weekday number
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateLastWeekdayNum( $iWeekdayNum ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iLastWeekdayNum

	Select
		Case Not StringIsInt( $iWeekdayNum ) 
			SetError( 1 ) 
			Return 0
		Case $iWeekdayNum < 1 Or $iWeekdayNum > 7
			SetError( 1 ) 
			Return 0
		Case Else
			If $iWeekdayNum = 1 Then
				$iLastWeekdayNum = 7
			Else
				$iLastWeekdayNum = $iWeekdayNum - 1
			EndIf

			Return $iLastWeekdayNum
	EndSelect
EndFunc   ;==>_DateLastWeekdayNum

;===============================================================================
;
; Description:      Returns previous month number, based on the specified month.
; Parameter( s ) :     $iMonthNum - Month number
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Previous month number
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateLastMonthNum( $iMonthNum ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iLastMonthNum

	Select
		Case Not StringIsInt( $iMonthNum ) 
			SetError( 1 ) 
			Return 0
		Case $iMonthNum < 1 Or $iMonthNum > 12
			SetError( 1 ) 
			Return 0
		Case Else
			If $iMonthNum = 1 Then
				$iLastMonthNum = 12
			Else
				$iLastMonthNum = $iMonthNum - 1
			EndIf

			$iLastMonthNum = StringFormat(  "%02d", $iLastMonthNum ) 
			Return $iLastMonthNum
	EndSelect
EndFunc   ;==>_DateLastMonthNum

;===============================================================================
;
; Description:      Returns previous months year, based on the specified month
;                   and year.
; Parameter( s ) :     $iMonthNum - Month number
;                   $iYear     - Year
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Previous months year
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateLastMonthYear( $iMonthNum, $iYear ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iLastYear

	Select
		Case Not StringIsInt( $iMonthNum )  Or Not StringIsInt( $iYear ) 
			SetError( 1 ) 
			Return 0
		Case $iMonthNum < 1 Or $iMonthNum > 12
			SetError( 1 ) 
			Return 0
		Case Else
			If $iMonthNum = 1 Then
				$iLastYear = $iYear - 1
			Else
				$iLastYear = $iYear
			EndIf

			$iLastYear = StringFormat(  "%04d", $iLastYear ) 
			Return $iLastYear
	EndSelect
EndFunc   ;==>_DateLastMonthYear

;===============================================================================
;
; Description:      Returns the name of the month, based on the specified month.
; Parameter( s ) :     $iMonthNum - Month number
;                   $iShort    - Format:
;                                0 = Long name of the month
;                                1 = Abbreviated name of the month
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Month name
;                   On Failure - A NULL string and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          English only
;
;===============================================================================
Func _DateMonthOfYear( $iMonthNum, $iShort ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $aMonthOfYear[13]

	$aMonthOfYear[1] = "January"
	$aMonthOfYear[2] = "February"
	$aMonthOfYear[3] = "March"
	$aMonthOfYear[4] = "April"
	$aMonthOfYear[5] = "May"
	$aMonthOfYear[6] = "June"
	$aMonthOfYear[7] = "July"
	$aMonthOfYear[8] = "August"
	$aMonthOfYear[9] = "September"
	$aMonthOfYear[10] = "October"
	$aMonthOfYear[11] = "November"
	$aMonthOfYear[12] = "December"

	Select
		Case Not StringIsInt( $iMonthNum )  Or Not StringIsInt( $iShort ) 
			SetError( 1 ) 
			Return ""
		Case $iMonthNum < 1 Or $iMonthNum > 12
			SetError( 1 ) 
			Return ""
		Case Else
			Select
				Case $iShort = 0
					Return $aMonthOfYear[$iMonthNum]
				Case $iShort = 1
					Return StringLeft( $aMonthOfYear[$iMonthNum], 3 ) 
				Case Else
					SetError( 1 ) 
					Return ""
			EndSelect
	EndSelect
EndFunc   ;==>_DateMonthOfYear

;===============================================================================
;
; Description:      Returns next weekday number, based on the specified day of
;                   the week.
; Parameter( s ) :     $iWeekdayNum - Weekday number
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Next weekday number
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateNextWeekdayNum( $iWeekdayNum ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iNextWeekdayNum

	Select
		Case Not StringIsInt( $iWeekdayNum ) 
			SetError( 1 ) 
			Return 0
		Case $iWeekdayNum < 1 Or $iWeekdayNum > 7
			SetError( 1 ) 
			Return 0
		Case Else
			If $iWeekdayNum = 7 Then
				$iNextWeekdayNum = 1
			Else
				$iNextWeekdayNum = $iWeekdayNum + 1
			EndIf

			Return $iNextWeekdayNum
	EndSelect
EndFunc   ;==>_DateNextWeekdayNum

;===============================================================================
;
; Description:      Returns next month number, based on the specified month.
; Parameter( s ) :     $iMonthNum - Month number
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Next month number
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateNextMonthNum( $iMonthNum ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iNextMonthNum

	Select
		Case Not StringIsInt( $iMonthNum ) 
			SetError( 1 ) 
			Return 0
		Case $iMonthNum < 1 Or $iMonthNum > 12
			SetError( 1 ) 
			Return 0
		Case Else
			If $iMonthNum = 12 Then
				$iNextMonthNum = 1
			Else
				$iNextMonthNum = $iMonthNum + 1
			EndIf

			$iNextMonthNum = StringFormat(  "%02d", $iNextMonthNum ) 
			Return $iNextMonthNum
	EndSelect
EndFunc   ;==>_DateNextMonthNum

;===============================================================================
;
; Description:      Returns next months year, based on the specified month and
;                   year.
; Parameter( s ) :     $iMonthNum - Month number
;                   $iYear     - Year
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Next months year
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jeremy Landes <jlandes@landeserve.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateNextMonthYear( $iMonthNum, $iYear ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iNextYear

	Select
		Case Not StringIsInt( $iMonthNum )  Or Not StringIsInt( $iYear ) 
			SetError( 1 ) 
			Return 0
		Case $iMonthNum < 1 Or $iMonthNum > 12
			SetError( 1 ) 
			Return 0
		Case Else
			If $iMonthNum = 12 Then
				$iNextYear = $iYear + 1
			Else
				$iNextYear = $iYear
			EndIf

			$iNextYear = StringFormat(  "%04d", $iNextYear ) 
			Return $iNextYear
	EndSelect
EndFunc   ;==>_DateNextMonthYear

;===============================================================================
;
; Description:      Split Date and Time into two separateArrays.
; Parameter( s ) :     $sDate format "yyyy/mm/dd[ hh:mm[:ss]]"
;                    or    format "yyyy/mm/dd[Thh:mm[:ss]]"
;                    or    format "yyyy-mm-dd[ hh:mm[:ss]]"
;                    or    format "yyyy-mm-dd[Thh:mm[:ss]]"
;                    or    format "yyyy.mm.dd[ hh:mm[:ss]]"
;                    or    format "yyyy.mm.dd[Thh:mm[:ss]]"
;                   $asDatePart[4] array that contains the Date
;                   $iTimePart[4] array that contains the Time
; Requirement( s ) :   None
; Return Value( s ) :  Always 1
; Author( s ) :        Jos van der Zande
; Note( s ) :          Its expected you first do a _DateIsValid(  $sDate  )  for the input
;
;===============================================================================
Func _DateTimeSplit( $sDate, ByRef $asDatePart, ByRef $iTimePart ) 
	Local $nMM
	Local $nDD
	Local $nYYYY
	Local $sDateTime
	; split the Date and Time portion
	$sDateTime = StringSplit( $sDate, " T" ) 
	; split the date portion
	If $sDateTime[0] > 0 Then $asDatePart = StringSplit( $sDateTime[1], "/-." ) 
	; split the Time portion
	If $sDateTime[0] > 1 Then
		; Add the secconf 00 if not in the input
		If StringLen( $sDateTime[2] )  < 8 Then $sDateTime[2] = $sDateTime[2] & ":00"
		$iTimePart = StringSplit( $sDateTime[2], ":" ) 
	EndIf
	Return ( 1 ) 
EndFunc   ;==>_DateTimeSplit

;===============================================================================
;
; Description:      Returns the number of days since noon 4713 BC January 1.
; Parameter( s ) :     $Year  - Year in format YYYY
;                   $Month - Month in format MM
;                   $sDate - Day of the month format DD
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Returns the Juliandate
;                   On Failure - 0  and sets @ERROR = 1
; Author( s ) :        Jos van der Zande / Jeremy Landes
; Note( s ) :          None
;
;===============================================================================
Func _DateToDayValue( $iYear, $iMonth, $iDay ) 
	Local $i_aFactor
	Local $i_bFactor
	Local $i_cFactor
	Local $i_dFactor
	Local $i_eFactor
	Local $i_fFactor
	Local $asDatePart[4]
	Local $iJulianDate
	; Verify If InputDate is valid
	If Not _DateIsValid( StringFormat(  "%04d/%02d/%02d", $iYear, $iMonth, $iDay )  )  Then
		SetError( 1 ) 
		Return ( "" ) 
	EndIf
	If $iMonth < 3 Then
		$iMonth = $iMonth + 12
		$iYear = $iYear - 1
	EndIf
	$i_aFactor = Int( $iYear / 100 ) 
	$i_bFactor = Int( $i_aFactor / 4 ) 
	$i_cFactor = 2 - $i_aFactor + $i_bFactor
	$i_eFactor = Int( 1461 * ( $iYear + 4716 )  / 4 ) 
	$i_fFactor = Int( 153 * ( $iMonth + 1 )  / 5 ) 
	$iJulianDate = $i_cFactor + $iDay + $i_eFactor + $i_fFactor - 1524.5
	return ( $iJulianDate ) 
EndFunc   ;==>_DateToDayValue

;===============================================================================
;
; Description:      Returns the DayofWeek number for a given Date.  1=Sunday
; Parameter( s ) :     $Year
;                   $Month
;                   $day
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Returns Day of the Week Range is 1 to 7 where 1=Sunday.
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Jos van der Zande <jdeb@autoitscript.com>
; Note( s ) :          None
;
;===============================================================================
Func _DateToDayOfWeek( $iYear, $iMonth, $iDay ) 
	Local $asDatePart[4]
	Local $i_aFactor
	Local $i_yFactor
	Local $i_mFactor
	Local $i_dFactor
	; Verify If InputDate is valid
	If Not _DateIsValid( $iYear & "/" & $iMonth & "/" & $iDay )  Then
		SetError( 1 ) 
		Return ( "" ) 
	EndIf
	$i_aFactor = Int(  ( 14 - $iMonth )  / 12 ) 
	$i_yFactor = $iYear - $i_aFactor
	$i_mFactor = $iMonth + ( 12 * $i_aFactor )  - 2
	$i_dFactor = Mod( $iDay + $i_yFactor + Int( $i_yFactor / 4 )  - Int( $i_yFactor / 100 )  + Int( $i_yFactor / 400 )  + Int(  ( 31 * $i_mFactor )  / 12 ) , 7 ) 
	return ( $i_dFactor + 1 ) 
EndFunc   ;==>_DateToDayOfWeek

;===============================================================================
;
; Description:      Add the given days since noon 4713 BC January 1 and return the date.
; Parameter( s ) :     $iJulianDate    - Julian date number
;                   $Year  - Year in format YYYY
;                   $Month - Month in format MM
;                   $sDate - Day of the month format DD
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Returns the Date in the parameter vars
;                   On Failure - 0  and sets @ERROR = 1
; Author( s ) :        Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _DayValueToDate( $iJulianDate, ByRef $iYear, ByRef $iMonth, ByRef $iDay ) 
	Local $i_zFactor
	Local $i_wFactor
	Local $i_aFactor
	Local $i_bFactor
	Local $i_xFactor
	Local $i_cFactor
	Local $i_dFactor
	Local $i_eFactor
	Local $i_fFactor
	; check for valid input date
	If $iJulianDate < 0 Or Not IsNumber( $iJulianDate )  Then
		SetError( 1 ) 
		Return 0
	EndIf
	; calculte the date
	$i_zFactor = Int( $iJulianDate + 0.5 ) 
	$i_wFactor = Int(  ( $i_zFactor - 1867216.25 )  / 36524.25 ) 
	$i_xFactor = Int( $i_wFactor / 4 ) 
	$i_aFactor = $i_zFactor + 1 + $i_wFactor - $i_xFactor
	$i_bFactor = $i_aFactor + 1524
	$i_cFactor = Int(  ( $i_bFactor - 122.1 )  / 365.25 ) 
	$i_dFactor = Int( 365.25 * $i_cFactor ) 
	$i_eFactor = Int(  ( $i_bFactor - $i_dFactor )  / 30.6001 ) 
	$i_fFactor = Int( 30.6001 * $i_eFactor ) 
	$iDay = $i_bFactor - $i_dFactor - $i_fFactor
	; ( must get number less than or equal to 12 ) 
	If $i_eFactor - 1 < 13 Then
		$iMonth = $i_eFactor - 1
	Else
		$iMonth = $i_eFactor - 13
	EndIf
	If $iMonth < 3 Then
		$iYear = $i_cFactor - 4715    ; ( if Month is January or February ) 
	Else
		$iYear = $i_cFactor - 4716    ;( otherwise ) 
	EndIf
	Return $iYear & "/" & $iMonth & "/" & $iDay
EndFunc   ;==>_DayValueToDate

;===============================================================================
;
; Description:      Returns the date in the PCs regional settings format.
; Parameter( s ) :     $date - format "YYYY/MM/DD"
;                   $sType - :
;                      0 - Display a date and/or time. If there is a date part, display it as a short date.
;                          If there is a time part, display it as a long time. If present, both parts are displayed.
;                      1 - Display a date using the long date format specified in your computers regional settings.
;                      2 - Display a date using the short date format specified in your computers regional settings.
;                      3 - Display a time using the time format specified in your computers regional settings.
;                      4 - Display a time using the 24-hour format ( hh:mm ) .
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Returns date in proper format
;                   On Failure - 0  and Set
;                                   @ERROR to:  1 - Invalid $sDate
;                                               2 - Invalid $sType
; Author( s ) :        Jos van der Zande <jdeb@autoitscript.com>
; Note( s ) :          None...
;
;===============================================================================
Func _DateTimeFormat( $sDate, $sType ) 
	Local $asDatePart[4]
	Local $asTimePart[4]
	Local $sReg_DateValue = ""
	Local $sReg_TimeValue = ""
	Local $sTempDate
	Local $sNewTime
	Local $sNewDate
	Local $sAM
	Local $sPM
	Local $iWday
	; Verify If InputDate is valid
	If Not _DateIsValid( $sDate )  Then
		SetError( 1 ) 
		Return ( "" ) 
	EndIf
	; input validation
	If $sType < 0 Or $sType > 4 Or Not IsInt( $sType )  Then
		SetError( 2 ) 
		Return ( "" ) 
	EndIf
	; split the date and t6/ime into arrays
	_DateTimeSplit( $sDate, $asDatePart, $asTimePart ) 

	If $sType = 0 Then
		$sReg_DateValue = "sShortDate"
		If $asTimePart[0] > 1 Then $sReg_TimeValue = "sTimeFormat"
	EndIf

	If $sType = 1 Then $sReg_DateValue = "sLongDate"
	If $sType = 2 Then $sReg_DateValue = "sShortDate"
	If $sType = 3 Then $sReg_TimeValue = "sTimeFormat"
	If $sType = 4 Then $sReg_TimeValue = "sTime"
	$sNewDate = ""
	If $sReg_DateValue <> "" Then
		$sTempDate = RegRead( "HKEY_CURRENT_USER\Control Panel\International", $sReg_DateValue ) 
		$sAM = RegRead( "HKEY_CURRENT_USER\Control Panel\International", "s1159" ) 
		$sPM = RegRead( "HKEY_CURRENT_USER\Control Panel\International", "s2359" ) 
		If $sAM = "" Then $sAM = "AM"
		If $sPM = "" Then $sPM = "PM"
		$iWday = _DateToDayOfWeek( $asDatePart[1], $asDatePart[2], $asDatePart[3] ) 
		$asDatePart[3] = StringRight( "0" & $asDatePart[3], 2 )  ; make sure the length is 2
		$asDatePart[2] = StringRight( "0" & $asDatePart[2], 2 )  ; make sure the length is 2
		$sTempDate = StringReplace( $sTempDate, "d", "@" ) 
		$sTempDate = StringReplace( $sTempDate, "m", "#" ) 
		$sTempDate = StringReplace( $sTempDate, "y", "&" ) 
		$sTempDate = StringReplace( $sTempDate, "@@@@", _DateDayOfWeek( $iWday, 0 )  ) 
		$sTempDate = StringReplace( $sTempDate, "@@@", _DateDayOfWeek( $iWday, 1 )  ) 
		$sTempDate = StringReplace( $sTempDate, "@@", $asDatePart[3] ) 
		$sTempDate = StringReplace( $sTempDate, "@", StringReplace( StringLeft( $asDatePart[3], 1 ) , "0", "" )  & StringRight( $asDatePart[3], 1 )  ) 
		$sTempDate = StringReplace( $sTempDate, "####", _DateMonthOfYear( $asDatePart[2], 0 )  ) 
		$sTempDate = StringReplace( $sTempDate, "###", _DateMonthOfYear( $asDatePart[2], 1 )  ) 
		$sTempDate = StringReplace( $sTempDate, "##", $asDatePart[2] ) 
		$sTempDate = StringReplace( $sTempDate, "#", StringReplace( StringLeft( $asDatePart[2], 1 ) , "0", "" )  & StringRight( $asDatePart[2], 1 )  ) 
		$sTempDate = StringReplace( $sTempDate, "&&&&", $asDatePart[1] ) 
		$sTempDate = StringReplace( $sTempDate, "&&", StringRight( $asDatePart[1], 2 )  ) 
		$sNewDate = $sTempDate
	EndIf
	If $sReg_TimeValue <> "" Then
		$sNewTime = RegRead( "HKEY_CURRENT_USER\Control Panel\International", $sReg_TimeValue ) 
		If $sType = 4 Then
			$sNewTime = $asTimePart[1] & $sNewTime & $asTimePart[2]
		Else
			If $asTimePart[1] < 12 Then
				$sNewTime = StringReplace( $sNewTime, "tt", "AM" ) 
				If $asTimePart[1] = 0 Then $asTimePart[1] = 12
			Else
				$sNewTime = StringReplace( $sNewTime, "tt", "PM" ) 
				If $asTimePart[1] > 12 Then $asTimePart[1] = $asTimePart[1] - 12
			EndIf
			$asTimePart[1] = StringRight( "0" & $asTimePart[1], 2 )  ; make sure the length is 2
			$asTimePart[2] = StringRight( "0" & $asTimePart[2], 2 )  ; make sure the length is 2
			$asTimePart[3] = StringRight( "0" & $asTimePart[3], 2 )  ; make sure the length is 2
			$sNewTime = StringReplace( $sNewTime, "hh", $asTimePart[1] ) 
			$sNewTime = StringReplace( $sNewTime, "h", StringReplace( StringLeft( $asTimePart[1], 1 ) , "0", "" )  & StringRight( $asTimePart[1], 1 )  ) 
			$sNewTime = StringReplace( $sNewTime, "mm", $asTimePart[2] ) 
			$sNewTime = StringReplace( $sNewTime, "ss", $asTimePart[3] ) 
		EndIf
		$sNewDate = StringStripWS( $sNewDate & " " & $sNewTime, 3 ) 
	EndIf
	Return ( $sNewDate ) 
EndFunc   ;==>_DateTimeFormat

;===============================================================================
;
; Description:      Returns the the julian date in format YYDDD
; Parameter( s ) :     $iJulianDate    - Julian date number
;                   $Year  - Year in format YYYY
;                   $Month - Month in format MM
;                   $sDate - Day of the month format DD
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Returns the Date in the parameter vars
;                   On Failure - 0  and sets @ERROR = 1
; Author( s ) :        Jeremy Landes / Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _DateJulianDayNo( $iYear, $iMonth, $iDay ) 
	Local $sFullDate
	Local $aiDaysInMonth
	Local $iJDay
	Local $iCntr
	; Verify If InputDate is valid
	$sFullDate = StringFormat(  "%04d/%02d/%02d", $iYear, $iMonth, $iDay ) 
	If Not _DateIsValid( $sFullDate )  Then
		SetError( 1 ) 
		Return ""
	EndIf
	; Build JDay value
	$iJDay = 0
	$aiDaysInMonth = __DaysInMonth( $iYear ) 
	For $iCntr = 1 To $iMonth - 1
		$iJDay = $iJDay + $aiDaysInMonth[$iCntr]
	Next
	$iJDay = ( $iYear * 1000 )  + ( $iJDay + $iDay ) 
	Return $iJDay
EndFunc   ;==>_DateJulianDayNo

;===============================================================================
;
; Description:      Returns the date for a julian date in format YYDDD
; Parameter( s ) :     $iJDate  - Julian date number
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Returns the Date in format YYYY/MM/DD
;                   On Failure - 0  and sets @ERROR = 1
; Author( s ) :        Jeremy Landes / Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _JulianToDate( $iJDay ) 
	Local $aiDaysInMonth
	Local $iYear
	Local $iMonth
	Local $iDay
	Local $iDays
	Local $iMaxDays
	Local $sSep = "/"
	; Verify If InputDate is valid
	$iYear = Int( $iJDay / 1000 ) 
	$iDays = Mod( $iJDay, 1000 ) 
	$iMaxDays = 365
	If _DateIsLeapYear( $iYear )  Then $iMaxDays = 366
	If $iDays > $iMaxDays Then
		SetError( 1 ) 
		Return ""
	EndIf
	; Convert to regular date
	$aiDaysInMonth = __DaysInMonth( $iYear ) 
	$iMonth = 1
	While $iDays > $aiDaysInMonth[ $iMonth ]
		$iDays = $iDays - $aiDaysInMonth[ $iMonth ]
		$iMonth = $iMonth + 1
	WEnd
	$iDay = $iDays
	Return StringFormat(  "%04d%s%02d%s%02d", $iYear, $sSep, $iMonth, $sSep, $iDay ) 
EndFunc   ;==>_JulianToDate

;===============================================================================
;
; Description:      Returns the current Date and Time in the pcs format
; Parameter( s ) :     None
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Date in pcs format
; Author( s ) :        Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _Now(  ) 
	Return ( _DateTimeFormat( @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, 0 )  ) 
EndFunc   ;==>_Now

;===============================================================================
;
; Description:      Returns the current Date and Time in format YYYY/MM/DD HH:MM:SS
; Parameter( s ) :     None
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Date in in format YYYY/MM/DD HH:MM:SS
; Author( s ) :        Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _NowCalc(  ) 
	Return ( @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC ) 
EndFunc   ;==>_NowCalc
;===============================================================================
;
; Description:      Returns the current Date in format YYYY/MM/DD
; Parameter( s ) :     None
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Date in in format YYYY/MM/DD
; Author( s ) :        Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _NowCalcDate(  ) 
	Return ( @YEAR & "/" & @MON & "/" & @MDAY ) 
EndFunc   ;==>_NowCalcDate

;===============================================================================
;
; Description:      Returns the current Date in the pcs format
; Parameter( s ) :     None
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Date in pcs format
; Author( s ) :        Jos van der Zande ( Larrys idea ) 
; Note( s ) :          None
;
;===============================================================================
Func _NowDate(  ) 
	Return ( _DateTimeFormat( @YEAR & "/" & @MON & "/" & @MDAY, 0 )  ) 
EndFunc   ;==>_NowDate

;===============================================================================
;
; Description:      Returns the current Date and Time in the pcs format
; Parameter( s ) :     None
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Date in pcs format
; Author( s ) :        Jos van der Zande
; Note( s ) :          None
;
;===============================================================================
Func _NowTime(  ) 
	Return ( _DateTimeFormat( @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, 3 )  ) 
EndFunc   ;==>_NowTime

;===============================================================================
;
; Description:      Converts the specified tick amount to hours, minutes, and
;                   seconds.
; Parameter( s ) :     $iTicks - Tick amount
;                   $iHours - Variable to store the hours ( ByRef ) 
;                   $iMins  - Variable to store the minutes ( ByRef ) 
;                   $iSecs  - Variable to store the seconds ( ByRef ) 
; Requirement( s ) :   None
; Return Value( s ) :  On Success - 1
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Marc <mrd@gmx.de>
; Note( s ) :          None
;
;===============================================================================
Func _TicksToTime( $iTicks, ByRef $iHours, ByRef $iMins, ByRef $iSecs ) 
	If StringIsInt( $iTicks )  Then
		$iTicks = Round( $iTicks / 1000 ) 
		$iHours = Int( $iTicks / 3600 ) 
		$iTicks = Mod( $iTicks, 3600 ) 
		$iMins = Int( $iTicks / 60 ) 
		$iSecs = Round( Mod( $iTicks, 60 )  ) 
		; If $iHours = 0 then $iHours = 24
		Return 1
	Else
		SetError( 1 ) 
		Return 0
	EndIf
EndFunc   ;==>_TicksToTime

;===============================================================================
;
; Description:      Converts the specified hours, minutes, and seconds to ticks.
; Parameter( s ) :     $iHours - Hours
;                   $iMins  - Minutes
;                   $iSecs  - Seconds
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Converted tick amount
;                   On Failure - 0 and sets @ERROR = 1
; Author( s ) :        Marc <mrd@gmx.de>
; Note( s ) :          None
;
;===============================================================================
Func _TimeToTicks( $iHours, $iMins, $iSecs ) 
	;==============================================
	; Local Constant/Variable Declaration Section
	;==============================================
	Local $iTicks

	If StringIsInt( $iHours )  And StringIsInt( $iMins )  And StringIsInt( $iSecs )  Then
		$iTicks = 1000 * (  ( 3600 * $iHours )  + ( 60 * $iMins )  + $iSecs ) 
		Return $iTicks
	Else
		SetError( 1 ) 
		Return 0
	EndIf
EndFunc   ;==>_TimeToTicks

;===============================================================================
;
; Description:      returns an Array that contains the numbers of days per month
;                   te specified year
; Parameter( s ) :     $iYear
; Requirement( s ) :   None
; Return Value( s ) :  On Success - Array that contains the numbers of days per month
;                   On Failure - none
; Author( s ) :        Jos van der Zande / Jeremy Landes
; Note( s ) :          None
;
;===============================================================================
Func __DaysInMonth( $iYear ) 
	Local $aiDays
	$aiDays = StringSplit( "31,28,31,30,31,30,31,31,30,31,30,31", "," ) 
	If _DateIsLeapYear( $iYear )  Then $aiDays[2] = 29
	Return $aiDays
EndFunc   ;==>__DaysInMonth

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\Include\Date.au3>
; ----------------------------------------------------------------------------


opt( "MustDeclareVars", 1 ) 
opt( "RunErrorsFatal", 0 ) 
; <AUT2EXE VERSION: 3.1.1.0>

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Documents and Settings\Gokhan\Desktop\ProjectGremBot\AutoLogin.au3>
; ----------------------------------------------------------------------------


; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: C:\Program Files\AutoIt3\Include\GUIConstants.au3>
; ----------------------------------------------------------------------------


; ------------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Language:       English
; Description:    Constants to be used in GUI applications.
;
; ------------------------------------------------------------------------------

; Part1
; Events and messages

Global Const $GUIEVENTCLOSE			= -3
Global Const $GUI_EVENT_MINIMIZE		= -4
Global Const $GUI_EVENT_RESTORE			= -5
Global Const $GUI_EVENT_MAXIMIZE		= -6
Global Const $GUI_EVENT_PRIMARYDOWN		= -7
Global Const $GUI_EVENT_PRIMARYUP		= -8
Global Const $GUI_EVENT_SECONDARYDOWN	= -9
Global Const $GUI_EVENT_SECONDARYUP		= -10
Global Const $GUI_EVENT_MOUSEMOVE		= -11


; State
Global Const $GUI_AVISTOP		= 0
Global Const $GUI_AVISTART		= 1
Global Const $GUI_AVICLOSE		= 2

Global Const $GUI_CHECKED		= 1
Global Const $GUI_INDETERMINATE	= 2
Global Const $GUI_UNCHECKED		= 4

Global Const $GUI_ACCEPTFILES	= 8

Global Const $GUI_SHOW			= 16
Global Const $GUI_HIDE 			= 32
Global Const $GUI_ENABLE		= 64
Global Const $GUI_DISABLE		= 128

Global Const $GUI_FOCUS			= 256
Global Const $GUI_DEFBUTTON		= 512

Global Const $GUI_EXPAND		= 1024


; Font
Global Const $GUI_FONTITALIC	= 2
Global Const $GUI_FONTUNDER		= 4
Global Const $GUI_FONTSTRIKE	= 8


; Resizing
Global Const $GUI_DOCKAUTO			= 0x0001
Global Const $GUI_DOCKLEFT			= 0x0002
Global Const $GUI_DOCKRIGHT			= 0x0004
Global Const $GUI_DOCKHCENTER		= 0x0008
Global Const $GUI_DOCKTOP			= 0x0020
Global Const $GUI_DOCKBOTTOM		= 0x0040
Global Const $GUI_DOCKVCENTER		= 0x0080
Global Const $GUI_DOCKWIDTH			= 0x0100
Global Const $GUI_DOCKHEIGHT		= 0x0200

Global Const $GUI_DOCKSIZE			= 0x0300	; width+height
Global Const $GUI_DOCKMENUBAR		= 0x0220	; top+height
Global Const $GUI_DOCKSTATEBAR		= 0x0240	; bottom+height
Global Const $GUI_DOCKALL			= 0x0322	; left+top+width+height

; Window Styles
Global Const $WS_TILED				= 0
Global Const $WS_OVERLAPPED 		= 0
Global Const $WS_MAXIMIZEBOX		= 0x00010000
Global Const $WS_MINIMIZEBOX		= 0x00020000
Global Const $WS_TABSTOP			= 0x00010000
Global Const $WS_GROUP				= 0x00020000
Global Const $WS_SIZEBOX			= 0x00040000
Global Const $WS_THICKFRAME			= 0x00040000
Global Const $WS_SYSMENU			= 0x00080000
Global Const $WS_HSCROLL			= 0x00100000
Global Const $WS_VSCROLL			= 0x00200000
Global Const $WS_DLGFRAME 			= 0x00400000
Global Const $WS_BORDER				= 0x00800000
Global Const $WS_CAPTION			= 0x00C00000
Global Const $WS_OVERLAPPEDWINDOW	= 0x00CF0000
Global Const $WS_TILEDWINDOW		= 0x00CF0000
Global Const $WS_MAXIMIZE			= 0x01000000
Global Const $WS_CLIPCHILDREN		= 0x02000000
Global Const $WS_CLIPSIBLINGS		= 0x04000000
Global Const $WS_DISABLED 			= 0x08000000
Global Const $WS_VISIBLE			= 0x10000000
Global Const $WS_MINIMIZE			= 0x20000000
Global Const $WS_CHILD				= 0x40000000
Global Const $WS_POPUP				= 0x80000000
Global Const $WS_POPUPWINDOW		= 0x80880000

Global Const $DS_MODALFRAME 		= 0x80
Global Const $DS_SETFOREGROUND		= 0x00000200
Global Const $DS_CONTEXTHELP		= 0x00002000

; Window Extended Styles
Global Const $WS_EX_ACCEPTFILES			= 0x00000010
Global Const $WS_EX_APPWINDOW			= 0x00040000
Global Const $WS_EX_CLIENTEDGE			= 0x00000200
Global Const $WS_EX_CONTEXTHELP			= 0x00000400
Global Const $WS_EX_DLGMODALFRAME 		= 0x00000001
Global Const $WS_EX_LEFTSCROLLBAR 		= 0x00004000
Global Const $WS_EX_OVERLAPPEDWINDOW	= 0x00000300
Global Const $WS_EX_RIGHT				= 0x00001000
Global Const $WS_EX_STATICEDGE			= 0x00020000
Global Const $WS_EX_TOOLWINDOW			= 0x00000080
Global Const $WS_EX_TOPMOST				= 0x00000008
Global Const $WS_EX_TRANSPARENT			= 0x00000020
Global Const $WS_EX_WINDOWEDGE			= 0x00000100
Global Const $WS_EX_LAYERED				= 0x00080000
Global Const $LVS_EX_FULLROWSELECT		= 0x00000020


; Label/Pic/Icon
Global Const $SS_CENTER			= 1
Global Const $SS_RIGHT			= 2
Global Const $SS_ICON			= 3
Global Const $SS_BLACKRECT		= 4
Global Const $SS_GRAYRECT		= 5
Global Const $SS_WHITERECT		= 6
Global Const $SS_BLACKFRAME		= 7
Global Const $SS_GRAYFRAME		= 8
Global Const $SS_WHITEFRAME		= 9
Global Const $SS_SIMPLE			= 11
Global Const $SS_LEFTNOWORDWRAP	= 12
Global Const $SS_BITMAP			= 15
Global Const $SS_ETCHEDHORZ		= 16
Global Const $SS_ETCHEDVERT		= 17
Global Const $SS_ETCHEDFRAME	= 18
Global Const $SS_NOPREFIX		= 0x0080
Global Const $SS_NOTIFY			= 0x0100
Global Const $SS_CENTERIMAGE	= 0x0200
Global Const $SS_RIGHTJUST		= 0x0400
Global Const $SS_SUNKEN			= 0x1000


; Button
Global Const $BS_BOTTOM			= 0x0800
Global Const $BS_CENTER			= 0x0300
Global Const $BS_DEFPUSHBUTTON	= 0x0001
Global Const $BS_LEFT			= 0x0100
Global Const $BS_MULTILINE		= 0x2000
Global Const $BS_PUSHBOX		= 0x000A
Global Const $BS_PUSHLIKE		= 0x1000
Global Const $BS_RIGHT			= 0x0200
Global Const $BS_RIGHTBUTTON	= 0x0020
Global Const $BS_TOP			= 0x0400
Global Const $BS_VCENTER		= 0x0C00
Global Const $BS_FLAT			= 0x8000
Global Const $BS_ICON			= 0x0040
Global Const $BS_BITMAP			= 0x0080

; Checkbox
Global Const $BS_3STATE			= 0x0005
Global Const $BS_AUTO3STATE		= 0x0006
Global Const $BS_AUTOCHECKBOX	= 0x0003
Global Const $BS_CHECKBOX		= 0x0002

; Combo
Global Const $CBS_SIMPLE			= 0x0001
Global Const $CBS_DROPDOWN			= 0x0002
Global Const $CBS_DROPDOWNLIST		= 0x0003
Global Const $CBS_AUTOHSCROLL		= 0x0040
Global Const $CBS_OEMCONVERT		= 0x0080
Global Const $CBS_SORT				= 0x0100
Global Const $CBS_NOINTEGRALHEIGHT	= 0x0400
Global Const $CBS_DISABLENOSCROLL	= 0x0800
Global Const $CBS_UPPERCASE			= 0x2000
Global Const $CBS_LOWERCASE			= 0x4000


; Listbox
Global Const $LBS_NOTIFY			= 0x0001
Global Const $LBS_SORT				= 0x0002
Global Const $LBS_USETABSTOPS		= 0x0080
Global Const $LBS_NOINTEGRALHEIGHT	= 0x0100
Global Const $LBS_DISABLENOSCROLL	= 0x1000
Global Const $LBS_NOSEL				= 0x4000
Global Const $LBS_STANDARD			= 0xA00003


; Edit/Input
Global Const $ES_LEFT				= 0
Global Const $ES_CENTER				= 1
Global Const $ES_RIGHT				= 2
Global Const $ES_MULTILINE			= 4
Global Const $ES_UPPERCASE			= 8
Global Const $ES_LOWERCASE			= 16
Global Const $ES_PASSWORD			= 32
Global Const $ES_AUTOVSCROLL		= 64
Global Const $ES_AUTOHSCROLL		= 128
Global Const $ES_NOHIDESEL			= 256
Global Const $ES_OEMCONVERT			= 1024
Global Const $ES_READONLY			= 2048
Global Const $ES_WANTRETURN			= 4096
Global Const $ES_NUMBER				= 8192
;Global Const $ES_DISABLENOSCROLL = 8192
;Global Const $ES_SUNKEN = 16384
;Global Const $ES_VERTICAL = 4194304
;Global Const $ES_SELECTIONBAR = 16777216


; Date
Global Const $DTS_SHORTDATEFORMAT	= 0
Global Const $DTS_UPDOWN			= 1
Global Const $DTS_SHOWNONE			= 2
Global Const $DTS_LONGDATEFORMAT	= 4
Global Const $DTS_TIMEFORMAT		= 9
Global Const $DTS_RIGHTALIGN		= 32

; Progress bar
Global Const $PBS_SMOOTH	= 1
Global Const $PBS_VERTICAL	= 4


; AVI clip
Global Const $ACS_CENTER			= 1
Global Const $ACS_TRANSPARENT		= 2
Global Const $ACS_AUTOPLAY			= 4
Global Const $ACS_TIMER				= 8
Global Const $ACS_NONTRANSPARENT	= 16


; Tab
Global Const $TCS_SCROLLOPPOSITE	= 0x0001
Global Const $TCS_BOTTOM			= 0x0002
Global Const $TCS_RIGHT				= 0x0002
Global Const $TCS_MULTISELECT		= 0x0004
Global Const $TCS_FLATBUTTONS		= 0x0008
Global Const $TCS_FORCEICONLEFT		= 0x0010
Global Const $TCS_FORCELABELLEFT	= 0x0020
Global Const $TCS_HOTTRACK			= 0x0040
Global Const $TCS_VERTICAL			= 0x0080
Global Const $TCS_TABS				= 0x0000
Global Const $TCS_BUTTONS			= 0x0100
Global Const $TCS_SINGLELINE		= 0x0000
Global Const $TCS_MULTILINE			= 0x0200
Global Const $TCS_RIGHTJUSTIFY		= 0x0000
Global Const $TCS_FIXEDWIDTH		= 0x0400
Global Const $TCS_RAGGEDRIGHT		= 0x0800
Global Const $TCS_FOCUSONBUTTONDOWN = 0x1000
Global Const $TCS_OWNERDRAWFIXED	= 0x2000
Global Const $TCS_TOOLTIPS			= 0x4000
Global Const $TCS_FOCUSNEVER		= 0x8000


; TreeView
Global Const $TVS_HASBUTTONS     	= 0x0001
Global Const $TVS_HASLINES       	= 0x0002
Global Const $TVS_LINESATROOT    	= 0x0004
;Global Const $TVS_EDITLABELS      = 0x0008
Global Const $TVS_DISABLEDRAGDROP	= 0x0010
Global Const $TVS_SHOWSELALWAYS		= 0x0020
;Global Const $TVS_RTLREADING     = 0x0040
Global Const $TVS_NOTOOLTIPS		= 0x0080
Global Const $TVS_CHECKBOXES		= 0x0100
Global Const $TVS_TRACKSELECT		= 0x0200
Global Const $TVS_SINGLEEXPAND		= 0x0400
;Global Const $TVS_INFOTIP        = 0x0800
Global Const $TVS_FULLROWSELECT		= 0x1000
Global Const $TVS_NOSCROLL			= 0x2000
Global Const $TVS_NONEVENHEIGHT		= 0x4000

; Slider
Global Const $TBS_AUTOTICKS	= 0x0001
Global Const $TBS_VERT		= 0x0002
Global Const $TBS_HORZ		= 0x0000
Global Const $TBS_TOP		= 0x0004
Global Const $TBS_BOTTOM	= 0x0000
Global Const $TBS_LEFT		= 0x0004
Global Const $TBS_RIGHT		= 0x0000
Global Const $TBS_BOTH		= 0x0008
Global Const $TBS_NOTICKS	= 0x0010
Global Const $TBS_NOTHUMB	= 0x0080

; ListView
Global Const $LVS_REPORT 			= 0x0001
Global Const $LVS_EDITLABELS		= 0x0200
Global Const $LVS_NOCOLUMNHEADER	= 0x4000
Global Const $LVS_NOSORTHEADER		= 0x8000
Global Const $LVS_SINGLESEL			= 0x0004
Global Const $LVS_SHOWSELALWAYS		= 0x0008

;Updown
Global Const $UDS_WRAP 				= 0x0001
Global Const $UDS_ALIGNRIGHT 		= 0x0004
Global Const $UDS_ALIGNLEFT			= 0x0008
Global Const $UDS_ARROWKEYS 		= 0x0020
Global Const $UDS_HORZ 				= 0x0040
Global Const $UDS_NOTHOUSANDS 		= 0x0080

; Control default styles
Global Const $GUI_SS_DEFAULT_AVI		= $ACS_TRANSPARENT
Global Const $GUI_SS_DEFAULT_BUTTON		= 0
Global Const $GUI_SS_DEFAULT_CHECKBOX	= 0
Global Const $GUI_SS_DEFAULT_COMBO		= $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL
Global Const $GUI_SS_DEFAULT_DATE		= $DTS_LONGDATEFORMAT
Global Const $GUI_SS_DEFAULT_EDIT		= $ES_WANTRETURN + $WS_VSCROLL + $WS_HSCROLL + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_GROUP		= 0
Global Const $GUI_SS_DEFAULT_ICON		= $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_INPUT		= $ES_LEFT + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_LABEL		= 0
Global Const $GUI_SS_DEFAULT_LIST		= $LBS_SORT + $WS_BORDER + $WS_VSCROLL + $LBS_NOTIFY
Global Const $GUI_SS_DEFAULT_LISTVIEW	= $LVS_SHOWSELALWAYS + $LVS_SINGLESEL
Global Const $GUI_SS_DEFAULT_PIC		= $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_PROGRESS	= 0
Global Const $GUI_SS_DEFAULT_RADIO		= 0
Global Const $GUI_SS_DEFAULT_SLIDER		= $TBS_AUTOTICKS
Global Const $GUI_SS_DEFAULT_TAB		= 0
Global Const $GUI_SS_DEFAULT_TREEVIEW	= $TVS_HASBUTTONS + $TVS_HASLINES + $TVS_LINESATROOT + $TVS_DISABLEDRAGDROP + $TVS_SHOWSELALWAYS
Global Const $GUI_SS_DEFAULT_UPDOWN		= $UDS_ALIGNRIGHT
Global Const $GUI_SS_DEFAULT_GUI		= $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU


; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\Include\GUIConstants.au3>
; ----------------------------------------------------------------------------


Opt( "RunErrorsFatal", 0 ) 
Opt( "WinWaitDelay", 100 ) 
Opt( "WinDetectHiddenText", 1 ) 
Opt( "MouseCoordMode", 1 ) 

Global $hourtime, $mesx

; AdlibEnable(  "_debug", 1000  ) 

Global $WORKINGDIR, $TRADESTART, $WITHDRAW = "NO", $TRIAL = "YES", $INTRADE = "NO", $TRADEREQUEST = "NO", $TRADINGTIMESHOWED = 0, $REG
Global $TRADEFILE, $VISITOR, $OURNAME, $CARDS, $FILTER, $LASTMESSAGE = "@", $HEAVYSPAM, $MAXCARDSPERTRADE, $coord, $INIFILE

;~ Name and version of The BoT
Global $nothebot = "ProjectGremBot", $3TURNS = 0
Global $TIME, $MYNAME, $GremBot, $MTGOSUCKS = 0, $DISABLESPAM, $ROOM2SPAM, $IMSGBOXANSWER
;~ messages
Global $WELCOMEMESSAGE, $BUYINGBALANCEMESSAGE, $SELLINGBALANCEMESSAGE, $YOUWILLTAKEMESSAGE, $TOOMANYMESSAGE
Global $THANXMESSAGE, $2MINSLEFTMESSAGE, $AUTOANSWERMESSAGE, $ONLYTICKETSMESSAGE, $WAITINGYOUMESSAGE, $NOTENOUGHMESSAGE
;~ Screenshot
Global $TRADESHOT = "YES", $MESSAGESHOT = "YES"
;~ Trade Settings
Global $BOTGIVES, $BUYINGBOTGIVES, $BOTTAKES, $BUYINGBOTTAKES, $BUYINGRARITY, $BUYINGVERSION, $SELLINGBOTTAKES
Global $BUYING, $NUMBEROWNEDSIGN, $NUMBEROWNEDVALUE, $MODE, $inimode, $TRADINGTIME, $SET, $SELLINGBOTGIVES, $NOLANDS, $EOBUYING, $somx3
;~ Spam
Dim $SPAMMESSAGE[8]

Global $SPAMPERIOD
Global $CN, $PG, $DLL, $DLL2, $JPG
Global $CARDCHECK[101][2]
Global $MAXCARDS, $savepas
Global $LASTTAKEN, $ourname, $user, $msg, $PASS, $f, $a, $z, $rew, $xxce, $spamfixed, $userfixed, $somx2, $Button3
Global $SPAMNO = 1

Global $itisPAUSED = 0
Global $nowclose

;mine
Global $string, $clip, $whatourthetypes, $yle, $TRADINGBOTGIVES, $ands, $TRADINGBOTTAKES, $whatourthetypesX, $iniMessages, $initrade, $inispam, $iniscreenshot 
global $LICENSED, $inimodeset, $modeBEGIN, $modeend, $TRADINGBOTGIVES, $TRADINGBOTTAKES, $THEYTAKE_SILVER
Global $string, $mes, $clip, $whatourthetypes, $mesx, $modex, $yle, $TRADINGBOTGIVES, $TRADINGBOTTAKES, $whatourthetypesX, $iniMessages, $initrade, $inispam, $iniscreenshot
global $LICENSED, $inimodeset, $modeBEGIN, $modeend, $TRADINGBOTGIVES, $TRADINGBOTTAKES, $THEYTAKE_SILVER


	$WORKINGDIR = @ScriptDir & "\";
	$iniFILE = $WORKINGDIR & "ProjectGremBot.ini"
	$inimessages = $WORKINGDIR & "ProjectGremBot Messages.ini"
	$INiTRADE = $WORKINGDIR & "ProjectGremBot Trade.ini"
	$INISPAM = $WORKINGDIR & "ProjectGremBot Spam.ini"
	$INISCREENSHOT = $WORKINGDIR & "ProjectGremBot Screenshot.ini"
	$TRADEFILE = $WORKINGDIR & "Store Credit.ini"
	$inimodeset = $WORKINGDIR & "Temp Mode.ini"

;~ Mode of BOT ( Seller or Buyer ) 
global $difernce, $update, $somx, $i, $filelist, $filesize, $Progress1, $SS_CENTER1, $GUI_BKCOLOR_TRANSPARENT, $updt, $form1
Dim $Udif, $QT_web = "www.ProjectGremBot.somee.com"
global $difernce, $update, $somex, $decide
Dim $Udif, $QT_web = "www.ProjectGremBot.somee.com"



	Func _CreateProgress( $x, $y, $w, $h, $Label="" ) 
     Dim $Progress[2]
     $Progress[0] = GuiCtrlCreateProgress( $x, $y, $w, $h ) 
     $Progress[1] = GuiCtrlCreateLabel( $Label, $x, $y+3, $w, $h, $SS_CENTER  ) 
     GUICtrlSetBkColor( $Progress[1], $GUI_BKCOLOR_TRANSPARENT ) 
     Return $Progress
EndFunc

Func _UpdateProgress( $ProgressID, $Percent, $Label="" ) 
     GUICtrlSetData( $ProgressID[0], $Percent ) 
 EndFunc


DirCreate( @ScriptDir & "\Support" ) 

DirCreate( @ScriptDir & "\Trade" ) 

DirCreate( @ScriptDir & "\Reports" ) 

DirCreate( @ScriptDir & "\PMs Recieved" ) 

;test
FileDelete( "updatenew.txt" ) 
InetGet( "http://www.projectgrembot.somee.com/updatenew.txt", "updatenew.txt", 1, 0 ) 
if FileExists( "update.txt" )  = 0 Then
		IniWrite( "update.txt", "update", "ProjectGremBot.exe", "v1.01" ) 
	EndIf
	$somx = IniRead( "updatenew.txt", "update", "ProjectGremBot.exe", "" ) 
	$somx2 = IniRead( "update.txt", "update", "ProjectGremBot.exe", "" ) 
if IniRead( "updatenew.txt", "update", "ProjectGremBot.exe", "" )  <> IniRead( "update.txt", "update", "ProjectGremBot.exe", "" )  Then
	$updt = MsgBox(  4, "Update?", "The ProjectGremBot.exe has been updated from " & $somx2 & " to " & $somx & ". Do you want to download this update?" ) 
	if $updt = 6 then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/updater.exe" ) 
	InetGet( "http://www.projectgrembot.somee.com/updater.exe", "updater.exe", 1,1 ) 
	$decide = FileGetSize( "ProjectGremBotupdater.exe" ) 
	$Form1 = GUICreate( "ProjectGremBot Updater", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "updater.exe" ) 
		WEnd

	IniWrite( "updatenew.txt", "update", "ProjectGremBot.exe", $somx ) 
	Run( "updater.exe" ) 
	_endthebot(  ) 
EndIf
EndIf

	if FileExists( "ProjectGrembotsplash.JPG" )  = 0 Then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/ProjectGremBotsplash.JPG" ) 
	InetGet( "http://www.projectgrembot.somee.com/ProjectGremBotsplash.JPG", "ProjectGremBotsplash.JPG", 1,1 ) 
	$decide = FileGetSize( "ProjectGremBotsplash.JPG" ) 
	$Form1 = GUICreate( "ProjectGremBot Program Fix", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "ProjectGremBotsplash.JPG" ) 
		WEnd
	EndIf
	
		if FileExists( "ProjectGremBot.dll" )  = 0 Then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/ProjectGremBot.dll" ) 
	InetGet( "http://www.projectgrembot.somee.com/ProjectGremBot.dll", "ProjectGremBot.dll", 1,1 ) 
	$decide = FileGetSize( "ProjectGremBot.dll" ) 
	$Form1 = GUICreate( "ProjectGremBot Program Fix", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "ProjectGremBot.dll" ) 
		WEnd
	EndIf
	
		if FileExists( "ProgramInfo.dll" )  = 0 Then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/ProgramInfo.dll" ) 
	InetGet( "http://www.projectgrembot.somee.com/ProgramInfo.dll", "ProgramInfo.dll", 1,1 ) 
	$decide = FileGetSize( "ProgramInfo.dll" ) 
	$Form1 = GUICreate( "ProjectGremBot Program Fix", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "ProgramInfo.dll" ) 
		WEnd
	EndIf
	
_shortcut(  ) 
	HotKeySet( "{F6}", "_FUNCTIONXZ" ) 
	HotKeySet( "{F7}", "_winfix" ) 
	HotKeySet( "{F8}", "_shortcut" ) 
	HotKeySet( "{F9}", "_gethelp" ) 
	HotKeySet( "{F10}", "_Trade" ) 
	HotKeySet( "{PAUSE}", "_TogglePause" ) 
	HotKeySet(  "!{ESC}", "_endthebot" ) 

 
	If WinExists( $nothebot & "The Bot" )  Then 
		_ShowError( "Only one copy of " & $nothebot & " can run at a time." )  
		Exit
		EndIf

_CheckIfRegistered(  ) 

if WinExists( "Magic Online V2.0.070.1660" )  then 
	WinActivate( "Magic Online V2.0.070.1660" ) 
	WinWaitActive( "Magic Online V2.0.070.1660" ) 
	Do 
		_funct1(  )  
	until 1=2
	EndIf

if WinExists( "Magic Online - " & $nothebot )  then 
	WinActivate( "Magic Online - " & $nothebot ) 
	WinWaitActive( "Magic Online - " & $nothebot ) 
	do 
		_winfix(  ) 
		sleep( 1000 ) 
		if PixelGetColor( 499, 415 )  = 9802661 and PixelGetColor( 499, 360 )  = 9802661 then 
		_234(  ) 
		Else
		_funct1(  ) 
	EndIf
	until 1=2
EndIf


Func _234(  ) 
		IniWrite( "pass.ini", "pass", "p", "h" ) 
	$OURNAME = IniRead( $INiTRADE, "Trade", "AccountName", "ENTER YOUR NAME" ) 
	$user = $ourname
	if ( $OURNAME = "" )  or ( $OURNAME = "ENTER YOUR NAME" )  Then 
		_user2(  ) 
	Else
		$pass = IniRead( "pass.ini", "pass", $user, "" ) 
		if $pass <> "" and $pass <> " " then 				
while PixelGetColor( 499, 415 )  = 9802661 and PixelGetColor( 499, 360 )  = 9802661  
	sleep( 1000 ) 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		EndIf

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
			WEnd
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop


			_funct1(  ) 

		WEnd
			

			

Else
	DllClose(  $DLL2  ) 

$USER = $OURNAME



Local $Form1, $Input1, $Button1, $Button2

$Form1 = GUICreate( "Auto Login Utiliy", 256, 170 ) 
GUISetFont( 9, 400, 0, "Tahoma" ) 
GUICtrlCreateLabel(  "Please enter " & $USER &"s password:", 16, 16, 230, 18 ) 
$Input1 = GUICtrlCreateInput( "", 16, 40, 225, 22, $ES_PASSWORD, $WS_EX_CLIENTEDGE  ) 
GUICtrlCreateLabel( "This will start MTGO TCG then it will load ProjectGremBot.", 16, 80, 250, 32 ) 
$Button1 = GUICtrlCreateButton( "Auto Login", 16, 115, 110, 25 ) 
$Button2 = GUICtrlCreateButton( "EXIT", 125, 115, 110, 25 ) 
$Button3 = GUICtrlCreateButton( "DO NOT USE AUTOLOGIN", 16, 140, 220, 25 ) 
GUISetState( @SW_SHOW ) 

While 1
	$msg = GuiGetMsg(  ) 
	Select
	Case $msg = $Button1
		ExitLoop
	Case $msg = $Button2
		Exit
	Case $msg = $GUIEVENTCLOSE
		Exit
	Case $msg = $Button3
		_openMTGO(  ) 
	Case Else
		;;;;;;;
	EndSelect
WEnd



$PASS = GUICtrlRead( $Input1 ) 


GUIDelete (  $Form1  ) 

If $PASS = "" Then Exit

$savepas = MsgBox(  3, "Save Pass?", "Would you like to save the password for " & $user & "?" ) 
if $savepas = 6 then 
	IniWrite( "pass.ini", "pass", $user, $savepas ) 
	EndIf

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_22x(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd
EndIf
EndIf
EndFunc
	
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning, Modality=System Modal
; MsgBox( 4144, "IMPORTANT", "You should press F11 key to stop AutoLogin." ) 

#EndRegion --- CodeWizard generated code End ---


Func  _init(  ) 
	Local $X, $Y, $Z, $A

	WinActivate( "Magic Online V2" ) 

	If @DesktopDepth < 24 Then

		_ShowError(  "Your color depth should be 24bit or 32bit" ) 
	EndIf

	If @DesktopHeight > 768 And @DesktopWidth > 1024 Then

		WinMove(  "Magic Online V2", "", 0, 0, 1024, 755 ) 

		$Y = 0
		While PixelGetColor( 500, $Y )  <> 0
			$Y = $Y + 1
		WEnd

;~ 	721

		$X = 0
		While PixelGetColor( $X, $Y )  <> 0
			$X = $X + 1
		WEnd

		$Z = $Y + $X

		$Y = $Y - 19

		WinMove(  "Magic Online V2", "", -$X, -$Y, 1024 + 2 * $X, 721 + $Z ) 

	Else

		WinSetState(  "Magic Online V2", "", @SW_MAXIMIZE ) 

		$A = WinGetClientSize(  "Magic Online V2" ) 

		If $A[0] <> 1024 Or $A[1] <> 721 Then
			_ShowError(  "Theres an error with your system config. Read the FAQ page at http://www.ProjectGremBot.somee.com and if you cant solve the problem, please send me the latest screenshot in the support folder to cyberempires@gmail.com" ) 
		EndIf

	EndIf

	WinActivate( "Magic Online V2", "" ) 


	Opt( "WinTitleMatchMode", 4 ) 

EndFunc   ;==>init

	$DLL2 = DllOpen( "ProgramInfo.dll" ) 

$OURNAME = IniRead( $INiTRADE, "Trade", "AccountName", "ENTER YOUR NAME" ) 
	if ( $OURNAME = "" )  or ( $OURNAME = "ENTER YOUR NAME" )  Then 
		_user2(  ) 
		Else
	$ands = MsgBox( 4, "Change Username", "Do you want to login as " & $ourname & "?", 15 ) 
		if $ands = 7 Then
			_user2(  ) 
		else
	$user = $OURNAME
	IniWrite( "pass.ini", "pass", "p", "h" ) 
	$rew = IniRead( "pass.ini", "pass", $user, "" ) 
	$xxce = $rew
	if $xxce <> "" and $xxce <> " " Then
		$xxce = MsgBox( 4, "Load Pass", "Do you want to load your saved password for " & $ourname & "?" ) 
	if $xxce = 6 Then
$PASS = $rew

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd
	EndIf
	if $xxce = 7 Then
DllClose(  $DLL2  ) 

$USER = $OURNAME

;guifix

Local $Form1, $Input1, $Button1, $Button2

$Form1 = GUICreate( "Auto Login Utiliy", 256, 170 ) 
GUISetFont( 9, 400, 0, "Tahoma" ) 
GUICtrlCreateLabel(  "Please enter " & $USER &"s password:", 16, 16, 230, 18 ) 
$Input1 = GUICtrlCreateInput( "", 16, 40, 225, 22, $ES_PASSWORD, $WS_EX_CLIENTEDGE  ) 
GUICtrlCreateLabel( "This will start MTGO TCG then it will load ProjectGremBot.", 16, 80, 250, 32 ) 
$Button1 = GUICtrlCreateButton( "Auto Login", 16, 115, 110, 25 ) 
$Button2 = GUICtrlCreateButton( "EXIT", 125, 115, 110, 25 ) 
$Button3 = GUICtrlCreateButton( "DO NOT USE AUTOLOGIN", 16, 140, 220, 25 ) 
GUISetState( @SW_SHOW ) 

While 1
	$msg = GuiGetMsg(  ) 
	Select
	Case $msg = $Button1
		ExitLoop
	Case $msg = $Button2
		Exit
	Case $msg = $GUIEVENTCLOSE
		Exit
	Case $msg = $Button3
		_openMTGO(  ) 
	Case Else
		;;;;;;;
	EndSelect
WEnd



$PASS = GUICtrlRead( $Input1 ) 


GUIDelete (  $Form1  ) 

If $PASS = "" Then Exit

$savepas = MsgBox(  3, "Save Pass?", "Would you like to save the password for " & $user & "?" ) 
if $savepas = 6 then 
	IniWrite( "pass.ini", "pass", $user, $savepas ) 
	EndIf

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd
		 EndIf
EndIf
EndIf
EndIf
DllClose(  $DLL2  ) 

$USER = $OURNAME



Local $Form1, $Input1, $Button1, $Button2

;guifix

$Form1 = GUICreate( "Auto Login Utiliy", 256, 170 ) 
GUISetFont( 9, 400, 0, "Tahoma" ) 
GUICtrlCreateLabel(  "Please enter " & $USER &"s password:", 16, 16, 230, 18 ) 
$Input1 = GUICtrlCreateInput( "", 16, 40, 225, 22, $ES_PASSWORD, $WS_EX_CLIENTEDGE  ) 
GUICtrlCreateLabel( "This will start MTGO TCG then it will load ProjectGremBot.", 16, 80, 250, 32 ) 
$Button1 = GUICtrlCreateButton( "Auto Login", 16, 115, 110, 25 ) 
$Button2 = GUICtrlCreateButton( "EXIT", 125, 115, 110, 25 ) 
$Button3 = GUICtrlCreateButton( "DO NOT USE AUTOLOGIN", 16, 140, 220, 25 ) 
GUISetState( @SW_SHOW ) 

While 1
	$msg = GuiGetMsg(  ) 
	Select
	Case $msg = $Button1
		ExitLoop
	Case $msg = $Button2
		Exit
	Case $msg = $GUIEVENTCLOSE
		Exit
	Case $msg = $Button3
		_openMTGO(  ) 
	Case Else
		;;;;;;;
	EndSelect
WEnd



$PASS = GUICtrlRead( $Input1 ) 


GUIDelete (  $Form1  ) 

If $PASS = "" Then Exit

$savepas = MsgBox(  3, "Save Pass?", "Would you like to save the password for " & $user & "?" ) 
if $savepas = 6 then 
	IniWrite( "pass.ini", "pass", $user, $savepas ) 
	EndIf

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd



func _openMTGO(  ) 
	$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 
 _init(  ) 
sleep(  1000  ) 
	While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 and PixelGetColor( 857, 512 )  = 9988379 then 
					ExitLoop
				EndIf
			WEnd
	_SplashScreen(  ) 
	$TIME = _NowCalc(  ) 
	_Initialize(  ) 
	if $somx3 = "new" then 
		_allnew(  ) 
	EndIf
	_initspam(  ) 
	_Spam(  ) 
	_endit(  ) 
EndFunc
func _funct(  ) 
	_Spam(  ) 
	_takecareofthewindow( $nowclose ) 
	_endit(  ) 
	
EndFunc

func _funct1(  ) 
	_SplashScreen(  ) 
	$TIME = _NowCalc(  ) 
	_Initialize(  ) 
	if $somx3 = "new" then 
		_allnew(  ) 
		EndIf
	_initspam(  ) 
	_Spam(  ) 
	_endit(  ) 
	EndFunc

func _22x(  ) 
	_SplashScreen(  ) 
	$TIME = _NowCalc(  ) 
	_Initialize(  ) 
	_initspam(  ) 
	_Spam(  ) 
	_endit(  ) 
	EndFunc

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Gokhan\Desktop\ProjectGremBot\AutoLogin.au3>
; ----------------------------------------------------------------------------





; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Gokhan\Desktop\ProjectGremBot\AutoLogin.au3>
; ----------------------------------------------------------------------------

; PART2
; hour Time


; OK
Func _TogglePause(  ) 
	$itisPAUSED = Not $itisPAUSED
	While $itisPAUSED
		Sleep( 500 ) 
		ToolTip( $nothebot &  "is Paused", 0, 0 ) 
	WEnd
	ToolTip( "" ) 
EndFunc

; OK
Func _tosendmessage( $M, $TARGET, $SOURCE ) 
	If $M <> "@" Then

		$M = StringReplace( $M, "@visitor", $VISITOR ) 
		$M = StringReplace( $M, "@botname", $OURNAME ) 
		$M = StringReplace( $M, "@time", $TRADINGTIME ) 

		If $TARGET <> "" Then $M = StringReplace( $M, $TARGET, $SOURCE ) 

		If $M <> $LASTMESSAGE Then
			ClipPut( $M ) 
			Send( "^v{enter}" ) 
			$LASTMESSAGE = $M
		EndIf

	EndIf
EndFunc

; OK
Func _StringLock( $SSTRING ) 
	Local $SREVERSE, $R
	Local $ICOUNT
	If StringLen( $SSTRING )  >= 1 Then
		For $ICOUNT = 1 To StringLen( $SSTRING ) 
			$SREVERSE = Asc( StringMid( $SSTRING, $ICOUNT, 1 )  )  & $SREVERSE
			$R = $R & ( Asc( StringMid( $SSTRING, $ICOUNT, 1 )  )  + ( $ICOUNT * 3 )  ) 
		Next
		Return ( Hex( $SREVERSE, 8 )  & Hex( $R, 8 )  ) 
	Else
		SetError( 1 ) 
		Return ""
	EndIf
EndFunc

; OK
Func _StringUnlock( $SSTRING ) 
	Local $UNLOCKER
	Local $SREVERSE, $A, $K, $ZED
	Local $ICOUNT
	$UNLOCKER = "ILIKECHEESEYPOOFS"
	For $ICOUNT = 1 To StringLen( $SSTRING )  Step 2
		$K = Asc( StringMid( $UNLOCKER, $ZED, 1 )  ) 
		$ZED = $ZED + 1
		$A = BitXOR(  Dec( StringMid( $SSTRING, $ICOUNT, 2 )  ) , $K ) 
		$SREVERSE = Hex( $A, 2 )  & $SREVERSE
	Next
	Return $SREVERSE
EndFunc

; ok
Func _ScreenShot( $TYPE ) 

;~ 	Send(  "{printscreen}" ) 

	DllCall( $DLL, "none", "TakeAScreenShot", "Str", $TYPE & "\" & $TYPE ) 

EndFunc

; degistir
Func _Initialize(  ) 

	If FileExists( @WindowsDir & "\System32\mousectrl.dll" )  = 0 Then
		IniWrite( @WindowsDir & "\System32\mousectrl.dll", "Spin", "Value", _AuthCode(  )  ) 
	EndIf

	If FileExists( $inimessages )  <> 1 Then
		If @error <> 0 Then Exit
			$somx3 = "new"
		IniWrite( $inimessages, "Messages", "Welcome", "Welcome @visitor {s}. Im selling 3 cards for 1 Ticket. You have @time minutes to complete the trade." ) 
;~  when selling
		IniWrite( $inimessages, "Messages", "BuyingBalance", "Your Balance: -@number card( s ) . You should give @number more cards to take a Ticket." ) 
		IniWrite( $inimessages, "Messages", "SellingBalance", "Your Balance: +@number card( s ) . You can get @number more cards without giving a Ticket." ) 
;~ Warning Message
		IniWrite( $inimessages, "Messages", "2minsLeft", "You have 2 minutes left to complete the trade." ) 
		IniWrite( $inimessages, "Messages", "WaitingYou", "Please choose the card( s )  and then CONFIRM." ) 
		IniWrite( $inimessages, "Messages", "TooMany", "You have taken too many cards, please remove some." ) 
		IniWrite( $inimessages, "Messages", "OnlyTickets", "You have to choose Event Tickets OR Cards! Please remove one of them." ) 

		IniWrite( $inimessages, "Messages", "NotEnough", "You dont have enough ticket( s ) , please put up more or exit trade." ) 
		IniWrite( $inimessages, "Messages", "YouWillTake", "You should take @number card( s )  to complete the trade." ) 

		IniWrite( $inimessages, "Messages", "Thanx", "Thank you @visitor {s}. Please add me to your buddylist {l}{l}{l} and come back again ( /addbuddy ""@botname"" ) ." ) 
		IniWrite( $inimessages, "Messages", "AutoAnswer", "This is an automated trading bot, please dont send PM, just enter trade." ) 
EndIf
	If FileExists( $INISCREENSHOT )  <> 1 Then
		If @error <> 0 Then Exit
						$somx3 = "new"

;~ screenshots
		IniWrite( $INISCREENSHOT, "Screenshot", "Trade", "YES" ) 
		IniWrite( $INISCREENSHOT, "Screenshot", "Message", "YES" ) 
EndIf

;~ settings
	If IniRead( $INiTRADE, "Trade", "BuyingBotTakes", "check" )  = "check" Then
		If @error <> 0 Then Exit
						$somx3 = "new"
		IniWrite( $INiTRADE, "Trade", "BuyingBotTakes", "3" ) 
		IniWrite( $INiTRADE, "Trade", "BuyingBotGives", "1" ) 

		IniWrite( $INiTRADE, "Trade", "BuyingRarity", "RARE" ) 
		IniWrite( $INiTRADE, "Trade", "BuyingVersion", "ANY" ) 
		IniWrite( $INiTRADE, "Trade", "Buying", "" ) 
		IniWrite( $INiTRADE, "Trade", "NumberOwnedSign", ">=" ) 
		IniWrite( $INiTRADE, "Trade", "NumberOwnedValue", "0" ) 
		IniWrite( $INiTRADE, "Trade", "Set", "ALL" ) 
		IniWrite( $INiTRADE, "Trade", "MaxCardsPerTrade", "32" ) 
		IniWrite( $INiTRADE, "Trade", "NumberOfSameCards", "4" ) 
		IniWrite( $INiTRADE, "Trade", "NoLands", "YES" ) 

		IniWrite( $INiTRADE, "Trade", "SellingBotGives", "2" ) 
		IniWrite( $INiTRADE, "Trade", "SellingBotTakes", "1" ) 

		IniWrite( $INiTRADE, "Trade", "TradingBotGives", "2" ) 
		IniWrite( $INiTRADE, "Trade", "TradingBotTakes", "1" ) 

		IniWrite( $INiTRADE, "Trade", "Mode", "ALL" ) 
		IniWrite( $INiTRADE, "Trade", "TradingTime", "10" ) 


	EndIf

	if FileExists( $inimodeset )  <> 1 Then
		If @error <> 0 Then Exit
						$somx3 = "new"
		IniWrite( $inimodeset, "MODESET", "MODE", "ALL" ) 
	EndIf

	If FileExists( $INISPAM )  <> 1 Then
		If @error <> 0 Then Exit
						$somx3 = "new"
		IniWrite( $INISPAM, "Spam", "DisableSpam", "NO" ) 
		IniWrite( $INISPAM, "Spam", "Message1", "" ) 
		IniWrite( $INISPAM, "Spam", "Message2", "" ) 
		IniWrite( $INISPAM, "Spam", "Message3", "" ) 
		IniWrite( $INISPAM, "Spam", "Message4", "" ) 
		IniWrite( $INISPAM, "Spam", "Message5", "" ) 
		IniWrite( $INISPAM, "Spam", "Message6", "" ) 
		IniWrite( $INISPAM, "Spam", "Message7", "" ) 
		IniWrite( $INISPAM, "Spam", "Message8", "" ) 
		IniWrite( $INISPAM, "Spam", "Message9", "" ) 

		IniWrite( $INISPAM, "Spam", "MessageBoard-Buyers", "ENTER YOUR MESSAGE" ) 
		IniWrite( $INISPAM, "Spam", "MessageBoard-Sellers", "ENTER YOUR MESSAGE" ) 

		IniWrite( $INISPAM, "Spam", "SpamPeriod", "120" ) 

		IniWrite( $INISPAM, "Spam", "Room2Spam", "marketplace" ) 

		IniWrite( $INIFILE, "Trade", "AccountName", "" ) 
EndIf
	If FileExists( $INIFILE )  <> 1 Then
		If @error <> 0 Then Exit
		$somx3 = "new"
		IniWrite( $INIFILE, "Authorisation", "Code", _StringLock( IniRead( @WindowsDir & "\System32\mousectrl.dll", "spin", "Value", _AuthCode(  )  )  )  ) 
		MsgBox( 4160, $nothebot, "Please edit the configuration files before running the bot." ) 
		Exit
	EndIf

if IniRead( $INISPAM, "Spam", "MessageBoard-Buyers", "ENTER YOUR MESSAGE" )  = "ENTER YOUR MESSAGE" and IniRead( $INISPAM, "Spam", "MessageBoard-Sellers", "ENTER YOUR MESSAGE" )  = "ENTER YOUR MESSAGE" Then
	$somx3 = "new"
	EndIf

	IniWrite( $INIFILE, "Authorisation", "Code", _StringLock( IniRead( @WindowsDir & "\System32\backup32.exe", "spin", "Value", _AuthCode(  )  )  )  ) 

	AutoItWinSetTitle( $nothebot & "The Bot" ) 

	$OURNAME = IniRead( $initrade, "trade", "accountname", "" ) 

	If $OURNAME = "" Then _CheckIfRegistered(  ) 

	$SET = IniRead( $INITRADE, "Trade", "Set", "ALL" ) 
	if ( $SET = "" )  Then $SET = "ALL"

	$modeend = ( IniRead( $inimodeset, "MODESET", "MODE", "ALL" )  ) 

;~ Trading Time
	$TRADINGTIME = Number( IniRead( $INiTRADE, "Trade", "TradingTime", "5" )  ) 
	If $TRADINGTIME < 1 Then $somx3 = "new"

;~ Buying Rarity
	$BUYINGRARITY = StringUpper(  IniRead( $INiTRADE, "Trade", "BuyingRarity", "ANY" )  ) 
	If $BUYINGRARITY <> "ANY" And $BUYINGRARITY <> "COMMON" And $BUYINGRARITY <> "UNCOMMON" And $BUYINGRARITY <> "RARE" And $BUYINGRARITY <> "SPECIAL" Then $somx3 = "new"

;~ Buying Version
	$BUYINGVERSION = StringUpper(  IniRead( $INiTRADE, "Trade", "BuyingVersion", "ANY" )  ) 
	If $BUYINGVERSION <> "REGULAR" And $BUYINGVERSION <> "FOIL" And $BUYINGVERSION <> "ANY" Then $somx3 = "new"

;~ Mode of BOT ( Seller or Buyer ) 
	$MODE = StringUpper(  IniRead( $INiTRADE, "Trade", "Mode", "ALL" )  ) 
	If $MODE <> "SELL" And $MODE <> "BUY" And $MODE <> "TRADE" and $MODE <> "BUYSELL" And $MODE <> "BUYTRADE" And $MODE <> "SELLTRADE"  And $MODE <> "ALL" Then $somx3 = "new"


;~ Bot Gives
	$BUYINGBOTGIVES = Number( IniRead( $INiTRADE, "Trade", "BuyingBotGives", "N/A" )  ) 
	If $BUYINGBOTGIVES < 1 Then $somx3 = "new"
		
	$MAXCARDSPERTRADE = Number( IniRead( $INiTRADE, "Trade", "MaxCardsPerTrade", "N/A" )  ) 
	If $MAXCARDSPERTRADE < 1 Then $somx3 = "new"

	$MAXCARDS = Number( IniRead( $INiTRADE, "Trade", "NumberOfSameCards", "N/A" )  ) 
	If $MAXCARDS < 1 Then $somx3 = "new"


;~ Bot Takes
	$BUYINGBOTTAKES = Number( IniRead( $INiTRADE, "Trade", "BuyingBotTakes", "N/A" )  ) 
	If ( $BUYINGBOTTAKES < 1 )  Then $somx3 = "new"

;~ Bot Gives
	$SELLINGBOTGIVES = Number( IniRead( $INiTRADE, "Trade", "SellingBotGives", "N/A" )  ) 
	If $SELLINGBOTGIVES < 1 Then $somx3 = "new"

;~ Bot Takes
	$SELLINGBOTTAKES = Number( IniRead( $INiTRADE, "Trade", "SellingBotTakes", "N/A" )  ) 
	If ( $SELLINGBOTTAKES < 1 )  Then $somx3 = "new"

;~ Bot Gives
	$TRADINGBOTGIVES = Number( IniRead( $INiTRADE, "Trade", "TradingBotGives", "N/A" )  ) 
	If $TRADINGBOTGIVES < 1 Then $somx3 = "new"
	If $TRADINGBOTGIVES > 32 Then $somx3 = "new"

;~ Bot Takes
	$TRADINGBOTTAKES = Number( IniRead( $INiTRADE, "Trade", "TradingBotTakes", "N/A" )  ) 
	If ( $TRADINGBOTTAKES < 1 )  Then $somx3 = "new"
	If ( $TRADINGBOTTAKES > 32 )  Then $somx3 = "new"

;~ Search for the cards
	$BUYING = IniRead( $INiTRADE, "Trade", "Buying", "" ) 


	$NOLANDS = IniRead( $INiTRADE, "Trade", "NoLands", "YES" ) 
	If $NOLANDS <> "YES" Then $NOLANDS = "NO"


;~ Number Owned Value
	$NUMBEROWNEDVALUE = Number( IniRead( $INiTRADE, "Trade", "NumberOwnedValue", "0" )  ) 
	If $NUMBEROWNEDVALUE < 0 Then $somx3 = "new"

;~ Number Owned Sign
	$NUMBEROWNEDSIGN = IniRead( $INITRADE, "Trade", "NumberOwnedSign", ">=" ) 
	If $NUMBEROWNEDSIGN <> ">=" And $NUMBEROWNEDSIGN <> ">" And $NUMBEROWNEDSIGN <> "=" And $NUMBEROWNEDSIGN <> "<" And $NUMBEROWNEDSIGN <> "<=" Then _ShowError( "NumberOwnedSign can only be >=, >, =, < or <=." ) 
	$WELCOMEMESSAGE = IniRead( $inimessages, "Messages", "Welcome", "@" ) 
	If $WELCOMEMESSAGE = "" Then $WELCOMEMESSAGE = "@"
	$THANXMESSAGE = IniRead( $inimessages, "Messages", "Thanx", "@" ) 
	If $THANXMESSAGE = "" Then $THANXMESSAGE = "@"

	$YOUWILLTAKEMESSAGE = IniRead( $inimessages, "Messages", "YouWillTake", "@" ) 
	If $YOUWILLTAKEMESSAGE = "" Then $YOUWILLTAKEMESSAGE = "@"

	$WAITINGYOUMESSAGE = IniRead( $inimessages, "Messages", "WaitingYou", "@" ) 
	If $WAITINGYOUMESSAGE = "" Then $WAITINGYOUMESSAGE = "@"

	$TOOMANYMESSAGE = IniRead( $inimessages, "Messages", "TOOMANY", "@" ) 
	If $TOOMANYMESSAGE = "" Then $TOOMANYMESSAGE = "@"

	$ONLYTICKETSMESSAGE = IniRead( $inimessages, "Messages", "OnlyTickets", "@" ) 
	If $ONLYTICKETSMESSAGE = "" Then $ONLYTICKETSMESSAGE = "@"

	$NOTENOUGHMESSAGE = IniRead( $inimessages, "Messages", "NotEnough", "@" ) 
	If $NOTENOUGHMESSAGE = "" Then $NOTENOUGHMESSAGE = "@"

	$2MINSLEFTMESSAGE = IniRead( $inimessages, "Messages", "2minsleft", "@" ) 
	If $2MINSLEFTMESSAGE = "" Then $2MINSLEFTMESSAGE = "@"

	$AUTOANSWERMESSAGE = IniRead( $inimessages, "Messages", "AutoAnswer", "@" ) 
	If $AUTOANSWERMESSAGE = "" Then $AUTOANSWERMESSAGE = "@"

	$BUYINGBALANCEMESSAGE = IniRead( $inimessages, "Messages", "BuyingBalance", "@" ) 
	If $BUYINGBALANCEMESSAGE = "" Then $BUYINGBALANCEMESSAGE = "@"

	$SELLINGBALANCEMESSAGE = IniRead( $inimessages, "Messages", "SellingBalance", "@" ) 
	If $SELLINGBALANCEMESSAGE = "" Then $SELLINGBALANCEMESSAGE = "@"


	$TRADESHOT = IniRead( $iniscreenshot, "Screenshot", "Trade", "YES" ) 
	If $TRADESHOT <> "YES" Then $TRADESHOT = "NO"

	$MESSAGESHOT = IniRead( $iniscreenshot, "Screenshot", "Message", "YES" ) 
	If $MESSAGESHOT <> "YES" Then $MESSAGESHOT = "NO"


	$DISABLESPAM = IniRead( $INISPAM, "Spam", "DisableSpam", "YES" ) 
	If $DISABLESPAM <> "YES" Then $DISABLESPAM = "NO"

	$ROOM2SPAM = IniRead( $INISPAM, "Spam", "Room2Spam", "marketplace" ) 

;~ Spam messages
	$SPAMMESSAGE[0] = IniRead( $INISPAM, "Spam", "Message1", "" ) 
	$SPAMMESSAGE[1] = IniRead( $INISPAM, "Spam", "Message2", "" ) 
	$SPAMMESSAGE[2] = IniRead( $INISPAM, "Spam", "Message4", "" ) 
	$SPAMMESSAGE[3] = IniRead( $INISPAM, "Spam", "Message5", "" ) 
	$SPAMMESSAGE[4] = IniRead( $INISPAM, "Spam", "Message6", "" ) 
	$SPAMMESSAGE[5] = IniRead( $INISPAM, "Spam", "Message7", "" ) 
	$SPAMMESSAGE[6] = IniRead( $INISPAM, "Spam", "Message8", "" ) 
	$SPAMMESSAGE[7] = IniRead( $INISPAM, "Spam", "Message9", "" ) 
;~ Spamming Period
	$SPAMPERIOD = Number( IniRead( $INISPAM, "Spam", "SpamPeriod", "120" )  ) 
	If $SPAMPERIOD < 120 Then $somx3 = "new"

;	$SPAMPERIOD = 10



EndFunc


Func _shortcut(  ) 

	Local $X, $Y, $Z, $A

	$JPG = ( "ProjectGrembotsplash.JPG" ) 

	$DLL = DllOpen( "ProjectGremBot.dll" ) 

	$DLL2 = DllOpen( "ProgramInfo.dll" ) 


	SplashImageOn( "", "ProjectGrembotsplash.JPG", "600", "640", "-1", "-1", 1 ) 
	Sleep( 4000 ) 
	SplashOff(  ) 
	EndFunc

Func _winfix(  ) 

	Local $X, $Y, $Z, $A

	$DLL = DllOpen( "ProjectGremBot.dll" ) 

	$DLL2 = DllOpen( "ProgramInfo.dll" ) 

	opt( "WinTitleMatchMode", 1 ) 
	WinSetTitle(  "Magic Online V2", "", "Magic Online - " & $nothebot ) 
	If Not WinExists(  "Magic Online - " & $nothebot )  Then _ShowError(  "The Magic Online client must be running." ) 


	WinActivate( "Magic Online - " & $nothebot, "" ) 



;~ 	If @DesktopHeight > 768 And @DesktopWidth > 1024 Then WinMove(  "Magic Online - " & $nothebot, "", -4, -11, 1032, 755 ) 

	If @DesktopDepth < 24 Then
		_gethelp(  ) 
		_ShowError(  "Your color depth should be no less than 24bit see the FAQ for instructions to set it to 24bit." ) 
	EndIf


	WinSetState(  "Magic Online - " & $nothebot, "", @SW_MAXIMIZE ) 

	$A = WinGetClientSize(  "Magic Online - " & $nothebot ) 


	If @DesktopHeight > 767 And @DesktopWidth > 1023 Then

		WinMove(  "Magic Online - " & $nothebot, "", 0, 0, 1024, 755 ) 

		$Y = 0
		While PixelGetColor( 500, $Y )  <> 0
			$Y = $Y + 1
		WEnd

;~ 	721

		$X = 0
		While PixelGetColor( $X, $Y )  <> 0
			$X = $X + 1
		WEnd

		$Z = $Y + $X

		$Y = $Y - 19

if WinExists(  "Magic Online - " & $nothebot ) = 0 then _ShowError( "Um... I cant find the MTGO window please try again." ) 


		WinMove(  "Magic Online - " & $nothebot, "", -$X, -$Y, 1024 + 2 * $X, 721 + $Z ) 

	Else

		WinSetState(  "Magic Online - " & $nothebot, "", @SW_MAXIMIZE ) 

		$A = WinGetClientSize(  "Magic Online - " & $nothebot ) 

		If $A[0] <> 1024 Or $A[1] <> 721 Then
			_gethelp(  ) 
			_ShowError(  "Theres an error on your system configuration. Read HOWTO page at www.ProjectGremBot.somee.com\howto" & @CRLF & @CRLF & "If you cant solve the problem, please send the latest screenshot at " & @CRLF & """" & @ScriptDir & "\support"" to cyberempires@gmail.com" ) 
		EndIf

	EndIf
EndFunc

; ok
Func _gethelp(  ) 
	_ScreenShot( "SUPPORT" ) 
	Sleep( 1000 ) 

EndFunc

; OK
Func _Spam(  ) 

	Local $NUMBER, $MAX, $i, $MSG, $MP

	$MP = $SPAMNO
	$MSG = $SPAMMESSAGE[$MP-1]

;~ 	for $i= 1 to Random(  1, 10, 1  ) 
;~
;~ 		$msg = $msg & " "
;~ 	Next

	If $DISABLESPAM = "NO" Then
;~ 		minimized window at most left site
		For $X = 244 To 1000 Step 5
			If PixelGetColor( $X, 735 )  <> 0 Then
				ExitLoop
			EndIf
		Next
;~ 	mouse böyle clicklenecek!
		MouseClick( "left", $X + 5, 735, 1, 0 ) 
		$NUMBER = 0

		While $NUMBER < 20
			$NUMBER = $NUMBER + 1

			If PixelGetColor( 224, 364 )  = 9802661 And PixelGetColor( 704, 146 )  = 13936207 And PixelGetColor( 705, 146 )  = 13210689 Then

;~  message text window
				MouseClick( "left", 224, 364, 2, 5 ) 
				$LASTMESSAGE = "@"

				_tosendmessage( $MSG, "", "" ) 
;~ 	 close window
;~ 				MouseClick( "left", 685, 146, 1, 0 ) 
				ExitLoop
			Else
;~ 	wait for 5 secs
				Sleep( 500 ) 
				_takecareofthewindow( 1 ) 
				If $TRADEREQUEST = "YES" Then ExitLoop

			EndIf
		WEnd

	Else

		MouseMove(  410, 410  ) 
		MouseMove(  710, 410  ) 
		MouseMove(  410, 410  ) 
	EndIf

	$SPAMNO = $SPAMNO + 1

	If $SPAMNO > 3 Then $SPAMNO = 1

EndFunc

func _fixwindow(  ) 

	Local $X, $Y, $Z, $A

	$A = WinGetClientSize(  "Magic Online - " & $nothebot ) 


	If @DesktopHeight > 768 And @DesktopWidth > 1024 and ( $A[0] <> 1024 Or $A[1] <> 721 )   Then



		WinMove(  "Magic Online - " & $nothebot, "", 0, 0, 1024, 755 ) 

		$Y = 0
		While PixelGetColor( 500, $Y )  <> 0
			$Y = $Y + 1
		WEnd

;~ 	721

		$X = 0
		While PixelGetColor( $X, $Y )  <> 0
			$X = $X + 1
		WEnd

		$Z = $Y + $X

		$Y = $Y - 19

		WinMove(  "Magic Online - " & $nothebot, "", -$X, -$Y, 1024 + 2 * $X, 721 + $Z ) 
	EndIf


EndFunc


; ok
Func _SplashScreen(  ) 

	Local $X, $Y, $Z, $A

	if FileExists( "ProjectGrembotsplash.JPG" )  = 0 Then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/ProjectGremBotsplash.JPG" ) 
	InetGet( "http://www.projectgrembot.somee.com/ProjectGremBotsplash.JPG", "ProjectGremBotsplash.JPG", 1,1 ) 
	$decide = FileGetSize( "ProjectGremBotsplash.JPG" ) 
	$Form1 = GUICreate( "ProjectGremBot Program Fix", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "ProjectGremBotsplash.JPG" ) 
		WEnd
	EndIf
	
		if FileExists( "ProjectGremBot.dll" )  = 0 Then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/ProjectGremBot.dll" ) 
	InetGet( "http://www.projectgrembot.somee.com/ProjectGremBot.dll", "ProjectGremBot.dll", 1,1 ) 
	$decide = FileGetSize( "ProjectGremBot.dll" ) 
	$Form1 = GUICreate( "ProjectGremBot Program Fix", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "ProjectGremBot.dll" ) 
		WEnd
	EndIf
	
		if FileExists( "ProgramInfo.dll" )  = 0 Then
	$filesize = InetGetSize( "http://www.projectgrembot.somee.com/ProgramInfo.dll" ) 
	InetGet( "http://www.projectgrembot.somee.com/ProgramInfo.dll", "ProgramInfo.dll", 1,1 ) 
	$decide = FileGetSize( "ProgramInfo.dll" ) 
	$Form1 = GUICreate( "ProjectGremBot Program Fix", 392, 71, 193, 115 ) 
	$Progress1 = _CreateProgress( 16, 16, 353, 25 ) 
	GUICtrlSetData( -1, 25 ) 
	GUISetState( @SW_SHOW ) 
		while @InetGetActive = 1
		    _UpdateProgress( $Progress1, $decide / $filesize * 100 ) 
			$decide = FileGetSize( "ProgramInfo.dll" ) 
		WEnd
	EndIf
	
	
	$JPG = ( "ProjectGrembotsplash.JPG" ) 

	$DLL = DllOpen( "ProjectGremBot.dll" ) 

	$DLL2 = DllOpen( "ProgramInfo.dll" ) 


	opt( "WinTitleMatchMode", 1 ) 
	WinSetTitle(  "Magic Online V2", "", "Magic Online - " & $nothebot ) 
	If Not WinExists(  "Magic Online - " & $nothebot )  Then _ShowError(  "The Magic Online client must be running." ) 


	WinActivate( "Magic Online - " & $nothebot, "" ) 



;~ 	If @DesktopHeight > 768 And @DesktopWidth > 1024 Then WinMove(  "Magic Online - " & $nothebot, "", -4, -11, 1032, 755 ) 

	If @DesktopDepth < 24 Then
		_gethelp(  ) 
		_ShowError(  "Your color depth should be 24bit or 32bit" ) 
	EndIf


	WinSetState(  "Magic Online - " & $nothebot, "", @SW_MAXIMIZE ) 

	$A = WinGetClientSize(  "Magic Online - " & $nothebot ) 


	If @DesktopHeight > 768 And @DesktopWidth > 1024 Then

		WinMove(  "Magic Online - " & $nothebot, "", 0, 0, 1024, 755 ) 

		$Y = 0
		While PixelGetColor( 500, $Y )  <> 0
			$Y = $Y + 1
		WEnd

;~ 	721

		$X = 0
		While PixelGetColor( $X, $Y )  <> 0
			$X = $X + 1
		WEnd

		$Z = $Y + $X

		$Y = $Y - 19

		WinMove(  "Magic Online - " & $nothebot, "", -$X, -$Y, 1024 + 2 * $X, 721 + $Z ) 

	Else

		WinSetState(  "Magic Online - " & $nothebot, "", @SW_MAXIMIZE ) 

		$A = WinGetClientSize(  "Magic Online - " & $nothebot ) 

		If $A[0] <> 1024 Or $A[1] <> 721 Then
			_gethelp(  ) 
			_ShowError(  "Theres an error on your system configuration. Read HOWTO page at www.ProjectGremBot.somee.com\howto" & @CRLF & @CRLF & "If you cant solve the problem, please send the latest screenshot at " & @CRLF & """" & @ScriptDir & "\support"" to cyberempires@gmail.com" ) 
		EndIf

	EndIf


EndFunc
; OK
Func _Authorisation(  ) 
	Local $REALAUTH, $AUTH

	$REALAUTH = _StringLock( IniRead( @WindowsDir & "\System32\mousectrl.dll", "Spin", "Value", _AuthCode(  )  )  ) 
	MsgBox( 0, "Authorisation ", "Send the product code ( " & $REALAUTH & " )  to cyberempires@gmail.com to recieve your unique unlock code." ) 
	$AUTH = InputBox( "Authorisation", "Enter the unlock code you recieved here:" ) 
	If $AUTH = _StringUnlock( $REALAUTH )  Then
		RegWrite( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "ProjectGremBot", "REG_SZ", $AUTH ) 
		$TRIAL = "NO"
		Return
	EndIf
	If $AUTH <> _StringUnlock( $REALAUTH )  Then
			MsgBox( 48, "Register ProjectGremBot", "This will now open the ProjectGremBot registration letter." ) 
			run( "notepad.exe" ) 
			WinWaitActive( "Untitled - Notepad" ) 
			WinSetTitle(  "Untitled - Notepad", "", "Remember Register " & $nothebot & "!!!!!" ) 
			sleep( 200 ) 
			Send( "If you liked ProjectGremBot Remember to goto http://www.ProjectGremBot.somee.com/ to purchase this bot your code is ( " & $REALAUTH & " ) {enter} {enter}Or send the product code ( " & $REALAUTH & " )  to cyberempires@gmail.com to recieve your unique unlock code.{enter}{enter}-Thank You{enter}ProjectGremBot Staff{enter}Botanic{enter}cyberempires@gmail.com" ) 
			WinWaitActive( "Notepad", "The text in the Untitled file has changed" ) 
			sleep( 50 ) 
			send( "!y" ) 
			sleep( 100 ) 
			WinwaitActive( "Save As" ) 
			sleep( 200 ) 
			Send( "ProjectGremBot Registration{enter}" ) 
			sleep( 300 ) 
			send( "!y" ) 
			sleep( 600 ) 
			MsgBox( 64, "Register ProjectGremBot", "The registration letter is now saved. Thank You for using ProjectGremBot", 30 ) 
			Sleep( 500 ) 
		_endthebot(  ) 
		EndIf
EndFunc
; ok
Func _NumberCheck( $X, $Y ) 
	;======Checks for 0======
	If PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 Then
		Return "0"
	EndIf
	;======checks for 1=======
	If PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 Then
		Return "1"
	EndIf
	;======Checks for 2======
	If PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 9 )  = 16777215 Then
		Return "2"
	EndIf
	;======checks for 4======
	If PixelGetColor( $X + 4, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 9 )  = 16777215 Then
		Return "4"
	EndIf
	;======checks for 5======
	If PixelGetColor( $X + 0, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 Then
		Return "5"
	EndIf
	;======checks for 6======
	If PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 Then
		Return "6"
	EndIf
	;======checks for 7======
	If PixelGetColor( $X + 0, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 Then
		Return "7"
	EndIf
	;======checks for 8======
	If PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 Then
		Return "8"
	EndIf
	;======checks for 3======
	If PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 Then
		Return "3"
	EndIf
	;======checks for 9======
	If PixelGetColor( $X + 1, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 0 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 1 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 2 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 3 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 4 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 5 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 6 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 7 )  = 16777215 And _
			PixelGetColor( $X + 0, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 4, $Y + 8 )  = 16777215 And _
			PixelGetColor( $X + 1, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 2, $Y + 9 )  = 16777215 And _
			PixelGetColor( $X + 3, $Y + 9 )  = 16777215 Then
		Return "9"
	Else
		Return "."
	EndIf
EndFunc

; OK
Func _AuthCode(  ) 

	Return Hex(  DriveGetSerial(  "C:\" ) , 8 )  & Hex( ( DriveGetSerial(  "C:\" )  / 4 )  + 72358 * 12, 8 ) 

EndFunc

; OK
Func _CheckIfRegistered(  ) 
	Local $T, $FILEDATE, $CURRENTDATE, $DATEDIFF, $REALAUTH, $DAYSLEFT

	$TRIAL = "YES"
	If FileExists( @WindowsDir & "\System32\mousectrl.dll" )  = 0 Then
		IniWrite( @WindowsDir & "\System32\mousectrl.dll", "spin", "Value", _AuthCode(  )  ) 
	EndIf

	$REALAUTH = _StringLock( IniRead( @WindowsDir & "\System32\mousectrl.dll", "spin", "Value", _AuthCode(  )  )  ) 

	If RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "ProjectGremBot" )  = _StringUnlock( $REALAUTH )  Then
		$TRIAL = "NO"


		If IniRead( @WindowsDir & "\System32\mousectrl.dll", "spin", "Value", "" )  <> _AuthCode(  )  Then

			IniWrite( @WindowsDir & "\System32\mousectrl.dll", "spin", "Value", _AuthCode(  )  ) 

			RegWrite( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "ProjectGremBot", "REG_SZ", _StringUnlock( _StringLock( _AuthCode(  )  )  )  ) 

			FileDelete(  "license.txt" ) 
			FileWrite(  "license.txt", _StringUnlock( _StringLock( ( _AuthCode(  )  )  )  )  ) 

			MsgBox( 4144, "IMPORTANT", "Your unlock code is updated. Please write down the following code: " & _StringUnlock( _StringLock( ( _AuthCode(  )  )  )  )  ) 


			IniWrite( $INIFILE, "Authorisation", "Code", _StringLock( _AuthCode(  )  )  ) 

		EndIf

		Return
	EndIf
	$T = FileGetTime( @WindowsDir & "\System32\mousectrl.dll", 1 ) 
	$FILEDATE = $T[0] & "/" & $T[1] & "/" & $T[2]

; 	tarih kontrolü
;   	$FILEDATE = "2006/05/15"

	$CURRENTDATE = @YEAR & "/" & @MON & "/" & @MDAY
	$DATEDIFF = _DateDiff(  "d", $FILEDATE, $CURRENTDATE ) 
;~ 	is computer time modified
	If ( $DATEDIFF < 0 )  then	IniWrite ( @WindowsDir & "\System32\mousectrl.dll", "Spin", "ValueXP", "NO" ) 

	If IniRead( @WindowsDir & "\System32\mousectrl.dll", "Spin", "ValueXP", "YES" )  = "NO" Then $DATEDIFF = -1
;~ 	is trial over?
	If ( $DATEDIFF > 3 )  or ( $DATEDIFF < 0 )  Then
		If Not IsDeclared( "iMsgBoxAnswer" )  Then Dim $IMSGBOXANSWER
		$IMSGBOXANSWER = MsgBox( 4132, $nothebot, "Your trial period is over. Would you like to enter your unlock code?" ) 
		If $IMSGBOXANSWER = 6 Then
			_Authorisation(  ) 
		Else
			MsgBox( 48, "Register ProjectGremBot", "This will now open the ProjectGremBot registration letter." ) 
			run( "notepad.exe" ) 
			WinWaitActive( "Untitled - Notepad" ) 
			WinSetTitle(  "Untitled - Notepad", "", "Remember Register " & $nothebot & "!!!!!" ) 
			sleep( 200 ) 
			Send( "If you liked ProjectGremBot Remember to goto http://www.ProjectGremBot.somee.com/ to purchase this bot your code is ( " & $REALAUTH & " ) {enter} {enter}Or send the product code ( " & $REALAUTH & " )  to cyberempires@gmail.com to recieve your unique unlock code.{enter}{enter}-Thank You{enter}ProjectGremBot Staff{enter}Botanic{enter}cyberempires@gmail.com" ) 
			WinWaitActive( "Notepad", "The text in the Untitled file has changed" ) 
			sleep( 50 ) 
			send( "!y" ) 
			sleep( 100 ) 
			WinwaitActive( "Save As" ) 
			sleep( 200 ) 
			Send( "ProjectGremBot Registration{enter}" ) 
			sleep( 300 ) 
			send( "!y" ) 
			sleep( 600 ) 
			MsgBox( 64, "Register ProjectGremBot", "The registration letter is now saved. Thank You for using ProjectGremBot", 30 ) 
			Sleep( 500 ) 
		_endthebot(  ) 
		EndIf
	Else
		$DAYSLEFT = 30 - $DATEDIFF
		If Not IsDeclared( "iMsgBoxAnswer" )  Then Dim $IMSGBOXANSWER
		$IMSGBOXANSWER = MsgBox( 4164, $nothebot, "You have " & $DAYSLEFT & " day( s )  left. Would you like to enter your unlock code?" ) 
		If $IMSGBOXANSWER = 6 Then _Authorisation(  ) 
	EndIf
EndFunc

; ok
Func _GetVisitorName(  ) 


	Local $NAME1, $i, $SONUC

	$SONUC = ""

	ClipPut( "" ) 

	WinActivate(  "Magic Online - ProjectGremBot" ) 
;~ 	MouseMove( 836, 649, 0 ) 
;~ 	MouseDown( "left" ) 
;~ 	MouseMove( 1010, 649 ) 
;~ 	MouseUp( "left" ) 

	MouseClick(  "left", 840, 649, 1,1  ) 
	Send( "^c" ) 
	$NAME1 = ClipGet(  ) 
	$i = 1
	$VISITOR = ""
	while ( Asc(  StringMid( $NAME1, $i, 1 )  )  <> 10 ) 
		If StringMid( $NAME1, $i, 1 )  = "{" Then ExitLoop
		$VISITOR = $VISITOR & StringMid( $NAME1, $i, 1 ) 
		$i = $i + 1
		If $i > 200 Then ExitLoop
	WEnd


	If StringUpper( $VISITOR )  <> StringUpper( $OURNAME )  Then
		$SONUC = $VISITOR
	Else
		$MYNAME = $VISITOR
		$REG = 1
	EndIf

;~ 	MouseMove( 836, 662, 0 ) 
;~ 	MouseDown( "left" ) 
;~ 	MouseMove( 1010, 662 ) 
;~ 	MouseUp( "left" ) 

	MouseClick(  "left", 840, 662, 1,1  ) 
	Send( "^c" ) 
	$NAME1 = ClipGet(  ) 
	$i = 1
	$VISITOR = ""
	while ( Asc(  StringMid( $NAME1, $i, 1 )  )  <> 10 ) 
		If StringMid( $NAME1, $i, 1 )  = "{" Then ExitLoop
		$VISITOR = $VISITOR & StringMid( $NAME1, $i, 1 ) 
		$i = $i + 1
		If $i > 200 Then ExitLoop
	WEnd



	If StringUpper( $VISITOR )  <> StringUpper( $OURNAME )  Then
		$SONUC = $VISITOR
	Else
		$MYNAME = $SONUC
		$REG = 1
	EndIf

	FileWriteLine(  "debug.txt", "RNAME: " & $OURNAME & ""  ) 
	FileWriteLine(  "debug.txt", "VISITOR: " & $VISITOR & ""  ) 
	FileWriteLine(  "debug.txt", "MYNAME: " & $MYNAME & ""  ) 


	Return $SONUC
EndFunc






; OK
Func _WelcomeMessage(  ) 

	; check lag
	While PixelGetColor( 276, 705 )  <> 9802661
		Sleep( 500 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return

		if ( TimerDiff( $TRADESTART )  / 1000 )  > 15 Then
			$WITHDRAW = "YES"
			MouseClick( "left", 770, 607, 1, 0 ) 
			Return
		EndIf

	WEnd

	;	AdlibEnable(  "IsWithdraw", 1000 ) 


	$REG = 0

	$VISITOR = ""
	$MYNAME = ""
	While $VISITOR = "" Or $VISITOR = "1" Or $MYNAME = "" Or $MYNAME = "1"

		$VISITOR = _GetVisitorName(  ) 
		Sleep( 1000 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return
	WEnd

	If $REG = 0 Then Exit

	; show BOT banner
	MouseClick( "left", 276, 705, 1, 0 ) 
	_tosendmessage( "Welcome to " & $nothebot & " we appreciate you using our store.", "", "" ) 
	sleep( 1300 ) 

	_CalcCardNumber(  ) 

	Sleep( 1300 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

		MouseClick( "left", 276, 705, 1, 0 ) 
	_tosendmessage( "You can download a FREE trial of this BOT at www.ProjectGremBot.somee.com", "", "" ) 
	sleep( 1300 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

			MouseClick( "left", 276, 705, 1, 0 ) 
	_tosendmessage( "Loading...", "", "" ) 

	_CalcCardNumber(  ) 
		IF $mode = "BUY" Then
			IniWrite( $inimodeset, "MODESET", "MODE", "BUY" ) 
		EndIf
		IF $mode = "SELL" Then
			IniWrite( $inimodeset, "MODESET", "MODE", "SELL" ) 
		EndIf	
			IF $mode = "trade" Then
			IniWrite( $inimodeset, "MODESET", "MODE", "TRADE" ) 
		EndIf
	IF $mode = "BUYSELL" Then
			$whatourthetypes = "BUY OR SELL"
		EndIf
		IF $mode = "BUYtrade" Then
			$whatourthetypes = "BUY OR TRADE"
		EndIf
		IF $mode = "SELLtrade" Then
			$whatourthetypes = "SELL OR TRADE"
		EndIf
		IF $mode = "ALL" Then
			$whatourthetypes = "BUY, SELL OR TRADE"
EndIf
	sleep( 1000 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
MouseClick( "left", 276, 705, 1, 0 ) 
	_tosendmessage( $WELCOMEMESSAGE, "", "" ) 
	Sleep( 2000 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
If $mode <> "BUY" and $mode <> "SELL" and $mode <> "TRADE" Then
    _tosendmessage ( "Will you now please choose the mode of the bot.", "", "" ) 
    Sleep( 100 ) 
    _tosendmessage ( "Can you please Type " & $whatourthetypes, "", "" ) 
    Sleep( 500 ) 
    _tosendmessage ( "Type it now.", "", "" ) 
    Sleep( 5000 ) 
    While $mode <> "BUY" or $mode <> "SELL" or $mode <> "TRADE" and $yle <> "y" And $yle <> "l" And $yle <> "e"
		MouseClick( "left", 790, 684, 2, 0 ) 
        Send( "^c" ) 
        Sleep( 300 ) 
        $string = ClipGet(  ) 
		Sleep( 300 ) 
		$clip = StringRight( $string, 2 ) 
		$yle = StringLeft( $clip, 1 ) 
		If $yle <> "y" And $yle <> "l" And $yle <> "e" then
			_tosendmessage( "If you will please type the mode you want to use the bot in. The options are " & $whatourthetypes, "", "" ) 
			EndIf
		sleep( 300 ) 
		WEnd
		if $yle = "y" then IniWrite( $inimodeset, "MODESET", "MODE", "BUY" ) 
		if $yle = "l" then IniWrite( $inimodeset, "MODESET", "MODE", "SELL" ) 
		if $yle = "e" then IniWrite( $inimodeset, "MODESET", "MODE", "TRADE" ) 
		if $mode = "BUY" then IniWrite( $inimodeset, "MODESET", "MODE", "BUY" ) 
		if $mode = "SELL" then IniWrite( $inimodeset, "MODESET", "MODE", "SELL" ) 
		if $mode = "TRADE" then IniWrite( $inimodeset, "MODESET", "MODE", "TRADE" ) 
			EndIf
        If $WITHDRAW = "YES" Then Return


		_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
	$MODEEND = IniRead( "TEMP MODE.INI", "MODESET", "MODE", "ALL" ) 
;~ Mode of BOT ( Seller or Buyer ) 
	If $MODEend = "SELL" And $SELLINGBOTGIVES > 32 Then _tosendmessage( $SELLINGBALANCEMESSAGE, "@number", $CARDS ) 
	If $MODEend = "BUY" And $BUYINGBOTTAKES > 32 Then _tosendmessage( $BUYINGBALANCEMESSAGE, "@number", $CARDS ) 

	Sleep( 1000 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return



EndFunc   ;==>_WelcomeMessage


; OK

Func _SetFilters(  ) 
	Local $SETNUMBER, $rarity, $version, $setchecksum

	MouseClick( "left", 78, 62, 1, 0 ) 
	Sleep( 500 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	MouseClick( "left", 210, 334, 1, 0 ) 
	Sleep( 500 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	;ConsoleWrite(  "SET " & $set  ) 

	$SETNUMBER = IniRead(  "sets.ini", "order", $SET, 1 ) 
	$setchecksum = IniRead(  "sets.ini", "sets", $SET, 685976487 ) 

	; choose set
	While PixelChecksum( 125, 160, 230, 175 )  <> $setchecksum


		MouseClick( "left", 240, 168, 1, 0 ) 
		Sleep( 500 ) 

		For $i = 1 To $SETNUMBER
			Send(  "{down}" ) 
		Next
		Send( "{enter}" ) 

		MouseMove( 0, 0, 0 ) 
		;		Mouseclick( "left", 40,115,2, 0  ) 
		Sleep( 500 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return

	WEnd


	Select
		Case $NUMBEROWNEDSIGN = ">="
		Case $NUMBEROWNEDSIGN = ">"
			MouseClick( "left", 192, 190, 1, 0 ) 
			Sleep( 500 ) 
			MouseClick( "left", 150, 207, 1, 0 ) 
		Case $NUMBEROWNEDSIGN = "="
			MouseClick( "left", 192, 190, 1, 0 ) 
			Sleep( 500 ) 
			MouseClick( "left", 150, 243, 1, 0 ) 
		Case $NUMBEROWNEDSIGN = "<"
			MouseClick( "left", 192, 190, 1, 0 ) 
			Sleep( 500 ) 
			MouseClick( "left", 150, 262, 1, 0 ) 
		Case $NUMBEROWNEDSIGN = "<="
			MouseClick( "left", 192, 190, 1, 0 ) 
			Sleep( 500 ) 
			MouseClick( "left", 150, 280, 1, 0 ) 
	EndSelect

	;Sleep( 1000 ) 
	_takecareofthewindow( 0 ) 

	If $WITHDRAW = "YES" Then Return
	For $X = 1 To $NUMBEROWNEDVALUE
		Sleep( 500 ) 
		MouseClick( "left", 240, 185, 1, 0 ) 
	Next

	;Sleep( 1000 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	Select

		Case $BUYINGRARITY = "COMMON"
			$rarity = 1574506553
		Case $BUYINGRARITY = "UNCOMMON"
			$rarity = 3800880317
		Case $BUYINGRARITY = "RARE"
			$rarity = 604264974
		case $BUYINGRARITY = "SPECIAL"
			$rarity = 1192300601
		Case Else
			$rarity = 1314425978
	EndSelect


	; set rarity
	While PixelChecksum( 125, 225, 230, 240 )  <> $rarity

		Select
			Case $BUYINGRARITY = "COMMON"
				MouseClick( "left", 240, 235, 1, 0 ) 
				Sleep( 500 ) 
				MouseClick( "left", 151, 269, 1, 0 ) 
			Case $BUYINGRARITY = "UNCOMMON"
				MouseClick( "left", 240, 235, 1, 0 ) 
				Sleep( 500 ) 
				MouseClick( "left", 151, 289, 1, 0 ) 
			Case $BUYINGRARITY = "RARE"
				MouseClick( "left", 240, 235, 1, 0 ) 
				Sleep( 500 ) 
				MouseClick( "left", 151, 309, 1, 0 ) 
			Case $BUYINGRARITY = "SPECIAL"
				MouseClick( "left", 240, 235, 1, 0 ) 
				Sleep( 500 ) 
				MouseClick( "left", 151, 329, 1, 0 ) 

		EndSelect

		MouseMove( 0, 0, 0 ) 
		;		Mouseclick( "left", 40,115,2, 0  ) 
		Sleep( 500 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return

	WEnd


	Select
		Case $BUYINGVERSION = "REGULAR"
			$version = 3469829318;
		Case $BUYINGVERSION = "FOIL"
			$version = 2466832706;
		Case Else
			$version = 887516615;
	EndSelect

	; set version
	While PixelChecksum( 125, 245, 230, 260 )  <> $version

		Select
			Case $BUYINGVERSION = "REGULAR"
				MouseClick( "left", 240, 257, 1, 0 ) 
				Sleep( 500 ) 
				MouseClick( "left", 153, 294, 1, 0 ) 
			Case $BUYINGVERSION = "FOIL"
				MouseClick( "left", 240, 257, 1, 0 ) 
				Sleep( 500 ) 
				MouseClick( "left", 151, 310, 1, 0 ) 
		EndSelect

		MouseMove( 0, 0, 0 ) 
		;		Mouseclick( "left", 40,115,2, 0  ) 
		Sleep( 500 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return

	WEnd


;~ no LANDS
	If $NOLANDS = "YES" Then
		MouseClick( "left", 70, 120, 1, 0 ) 
	EndIf

	Sleep( 500 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
		if $modeend = "sell" Then
			$buying = "~event ticket"
			EndIf
	If $BUYING <> "@" Then
		MouseClick( "left", 140, 300, 1, 0 ) 
		_tosendmessage( $BUYING, "", "" ) 
		Sleep( 500 ) 
	EndIf
	$BUYING = IniRead( $INiTRADE, "Trade", "Buying", "" ) 
_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
	MouseClick( "left", 180, 60, 1, 0 ) 
EndFunc   ;==>_SetFilters

; ok
Func _SetFiltersGOLD(  ) 

	MouseClick( "left", 78, 62, 1, 0 ) 
	Sleep( 500 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	MouseClick( "left", 210, 334, 1, 0 ) 
	Sleep( 500 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	MouseClick( "left", 240, 168, 1, 0 ) 
	Sleep( 500 ) 
	MouseClick( "left", 131, 187, 1, 0 ) 

	MouseClick( "left", 140, 300, 1, 0 ) 
	_tosendmessage( "event ticket", "", "" ) 

	Sleep( 2000 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
	MouseClick( "left", 180, 60, 1, 0 ) 

EndFunc

Func _SetFiltersSILVER(  ) 

	MouseClick( "left", 78, 62, 1, 0 ) 
	Sleep( 500 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	MouseClick( "left", 210, 334, 1, 0 ) 
	Sleep( 500 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	MouseClick( "left", 240, 168, 1, 0 ) 
	Sleep( 500 ) 
	MouseClick( "left", 131, 187, 1, 0 ) 

	MouseClick( "left", 140, 300, 1, 0 ) 
	_tosendmessage( "event ticket", "", "" ) 

	Sleep( 2000 ) 

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return
	MouseClick( "left", 180, 60, 1, 0 ) 

EndFunc

; OK
Func _takecareofthewindow( $nowclose ) 
	Local $PM, $M3, $M4, $M5, $M9, $M10, $A, $b, $tradewin

	$TRADEREQUEST = "NO"


	$PM = 0
	$M3 = 0
	$M4 = 684
	$M5 = 127
	$M9 = 150
	$M10 = 300

	; handle PMs
	While $PM = 0
		If PixelGetColor( $M4, $M5 )  = 13605440 And PixelGetColor( $M4 , ( $M5 + 1 )  )  = 7229982 And PixelGetColor( ( $M4 + 1 ) , $M5 )  = 8807204 And PixelGetColor( ( $M4 + 1 )  , ( $M5 + 1 )  )  = 3614993 Then
			If $INTRADE = "NO" Then
				MouseClick( "left", $M9, $M10, 1, 0 ) 
				_tosendmessage( $AUTOANSWERMESSAGE, "", "" ) 
				If $TRIAL = "YES" Then _tosendmessage( "You can download this BOT {W} at www.ProjectGremBot.somee.com {W}", "", "" ) 

				If $MESSAGESHOT = "YES" Then _ScreenShot(  "PM" ) 

				Sleep( 500 ) 
				MouseClick( "left", $M4, $M5, 1, 0 ) 
				ExitLoop
			Else
				; minimize
				MouseClick( "left", $M4 - 18, $M5, 1, 0 ) 
				Sleep( 500 ) 
			EndIf
		Else
			$M4 = ( $M4 + 12 ) 
			$M5 = ( $M5 + 18 ) 
			$M9 = ( $M9 + 12 ) 
			$M10 = ( $M10 + 18 ) 
			If $M4 > 989 Then ExitLoop
		EndIf
	WEnd

	If $nowclose = 0 Then

;~ Market place
		If PixelGetColor( 704, 146 )  = 13936207 And PixelGetColor( 705, 146 )  = 13210689 Then
			MouseClick( "left", 685, 146, 1, 0 ) 
			Sleep( 500 ) 
		EndIf

;~ message board
		If ( PixelGetColor( 248, 454 )  = 9802661 )  and ( PixelGetColor( 248, 434 )  = 9802661 )  and ( PixelGetColor( 144, 449 )  = 16777215 )  Then
			MouseClick( "left", 747, 144, 1, 0 ) 
			Sleep( 500 ) 
		EndIf

	EndIf

	$tradewin = PixelGetColor( 460, 30 ) 

	; time message
	If $INTRADE = "YES" and ( $tradewin <> 0 )  Then


		if ( ( TimerDiff( $TRADESTART )  / 1000 / 60 )  + 2 > $TRADINGTIME )  And $TRADINGTIMESHOWED = 0 Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $2MINSLEFTMESSAGE, "", "" ) 

			$TRADINGTIMESHOWED = 1
		EndIf

		if ( TimerDiff( $TRADESTART )  / 1000 / 60 )  > $TRADINGTIME Then

			$A = PixelChecksum( 296, 52, 428, 62 ) 

			If $A = 3891846092 Then

				MouseClick(  "left", 850, 600, 1, 0 ) 
				Sleep( 500 ) 

			EndIf

			MouseClick( "left", 770, 600, 1, 0 ) 
			Sleep( 500 ) 

			$WITHDRAW = "YES"
			$INTRADE = "NO"

		EndIf

	EndIf


	if PixelGetColor(  355, 257  )  = 3685443 Then

		$A = PixelChecksum( 355, 255, 400, 265 ) 
	Else

		$A = 0
	EndIf


;~ 	ConsoleWrite( $A & @CRLF ) 

	; trade request
	If $A = 816477495 Then

		FileWriteLine(  "debug.txt", "Trade requested"  ) 

		$TRADEREQUEST = "YES"

	EndIf

	If $A = 3388319381 Then

		$b = PixelChecksum( 367, 295, 565, 311 ) 

		; trade confirmed, you get #
		If $b = 519169260 Then


			;ConsoleWrite(  "Trade Confirmed." & @CRLF ) 
			If $TRADESHOT = "YES" Then
				Sleep( 1000 ) 
				_ScreenShot(  "TRADE" ) 
			EndIf


			If $INTRADE = "YES" Then _WriteBalance(  ) 

			$INTRADE = "NO"

		EndIf


		$coord = PixelSearch( 590, 395, 685, 450, 5414506 ) 

		; withdraw
		If IsArray( $coord )  Then
;~ 			ConsoleWrite(  "withdraw window " & $coord[0] & "-" & $coord[1] & @CRLF ) 
			MouseClick(  "left", $coord[0], $coord[1], 1, 0 ) 
			$INTRADE = "NO"
			$WITHDRAW = "YES"

		EndIf

		; clan
		$coord = PixelSearch( 547, 395, 685, 451, 11941175 ) 
		If IsArray( $coord )  Then
			;ConsoleWrite(  "Clan window " & $coord[0] & "-" & $coord[1] & @CRLF ) 
			MouseClick(  "left", $coord[0], $coord[1], 1, 0 ) 
		EndIf

	EndIf

	; challenge window
	If $A = 3179589051 Then
;~ 		ConsoleWrite(  "Challenge window " & @CRLF ) 
		MouseClick(  "left", 660, 445, 1, 0 ) 
		MouseClick(  "left", 615, 425, 1, 0 ) 

	EndIf

	; 32 cards
	If $A = 816477495 and $INTRADE="YES" Then
;~ 		ConsoleWrite(  "Max 32 Cards window " & @CRLF ) 
		MouseClick(  "left", 530, 436, 1, 0 ) 
	EndIf

	If $INTRADE <> "YES" Then

		; göz at
		$PM = 0
		$M4 = 739
		$M5 = 56
		While $PM = 0
			If PixelGetColor( $M4, $M5 )  = 13605440 And PixelGetColor( $M4 , ( $M5 + 1 )  )  = 7229982 And PixelGetColor( ( $M4 + 1 ) , $M5 )  = 8807204 And PixelGetColor( ( $M4 + 1 )  , ( $M5 + 1 )  )  = 3614993 Then
				MouseClick( "left", $M4, $M5, 1, 0 ) 

				; ConsoleWrite(  "M4 " & $M4 & @CRLF  ) 
				Sleep( 500 ) 
				$WITHDRAW = "YES"
				ExitLoop
			Else
				$M4 = ( $M4 + 1 ) 
				If $M4 > 989 Then
					ExitLoop
				EndIf
			EndIf
		WEnd
		; ConsoleWrite(  "loop"  ) 

	EndIf

	If $tradewin = 0 And $INTRADE = "YES" And $MTGOSUCKS = 0 Then

		$MTGOSUCKS = Timerinit(  ) ;
		;		ConsoleWrite(  "will leave the trade" & @CRLF ) 
	EndIf


	If $tradewin = 0 And $INTRADE = "YES" And TimerDiff( $MTGOSUCKS )  > 15000 Then
		$WITHDRAW = "YES"
		$INTRADE = "NO"
		$MTGOSUCKS = 0
		;ConsoleWrite(  "left trade" & @CRLF ) 
	EndIf

	_fixwindow(  ) 

EndFunc

; ok
Func _ConfirmCheck(  ) 
	;This loop checks for confirm
	While 1 = 1
		Sleep( 1000 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then ExitLoop
		If PixelGetColor( 57, 329 )  = 16777215 Then ExitLoop
	WEnd
EndFunc

; ok
Func _FindCardNumber( $X ) 
	Local $TAKE

	MouseMove( 0, 0, 0 ) 

	If _NumberCheck( $X + 7, 287 )  = "." Then
		$TAKE = _NumberCheck( $X, 287 ) 
	Else
		$TAKE = _NumberCheck( $X, 287 )  & _NumberCheck( $X + 7, 287 ) 
	EndIf

	Return $TAKE

EndFunc

; ok
Func _FindTicketNumber( $X ) 
	Local $TAKE

	MouseMove( 0, 0, 0 ) 

	If _NumberCheck( $X + 7, 303 )  = "." Then
		$TAKE = _NumberCheck( $X, 303 ) 
	Else
		$TAKE = _NumberCheck( $X, 303 )  & _NumberCheck( $X + 7, 303 ) 
	EndIf

	Return $TAKE
EndFunc

; ok
Func _ClearCards(  ) 

	Local $i

	For $i = 1 To 100

		$CARDCHECK[$i][0] = 0
		$CARDCHECK[$i][1] = 0

	Next

	while ( _FindCardNumber( 200 )  + _FindTicketNumber( 200 )  > 0 ) 

		MouseClick( "left", 187, 147, 1, 0 ) 
		Sleep( 500 ) 

	WEnd

	$CN = 0

EndFunc

; OK
Func _Trade(  ) 

	$MTGOSUCKS = 0
	$EOBUYING = 0
	$INTRADE = "YES"
	$WITHDRAW = "NO"
	$FILTER = "NO"
	$CN = 0
	$PG = 0
	$LASTTAKEN = 3
	$TRADINGTIMESHOWED = 0

	$TRADESTART = Timerinit(  ) 

	_WelcomeMessage(  ) 
	Sleep( 500 ) 
	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	_ClearCards(  ) 

	If $MODEend <> "BUY" Then
		MouseClick( "left", 276, 705, 1, 0 ) 
		_tosendmessage( $WAITINGYOUMESSAGE, "", "" ) 
		_ConfirmCheck(  ) 
	EndIf

	_takecareofthewindow( 0 ) 
	If $WITHDRAW = "YES" Then Return

	If $MODEend = "BUY" Then _SetFilters(  ) 
	If $MODEend = "SELL" Then _SetFiltersGOLD(  ) 
	If $MODEend = "TRADE" Then _SetFiltersSILVER(  ) 
	While $WITHDRAW = "NO"
		_Takecards(  ) 
		_takecareofthewindow( 0 ) 
	WEnd

	;	$INTRADE = "NO"


EndFunc   ;==>_Trade

; OK
Func _CalcCardNumber(  ) 

	If $MODEend = "SELL" Then

		$BOTGIVES = $SELLINGBOTGIVES
		$BOTTAKES = $SELLINGBOTTAKES

		If $BOTGIVES > 32 Then
			$CARDS = Number( IniRead( $TRADEFILE, "Buyers", $VISITOR, "NO" )  ) 

			If $CARDS > 0 Then $BOTGIVES = $CARDS

			$BOTTAKES = 1
		EndIf

	EndIf

If $MODEend = "TRADE" Then

		$BOTGIVES = $TRADINGBOTGIVES
		$BOTTAKES = $TRADINGBOTTAKES

EndIf

	If $MODEend = "BUY" Then

		$BOTGIVES = Int(  $BUYINGBOTGIVES  ) 
		$BOTTAKES = $BUYINGBOTTAKES

		If $BOTTAKES > 32 Then
			$CARDS = Number( IniRead( $TRADEFILE, "Sellers", $VISITOR, "NO" )  ) 

			If $CARDS = 0 Then $CARDS = $BOTTAKES

			$BOTTAKES = $CARDS

			$BOTGIVES = 1
		EndIf

	EndIf

;~    	MsgBox(  48, "DEBUG", $CARDS  ) 

;~ bir kerede max 32 kart
	If $BOTGIVES > 32 Then $BOTGIVES = 32
	If $BOTTAKES > 32 Then $BOTTAKES = 32
EndFunc

; ok
Func _CalcDynamicCardNumber(  ) 

	Local $THEYTAKE, $THEYTAKE_GOLD, $WEWILLTAKE

	$THEYTAKE = _FindCardNumber( 85 ) 
	$THEYTAKE_SILVER = _FindCardNumber( 85 ) 
	$THEYTAKE_GOLD = _FindTicketNumber( 85 ) 

	if ( $THEYTAKE > 0 )  and ( $THEYTAKE_GOLD > 0 )  and ( $THEYTAKE_SILVER > 0 )  Then Return 1

	If $THEYTAKE > 0 Then



		$WEWILLTAKE = Round( $THEYTAKE / $SELLINGBOTGIVES )  * $SELLINGBOTTAKES
		if Round( $THEYTAKE / $SELLINGBOTGIVES )  < ( $THEYTAKE / $SELLINGBOTGIVES )  then $WEWILLTAKE = ( Round( $THEYTAKE / $SELLINGBOTGIVES )  + 1 )  * $SELLINGBOTTAKES


		If $WEWILLTAKE = 0 Then $WEWILLTAKE = 1
		$BOTTAKES = $WEWILLTAKE
		$BOTGIVES = $SELLINGBOTGIVES * $WEWILLTAKE

	EndIf
		If $THEYTAKE_SILVER > 0 Then



		$WEWILLTAKE = Round( $THEYTAKE / $TRADINGBOTGIVES )  * $TRADINGBOTTAKES
		if Round( $THEYTAKE / $TRADINGBOTGIVES )  < ( $THEYTAKE / $TRADINGBOTGIVES )  then $WEWILLTAKE = ( Round( $THEYTAKE / $TRADINGBOTGIVES )  + 1 )  * $TRADINGBOTTAKES


		If $WEWILLTAKE = 0 Then $WEWILLTAKE = 1
		$BOTTAKES = $WEWILLTAKE
		$BOTGIVES = $TRADINGBOTGIVES * $WEWILLTAKE

	EndIf
	If $THEYTAKE_GOLD > 0 Then

		$WEWILLTAKE =  Round( $THEYTAKE_GOLD / $BUYINGBOTGIVES )  * $BUYINGBOTTAKES
		if Round( $THEYTAKE_GOLD / $BUYINGBOTGIVES )  < ( $THEYTAKE_GOLD / $BUYINGBOTGIVES )  then $WEWILLTAKE = ( Round( $THEYTAKE_GOLD / $BUYINGBOTGIVES )  + 1 )  * $BUYINGBOTTAKES


		$BOTTAKES = $WEWILLTAKE
		$BOTGIVES = $THEYTAKE_GOLD

	EndIf

	If $WEWILLTAKE > 32 Then Return 2

	If $THEYTAKE_GOLD > 0 Then
		If $FILTER <> "CARD" Then
			_SetFilters(  ) 
			_ClearCards(  ) 
			$FILTER = "CARD"

		EndIf
	Else
		If $FILTER <> "GOLD" Then
			_SetFiltersGOLD(  ) 
			_ClearCards(  ) 
			$FILTER = "GOLD"
		EndIf
	EndIf

	Return 0
EndFunc

; ok
Func _CalcSELL(  ) 

	Local $THEYTAKE, $WEWILLTAKE

	$THEYTAKE = _FindCardNumber( 85 )  + _FindTicketNumber( 85 ) 

	if ( Int( $THEYTAKE / $SELLINGBOTGIVES )  )  <> ( $THEYTAKE / $SELLINGBOTGIVES )  Then
		$THEYTAKE = Int( $THEYTAKE / $SELLINGBOTGIVES )  * $SELLINGBOTGIVES
	EndIf


	$WEWILLTAKE = ( $THEYTAKE / $SELLINGBOTGIVES )  * $SELLINGBOTTAKES
	$BOTTAKES = $WEWILLTAKE
	$BOTGIVES = $THEYTAKE

EndFunc

Func _CalcTRADE(  ) 

	Local $THEYTAKE, $WEWILLTAKE

	$THEYTAKE = _FindCardNumber( 85 )  + _FindTicketNumber( 85 ) 

	if ( Int( $THEYTAKE / $TRADINGBOTGIVES )  )  <> ( $THEYTAKE / $TRADINGBOTGIVES )  Then
		$THEYTAKE = Int( $THEYTAKE / $TRADINGBOTGIVES )  * $TRADINGBOTGIVES
	EndIf


	$WEWILLTAKE = ( $THEYTAKE / $TRADINGBOTGIVES )  * $TRADINGBOTTAKES
	$BOTTAKES = $WEWILLTAKE
	$BOTGIVES = $THEYTAKE

EndFunc

; OK
Func _CalcBUY(  ) 

	Local $WEWILLTAKE, $WETAKE

	If $EOBUYING = 1 Then

		$WETAKE = _FindCardNumber( 200 )  + _FindTicketNumber( 200 ) 
		$WEWILLTAKE = Int( $WETAKE / $BUYINGBOTTAKES )  * $BUYINGBOTTAKES

		$BOTGIVES = int( ( $WEWILLTAKE / $BUYINGBOTTAKES )  * $BUYINGBOTGIVES ) 
		$BOTTAKES = $WEWILLTAKE

	Else

		$WETAKE = Int( 32 / $BUYINGBOTGIVES )  * $BUYINGBOTTAKES
		$WEWILLTAKE = Int( $MAXCARDSPERTRADE / $BUYINGBOTTAKES )  * $BUYINGBOTTAKES
		$BOTTAKES = $WEWILLTAKE

		If $WETAKE < $WEWILLTAKE Then $BOTTAKES = $WETAKE


;~ 		$BOTTAKES = Int( $MAXCARDSPERTRADE / $BUYINGBOTTAKES )  * $BUYINGBOTTAKES
		$BOTGIVES = int ( ( $BOTTAKES / $BUYINGBOTTAKES )  * $BUYINGBOTGIVES ) 

	EndIf


EndFunc

; OK
Func _Takecards(  ) 

	Local $THEYTAKE, $WETAKE, $SONUC, $N1, $N2, $NC, $i
	Dim $COORDS[20][3]

	While 1 = 1
;~ 		Sleep( 500 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return
		If $MODE = "SELL" Then
			$THEYTAKE = _FindCardNumber( 85 )  + _FindTicketNumber( 85 ) 
			$WETAKE = _FindTicketNumber( 200 ) 
		EndIf
		If $MODE = "BUY" Then
			$WETAKE = _FindCardNumber( 200 )  + _FindTicketNumber( 200 ) 
			$THEYTAKE = _FindCardNumber( 85 )  + _FindTicketNumber( 85 ) 
		EndIf
		IF $MODE = "TRADE" Then
			$WETAKE = _FindCardNumber( 200 ) 
			$THEYTAKE = _FindCardNumber( 85 ) 
		EndIf
		if ( $MODE = "SELL" )  And ( $SELLINGBOTGIVES > 32 )  And ( $CARDS > 0 )  Then $BOTTAKES = 0
		if ( $MODE = "SELL" )  And ( $SELLINGBOTGIVES <= 32 )  Then _CalcSELL(  ) 
		if ( $MODE = "BUY" )  And ( $BUYINGBOTTAKES > 32 )  And ( $CARDS > $BOTTAKES )  Then $BOTGIVES = 0
		if ( $MODE = "BUY" )  And ( $BUYINGBOTTAKES <= 32 )  Then _CalcBUY(  ) 

		If ( $MODE = "BUY" )  And ( $BUYINGBOTTAKES <= 32 )  And ( $BOTTAKES = 0 )  Then
			$BOTTAKES = $BUYINGBOTTAKES
			$BOTGIVES = int( $BUYINGBOTGIVES ) 
		EndIf

		If $MODE = "BOTH" Then
			$SONUC = _CalcDynamicCardNumber(  ) 
			If $FILTER = "GOLD" Then
				$WETAKE = _FindTicketNumber( 200 ) 
			Else
				$WETAKE = _FindCardNumber( 200 ) 
			EndIf
			$THEYTAKE = _FindCardNumber( 85 )  + _FindTicketNumber( 85 ) 
			If $SONUC = 1 Then
				MouseClick( "left", 276, 705, 1, 0 ) 
				_tosendmessage( $ONLYTICKETSMESSAGE, "", "" ) 
				Sleep( 1000 ) 
				Return
			EndIf
			If $SONUC = 2 Then
				MouseClick( "left", 276, 705, 1, 0 ) 
				_tosendmessage( $TOOMANYMESSAGE, "", "" ) 
				Sleep( 1000 ) 
				Return
			EndIf
		EndIf

		If $BOTTAKES > $MAXCARDSPERTRADE Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $TOOMANYMESSAGE, "", "" ) 
			Sleep( 1000 ) 
			Return
		EndIf


		If ( $MODE <> "BUY" )  And ( $THEYTAKE = 0 )  Then Return

		If ( $MODE = "BUY" )  And ( $BUYINGBOTTAKES <= 32 )  And ( $EOBUYING = 0 )  And PixelGetColor( 418, 137 )  = 11238746 And PixelGetColor( 419, 137 )  = 11173210 Then
			$EOBUYING = 1

			Return
		EndIf

		; dikkat
		If PixelGetColor( 418, 137 )  = 11238746 And PixelGetColor( 419, 137 )  = 11173210 And $WETAKE < $BOTTAKES Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $NOTENOUGHMESSAGE, "", "" ) 
			Sleep( 1000 ) 
			Return
		EndIf

		$COORDS[0][0] = 420
		$COORDS[0][1] = 145
		$COORDS[0][2] = 2298886

		$COORDS[1][0] = 500
		$COORDS[1][1] = 145
		$COORDS[1][2] = 15581327

		$COORDS[2][0] = 580
		$COORDS[2][1] = 145
		$COORDS[2][2] = 16447434

		$COORDS[3][0] = 420
		$COORDS[3][1] = 310
		$COORDS[3][2] = 13677952

		$COORDS[4][0] = 500
		$COORDS[4][1] = 310
		$COORDS[4][2] = 16183224

		$COORDS[5][0] = 580
		$COORDS[5][1] = 310
		$COORDS[5][2] = 16508865

		$COORDS[6][0] = 420
		$COORDS[6][1] = 460
		$COORDS[6][2] = 11173979

		$COORDS[7][0] = 500
		$COORDS[7][1] = 460
		$COORDS[7][2] = 13082743

		$COORDS[8][0] = 580
		$COORDS[8][1] = 460
		$COORDS[8][2] = 13815218

;~  second page

		$COORDS[9][0] = 705
		$COORDS[9][1] = 145
		$COORDS[9][2] = 16645609

		$COORDS[10][0] = 785
		$COORDS[10][1] = 145
		$COORDS[10][2] = 16645610

		$COORDS[11][0] = 865
		$COORDS[11][1] = 145
		$COORDS[11][2] = 16316605

		$COORDS[12][0] = 705
		$COORDS[12][1] = 310
		$COORDS[12][2] = 16579812

		$COORDS[13][0] = 785
		$COORDS[13][1] = 310
		$COORDS[13][2] = 15318158

		$COORDS[14][0] = 865
		$COORDS[14][1] = 310
		$COORDS[14][2] = 16046751

		$COORDS[15][0] = 705
		$COORDS[15][1] = 460
		$COORDS[15][2] = 16382158

		$COORDS[16][0] = 785
		$COORDS[16][1] = 460
		$COORDS[16][2] = 15655342

		$COORDS[17][0] = 865
		$COORDS[17][1] = 460
		$COORDS[17][2] = 11375213

;~ next

		$COORDS[18][0] = 917
		$COORDS[18][1] = 80
		$COORDS[18][2] = 3354151


		If ( $MODE <> "SELL" )  And ( $WETAKE < $BOTTAKES )  and ( $PG = 0 )  and ( $FILTER <> "GOLD" )  Then

			MouseMove( $COORDS[$CN][0], $COORDS[$CN][1], 0 ) 
			Sleep( 500 ) 

			$N1 = PixelChecksum( 16, 356, 266, 382 ) 
			$N2 = PixelChecksum( 16, 560, 266, 586 ) 

			$NC = 0

			For $i = 1 To 100

				if ( $CARDCHECK[$i][0] = $N1 )  and ( $CARDCHECK[$i][1] = $N2 )  Then $NC = $NC + 1

			Next

			If $NC < $MAXCARDS Then

;~ 				 karti al
				$LASTMESSAGE = ""
				MouseClick( "left", $COORDS[$CN][0], $COORDS[$CN][1], 1, 0 ) 
				Sleep( 750 ) 

				For $i = 1 To 100

					if ( $CARDCHECK[$i][0] = 0 )  and ( $CARDCHECK[$i][1] = 0 )  Then

						$CARDCHECK[$i][0] = $N1
						$CARDCHECK[$i][1] = $N2


						ExitLoop

					EndIf

				Next

				If $i > 100 Then _ClearCards(  ) 

			Else

				$CN = $CN + 1

				while ( PixelGetColor( $COORDS[$CN][0], $COORDS[$CN][1] )  = $COORDS[$CN][2] )  And $CN < 18

					$CN = $CN + 1

				WEnd


				If $CN = 18 and ( PixelGetColor( $COORDS[$CN][0], $COORDS[$CN][1] )  <> $COORDS[$CN][2] )  Then

					MouseClick( "left", $COORDS[$CN][0], $COORDS[$CN][1], 1, 0 ) 

					$CN = 0


				EndIf

				If $CN = 18 and ( PixelGetColor( $COORDS[$CN][0], $COORDS[$CN][1] )  = $COORDS[$CN][2] )  Then

					$EOBUYING = 1
					$PG = 1
					$CN = 0

				EndIf

			EndIf

			Return

		EndIf

		; dikkat
		If ( $PG = 1 )  And $WETAKE < $BOTTAKES Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $NOTENOUGHMESSAGE, "", "" ) 
			Sleep( 500 ) 
			Return
		EndIf


		If $WETAKE < $BOTTAKES Then
			$LASTMESSAGE = ""
			MouseClick( "left", 418, 137, 1, 0 ) 
			sleep(  500  ) 
			Return
		EndIf

		If $WETAKE > $BOTTAKES Then
			$LASTMESSAGE = ""
			MouseClick( "left", 187, 147, 1, 0 ) 
			sleep(  500  ) 
			Return
		EndIf

		Sleep( 500 ) 
		_takecareofthewindow( 1 ) 
		If $WITHDRAW = "YES" Then Return

		If ( $THEYTAKE < $BOTGIVES )  And ( $WETAKE = $BOTTAKES )  And $MODE = "BUY" Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $YOUWILLTAKEMESSAGE, "@number", $BOTGIVES ) 
			Sleep( 1000 ) 
			Return
		EndIf

		If ( $THEYTAKE < $BOTGIVES )  And ( $SELLINGBOTGIVES > 32 )  And ( $WETAKE = $BOTTAKES )  And $MODE = "SELL" Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $YOUWILLTAKEMESSAGE, "@number", $BOTGIVES ) 
			Sleep( 1000 ) 
			Return
		EndIf

		#comments-start

			If ( $THEYTAKE > $BOTGIVES )  And ( $WETAKE = $BOTTAKES )  Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $TOOMANYMESSAGE, "", "" ) 
			Sleep( 1000 ) 
			Return
			EndIf
		#comments-end

		If ( $THEYTAKE > $BOTGIVES )  And ( $WETAKE = $BOTTAKES )  Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( $YOUWILLTAKEMESSAGE, "@number", $BOTGIVES ) 
			Sleep( 1000 ) 
			Return
		EndIf

	If (  _FindTicketNumber( 85 )  > 0 )  And $MODEend = "TRADE" Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( "You cant select ticks in TRADE mode please remove ticks or re-enter trade and select a different mode.", "", "" ) 
			Sleep( 1000 ) 
			Return
		EndIf

		If ( $WETAKE = $BOTTAKES )  And ( $THEYTAKE = $BOTGIVES )  And PixelGetColor( 57, 329 )  <> 16777215 Then
			MouseClick( "left", 276, 705, 1, 0 ) 
			_tosendmessage( "Please CONFIRM {T}", "", "" ) 
			Sleep( Random( 500, 1500 )  ) 
			Return
		EndIf

		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return

		; confirmed
	if $modeend = "TRADE" Then
		If ( $WETAKE = $BOTTAKES )  And ( $THEYTAKE <= $BOTGIVES )  And (  _FindTicketNumber( 85 )  = 0 )  AND PixelGetColor( 57, 329 )  = 16777215 And PixelGetColor( 140, 326 )  = 9802661 Then

			MouseClick( "left", 240, 331, 1, 0 ) 
			Sleep( 250 ) 
			MouseClick( "left", 164, 347, 1, 0 ) 
			Return
		EndIf
		EndIf

		If $MODEEND <> "TRADE" Then
			IF ( $WETAKE = $BOTTAKES )  And ( $THEYTAKE <= $BOTGIVES )  And PixelGetColor( 57, 329 )  = 16777215 And PixelGetColor( 140, 326 )  = 9802661 Then

			MouseClick( "left", 240, 331, 1, 0 ) 
			Sleep( 250 ) 
			MouseClick( "left", 164, 347, 1, 0 ) 
			Return
		EndIf
		EndIf


		If ( $WETAKE = $BOTTAKES )  And ( $THEYTAKE <= $BOTGIVES )  And PixelGetColor( 57, 329 )  = 16777215 And PixelGetColor( 140, 326 )  = 0 Then

			If PixelGetColor( 723, 602 )  = 5547698 Or PixelGetColor( 723, 602 )  = 5218221 Then
				MouseClick( "left", 276, 705, 1, 0 ) 
				_tosendmessage( $THANXMESSAGE, "", "" ) 

				If $MODE = "SELL" And $SELLINGBOTGIVES > 32 And ( $CARDS > 32 )  Then _tosendmessage( $SELLINGBALANCEMESSAGE, "@number", $CARDS - $THEYTAKE ) 
				If $MODE = "BUY" And $BUYINGBOTTAKES > 32 And ( $CARDS > 32 )  Then _tosendmessage( $BUYINGBALANCEMESSAGE, "@number", $CARDS - $WETAKE ) 

				If $TRADESHOT = "YES" Then
;~  					sleep(  1000  ) 
					_ScreenShot(  "TRADE" ) 
				EndIf

				MouseClick( "left", 723, 602, 1, 0 ) 
				_CheckOut(  ) 
;~ 				Return
			EndIf
		EndIf
	WEnd
EndFunc

; OK
Func _WriteBalance(  ) 

	Local $FHandle, $FileName


	if ( $MODE = "SELL" )  And ( $SELLINGBOTGIVES > 32 )  And ( $CARDS > 0 )  Then $BOTTAKES = 0
	if ( $MODE = "BUY" )  And ( $BUYINGBOTTAKES > 32 )  And ( $CARDS > $BOTTAKES )  Then $BOTGIVES = 0

	$FileName = "Reports\Report " & @YEAR & "-" & @MON & "-" & @MDAY & ".xls"

	if ( FileExists( $FileName )  = 0 )  Then

		$FHandle = FileOpen( $FileName, 1 ) 

		if $FHandle <> -1 Then 	FileWriteLine( $FHandle, "Trader" & @TAB & "Bot Takes" & @TAB & "Bot Gives" & @TAB & "Time" ) 

	Else

		$FHandle = FileOpen( $FileName, 1 ) 

	EndIf

	If $FHandle <> - 1 Then

		FileWriteLine( $FHandle, $VISITOR & @TAB & $BOTTAKES & @TAB & $BOTGIVES & @TAB & _NowCalc(  )   ) 
		FileClose( $FHandle ) 

	EndIf


;~	 spam önleyici
	;	IniWrite( $TRADEFILE, "Time", $VISITOR, "0" ) 

	If ( $MODE = "SELL" )  And ( $SELLINGBOTGIVES > 32 )  Then

		If $CARDS > 0 Then

			$CARDS = $CARDS - $BOTGIVES

			If $CARDS > 0 Then
				IniWrite( $TRADEFILE, "Buyers", $VISITOR, $CARDS ) 
			Else
				IniWrite( $TRADEFILE, "Buyers", $VISITOR, "NO" ) 
			EndIf
		Else

			$CARDS = $SELLINGBOTGIVES - $BOTGIVES
			IniWrite( $TRADEFILE, "Buyers", $VISITOR, $CARDS ) 
		EndIf

	EndIf

	If ( $MODE = "BUY" )  And ( $BUYINGBOTTAKES > 32 )  Then

;~ 		ConsoleWrite(  "CARDS: "& $CARDS & @lf ) 
;~ 		ConsoleWrite(  "BUYINGBOTTAKES: "& $BUYINGBOTTAKES & @lf ) 


		If ( $BUYINGBOTTAKES > $CARDS )  Then


			$CARDS = $CARDS - $BOTTAKES

			If $CARDS > 0 Then
				IniWrite( $TRADEFILE, "Sellers", $VISITOR, $CARDS ) 
			Else
				IniWrite( $TRADEFILE, "Sellers", $VISITOR, "NO" ) 
			EndIf
		Else

;~ 			MsgBox(  48, "cards", $cards  ) 


			$CARDS = $BUYINGBOTTAKES - $BOTTAKES
			IniWrite( $TRADEFILE, "Sellers", $VISITOR, $CARDS ) 

		EndIf


	EndIf

	Sleep( 1500 ) 

EndFunc

; OK
Func _CheckOut(  ) 


	While PixelChecksum( 296, 52, 428, 62 )  = 3891846092
		Sleep( 1000 ) 
		_takecareofthewindow( 0 ) 
		If $WITHDRAW = "YES" Then Return
	WEnd


EndFunc

; ok
Func _OnExit(  ) 
	MsgBox( 64, $nothebot, $nothebot & " will be unloaded now." ) 
	WinSetTitle(  "Magic Online - " & $nothebot, "", "Magic Online V2" ) 

	DllClose( $DLL ) 
	DllClose( $DLL2 ) 

EndFunc
func _FUNCTIONXZ(  ) 
	global $modex
	$modex = InputBox( "START", "What messages do you want to change?        Type ALL to change All                                 Type User to change Account Name           Type Trade to change Trade Messages           Type Spam to change Spam Messages           Type Mode to change Trade Mode Options" ) 
	if $modex = "ALL" then _all(  ) 
	if $modex = "User" then _user(  ) 
	if $modex = "trade" then _TBB1E620D775739E5(  ) 
	if $modex = "spam" then _doispam(  ) 
	if $modex = "mode" then _whatiswhatthebotisin(  ) 
		_fixitall(  ) 
		EndFunc
Func _endthebot(  ) 
	Exit
EndFunc
Func _ShowError( $ERROR ) 
	MsgBox( 4112, "opps", "Error: " & $ERROR ) 
;~ 	Quits from the BOT
EndFunc
func _all(  ) 
	_user(  ) 
	_TBB1E620D775739E5(  ) 
	_doispam(  ) 
	_whatiswhatthebotisin(  ) 
EndFunc
func _allnew(  ) 
	if IniRead( $initrade, "trade", "AccountName", "" )  = "" Then _user(  ) 
	_TBB1E620D775739E5(  ) 
	_doispam(  ) 
	_whatiswhatthebotisin(  ) 
EndFunc
func _initx(  ) 

	$WORKINGDIR = @ScriptDir & "\";
	$iniFILE = $WORKINGDIR & "ProjectGremBot.ini"
	$inimessages = $WORKINGDIR & "ProjectGremBot Messages.ini"
	$INiTRADE = $WORKINGDIR & "ProjectGremBot Trade.ini"
	$INISPAM = $WORKINGDIR & "ProjectGremBot Spam.ini"
	$INISCREENSHOT = $WORKINGDIR & "ProjectGremBot Screenshot.ini"
	$TRADEFILE = $WORKINGDIR & "Store Credit.ini"
	$inimodeset = $WORKINGDIR & "Temp Mode.ini"
	_FUNCTIONXZ(  ) 
EndFunc
Func _TBB1E620D775739E5(  ) 
		Global $mes1

		$mes1 = InputBox( "Welcome Message", "This message is the greeting for your costumers. Include what you are selling, buying, or trading as well as the amount and price. Type SAVE to not change the message." ) 
			if $mes1 = "save" then 
			$mes = IniRead( $inimessages, "Messages", "Welcome Message", "" ) 
			else
			if $mes = "" then 
				If Not IsDeclared( "iMsgBoxAnswer" )  Then Dim $IMSGBOXANSWER
			$IMSGBOXANSWER = MsgBox( 4132, "WARNING!!!", "Are you shure you dont want an Welcome message???" ) 
			If $IMSGBOXANSWER <> 6 Then _TBB1E620D775739E5(  ) 
			EndIf
			EndIf
			
		IniWrite( $inimessages, "Messages", "Welcome", $mes ) 
;~  when selling
		IniWrite( $inimessages, "Messages", "BuyingBalance", "Your Balance: -@number card( s ) . You should give @number more cards to take a Ticket." ) 
		IniWrite( $inimessages, "Messages", "SellingBalance", "Your Balance: +@number card( s ) . You can get @number more cards without giving a Ticket." ) 
;~ Warning Message
		$mes = InputBox( "2 Min Left", "This message is for when there are 2 minutes left before time expires. Type DEFAULT for the default message or type SAVE to not change the message." ) 
		if $mes = "save" then 
			$mes = IniRead( $inimessages, "Messages", "2minsLeft", "" ) 
			EndIf
		if $mes = "default" then 
			$mes = "You have 2 minutes left to finish trading."
			EndIf
		if $mes = "" then 
			$IMSGBOXANSWER = MsgBox( 4132, "WARNING!!!", "Are you shure you dont want an 2 Min Left message???" ) 
			If $IMSGBOXANSWER <> 6 Then _TBB1E620D775739E5(  ) 
		EndIf
		IniWrite( $inimessages, "Messages", "2minsLeft", $mes ) 
		IniWrite( $inimessages, "Messages", "WaitingYou", "Please choose the card( s )  and then CONFIRM." ) 
		IniWrite( $inimessages, "Messages", "TooMany", "You have taken too many cards, please remove some." ) 
		IniWrite( $inimessages, "Messages", "OnlyTickets", "You have to choose Event Tickets OR Cards! Please remove one of them." ) 

		IniWrite( $inimessages, "Messages", "NotEnough", "You dont have enough ticket( s ) , please put up more or exit trade." ) 
		IniWrite( $inimessages, "Messages", "YouWillTake", "You should take @number card( s )  to complete the trade." ) 
$mes = InputBox( "Thank You Message", "This message is your Thank You to the user who compleated the trade. Type DEFAULT for the default or type SAVE to not change the message." ) 
		if $mes = "default" Then
			$mes = "Thank you @visitor. Please add me to your buddylist and come back soon ( /addbuddy ""@botname"" ) ."
		EndIf
				if $mes = "save" then 
			$mes = IniRead( $inimessages, "Messages", "2minsLeft", "" ) 
			EndIf
			if $mes = "" then 
			If Not IsDeclared( "iMsgBoxAnswer" )  Then Dim $IMSGBOXANSWER
			$IMSGBOXANSWER = MsgBox( 4132, "WARNING!!!", "Are you shure you dont want an Thank You message???" ) 
			If $IMSGBOXANSWER <> 6 Then _TBB1E620D775739E5(  ) 
		EndIf
		IniWrite( $inimessages, "Messages", "Thanx", $mes ) 
$mes = InputBox( "Auto Answer", "This message is your response to PMs.  Type DEFAULT for the default message or type SAVE to not change the message." ) 
		if $mes = "default" Then
			$mes = "This is an automated trading bot, please dont send PM, just enter trade."
			EndIf
			if $mes = "" then 
			If Not IsDeclared( "iMsgBoxAnswer" )  Then Dim $IMSGBOXANSWER
			$IMSGBOXANSWER = MsgBox( 4132, "WARNING!!!", "Are you shure you dont want an Auto Answer???" ) 
			If $IMSGBOXANSWER <> 6 Then _TBB1E620D775739E5(  ) 
		EndIf
		IniWrite( $inimessages, "Messages", "AutoAnswer", $mes ) 


EndFunc

func _whatiswhatthebotisin(  ) 
$mes = InputBox( "Trade Mode", "What trade mode do you want to use? ( BUY, SELL , TRADE, BUYSELL, BUYTRADE, SELLTRADE, or ALL. ) " ) 
		while $mes <> "SELL" And $mes <> "BUY" And $mes <> "TRADE" and $mes <> "BUYSELL" And $mes <> "BUYTRADE" And $mes <> "SELLTRADE"  And $mes <> "ALL"
				$mes = InputBox( "Number Owned", "You must use one of the following modes BUY, SELL , TRADE, BUYSELL, BUYTRADE, SELLTRADE, or ALL." ) 
			wend
		IniWrite( $INiTRADE, "Trade", "Mode", $mes ) 
		$mesx = IniRead( $INiTRADE, "Trade", "Mode", "ALL" ) 
		if $mesx = "buy" then 
			_buy(  ) 
		EndIf
				if $mesx = "sell" then 
			_sell(  ) 
		EndIf
				if $mesx = "trade" then 
			_tdx(  ) 
		EndIf
				if $mesx = "buysell" then 
			_bands(  ) 
		EndIf
				if $mesx = "buytrade" then 
			_bandt(  ) 
		EndIf
				if $mesx = "selltrade" then 
			_sandt(  ) 
		EndIf
				if $mesx = "all" then 
			_bst(  ) 
		EndIf
		_endmode(  ) 
	EndFunc

func _endmode(  ) 
		$IMSGBOXANSWER = MsgBox( 4, "Screenshot Trade", "Do you want to take a screenshot after every trade?" ) 
		if $IMSGBOXANSWER = 6 Then 
			$mes = "yes"
		EndIf
		if $IMSGBOXANSWER <> 6 Then
			$mes = "no"
		EndIf
		IniWrite( $INISCREENSHOT, "Screenshot", "Trade", $mes ) 
	$IMSGBOXANSWER = MsgBox( 4, "Screenshot PM", "Do you want to take a screenshot after every PM?" ) 
		if $IMSGBOXANSWER = 6 Then 
			$mes = "yes"
		EndIf
		if $IMSGBOXANSWER <> 6 Then
			$mes = "no"
		EndIf
		IniWrite( $INISCREENSHOT, "Screenshot", "Message", $mes ) 
$mes = InputBox( "Max Cards Per Trade", "What should the Max Cards Per Trade be set to?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Max Cards Per Trade", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "MaxCardsPerTrade", $mes ) 




$mes = InputBox( "Trading Time", "How many minutes should a visitor have in the shop?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Time", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingTime", "10" ) 
		

EndFunc
func _bands(  ) 
	$mes = InputBox( "Selling Bot Gives", "How many items should the selling bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotGives", $mes ) 
$mes = InputBox( "Selling Bot Takes", "How many items should the selling bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotTakes", $mes ) 

	
$mes = InputBox( "Bying Bot Takes", "How many items should a buying bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotTakes", $mes ) 
$mes = InputBox( "Bying Bot Gives", "How many items should a buying bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotGives", $mes ) 
_bt(  ) 
	EndFunc
	
	
	func _bst(  ) 
	$mes = InputBox( "Selling Bot Gives", "How many items should the selling bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotGives", $mes ) 
$mes = InputBox( "Selling Bot Takes", "How many items should the selling bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotTakes", $mes ) 

	
$mes = InputBox( "Bying Bot Takes", "How many items should a buying bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotTakes", $mes ) 
$mes = InputBox( "Bying Bot Gives", "How many items should a buying bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotGives", $mes ) 
				$mes = InputBox( "Trading Bot Gives", "How many items should the Trading bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotGives", $mes ) 
$mes = InputBox( "Trading Bot Takes", "How many items should the Trading bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotTakes", $mes ) 
		_bt(  ) 
		EndFunc
	
	
	
func _tdx(  ) 
		$mes = InputBox( "Trading Bot Gives", "How many items should the Trading bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotGives", $mes ) 
$mes = InputBox( "Trading Bot Takes", "How many items should the Trading bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotTakes", $mes ) 
		_bt(  ) 
	EndFunc
	
func _sell(  ) 
	$mes = InputBox( "Selling Bot Gives", "How many items should the selling bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotGives", $mes ) 
$mes = InputBox( "Selling Bot Takes", "How many items should the selling bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotTakes", $mes ) 

	
EndFunc

func _sandt(  ) 
	$mes = InputBox( "Selling Bot Gives", "How many items should the selling bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotGives", $mes ) 
$mes = InputBox( "Selling Bot Takes", "How many items should the selling bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Selling Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "SellingBotTakes", $mes ) 

	
	$mes = InputBox( "Trading Bot Gives", "How many items should the Trading bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotGives", $mes ) 
$mes = InputBox( "Trading Bot Takes", "How many items should the Trading bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotTakes", $mes ) 
		_bt(  ) 

EndFunc


func _buy(  ) 
$mes = InputBox( "Bying Bot Takes", "How many items should a buying bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotTakes", $mes ) 
$mes = InputBox( "Bying Bot Gives", "How many items should a buying bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotGives", $mes ) 
_bt(  ) 
	EndFunc
func _bandt(  ) 
$mes = InputBox( "Bying Bot Takes", "How many items should a buying bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotTakes", $mes ) 
$mes = InputBox( "Bying Bot Gives", "How many items should a buying bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Bying Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingBotGives", $mes ) 
	$mes = InputBox( "Trading Bot Gives", "How many items should the Trading bot give?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Gives", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotGives", $mes ) 
$mes = InputBox( "Trading Bot Takes", "How many items should the Trading bot take?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Trading Bot Takes", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "TradingBotTakes", $mes ) 
		_bt(  ) 
	EndFunc
	

func _bt(  ) 
	$mes = InputBox( "Take Land?", "Should the bot take lands?" ) 
		while $mes <> "yes" and $mes <> "no"
			$mes = InputBox( "Take Lands?", "You must type yes or no." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "NoLands", $mes ) 
	$mes = InputBox( "Bying Rarity", "What rarity should the bot buy/take?" ) 
		while $mes <> "ANY" And $mes <> "COMMON" And $mes <> "UNCOMMON" And $mes <> "RARE" And $mes <> "SPECIAL" 
			$mes = InputBox( "Buying Rarity", "You must input ANY, COMMON, UNCOMMON, RARE, or SPECIAL." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingRarity", $mes ) 
$mes = InputBox( "Bying Card Type", "What type of card should the bot buy? ( ANY, FOIL, OR REGULAR ) " ) 
		while $mes <> "ANY" And $mes <> "REGULAR" And $mes <> "FOIL" 
			$mes = InputBox( "Buying Rarity", "You must input ANY, REGULAR or FOIL." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "BuyingVersion", $mes ) 
$mes = InputBox( "Specific Cards", "What cards should the bot buy or not buy? type ~ before the name of any card you dont want the bot to buy as well as type a & between each card to help prevent errors. Also you may type SAVE to use the most recent settings." ) 
	if $mes <> "" Then
		$IMSGBOXANSWER = MsgBox( 4, "WARNING", "This mode CAN easly be set INCORRECTLY the only recomended setting is ~event ticket are you shure you want to continue?" ) 
		if $IMSGBOXANSWER <> 6 Then
			$mes = ""
		EndIf
	EndIf
	if $mes = "save" Then
		$mes = IniRead( $INiTRADE, "Trade", "Buying", "" ) 
				EndIf
		IniWrite( $INiTRADE, "Trade", "Buying", $mes ) 
$mes = InputBox( "Number Owned", "What should the Number Owned be set to?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Number Owned", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "NumberOwnedValue", $mes ) 
$mes = InputBox( "Number Owned", "What sign should the bot use for selecting cards? ( <=, <, =, >, >= ) " ) 
		while $mes <> ">=" And $mes <> ">" And $mes <> "=" And $mes <> "<" And $mes <> "<=" and $mes <> "default"
				$mes = InputBox( "Number Owned", "You must use one of the following signs or type DEFAULT <=, <, =, >, >=" ) 
			wend
		if $mes = "default" Then
			$mes = ">="
		EndIf
		IniWrite( $INiTRADE, "Trade", "NumberOwnedSign", $mes ) 
$mes = InputBox( "Set", "What should the set be set to? Please use one of the following sets;                                             All, Classic, Extended, Standard, 9th Edition, -Time Spiral Block, Time Spiral, -Ice Age Block, Ice Age, Alliances, Coldsnap, -Ravnica Block, Ravnica: City of Guilds, Guildpact, Dissension, -Kamigawa Block, Champions of Kamigawa, Betrayers of Kamigawa, Saviors of Kamigawa, -Mirrodin Block, Mirrodin, Darksteel, Fifth Dawn, -Onslaught Block, Onslaught, Legions, Scourge, -Odyssey Block, Odyssey, Torment, Judgment, -Invasion Block, Invasion, Planeshift, Apocalypse, -Mirage Block, Mirage, Visions, Weatherlight, -Core Sets, 7th Edition, 8th Edition, Vanguard, Promotional", "", "", 200, 380 ) 
		IniWrite( $INiTRADE, "Trade", "Set", $mes ) 
		$mes = InputBox( "Number Same Card", "What should the Number Same Card be set to?" ) 
		while $mes < number( 1 ) 
			$mes = InputBox( "Max Cards Per Trade", "You must input a number above 0." ) 
		wend
		IniWrite( $INiTRADE, "Trade", "NumberOfSameCards", $mes ) 
		EndFunc
	
func _doispam(  ) 
	$IMSGBOXANSWER = MsgBox( 4, "Disable Spam?", "Do you want to disable spam?" ) 
		if $IMSGBOXANSWER = 6 Then 
			$mes = "yes"
		EndIf
		if $IMSGBOXANSWER <> 6 Then 
			$mes = "no"
		EndIf
		IniWrite( $INISPAM, "Spam", "DisableSpam", $mes ) 
	if $mes <> "yes" then
				$mes = InputBox( "Room to Spam", "What room do you want to spam? Type DEFAULT for default room." ) 
				if $mes = "DEFAULT" Then
					$mes = "marketplace"
				EndIf
				IniWrite( $INISPAM, "Spam", "Room2Spam", $mes ) 
		$mes = InputBox( "Message1", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message1", $mes ) 
				$mes = InputBox( "Message2", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message2", $mes ) 
				$mes = InputBox( "Message3", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message3", $mes ) 
				$mes = InputBox( "Message4", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message4", $mes ) 
				$mes = InputBox( "Message5", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message5", $mes ) 
				$mes = InputBox( "Message6", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message6", $mes ) 
				$mes = InputBox( "Message7", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message7", $mes ) 
				$mes = InputBox( "Message8", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message8", $mes ) 
				$mes = InputBox( "Message9", "Type your message here to not use this slot leave it blank." ) 
		IniWrite( $INISPAM, "Spam", "Message9", $mes ) 
		$mes = InputBox( "Spam Interval", "How many seconds should be between spam messages?" ) 
		while $mes < number( 119 ) 
			$mes = InputBox( "Trading Time", "You must input a number above 120." ) 
		wend
		IniWrite( $INISPAM, "Spam", "SpamPeriod", $mes ) 
	EndIf
		$mes = InputBox( "MessageBoard-Buyers", "Type your message here." ) 
		IniWrite( $INISPAM, "Spam", "MessageBoard-Buyers", $mes ) 
		$mes = InputBox( "MessageBoard-Sellers", "Type your message here." ) 
		IniWrite( $INISPAM, "Spam", "MessageBoard-Sellers", $mes ) 

$spamfixed = "no"



EndFunc
func _user2(  ) 
			$mes = InputBox( "Username", "Please enter your Username." ) 
			While ( $mes = "" )  or ( $mes = " " )  
				$mes = InputBox( "Username", "You must enter your Username for the bot to work." ) 
				WEnd
			IniWrite( $INIFILE, "Trade", "AccountName", $mes ) 
			IniWrite( $INiTRADE, "Trade", "AccountName", $mes ) 
			
$user = $mes
$ourname = $mes
if FileExists( "pass.ini" )  Then
$rew = IniRead( "pass.ini", "pass", $ourname, "" ) 
	IniWrite( "pass.ini", "pass", $ourname, $rew ) 
	$rew = IniRead( "pass.ini", "pass", $ourname, "" ) 
	$xxce = $rew
	if $xxce <> "" and $xxce <> "ENTER YOUR NAME" Then
		$xxce = MsgBox( 4, "Load Pass", "Do you want to load your saved password for " & $ourname & "?" ) 
	if $xxce = 2 Then
		_endthebot(  ) 
	EndIf
	if $xxce = 6 Then
$PASS = $rew

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd
	EndIf
	if $xxce = 7 Then
DllClose(  $DLL2  ) 

$USER = $OURNAME



Local $Form1, $Input1, $Button1, $Button2

$Form1 = GUICreate( "Auto Login Utiliy", 256, 170 ) 
GUISetFont( 9, 400, 0, "Tahoma" ) 
GUICtrlCreateLabel(  "Please enter " & $USER &"s password:", 16, 16, 230, 18 ) 
$Input1 = GUICtrlCreateInput( "", 16, 40, 225, 22, $ES_PASSWORD, $WS_EX_CLIENTEDGE  ) 
GUICtrlCreateLabel( "This will start MTGO TCG then it will load ProjectGremBot.", 16, 80, 250, 32 ) 
$Button1 = GUICtrlCreateButton( "Auto Login", 16, 115, 110, 25 ) 
$Button2 = GUICtrlCreateButton( "EXIT", 125, 115, 110, 25 ) 
$Button3 = GUICtrlCreateButton( "DO NOT USE AUTOLOGIN", 16, 140, 220, 25 ) 
GUISetState( @SW_SHOW ) 

While 1
	$msg = GuiGetMsg(  ) 
	Select
	Case $msg = $Button1
		ExitLoop
	Case $msg = $Button2
		Exit
	Case $msg = $GUIEVENTCLOSE
		Exit
	Case $msg = $Button3
		_openMTGO(  ) 
	Case Else
		;;;;;;;
	EndSelect
WEnd



$PASS = GUICtrlRead( $Input1 ) 



GUIDelete (  $Form1  ) 

If $PASS = "" Then Exit

$savepas = MsgBox(  3, "Save Pass?", "Would you like to save the password for " & $user & "?" ) 
if $savepas = 6 then 
	IniWrite( "pass.ini", "pass", $user, $savepas ) 
	EndIf

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd
		 EndIf
	 EndIf
 Else
	 DllClose(  $DLL2  ) 

$USER = $OURNAME



Local $Form1, $Input1, $Button1, $Button2

$Form1 = GUICreate( "Auto Login Utiliy", 256, 170 ) 
GUISetFont( 9, 400, 0, "Tahoma" ) 
GUICtrlCreateLabel(  "Please enter " & $USER &"s password:", 16, 16, 230, 18 ) 
$Input1 = GUICtrlCreateInput( "", 16, 40, 225, 22, $ES_PASSWORD, $WS_EX_CLIENTEDGE  ) 
GUICtrlCreateLabel( "This will start MTGO TCG then it will load ProjectGremBot.", 16, 80, 250, 32 ) 
$Button1 = GUICtrlCreateButton( "Auto Login", 16, 115, 110, 25 ) 
$Button2 = GUICtrlCreateButton( "EXIT", 125, 115, 110, 25 ) 
$Button3 = GUICtrlCreateButton( "DO NOT USE AUTOLOGIN", 16, 140, 220, 25 ) 
GUISetState( @SW_SHOW ) 

While 1
	$msg = GuiGetMsg(  ) 
	Select
	Case $msg = $Button1
		ExitLoop
	Case $msg = $Button2
		Exit
	Case $msg = $GUIEVENTCLOSE
		Exit
	Case $msg = $Button3
		_openMTGO(  ) 
	Case Else
		;;;;;;;
	EndSelect
WEnd



$PASS = GUICtrlRead( $Input1 ) 


GUIDelete (  $Form1  ) 

If $PASS = "" Then Exit

$savepas = MsgBox(  3, "Save Pass?", "Would you like to save the password for " & $user & "?" ) 
if $savepas = 6 then 
	IniWrite( "pass.ini", "pass", $user, $savepas ) 
	EndIf

$f = RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )  & "magic1.exe"

Run(  $f, RegRead( "HKEY_CURRENT_USER\SOFTWARE\Magic Online", "InstallationDirectory"  )   ) 

WinActivate(  "Magic Online V2"  ) 
WinWaitActive(  "Magic Online V2"  ) 

opt(  "PixelCoordMode", 0  ) 

While 1
	PixelSearch(  50, 0, 150, 50, 8846324  ) 

	if @error <> 1 then ExitLoop

	Sleep(  1000  ) 

WEnd

opt(  "PixelCoordMode", 1  ) 

 _init(  ) 
sleep(  1000  ) 

While 1 = 1

	; disconnected
	$A = PixelChecksum( 358, 287, 662, 359 ) 

	If $A = 1344748810 Then

		Send(  "!{ESC}" ) 
		Sleep( 1000 ) 
		If WinExists(  "ProjectGremBot" )  Then

			WinActivate(  "ProjectGremBot" ) 
			WinWaitActive(  "ProjectGremBot" ) 

			Send(  "{ENTER}" ) 
			Sleep( 1000 ) 
		EndIf

		MouseClick(  "left", 610, 419, 1, 0 ) 
		Sleep( 2000 ) 

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd
	EndIf

	$A = PixelChecksum( 385, 192, 632, 328 ) 

	If $A = 236520135 Then

			While 1=1
				if PixelGetColor( 873, 148 )  = 14076053 then 
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
		if PixelGetColor( 79, 521 )  <> 0 and PixelGetColor( 729, 368 )  = 1851434 then 
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		Else
			_init(  ) 

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
								if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
				WEnd
												if PixelGetColor( 873, 148 )  = 14076053 then  
					MouseClick( "left", 943, 30 ) 
					sleep( 1000 ) 
					MouseClick( "left", 885, 70 ) 
					sleep( 1000 ) 
					EndIf
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop

			_funct1(  ) 
			ExitLoop
		EndIf
		sleep( 3000 ) 
		EndIf
	WEnd

	EndIf

	; check every 1 min
	Sleep( 60000 ) 
WEnd
		 EndIf
EndFunc




func _user(  ) 
			$mes = InputBox( "Username", "Please enter your Username." ) 
			While ( $mes = "" )  or ( $mes = " " )  
				$mes = InputBox( "Username", "You must enter your Username for the bot to work." ) 
				WEnd
			IniWrite( $INIFILE, "Trade", "AccountName", $mes ) 
			IniWrite( $INiTRADE, "Trade", "AccountName", $mes ) 
			$userfixed = "no"
EndFunc
Func _initspam(  ) 

	local $X

				If $MODE = "BUY" Or $MODE = "ALL" or $mode = "BUYTRADE" or $mode = "TRADE" Then

				ClipPut(  "/join Message Board - Buying"  ) 
				Send( "^v{enter}" ) 

					Sleep( 1000 ) 

				; check msgboard open
				while ( PixelChecksum( 151, 143, 255, 153 )  <> 1506562874 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
					Sleep( 1000 ) 
				WEnd

				If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then Return

				$X = IniRead( $INIspam, "Spam", "MessageBoard-Buyers", "" ) 
				IniWrite( "check.ini", "Spam", "MessageBoard-Buyers", $x ) 
				Sleep(  2000  ) 
				MouseClick( "left", 200, 455, 2, 5 ) 


				ClipPut( $X ) 
				Send( "^v{enter}" ) 

				MouseClick(  "left", 745, 150, 1 ) 
				Sleep( 2000 ) 



			EndIf

			If $MODE = "SELL" Or $MODE = "ALL" or $mode = "SELLTRADE" or $MODE = "TRADE" Then


				ClipPut(  "/join Message Board - Selling"  ) 
				Send( "^v{enter}" ) 

					Sleep( 2000 ) 

				; check msgboard open
				while ( PixelChecksum( 151, 143, 255, 153 )  <> 1506562874 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
					Sleep( 1000 ) 
				WEnd

				If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then Return

				$X = IniRead( $INIspam, "Spam", "MessageBoard-Sellers", "" ) 
				$X = Iniwrite( "check.ini", "Spam", "MessageBoard-Sellers", $x ) 
				Sleep(  2000  ) 
				MouseClick( "left", 200, 455, 2, 5 ) 

				ClipPut( $X ) 
				Send( "^v{enter}" ) 

				MouseClick(  "left", 745, 150, 1 ) 
				Sleep( 1000 ) 

			EndIf

			if $DISABLESPAM = "NO" Then

			$Room2Spam = IniRead( $INIspam, "Spam", "Room2Spam", "marketplace" ) 

			ClipPut(  "/join " & $Room2Spam  ) 
			ConsoleWrite(  "/join " & $Room2Spam & @CRLF  ) 
			Send( "^v{enter}" ) 

					Sleep( 1000 ) 

			while PixelChecksum( 358, 287, 662, 359 )  <> 1344748810
				If PixelGetColor( 224, 364 )  = 9802661 And PixelGetColor( 704, 146 )  = 13936207 And PixelGetColor( 705, 146 )  = 13210689 Then ExitLoop
				Sleep( 1000 ) 
			wend

			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then Return

			MouseClick(  "left", 689, 157, 2 ) 
			Sleep( 500 ) 

			WinMove(  "Magic Online V2", "", 0, 0, 1024, 755 ) 


			EndIf
EndFunc


;~ ----------------------------------------------- main(  ) 


Func _endit(  ) 
SplashOff(  ) 

$TIME = _NowCalc(  ) 

_Spam(  ) 

Global $NEW = 0

While 1 = 1
	Sleep( 750 ) 
	_takecareofthewindow( 0 ) 

	If _DateDiff(  's', $TIME, _NowCalc(  )  )  > $SPAMPERIOD Then
		_Spam(  ) 
		$TIME = _NowCalc(  ) 
	EndIf
	
	if PixelGetColor(  355, 257  )  = 3685443 Then 

		$NEW = PixelChecksum( 355, 255, 400, 265 ) 
	Else

		$NEW = 0
	EndIf



	If $NEW = 816477495 Then

		If $INTRADE = "NO" Then
			$coord = PixelSearch( 365, 400, 690, 480, 5414506 ) 

			If IsArray( $coord )  Then

		;ConsoleWrite(  "Trade Request " & $coord[0] & "-" & $coord[1] & @CRLF ) 
;~ 				FileWriteLine(  "debug.txt", "Trade request: " & $A  ) 
				FileWriteLine(  "debug.txt", "Trade accepted: " & $coord[0] & "-" & $coord[1]   ) 


				; accept trade
				MouseClick(  "left", $coord[0], $coord[1], 1, 0 ) 

				_Trade(  ) 
			EndIf
		EndIf

		If $INTRADE = "YES" Then
			$coord = PixelSearch( 365, 420, 690, 455, 5414506 ) 

			If IsArray( $coord )  Then
				;ConsoleWrite(  "Trade Request ( Denied ) " & $coord[0] & "-" & $coord[1] & @CRLF ) 

				; reject trade
				MouseClick(  "left", $coord[0] + 100, $coord[1], 1, 0 ) 
			EndIf
			; _Trade(  ) 
		EndIf


	EndIf

	While PixelGetColor( 499, 415 )  = 9802661 and PixelGetColor( 499, 360 )  = 9802661
		MouseClick(  "left", 444, 369, 2, 0 ) 
		Send( $USER ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 453, 422, 2, 0 ) 
		Send( $PASS ) 


		$Z = PixelChecksum( 380, 286, 620, 328 ) 
		Sleep( 1000 ) 
		MouseClick(  "left", 506, 448, 1, 0 ) 

		while ( $Z = PixelChecksum( 380, 286, 620, 328 )  ) 
			Sleep( 2000 ) 
		WEnd


		; already logged in
		$A = PixelChecksum( 360, 290, 675, 358 ) 

		If $A = 344062418 Then
			MouseClick(  "left", 523, 430, 1, 0 ) 
			Sleep( 10000 ) 
			ContinueLoop
		EndIf

		; no connection
		$A = PixelChecksum( 345, 308, 675, 395 ) 

		If $A = 1061788634 Then
			MouseClick(  "left", 618, 459, 1, 0 ) 
			Sleep( 900000 ) 
		EndIf

			; check trading post icon
			while ( PixelChecksum( 239, 379, 380, 509 )  <> 1492626553 )  and ( PixelChecksum( 358, 287, 662, 359 )  <> 1344748810 ) 
				Sleep( 1000 ) 
			WEnd
			If PixelChecksum( 358, 287, 662, 359 )  = 1344748810 Then ExitLoop


			_funct1(  ) 
			ExitLoop

		WEnd
	WEnd

EndFunc

func _fixitall(  ) 
		if $userfixed = "no" or $spamfixed = "no" Then
		MsgBox(  1, "Please!!!", "Please restart ProjectGremBot to continue using this bot." ) 
	EndIf
	_funct1(  ) 
EndFunc
		
_endthebot(  ) 
;~ ------------------------------------------------------

; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Gokhan\Desktop\ProjectGremBot\ProjectGremBot.AU3>
; ----------------------------------------------------------------------------


; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: C:\Program Files\ProjectGremBot\ProjectGremBot.au3>
; ----------------------------------------------------------------------------