wantonman
2012-02-29 00:05:39
program FastDrawExample;
var Buffer,Line,tree,x,y,xi,yi,xz,yz:integer;
begin
ClearDebug;
Buffer:=BitmapFromString(4000,2000,'');
Line:= BitmapFromString(20, 45, 'beNrtlm0OgzAIhjnajta' +
'bM2srRV4+TLMsWTLCDxSeFoGqzK4QCFdCqeRse82wwzCar6C3QFYv' +
'Moxyu2SFkYMBc8GYCDySGoqsydbEGy3rULKYp/sUYx2NYADmfHVh7' +
'iiXyD7M2bBukU3wExb7ssG6rSxnxi1C1ALvoDXpTtRc3AUbJP01Qx' +
'WxclMqIzY+QsKKy2W1cRxF0Z7ntVx3KRvPEVPNDhfufqNUWO6dVfW' +
'8q3FbLKesvCXRy24dRNW7eQ1/zq5h+7MhTgXLJ9vIB7tLBwdsIw8M' +
'WJmRpnG6gxcbffpbrtvsg78Ok/YPsKZT30178w+t/GB9gH0De8A9B' +
'w==');
tree := BitmapFromString(178, 182, 'beNrt3UFygzAMAMA8rU/Lz+' +
'mhtzKAQQZsaTU+dpJW3jQgC3tZ0sfn++k+FlF49mkBABUMIMEAEhj' +
'wgAEPGPDgweDBKGXDtOLBAxtIgMEDG0iAwQMbSICBBBhUUIGEMRoM' +
'EwEGEmBQQQUVVFBBBRJgUGFQYfgSMVxtGlQYVBiK3oYFMsNiuulAg' +
'goqwEACDCTY4AEMJNjgAQwk2OAhTZhWGNjggQ0e8ICh++TikQzDA8' +
'mBgYTDjGHg6/4wmfs/+f35P/r+JuvX338L134vftZ2pqwjjK3X/3s' +
'LtwOz/BOOC1m/gtvDMcfOZ/bugQQbZVVMfUlPBRIjwKCCCiqooIIK' +
'KlxtUuHOlApVLCrYCFa8qaizOvYYjKV2pGlLmFfFyJ0bs/eojK8iQ' +
'Z/PdH/CmCqKdIIN++uNo0Kv4DjxugqtpOlVnIWhx7iIivah/5yKqU' +
'mUgvFKndwTK3PV4pAA4xUYVMx1XfHM2isV011tPrAuT8WM9yBgILE' +
'0P1QIRqmSxalZU8VSxbrWBKjinb62eRaG1bEiFe9TzcNW0guugxzy' +
'uKOwBsMUq2MPZxWDWdZMR0iy2R9wJV3+qWi3IaVUeEqICiqooIIKK' +
'gQVggpBhaBCUCGoEFQIKkQRFRbIqNhaP5VVKtZL6rJKxbrLQlaLq9' +
'B1QwUSVJwl4c60uIqtZ4Xks6yKncfH5LOgilufKBTTqWh8Blk+66h' +
'wSDoV7VcRVBRUcWG7G/nMreLaDkjymVjF5U2x5DOrisg+afKZUkVw' +
'xzz5zKcivomifCZT0WVfTcummVT0ImE9PY2KviSoSBBxEhpvkECij' +
'oouJNyDZFLRiwQVWatYERJUVFahF4uKdhJU1FShF4uKsySoqKaicW' +
'FdPuuo0LdJRaTjQj4rqNChR8W1bw0qiqi4fLitfGZVETnvWD5Tqgg' +
'egS2f+VTET0WXz2QquvTpyWcmFXEPVCRT0YsEFWmiIwkqkKAitwp7' +
'/ovDKhYVggpBhaBCUCHcg4i76xVqm+I+GPKZ5rqiIwz5zHS12QuGf' +
'Ca7B7m8xyYVue9MI/uvUpG4XhGEIZ9Zq1jtp4FQUUeFkyBE8KAxKg' +
'qqOAtDPouoOGVDPkupaKxpyGdBFfbQo8J+m1QEbVBBxRYM+aTCySB' +
'UgEGF46Wo0M0rqBBUCCoEFYIKMTgAVEggBAkwNuMXhIZY3g==');
SetTransparentColor(line,16777215);
SetTransparentColor(tree,16777215);
DisplayDebugImgWindow(400,200);
repeat
FastDrawclear(buffer,46546546);
FastDrawTransparent(xi,yi,tree,buffer);
FastDrawTransparent(x+200,y+100,Line,buffer);
if IsArrowDown(ar_right) then begin
xi:= xi-2;
SafeDrawBitmap(Buffer,getdebugcanvas,0,0);
wait(10);
end else
if IsArrowDown(ar_left) then begin
xi:= xi+2;
SafeDrawBitmap(Buffer,getdebugcanvas,0,0);
wait(10);
end else
if IsArrowDown(ar_up) then begin
yi:= yi+2;
SafeDrawBitmap(Buffer,getdebugcanvas,0,0);
wait(10);
end else
if IsArrowDown(ar_down) then begin
yi:= yi-2;
SafeDrawBitmap(Buffer,getdebugcanvas,0,0);
wait(10);
end;
until(IsKeyDown(chr(VK_ESCAPE)));
writeln('Ta-da');
PlaySound('C:\\windows\media\tada.wav');
end.
v3.22
give me sugestions, like how i can add collision detecting!!!!