m3gaman3g3nd
2012-09-08 17:35:28
here…
read…
learn/explore………. N0,,7│)o○v{—888∟∟∟∟∟π¬└8qqq•••••♦♦♦♦♦∟\π♣♣♣♣♣
read…
learn/explore………. N0,,7│)o○v{—888∟∟∟∟∟π¬└8qqq•••••♦♦♦♦♦∟\π♣♣♣♣♣
[SIMBA]
program new;
//////////////////////////////////////
// globals //
//////////////////////////////////////
var
jjj,jj:integer;
mok,buffer,mbuffer,zbuffer:integer;
xpos,ypos,xdir,ydir:integer;
//////////////////////////////////////
world: array of tbitmap;
///////////////////////////////////
//////////////////////////
// MISC //
//////////////////////////
var
tpa1:tpointarray;
ti:array of integer;
i1:integer;
ix,iix,iiix:integer;
iee,iex:integer;
ixc:integer;
//////////////////////////
//////////////////////////
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ make72integer }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function make72integer:tintegerarray; {} {} {}
{} begin {}
{} ti[i1]:=random(585895879) {}
{} inc(i1) {}
{} result:=ti {}
{} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ make72dot }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function make72dot:tpointarray; {}
{} begin {}
{} tpa1[ix]:=point(iix,iiix) {}
{} inc(iiix) {}
{} inc(iix) {}
{} inc(ix) {}
{} result:=tpa1 {}
{} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ color72bitmap }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function color72bitmap:boolean; {}
{} begin {}
{} FastDrawClear(world[iee],random(35635635)) {}
{} inc(iee) {}
{} inc(iex) {}
{} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ add72bitmap }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function add72bitmap:boolean; {}
{} begin {}
{} world[ixc]:=(CreateBitmap(100,100)) {}
{} inc(ixc) {}
{} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ loadbitmaps }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function loadbitmaps:boolean; {}
{} begin {}
{} SetArrayLength(world,72) {}
{} setarraylength(tpa1,72) {}
{} setarraylength(ti,72) {}
{} mok:= (loadbitmap('C:\Documents and Settings\Guest\Desktop\New Folder\ape.bmp')) {}
{} buffer:=(createbitmap(10,10)) {}
{} zbuffer:=(createbitmap(100,100)) {}
{} for jj:=0 to 71 do {}
{} begin {}
{} add72bitmap; {}
{} color72bitmap; {}
{} end; {}
{} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ drawscreen }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function drawscreen:boolean; {}
{} begin {}
{} FastDrawTransparent(0,0,mok,buffer) {}
{} fastdrawtransparent(xdir,ydir,buffer,world[xpos]) {}
{} fastdrawtransparent(0,0,world[xpos],zbuffer) {}
{} DrawBitmapDebugImg(zbuffer) {}
{} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ movement }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}function movement:boolean; {}
{} begin {}
if IsKeyDown(VK_UP) then {}
{} begin {}
{} ydir:=(ydir-4) {}
{} ypos:=(ypos-4) {}
{} end else {}
{} if IsKeyDown(VK_down) then {}
{} begin {}
{} ydir:=(ydir+4) {}
{} ypos:=(ypos+4) {}
{} end else {}
{} if IsKeyDown(VK_left) then {}
{} begin {}
{} xdir:=(xdir-4) {}
{} xpos:=(xpos-4) {}
{} end else {}
{} if IsKeyDown(VK_right) then {}
{} begin {}
{} xdir:=(xdir+4) {}
{} xpos:=(xpos+4) {}
{} end else {}
{} begin {}
{} end; {} end; {}
{}{}{}{}{}{}{}{}{}{}{}{}{}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{ meinlewp }
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
{}begin {}
{} ClearDebug {}
{} xdir:=44 {}
{} ydir:=44 {}
{} xpos:=35 {}
{} loadbitmaps {}
{} ClearDebugImg {}
{} displaydebugimgwindow(100,100) {}
{}repeat {}
{} Wait(680); {}
{} movement; {}
{} drawscreen; {}
{} until(false); {}
{} end. {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
[/SIMBA]