|

楼主 |
发表于 2006-4-3 10:59:00
|
显示全部楼层
Re:?? DELPHI ????????? LUA ??
???????ALLEGRO????LUA?????????BITMAP?GRAPHICS?KEYBOARD?MOUSE?BLIT?DRAW??????????????????????????????????LUA???????
???????ALLEGRO??????????????
allegro = create_object("TAllegro"); // ??????
graphics = create_object("TGraphics"); // ??????????????
mouse = create_object("TMouse"); // ??????
keyboard = create_object("TKeyboard"); // ??????
allegro.install(SYSTEM_AUTODETECT); // ??ALLEGRO??
keyboard.install(); // ????
mouse.install(); // ????
allegro.set_window_title('Hello Allegro!'); // ??ALLEGRO????
graphics.set_color_depth(16); // ???????16BIT
graphics.set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0); // ??DIRECTX???? 640*480
screen = create_object("TBitmap", "screen"); // ???????SCREEN???????
mysha = create_object("TBitmap", "./data/mysha.pcx"); // ??????PCX?????????
sub = create_object("TBitmap"); // ??????????????
sub.create_sub(mysha, 100, 100, 50, 50); // ?MYSHA????????
mouse.show(screen); // ??????
draw = screen.draw_sprite; // ???????????
while not keyboard.key(59) do
draw(mysha, math.random(255), math.random(255)); // ????MYSHA????screen.draw
sleep(1); // ?????CPU???????????????????CPU?????%99??
end;
allegro.exit(); // ??ALLEGRO
quit(); // ?????
|
|