Mine

; <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	EndSelectEndFunc   ;==>_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	EndIfEndFunc   ;==>_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 ) 	EndSelectEndFunc   ;==>_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	EndIfEndFunc   ;==>_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	EndIfEndFunc   ;==>_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	EndIfEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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	EndSelectEndFunc   ;==>_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 & "/" & $iDayEndFunc   ;==>_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 $iJDayEndFunc   ;==>_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	EndIfEndFunc   ;==>_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	EndIfEndFunc   ;==>_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 $aiDaysEndFunc   ;==>__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 messagesGlobal Const $GUIEVENTCLOSE			= -3Global Const $GUI_EVENT_MINIMIZE		= -4Global Const $GUI_EVENT_RESTORE			= -5Global Const $GUI_EVENT_MAXIMIZE		= -6Global Const $GUI_EVENT_PRIMARYDOWN		= -7Global Const $GUI_EVENT_PRIMARYUP		= -8Global Const $GUI_EVENT_SECONDARYDOWN	= -9Global Const $GUI_EVENT_SECONDARYUP		= -10Global Const $GUI_EVENT_MOUSEMOVE		= -11; StateGlobal Const $GUI_AVISTOP		= 0Global Const $GUI_AVISTART		= 1Global Const $GUI_AVICLOSE		= 2Global Const $GUI_CHECKED		= 1Global Const $GUI_INDETERMINATE	= 2Global Const $GUI_UNCHECKED		= 4Global Const $GUI_ACCEPTFILES	= 8Global Const $GUI_SHOW			= 16Global Const $GUI_HIDE 			= 32Global Const $GUI_ENABLE		= 64Global Const $GUI_DISABLE		= 128Global Const $GUI_FOCUS			= 256Global Const $GUI_DEFBUTTON		= 512Global Const $GUI_EXPAND		= 1024; FontGlobal Const $GUI_FONTITALIC	= 2Global Const $GUI_FONTUNDER		= 4Global Const $GUI_FONTSTRIKE	= 8; ResizingGlobal Const $GUI_DOCKAUTO			= 0x0001Global Const $GUI_DOCKLEFT			= 0x0002Global Const $GUI_DOCKRIGHT			= 0x0004Global Const $GUI_DOCKHCENTER		= 0x0008Global Const $GUI_DOCKTOP			= 0x0020Global Const $GUI_DOCKBOTTOM		= 0x0040Global Const $GUI_DOCKVCENTER		= 0x0080Global Const $GUI_DOCKWIDTH			= 0x0100Global Const $GUI_DOCKHEIGHT		= 0x0200Global Const $GUI_DOCKSIZE			= 0x0300	; width+heightGlobal Const $GUI_DOCKMENUBAR		= 0x0220	; top+heightGlobal Const $GUI_DOCKSTATEBAR		= 0x0240	; bottom+heightGlobal Const $GUI_DOCKALL			= 0x0322	; left+top+width+height; Window StylesGlobal Const $WS_TILED				= 0Global Const $WS_OVERLAPPED 		= 0Global Const $WS_MAXIMIZEBOX		= 0x00010000Global Const $WS_MINIMIZEBOX		= 0x00020000Global Const $WS_TABSTOP			= 0x00010000Global Const $WS_GROUP				= 0x00020000Global Const $WS_SIZEBOX			= 0x00040000Global Const $WS_THICKFRAME			= 0x00040000Global Const $WS_SYSMENU			= 0x00080000Global Const $WS_HSCROLL			= 0x00100000Global Const $WS_VSCROLL			= 0x00200000Global Const $WS_DLGFRAME 			= 0x00400000Global Const $WS_BORDER				= 0x00800000Global Const $WS_CAPTION			= 0x00C00000Global Const $WS_OVERLAPPEDWINDOW	= 0x00CF0000Global Const $WS_TILEDWINDOW		= 0x00CF0000Global Const $WS_MAXIMIZE			= 0x01000000Global Const $WS_CLIPCHILDREN		= 0x02000000Global Const $WS_CLIPSIBLINGS		= 0x04000000Global Const $WS_DISABLED 			= 0x08000000Global Const $WS_VISIBLE			= 0x10000000Global Const $WS_MINIMIZE			= 0x20000000Global Const $WS_CHILD				= 0x40000000Global Const $WS_POPUP				= 0x80000000Global Const $WS_POPUPWINDOW		= 0x80880000Global Const $DS_MODALFRAME 		= 0x80Global Const $DS_SETFOREGROUND		= 0x00000200Global Const $DS_CONTEXTHELP		= 0x00002000; Window Extended StylesGlobal Const $WS_EX_ACCEPTFILES			= 0x00000010Global Const $WS_EX_APPWINDOW			= 0x00040000Global Const $WS_EX_CLIENTEDGE			= 0x00000200Global Const $WS_EX_CONTEXTHELP			= 0x00000400Global Const $WS_EX_DLGMODALFRAME 		= 0x00000001Global Const $WS_EX_LEFTSCROLLBAR 		= 0x00004000Global Const $WS_EX_OVERLAPPEDWINDOW	= 0x00000300Global Const $WS_EX_RIGHT				= 0x00001000Global Const $WS_EX_STATICEDGE			= 0x00020000Global Const $WS_EX_TOOLWINDOW			= 0x00000080Global Const $WS_EX_TOPMOST				= 0x00000008Global Const $WS_EX_TRANSPARENT			= 0x00000020Global Const $WS_EX_WINDOWEDGE			= 0x00000100Global Const $WS_EX_LAYERED				= 0x00080000Global Const $LVS_EX_FULLROWSELECT		= 0x00000020; Label/Pic/IconGlobal Const $SS_CENTER			= 1Global Const $SS_RIGHT			= 2Global Const $SS_ICON			= 3Global Const $SS_BLACKRECT		= 4Global Const $SS_GRAYRECT		= 5Global Const $SS_WHITERECT		= 6Global Const $SS_BLACKFRAME		= 7Global Const $SS_GRAYFRAME		= 8Global Const $SS_WHITEFRAME		= 9Global Const $SS_SIMPLE			= 11Global Const $SS_LEFTNOWORDWRAP	= 12Global Const $SS_BITMAP			= 15Global Const $SS_ETCHEDHORZ		= 16Global Const $SS_ETCHEDVERT		= 17Global Const $SS_ETCHEDFRAME	= 18Global Const $SS_NOPREFIX		= 0x0080Global Const $SS_NOTIFY			= 0x0100Global Const $SS_CENTERIMAGE	= 0x0200Global Const $SS_RIGHTJUST		= 0x0400Global Const $SS_SUNKEN			= 0x1000; ButtonGlobal Const $BS_BOTTOM			= 0x0800Global Const $BS_CENTER			= 0x0300Global Const $BS_DEFPUSHBUTTON	= 0x0001Global Const $BS_LEFT			= 0x0100Global Const $BS_MULTILINE		= 0x2000Global Const $BS_PUSHBOX		= 0x000AGlobal Const $BS_PUSHLIKE		= 0x1000Global Const $BS_RIGHT			= 0x0200Global Const $BS_RIGHTBUTTON	= 0x0020Global Const $BS_TOP			= 0x0400Global Const $BS_VCENTER		= 0x0C00Global Const $BS_FLAT			= 0x8000Global Const $BS_ICON			= 0x0040Global Const $BS_BITMAP			= 0x0080; CheckboxGlobal Const $BS_3STATE			= 0x0005Global Const $BS_AUTO3STATE		= 0x0006Global Const $BS_AUTOCHECKBOX	= 0x0003Global Const $BS_CHECKBOX		= 0x0002; ComboGlobal Const $CBS_SIMPLE			= 0x0001Global Const $CBS_DROPDOWN			= 0x0002Global Const $CBS_DROPDOWNLIST		= 0x0003Global Const $CBS_AUTOHSCROLL		= 0x0040Global Const $CBS_OEMCONVERT		= 0x0080Global Const $CBS_SORT				= 0x0100Global Const $CBS_NOINTEGRALHEIGHT	= 0x0400Global Const $CBS_DISABLENOSCROLL	= 0x0800Global Const $CBS_UPPERCASE			= 0x2000Global Const $CBS_LOWERCASE			= 0x4000; ListboxGlobal Const $LBS_NOTIFY			= 0x0001Global Const $LBS_SORT				= 0x0002Global Const $LBS_USETABSTOPS		= 0x0080Global Const $LBS_NOINTEGRALHEIGHT	= 0x0100Global Const $LBS_DISABLENOSCROLL	= 0x1000Global Const $LBS_NOSEL				= 0x4000Global Const $LBS_STANDARD			= 0xA00003; Edit/InputGlobal Const $ES_LEFT				= 0Global Const $ES_CENTER				= 1Global Const $ES_RIGHT				= 2Global Const $ES_MULTILINE			= 4Global Const $ES_UPPERCASE			= 8Global Const $ES_LOWERCASE			= 16Global Const $ES_PASSWORD			= 32Global Const $ES_AUTOVSCROLL		= 64Global Const $ES_AUTOHSCROLL		= 128Global Const $ES_NOHIDESEL			= 256Global Const $ES_OEMCONVERT			= 1024Global Const $ES_READONLY			= 2048Global Const $ES_WANTRETURN			= 4096Global Const $ES_NUMBER				= 8192;Global Const $ES_DISABLENOSCROLL = 8192;Global Const $ES_SUNKEN = 16384;Global Const $ES_VERTICAL = 4194304;Global Const $ES_SELECTIONBAR = 16777216; DateGlobal Const $DTS_SHORTDATEFORMAT	= 0Global Const $DTS_UPDOWN			= 1Global Const $DTS_SHOWNONE			= 2Global Const $DTS_LONGDATEFORMAT	= 4Global Const $DTS_TIMEFORMAT		= 9Global Const $DTS_RIGHTALIGN		= 32; Progress barGlobal Const $PBS_SMOOTH	= 1Global Const $PBS_VERTICAL	= 4; AVI clipGlobal Const $ACS_CENTER			= 1Global Const $ACS_TRANSPARENT		= 2Global Const $ACS_AUTOPLAY			= 4Global Const $ACS_TIMER				= 8Global Const $ACS_NONTRANSPARENT	= 16; TabGlobal Const $TCS_SCROLLOPPOSITE	= 0x0001Global Const $TCS_BOTTOM			= 0x0002Global Const $TCS_RIGHT				= 0x0002Global Const $TCS_MULTISELECT		= 0x0004Global Const $TCS_FLATBUTTONS		= 0x0008Global Const $TCS_FORCEICONLEFT		= 0x0010Global Const $TCS_FORCELABELLEFT	= 0x0020Global Const $TCS_HOTTRACK			= 0x0040Global Const $TCS_VERTICAL			= 0x0080Global Const $TCS_TABS				= 0x0000Global Const $TCS_BUTTONS			= 0x0100Global Const $TCS_SINGLELINE		= 0x0000Global Const $TCS_MULTILINE			= 0x0200Global Const $TCS_RIGHTJUSTIFY		= 0x0000Global Const $TCS_FIXEDWIDTH		= 0x0400Global Const $TCS_RAGGEDRIGHT		= 0x0800Global Const $TCS_FOCUSONBUTTONDOWN = 0x1000Global Const $TCS_OWNERDRAWFIXED	= 0x2000Global Const $TCS_TOOLTIPS			= 0x4000Global Const $TCS_FOCUSNEVER		= 0x8000; TreeViewGlobal Const $TVS_HASBUTTONS     	= 0x0001Global Const $TVS_HASLINES       	= 0x0002Global Const $TVS_LINESATROOT    	= 0x0004;Global Const $TVS_EDITLABELS      = 0x0008Global Const $TVS_DISABLEDRAGDROP	= 0x0010Global Const $TVS_SHOWSELALWAYS		= 0x0020;Global Const $TVS_RTLREADING     = 0x0040Global Const $TVS_NOTOOLTIPS		= 0x0080Global Const $TVS_CHECKBOXES		= 0x0100Global Const $TVS_TRACKSELECT		= 0x0200Global Const $TVS_SINGLEEXPAND		= 0x0400;Global Const $TVS_INFOTIP        = 0x0800Global Const $TVS_FULLROWSELECT		= 0x1000Global Const $TVS_NOSCROLL			= 0x2000Global Const $TVS_NONEVENHEIGHT		= 0x4000; SliderGlobal Const $TBS_AUTOTICKS	= 0x0001Global Const $TBS_VERT		= 0x0002Global Const $TBS_HORZ		= 0x0000Global Const $TBS_TOP		= 0x0004Global Const $TBS_BOTTOM	= 0x0000Global Const $TBS_LEFT		= 0x0004Global Const $TBS_RIGHT		= 0x0000Global Const $TBS_BOTH		= 0x0008Global Const $TBS_NOTICKS	= 0x0010Global Const $TBS_NOTHUMB	= 0x0080; ListViewGlobal Const $LVS_REPORT 			= 0x0001Global Const $LVS_EDITLABELS		= 0x0200Global Const $LVS_NOCOLUMNHEADER	= 0x4000Global Const $LVS_NOSORTHEADER		= 0x8000Global Const $LVS_SINGLESEL			= 0x0004Global Const $LVS_SHOWSELALWAYS		= 0x0008;UpdownGlobal Const $UDS_WRAP 				= 0x0001Global Const $UDS_ALIGNRIGHT 		= 0x0004Global Const $UDS_ALIGNLEFT			= 0x0008Global Const $UDS_ARROWKEYS 		= 0x0020Global Const $UDS_HORZ 				= 0x0040Global Const $UDS_NOTHOUSANDS 		= 0x0080; Control default stylesGlobal Const $GUI_SS_DEFAULT_AVI		= $ACS_TRANSPARENTGlobal Const $GUI_SS_DEFAULT_BUTTON		= 0Global Const $GUI_SS_DEFAULT_CHECKBOX	= 0Global Const $GUI_SS_DEFAULT_COMBO		= $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLLGlobal Const $GUI_SS_DEFAULT_DATE		= $DTS_LONGDATEFORMATGlobal Const $GUI_SS_DEFAULT_EDIT		= $ES_WANTRETURN + $WS_VSCROLL + $WS_HSCROLL + $ES_AUTOVSCROLL + $ES_AUTOHSCROLLGlobal Const $GUI_SS_DEFAULT_GROUP		= 0Global Const $GUI_SS_DEFAULT_ICON		= $SS_NOTIFYGlobal Const $GUI_SS_DEFAULT_INPUT		= $ES_LEFT + $ES_AUTOHSCROLLGlobal Const $GUI_SS_DEFAULT_LABEL		= 0Global Const $GUI_SS_DEFAULT_LIST		= $LBS_SORT + $WS_BORDER + $WS_VSCROLL + $LBS_NOTIFYGlobal Const $GUI_SS_DEFAULT_LISTVIEW	= $LVS_SHOWSELALWAYS + $LVS_SINGLESELGlobal Const $GUI_SS_DEFAULT_PIC		= $SS_NOTIFYGlobal Const $GUI_SS_DEFAULT_PROGRESS	= 0Global Const $GUI_SS_DEFAULT_RADIO		= 0Global Const $GUI_SS_DEFAULT_SLIDER		= $TBS_AUTOTICKSGlobal Const $GUI_SS_DEFAULT_TAB		= 0Global Const $GUI_SS_DEFAULT_TREEVIEW	= $TVS_HASBUTTONS + $TVS_HASLINES + $TVS_LINESATROOT + $TVS_DISABLEDRAGDROP + $TVS_SHOWSELALWAYSGlobal Const $GUI_SS_DEFAULT_UPDOWN		= $UDS_ALIGNRIGHTGlobal 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, $REGGlobal $TRADEFILE, $VISITOR, $OURNAME, $CARDS, $FILTER, $LASTMESSAGE = "@", $HEAVYSPAM, $MAXCARDSPERTRADE, $coord, $INIFILE;~ Name and version of The BoTGlobal $nothebot = "ProjectGremBot", $3TURNS = 0Global $TIME, $MYNAME, $GremBot, $MTGOSUCKS = 0, $DISABLESPAM, $ROOM2SPAM, $IMSGBOXANSWER;~ messagesGlobal $WELCOMEMESSAGE, $BUYINGBALANCEMESSAGE, $SELLINGBALANCEMESSAGE, $YOUWILLTAKEMESSAGE, $TOOMANYMESSAGEGlobal $THANXMESSAGE, $2MINSLEFTMESSAGE, $AUTOANSWERMESSAGE, $ONLYTICKETSMESSAGE, $WAITINGYOUMESSAGE, $NOTENOUGHMESSAGE;~ ScreenshotGlobal $TRADESHOT = "YES", $MESSAGESHOT = "YES";~ Trade SettingsGlobal $BOTGIVES, $BUYINGBOTGIVES, $BOTTAKES, $BUYINGBOTTAKES, $BUYINGRARITY, $BUYINGVERSION, $SELLINGBOTTAKESGlobal $BUYING, $NUMBEROWNEDSIGN, $NUMBEROWNEDVALUE, $MODE, $inimode, $TRADINGTIME, $SET, $SELLINGBOTGIVES, $NOLANDS, $EOBUYING, $somx3;~ SpamDim $SPAMMESSAGE[8]Global $SPAMPERIODGlobal $CN, $PG, $DLL, $DLL2, $JPGGlobal $CARDCHECK[101][2]Global $MAXCARDS, $savepasGlobal $LASTTAKEN, $ourname, $user, $msg, $PASS, $f, $a, $z, $rew, $xxce, $spamfixed, $userfixed, $somx2, $Button3Global $SPAMNO = 1Global $itisPAUSED = 0Global $nowclose;mineGlobal $string, $clip, $whatourthetypes, $yle, $TRADINGBOTGIVES, $ands, $TRADINGBOTTAKES, $whatourthetypesX, $iniMessages, $initrade, $inispam, $iniscreenshot global $LICENSED, $inimodeset, $modeBEGIN, $modeend, $TRADINGBOTGIVES, $TRADINGBOTTAKES, $THEYTAKE_SILVERGlobal $string, $mes, $clip, $whatourthetypes, $mesx, $modex, $yle, $TRADINGBOTGIVES, $TRADINGBOTTAKES, $whatourthetypesX, $iniMessages, $initrade, $inispam, $iniscreenshotglobal $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, $form1Dim $Udif, $QT_web = "www.ProjectGremBot.somee.com"global $difernce, $update, $somex, $decideDim $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 $ProgressEndFuncFunc _UpdateProgress( $ProgressID, $Percent, $Label="" )      GUICtrlSetData( $ProgressID[0], $Percent )  EndFuncDirCreate( @ScriptDir & "\Support" ) DirCreate( @ScriptDir & "\Trade" ) DirCreate( @ScriptDir & "\Reports" ) DirCreate( @ScriptDir & "\PMs Recieved" ) ;testFileDelete( "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(  ) EndIfEndIf	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	EndIfif 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=2EndIfFunc _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 = $OURNAMELocal $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		;;;;;;;	EndSelectWEnd$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  ) WEndopt(  "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 ) WEndEndIfEndIfEndFunc	#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  ) WEndopt(  "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 ThenDllClose(  $DLL2  ) $USER = $OURNAME;guifixLocal $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		;;;;;;;	EndSelectWEnd$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  ) WEndopt(  "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		 EndIfEndIfEndIfEndIfDllClose(  $DLL2  ) $USER = $OURNAMELocal $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		;;;;;;;	EndSelectWEnd$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  ) WEndopt(  "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 ) WEndfunc _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(  ) EndFuncfunc _funct(  ) 	_Spam(  ) 	_takecareofthewindow( $nowclose ) 	_endit(  ) 	EndFuncfunc _funct1(  ) 	_SplashScreen(  ) 	$TIME = _NowCalc(  ) 	_Initialize(  ) 	if $somx3 = "new" then 		_allnew(  ) 		EndIf	_initspam(  ) 	_Spam(  ) 	_endit(  ) 	EndFuncfunc _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; OKFunc _TogglePause(  ) 	$itisPAUSED = Not $itisPAUSED	While $itisPAUSED		Sleep( 500 ) 		ToolTip( $nothebot &  "is Paused", 0, 0 ) 	WEnd	ToolTip( "" ) EndFunc; OKFunc _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	EndIfEndFunc; OKFunc _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 ""	EndIfEndFunc; OKFunc _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 $SREVERSEEndFunc; okFunc _ScreenShot( $TYPE ) ;~ 	Send(  "{printscreen}" ) 	DllCall( $DLL, "none", "TakeAScreenShot", "Str", $TYPE & "\" & $TYPE ) EndFunc; degistirFunc _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	EndIfif 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 = 10EndFuncFunc _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(  ) 	EndFuncFunc _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 - 19if 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	EndIfEndFunc; okFunc _gethelp(  ) 	_ScreenShot( "SUPPORT" ) 	Sleep( 1000 ) EndFunc; OKFunc _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 = 1EndFuncfunc _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 ) 	EndIfEndFunc; okFunc _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	EndIfEndFunc; OKFunc _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(  ) 		EndIfEndFunc; okFunc _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 "."	EndIfEndFunc; OKFunc _AuthCode(  ) 	Return Hex(  DriveGetSerial(  "C:\" ) , 8 )  & Hex( ( DriveGetSerial(  "C:\" )  / 4 )  + 72358 * 12, 8 ) EndFunc; OKFunc _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(  ) 	EndIfEndFunc; okFunc _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 $SONUCEndFunc; OKFunc _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 ReturnMouseClick( "left", 276, 705, 1, 0 ) 	_tosendmessage( $WELCOMEMESSAGE, "", "" ) 	Sleep( 2000 ) 	_takecareofthewindow( 0 ) 	If $WITHDRAW = "YES" Then ReturnIf $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 ReturnEndFunc   ;==>_WelcomeMessage; OKFunc _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; okFunc _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 ) EndFuncFunc _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; OKFunc _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; okFunc _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	WEndEndFunc; okFunc _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 $TAKEEndFunc; okFunc _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 $TAKEEndFunc; okFunc _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 = 0EndFunc; OKFunc _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; OKFunc _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	EndIfIf $MODEend = "TRADE" Then		$BOTGIVES = $TRADINGBOTGIVES		$BOTTAKES = $TRADINGBOTTAKESEndIf	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 = 32EndFunc; okFunc _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 0EndFunc; okFunc _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 = $THEYTAKEEndFuncFunc _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 = $THEYTAKEEndFunc; OKFunc _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 ) 	EndIfEndFunc; OKFunc _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	WEndEndFunc; OKFunc _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; OKFunc _CheckOut(  ) 	While PixelChecksum( 296, 52, 428, 62 )  = 3891846092		Sleep( 1000 ) 		_takecareofthewindow( 0 ) 		If $WITHDRAW = "YES" Then Return	WEndEndFunc; okFunc _OnExit(  ) 	MsgBox( 64, $nothebot, $nothebot & " will be unloaded now." ) 	WinSetTitle(  "Magic Online - " & $nothebot, "", "Magic Online V2" ) 	DllClose( $DLL ) 	DllClose( $DLL2 ) EndFuncfunc _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(  ) 		EndFuncFunc _endthebot(  ) 	ExitEndFuncFunc _ShowError( $ERROR ) 	MsgBox( 4112, "opps", "Error: " & $ERROR ) ;~ 	Quits from the BOTEndFuncfunc _all(  ) 	_user(  ) 	_TBB1E620D775739E5(  ) 	_doispam(  ) 	_whatiswhatthebotisin(  ) EndFuncfunc _allnew(  ) 	if IniRead( $initrade, "trade", "AccountName", "" )  = "" Then _user(  ) 	_TBB1E620D775739E5(  ) 	_doispam(  ) 	_whatiswhatthebotisin(  ) EndFuncfunc _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(  ) EndFuncFunc _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 ) EndFuncfunc _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(  ) 	EndFuncfunc _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" ) 		EndFuncfunc _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 ) 	EndFuncfunc _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(  ) EndFuncfunc _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(  ) 	EndFuncfunc _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"EndFuncfunc _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 = $mesif 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  ) WEndopt(  "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 ThenDllClose(  $DLL2  ) $USER = $OURNAMELocal $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		;;;;;;;	EndSelectWEnd$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  ) WEndopt(  "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 = $OURNAMELocal $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		;;;;;;;	EndSelectWEnd$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  ) WEndopt(  "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		 EndIfEndFuncfunc _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"EndFuncFunc _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 ) 			EndIfEndFunc;~ ----------------------------------------------- main(  ) Func _endit(  ) SplashOff(  ) $TIME = _NowCalc(  ) _Spam(  ) Global $NEW = 0While 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	WEndEndFuncfunc _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>; ----------------------------------------------------------------------------