#include #include 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