#include <Prospeed.au3>
#include <String.au3>

Opt("GUIOnEventMode", 1)
Opt("PixelCoordMode", 2)
HotKeySet("{Esc}","_Exit")

$GUI = GUICreate("Internal Sprite Drawing",600, 400, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()
		
Background("" , 0, 0, 600, 400)
												
; <= Begin SpriteData 6 digit hex colordata (BGR) Bitmap Dimensions (Width 68 x Height 19)
$STR90 ="000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000060000060000060000060000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
$STR90&="000000000000000000000000000000000000000000000000000000000000000000000000000000ECECECECECEC00009C00009C0000E40000E4ECECECECECEC000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004800004800000060000060000060000060004800004800000000000000000000000000000000000000000000000000000000000000000000000000000000"
$STR90&="000000000000000000000000000000000000000000000000000000000000000000000000000000ECECECECECEC00009C00009C0000E40000E4ECECECECECEC000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004800004800000060000060000060000060004800004800000000000000000000000000000000000000000000000000000000000000000000000000000000"
$STR90&="000000000000000000000000000000000000000000000000000000000000000000000000000000008800008800000060000060000060000060008800008800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ECECECECECEC00009C00009C0000E40000E4ECECECECECEC000000000000000000000000000000000000000000000000000000000000000000000000000000"
$STR90&="000000000000000000000000000000000000000000000000000000000000000000000000000000008800008800000060000060000060000060008800008800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ECECECECECEC00009C00009C0000E40000E4ECECECECECEC000000000000000000000000000000000000000000000000000000000000000000000000000000"
$STR90&="00000000000000000000000000000000480000480000600000600000600000600000880000880000EC0000EC0000600000600000600000600000EC0000EC00008800008800006000006000006000006000004800004800000000000000000000000000000000000000000000000000004800004800006000006000006000006000006000006000006000006000008800008800004800004800004800004800008800008800006000006000006000006000006000006000006000006000004800004800000000000000000000"
$STR90&="00000000000000000000000000000000480000480000600000600000600000600000880000880000EC0000EC0000600000600000600000600000EC0000EC00008800008800006000006000006000006000004800004800000000000000000000000000000000000000000000000000004800004800006000006000006000006000006000006000006000006000008800008800004800004800004800004800008800008800006000006000006000006000006000006000006000006000004800004800000000000000000000"
$STR90&="00000000000000000000480000480000880000880000A80000A80000AC0000AC0000EC0000EC004060B04060B05CA8EC5CA8EC5088D05088D04060B04060B000EC0000EC0000AC0000AC0000A80000A80000880000880000480000480000000000000000000000000000480000480000880000880000880000880000880000880000880000880000AC0000AC0000EC0000EC005CA8EC5CA8EC4060B04060B000EC0000EC0000AC0000AC00008800008800008800008800008800008800008800008800004800004800000000"
$STR90&="00000000000000000000480000480000880000880000A80000A80000AC0000AC0000EC0000EC004060B04060B05CA8EC5CA8EC5088D05088D04060B04060B000EC0000EC0000AC0000AC0000A80000A80000880000880000480000480000000000000000000000000000480000480000880000880000880000880000880000880000880000880000AC0000AC0000EC0000EC005CA8EC5CA8EC4060B04060B000EC0000EC0000AC0000AC00008800008800008800008800008800008800008800008800004800004800000000"
$STR90&="00000000480000480000880000880000A80000A80000AC0000AC0000EC0000EC0000006000006000009C00009C0000E40000E40000E40000E400009C00009C00006000006000EC0000EC0000AC0000AC0000A80000A80000880000880000480000480000000000000000480000480000AC0000AC0000AC0000AC0000AC0000AC0000AC0000AC0000EC0000EC0000009C00009C0000E40000E40000E40000E400009C00009C00EC0000EC0000AC0000AC0000AC0000AC0000AC0000AC0000AC0000AC00004800004800000000"
$STR90&="00000000480000480000880000880000A80000A80000AC0000AC0000EC0000EC0000006000006000009C00009C0000E40000E40000E40000E400009C00009C00006000006000EC0000EC0000AC0000AC0000A80000A80000880000880000480000480000000000000000480000480000AC0000AC0000AC0000AC0000AC0000AC0000AC0000AC0000EC0000EC0000009C00009C0000E40000E40000E40000E400009C00009C00EC0000EC0000AC0000AC0000AC0000AC0000AC0000AC0000AC0000AC00004800004800000000"
$STR90&="00000000480000480000A80000A80000AC0000AC0000EC0000EC004060B04060B05088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D04060B04060B000EC0000EC0000AC0000AC0000A80000A80000480000480000000000000000000000000000480000480000EC0000EC0000EC0000EC0000EC0000EC005088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D000EC0000EC0000EC0000EC0000EC0000EC00004800004800000000000000000000"
$STR90&="00000000480000480000A80000A80000AC0000AC0000EC0000EC004060B04060B05088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D04060B04060B000EC0000EC0000AC0000AC0000A80000A80000480000480000000000000000000000000000480000480000EC0000EC0000EC0000EC0000EC0000EC005088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D000EC0000EC0000EC0000EC0000EC0000EC00004800004800000000000000000000"
$STR90&="00000000000000000000EC0000EC0000EC0000EC0000000000000000006000006000009C00009C0000E40000E40000E40000E40000E40000E40000E40000E400009C00009C00006000006000000000000000EC0000EC0000EC0000EC0000000000000000000000000000000000000000000000000000000000000000000000000000006000006000009C00009C0000E40000E40000E40000E40000E40000E40000E40000E400009C00009C000060000060000000000000000000000000000000000000000000000000000000"
$STR90&="00000000000000000000EC0000EC0000EC0000EC0000000000000000006000006000009C00009C0000E40000E40000E40000E40000E40000E40000E40000E400009C00009C00006000006000000000000000EC0000EC0000EC0000EC0000000000000000000000000000000000000000000000000000000000000000000000000000006000006000009C00009C0000E40000E40000E40000E40000E40000E40000E40000E400009C00009C000060000060000000000000000000000000000000000000000000000000000000"
$STR90&="0000000000000000000000000000000000000000000000000000004060B04060B05088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D04060B04060B00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004060B04060B05088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D04060B04060B0000000000000000000000000000000000000000000000000000000"
$STR90&="0000000000000000000000000000000000000000000000000000004060B04060B05088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D04060B04060B00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004060B04060B05088D05088D05CA8EC5CA8EC88CCFC88CCFCECECECECECEC5CA8EC5CA8EC5088D05088D04060B04060B0000000000000000000000000000000000000000000000000000000"
$STR90&="00000000000000000000000000000000000000000000000000000000000000000000006000006000009C00009C0000E40000E40000E40000E400009C00009C00006000006000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006000006000009C00009C0000E40000E40000E40000E400009C00009C000060000060000000000000000000000000000000000000000000000000000000000000000000"
$STR90&="00000000000000000000000000000000000000000000000000000000000000000000006000006000009C00009C0000E40000E40000E40000E400009C00009C00006000006000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000006000006000009C00009C0000E40000E40000E40000E400009C00009C000060000060000000000000000000000000000000000000000000000000000000000000000000"
; <= End SpriteData

; <= Begin SpriteData 6 digit hex colordata (BGR) Bitmap Dimensions (Width 64 x Height 18)
$STR16 ="B4B4B400000000000000000000000000000000000000EC0000EC0000880000880000009C00009C0000E40000E400009C00009C00880000880000EC0000EC00000000000000000000000000000000000000B4B4B4B4B4B400000000000000000000000000000000000000000000000000000000000000000000000000EC0000EC0000880000880000009C00009C0000E40000E400009C00009C00880000880000EC0000EC00000000000000000000000000000000000000000000000000000000"
$STR16&="B4B4B400000000000000000000000000000000000000EC0000EC0000880000880000009C00009C0000E40000E400009C00009C00880000880000EC0000EC00000000000000000000000000000000000000B4B4B4B4B4B400000000000000000000000000000000000000000000000000000000000000000000000000EC0000EC0000880000880000009C00009C0000E40000E400009C00009C00880000880000EC0000EC00000000000000000000000000000000000000000000000000000000"
$STR16&="7C7C7CB4B4B4B4B4B40000000000000000000000000088000088000000840000840000C00000C00000C00000C00000C00000C0000084000084008800008800000000000000000000000000B4B4B4B4B4B47C7C7C7C7C7C0000000000000000000000000000000000000000000000000000000000000000000000000088000088000000600000600000C00000C00000C00000C00000C00000C0000060000060008800008800000000000000000000000000000000000000000000000000000000"
$STR16&="7C7C7CB4B4B4B4B4B40000000000000000000000000088000088000000840000840000C00000C00000C00000C00000C00000C0000084000084008800008800000000000000000000000000B4B4B4B4B4B47C7C7C7C7C7C0000000000000000000000000000000000000000000000000000000000000000000000000088000088000000600000600000C00000C00000C00000C00000C00000C0000060000060008800008800000000000000000000000000000000000000000000000000000000"
$STR16&="6060607C7C7C7C7C7CB4B4B4B4B4B40000E40000E400009C00009C508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD400009C00009C0000E40000E4B4B4B4B4B4B47C7C7C7C7C7C6060606060600000000000000000000000000000000000000000000000000000000000000000E40000E4000084000084508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD400009C00009C000084000084000000000000000000000000000000000000000000"
$STR16&="6060607C7C7C7C7C7CB4B4B4B4B4B40000E40000E400009C00009C508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD400009C00009C0000E40000E4B4B4B4B4B4B47C7C7C7C7C7C6060606060600000000000000000000000000000000000000000000000000000000000000000E40000E4000084000084508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD400009C00009C000084000084000000000000000000000000000000000000000000"
$STR16&="4444446060606060607C7C7C7C7C7C00009C00009C5CA8EC5CA8EC000060000060ECECECECECEC000060000060ECECECECECEC0000600000605CA8EC5CA8EC00009C00009C7C7C7C7C7C7C6060606060604444444444440000000000000000000000007C7C7C7C7C7CB4B4B4B4B4B4B4B4B4B4B4B400009C00009C5CA8EC5CA8EC000060000060ECECECECECEC000060000060ECECECECECEC0000600000605CA8EC5CA8EC00009C00009CB4B4B4B4B4B4B4B4B4B4B4B47C7C7C7C7C7C000000"
$STR16&="4444446060606060607C7C7C7C7C7C00009C00009C5CA8EC5CA8EC000060000060ECECECECECEC000060000060ECECECECECEC0000600000605CA8EC5CA8EC00009C00009C7C7C7C7C7C7C6060606060604444444444440000000000000000000000007C7C7C7C7C7CB4B4B4B4B4B4B4B4B4B4B4B400009C00009C5CA8EC5CA8EC000060000060ECECECECECEC000060000060ECECECECECEC0000600000605CA8EC5CA8EC00009C00009CB4B4B4B4B4B4B4B4B4B4B4B47C7C7C7C7C7C000000"
$STR16&="00000044444444444460606060606000009C00009C000084000084508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD400008400008400009C00009C60606060606044444444444400000000000000000000000000000000000000000000000044444444444444444444444400009C00009C5CA8EC5CA8EC0000600000600000600000600000600000600000600000600000600000605CA8EC5CA8EC00009C00009C444444444444444444444444000000000000000000"
$STR16&="00000044444444444460606060606000009C00009C000084000084508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD400008400008400009C00009C60606060606044444444444400000000000000000000000000000000000000000000000044444444444444444444444400009C00009C5CA8EC5CA8EC0000600000600000600000600000600000600000600000600000600000605CA8EC5CA8EC00009C00009C444444444444444444444444000000000000000000"
$STR16&="00000000000000000000000000000000009C00009C0000E40000E40000C00000C00000C00000C00000C00000C00000C00000C00000C00000C00000E40000E400009C00009C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000009C00009C0000E40000E4508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD40000E40000E400009C00009C000000000000000000000000000000000000000000"
$STR16&="00000000000000000000000000000000009C00009C0000E40000E40000C00000C00000C00000C00000C00000C00000C00000C00000C00000C00000E40000E400009C00009C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000009C00009C0000E40000E4508CD4508CD45CA8EC5CA8EC88CCFC88CCFC5CA8EC5CA8EC508CD4508CD40000E40000E400009C00009C000000000000000000000000000000000000000000"
$STR16&="00000000000000000000000000000000000000000000009C00009C0000E40000E40000FC0000FC0000FC0000FC0000FC0000FC0000E40000E400009C00009C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005CA8EC5CA8EC00009C00009C0000E40000E40000FC0000FC0000FC0000FC0000FC0000FC0000E40000E400009C00009C5CA8EC5CA8EC000000000000000000000000000000000000000000"
$STR16&="00000000000000000000000000000000000000000000009C00009C0000E40000E40000FC0000FC0000FC0000FC0000FC0000FC0000E40000E400009C00009C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005CA8EC5CA8EC00009C00009C0000E40000E40000FC0000FC0000FC0000FC0000FC0000FC0000E40000E400009C00009C5CA8EC5CA8EC000000000000000000000000000000000000000000"
$STR16&="0000000000000000005CA8EC5CA8EC5088D05088D000000000000000009C00009C0000E40000E40000FC0000FC0000E40000E400009C00009C0000000000005088D05088D05CA8EC5CA8EC0000000000000000000000000000000000000000000000000000000000000000000000005CA8EC5CA8EC0000000000005CA8EC5CA8EC00009C00009C0000E40000E40000FC0000FC0000E40000E400009C00009C5CA8EC5CA8EC0000000000005CA8EC5CA8EC000000000000000000000000000000"
$STR16&="0000000000000000005CA8EC5CA8EC5088D05088D000000000000000009C00009C0000E40000E40000FC0000FC0000E40000E400009C00009C0000000000005088D05088D05CA8EC5CA8EC0000000000000000000000000000000000000000000000000000000000000000000000005CA8EC5CA8EC0000000000005CA8EC5CA8EC00009C00009C0000E40000E40000FC0000FC0000E40000E400009C00009C5CA8EC5CA8EC0000000000005CA8EC5CA8EC000000000000000000000000000000"
$STR16&="0000005CA8EC5CA8EC0000000000005CA8EC5CA8EC0000000000000000000000000000000000000000000000000000000000000000000000000000000000005CA8EC5CA8EC0000000000005CA8EC5CA8EC000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
$STR16&="0000005CA8EC5CA8EC0000000000005CA8EC5CA8EC0000000000000000000000000000000000000000000000000000000000000000000000000000000000005CA8EC5CA8EC0000000000005CA8EC5CA8EC000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
; <= End SpriteData

$bitmap1 = DrawSprite(1, $STR90, 68, 19)
$bitmap2 = DrawSprite(2, $STR16, 64, 18)

$sprite1 = Sprite($bitmap1 ,0 ,0 ,34 ,19 ,2 ,1 ,8 ,350 ,100)
$sprite2 = Sprite($bitmap2 ,0 ,0 ,32 ,18 ,2 ,1 ,8 ,400 ,150)

SetSpriteMovingMode($sprite1, 1)
SetSpriteMovingMode($sprite2, 1)

While 1
	movesprite($sprite1, Random(0,600,1), Random(0,400,1))
	movesprite($sprite2, Random(0,600,1), Random(0,400,1))
	Sleep(1000)
WEnd

Func DrawSprite($SP_Num, $SP_String, $SP_Width, $SP_Height)
	Dim $SP_bitmap[10] ; <= dim for 10 sprites
	$SP_bitmap[$SP_Num] = CreateExtBmp($SP_Width, $SP_Height)
	$SP_o = 1
	$SP_copyY = 0
	For $SP_i = 1 To $SP_Height
		For $SP_w = 1 To $SP_Width
			$SP_var = "0x"&StringMid($SP_String, $SP_o, 6)	
			FillExtBmp($SP_bitmap[$SP_Num], $SP_w, $SP_w+1, $SP_copyY, $SP_copyY+1, $SP_var)
			$SP_o +=6
		Next
		$SP_copyY +=1	
	Next
	Return $SP_bitmap[$SP_Num]
EndFunc

Func _exit()
	Exit
EndFunc