黃金礦工代碼

1、/#includeCommonAPI.h#includestdio.h#includestring.hvoidDrawHookLine();intg_fGoldBornMinX=0;intg_fGoldBornMaxX=0;intg_fGoldBornMinY=0;intg_fGoldBornMaxY=0;intg_iGoldCount=20;intg_iGameState=2;intflag=1;floatScore=0.f;intflagnum=0;charszGotGoldName20;當(dāng)前抓到金子的名稱floatg_fHookRotation=0.f;floatg_fEmptyHook

2、Speed=35.f;floatfTimeDelta;floatg_fHookStartPosX;存儲(chǔ)鉤子的初始X位置floatg_fHookStartPosY;存儲(chǔ)鉤子的初始Y位置/主函數(shù)入口/intPASCALWinMain(HINSTANCEhInstance,HINSTANCEhPrevInstance,LPSTRlpCmdLine,intnCmdShow)/初始化游戲引擎if(!dInitGameEngine(hInstance,lpCmdLine)return0;/游戲初始化代碼dSetWindowTitle(黃金礦工)g_fGoldBornMinX=dGetScreenLeft(

3、)+5;金子左邊界g_fGoldBornMaxX=dGetScreenRight()-5;金子右邊界g_fGoldBornMinY=dGetScreenTop()+20;金子上邊界g_fGoldBornMaxY=dGetScreenBottom()-5;金子下邊界g_fHookStartPosX=dGetSpritePositionX(GoldHook);獲取鉤子的初始X坐標(biāo)g_fHookStartPosY=dGetSpritePositionY(GoldHook);獲取鉤子的初始Y坐標(biāo)dSetSpriteCollisionSend(goldHook,1);dSetSpriteCollisio

4、nReceive(goldTemplate,1);constfloatfRotateSpeed=45.f;/搖擺速度，單位度/秒intiHookRotToLeft=1;鉤子擺動(dòng)的方向：1；0floatfTimeDelta=dGetTimeDelta();/引擎主循環(huán)，處理屏幕圖像刷新等工作while(dEngineMainLoop()/獲取兩次調(diào)用之間的時(shí)間差，傳遞給游戲邏輯處理floatfTimeDelta=dGetTimeDelta();DrawHookLine();/執(zhí)行游戲主循環(huán)if(g_iGameState=0)floatfThisRotate=fRotateSpeed*fTimeD

5、elta;if(iHookRotToLeft)g_fHookRotation+=fThisRotate;if(g_fHookRotation=180.f)g_fHookRotation=180.f;iHookRotToLeft=0;elseg_fHookRotation-=fThisRotate;if(g_fHookRotation=0.f)g_fHookRotation=0.f;iHookRotToLeft=1;dSetSpriteRotation(GoldHook,g_fHookRotation);elseif(g_iGameState=1)dSetTextValue(Score,Scor

6、e);播放拉金塊的動(dòng)作dAnimateSpritePlayAnimation(goldMan,GolderManAnimation3,1);/獲取鉤子X(jué)方向的速度f(wàn)loatfSpeedX=dGetSpriteLinearVelocityX(GoldHook);獲取鉤子Y方向的速度f(wàn)loatfSpeedY=dGetSpriteLinearVelocityY(GoldHook);當(dāng)速度接近為0時(shí)，即可判定其已到達(dá)初始點(diǎn)if(fSpeedX-0.00001f&fSpeedY-0.00001f)解除金塊與鉤子的錨定dSpriteDismount(szGotGoldName);刪除獲取的金塊dDelet

7、eSprite(szGotGoldName);回拉結(jié)束，設(shè)定狀態(tài)為0g_iGameState=0;if(flagnum)g_iGoldCount-;播放挖金者的動(dòng)作(恢復(fù)初始守候動(dòng)作)dAnimateSpritePlayAnimation(goldMan,GolderManAnimation2,1);if(g_iGoldCount=0)g_iGameState=0;Score=0;dSetSpriteVisible(GameBegin,1);g_iGoldCount=20;flag=1;dAnimateSpritePlayAnimation(goldMan,GolderManAnimation

8、2,1);/關(guān)閉游戲引擎dShutdownGameEngine();return0;)=/引擎捕捉鼠標(biāo)移動(dòng)消息后，將調(diào)用到本函數(shù)voiddOnMouseMove(constfloatfMouseX,constfloatfMouseY)/可以在此添加游戲需要的響應(yīng)函數(shù))=/引擎捕捉鼠標(biāo)點(diǎn)擊消息后，將調(diào)用到本函數(shù)voiddOnMouseClick(constintiMouseType,constfloatfMouseX,constfloatfMouseY)/可以在此添加游戲需要的響應(yīng)函數(shù))=/引擎捕捉鍵盤按下消息后，將調(diào)用到本函數(shù)/iAltPressiShiftPressiCtrlPress分別為

9、判斷Shift，Alt，Ctrl當(dāng)前是否也處于按下?tīng)顟B(tài)。比如可以判斷Ctrl+E組合鍵voiddOnKeyDown(constintiKey,constintiAltPress,constintiShiftPress,constintiCtrlPress)/可以在此添加游戲需要的響應(yīng)函數(shù)if(iKey=KEY_SPACE)g_iGameState=1;/初始化之后，將游戲狀態(tài)設(shè)置為進(jìn)行中dSetSpriteVisible(GameBegin,0);生成金子intiLoop=0;/循環(huán)變量控制intiSize=4,iPosX=0,iPosY=0;/iSize表示金塊大小的變量if(flag)fo

10、r(iLoop=0;iLoopg_iGoldCount;iLoop+)if(iLoop=10&iLoop16)生成6個(gè)中金塊，大小為6iSize=6;else/生成4個(gè)大金塊，大小為8iSize=8;初始化金子精靈實(shí)例char*tmpName;生成金塊名字tmpName=dMakeSpriteName(GoldBlock,iLoop);dCloneSprite(goldTemplate,tmpName);設(shè)置金塊的寬度dSetSpriteWidth(tmpName,(float)iSize);設(shè)置金塊的高度dSetSpriteHeight(tmpName,(float)iSize);設(shè)置金子精

11、靈位置iPosX=dRandomRange(g_fGoldBornMinX,g_fGoldBornMaxX);iPosY=dRandomRange(g_fGoldBornMinY,g_fGoldBornMaxY);dSetSpritePosition(tmpName,(float)iPosX,(float)iPosY);flag=0;if(g_iGoldCount=0)flag=1;g_iGoldCount=20;if(iKey=KEY_S&g_iGameState=0)按下J并且游戲狀態(tài)為0g_iGameState=2;置游戲狀態(tài)為2,可用于控制鉤子是否擺動(dòng)/以當(dāng)前朝向給鉤子一個(gè)向前的速度d

12、SetSpriteLinearVelocityPolar(GoldHook,g_fEmptyHookSpeed,g_fHookRotation);/播放挖金者的動(dòng)作(一個(gè)胳膊往下壓的動(dòng)作)dAnimateSpritePlayAnimation(goldMan,GolderManAnimation1,0);/0表示播放一次，這里胳膊往下壓就是一次/=/引擎捕捉鍵盤彈起消息后，將調(diào)用到本函數(shù)voiddOnKeyUp(constintiKey)/可以在此添加游戲需要的響應(yīng)函數(shù)/=/引擎捕捉到精靈與精靈碰撞之后，調(diào)用此函數(shù)voiddOnSpriteColSprite(constchar*szSrcNa

13、me,constchar*szTarName)/發(fā)起者為GoldHook，接受者含有GoldBlock字段if(strcmp(szSrcName,GoldHook)=1&strstr(szTarName,GoldBlock)!=NULL)將金塊錨定在鉤子上dSpriteMountToSpriteLinkPoint(szTarName,GoldHook,2);使鉤子向初始位置移動(dòng)，即會(huì)拉dSpriteMoveTo(GoldHook,g_fHookStartPosX,g_fHookStartPosY,g_fEmptyHookSpeed,1);復(fù)制并保存當(dāng)前抓取到金塊的名稱strcpy(szGotG

14、oldName,szTarName);/發(fā)起者為GoldHook，接受者含有GoldBlock字段/根據(jù)金子大小，計(jì)算鉤子的往回收的速度，越大的越慢。算法：之前設(shè)置的金子大小為4,6,8,用10減去該大小再除以10，得到3個(gè)小數(shù):0.6,0.4,0.2.該小數(shù)乘以空鉤子的速度即得到掛接不同金子后的實(shí)際速度f(wàn)loatfWidth=dGetSpriteWidth(szTarName);floatfSpeed=(10.f-fWidth)/10.f)*g_fEmptyHookSpeed;Score+=fWidth;/鉤子往初始位置移動(dòng)dSpriteMoveTo(goldhook,g_fHookStar

15、tPosX,g_fHookStartPosY,fSpeed,1);播放拉金塊的動(dòng)作dAnimateSpritePlayAnimation(goldMan,GolderManAnimation1,0);g_iGameState=1;flagnum=1;=/引擎捕捉到精靈與世界邊界碰撞之后，調(diào)用此函數(shù)./iColSide:0左邊，1右邊，2上邊，3下邊voiddOnSpriteColWorldLimit(constchar*szName,constintiColSide)if(strcmp(szName,GoldHook)!=0)碰到邊界的為鉤子時(shí)同樣設(shè)置為回拉，只是沒(méi)有碰到金子dSpriteMoveTo(szName,g_fHookStartPosX,g_fHookStartPosY,g_fEmptyHookSpeed,1);播放拉金塊的動(dòng)作dAnimateSpritePlayAnimation(goldMan,GolderManAnimation3,0);g_iGameState=1;flagnum=0;voidDrawHookLine()/首先，從礦工精靈上獲取一個(gè)纜繩鏈接點(diǎn)作為繩子的起始點(diǎn)floatfStartX=dGetSpriteLinkPointPosX(