本文将为大家介绍易语言源码大全中的游戏攻略，主要包括《打方块》、《跳一跳》、《外星人大战》三款游戏。这些游戏是易语言通过编写代码实现的小游戏，游戏玩法简单却富有趣味性，适合初学者学习易语言的基础语法。接下来我们将详细介绍这三款游戏的攻略及对应的代码实现，希望能帮助到大家。

《打方块》攻略

《打方块》是一款比较传统的小游戏，在一个方框内有不断下落的方块，玩家需要按照方块指示的字母快速敲击键盘上对应的字母，当输入正确时，方块被消除。游戏的难度会随着时间逐渐加大。以下为该游戏的代码实现。

```功能块 整体代码变量 整型 i,x,m,k,s;变量 字符 xz;变量 字符型 str[20];变量 字节型 a[10][10],cy[10][10],str1[2];// 初始成绩为0变量 整型 flag=0;do{ cls; locate 37,10; print "打方块游戏"; locate 0,2; // 生成方块 for(i=0 to 8) { if(a[i][9]==0) { m=random(26)+65; // 将字母转换为字符型 xz=char(m); // 标记方块 a[i][9]=1; // 生成字母 locate 4*i+4,9; print xz; cy[i][9]=xz; } else { // 上升一行 for(x=0 to 8) { if(a[x][9]==1 and a[x][8]==0) { cy[x][9]=" "; a[x][8]=1; cy[x][8]=cy[x][9]; a[x][9]=0; cy[x][9]=" "; } else if(a[x][8]==1 and a[x][7]==0) { cy[x][8]=" "; a[x][7]=1; cy[x][7]=cy[x][8]; a[x][8]=0; cy[x][8]=" "; } // 缩短印出点阵的时间 else if(a[x][0]==1) { a[x][0]=0; for(k=0 to 8) { cy[x][k]=cy[x][k+1]; a[x][k]=a[x][k+1]; } } // 游戏结束的条件：第一行出现了方块 if(a[x][0]==1) { goto 跳出; } } } // 接收玩家输入 input str ; // 判断输入是否正确 for(s=0 to 8) { str1[1]=str; str1[2]=" "; if(str==cy[s][9]) { a[s][9]=0; cy[s][9]=" "; flag++; } } // 从第九行开始向上打印 for(x=9 downto 0) { for(k=0 to 8) { locate k*4+4,x; print cy[k][x]; if(x==0) a[k][x]=0; } } // 显示当前成绩 locate 60,2; print "分数:"; locate 66,4; print flag; // 刷新时间 Sleep 200; }while(1=1);跳出:locate 34,20;print "游戏结束";End;```

《跳一跳》攻略

《跳一跳》是一款近年非常流行的小游戏，易语言也可以完成类似的代码编写。玩家需要控制一只小人跳跃避开方形障碍，并且要确保跳跃的距离合理，以避免游戏失败。以下是该游戏的代码实现。

```功能块 整体代码var GameStage:integer; PStart,PYiyuan, P_Yiyuan,PPoint, PZhuanzharight,PZhuanzhaleft, PJumpstart,PJumpend:pointer; Background: HDC;BBuffer: HDC; JumpLength,PLength,Lenght:integer;procedure SetjumpLength;begin JumpLength:=trunc(Random*250+350);end;function Getkey:boolean;var A:char;begin result:=false; A:=Readkey; if A=#13 then varflag:=true; if A=#27 then halt;end;procedure Drawback;begin SelectObject(BBuffer,GameStage-1); BitBlt(Background,0,0,screenwidth,screenheight,BBuffer,0,0,SRCCOPY); case GameStage of 4: begin ShowScore; TextOut(Background,350,20,PChar(IntToStr(Lenght)),-1); end; end;end;procedure Init;begin Background:=GetDC(GetDesktopWindow); BBuffer:=CreateCompatibleDC(Background); PStart:=LoadImage(0,'start.bmp',1,0,0); PYiyuan:=LoadImage(0,'yiyuan.bmp',1,0,0); P_Yiyuan:=LoadImage(0,'Yiyuanback.bmp',12,0,0); PPoint:=LoadImage(0,'zhilu.bmp',1,0,0); PZhuanzharight:=LoadImage(0,'zhuanzharight.bmp',1,0,0); PZhuanzhaleft:=LoadImage(0,'zhuanzhaleft.bmp',1,0,0); PJumpstart:=LoadImage(0,'jstart.bmp',1,0,0); PJumpend:=LoadImage(0,'jend.bmp',1,0,0); srand(GetTickCount); SetjumpLength; //—————————————————————— cls; setfont(10,0,0,0,'courier new'); setbrushcolor($F0000); setwindowsize(800,600); sdelay(1000);end;procedure JumpBackground;var sp1,sp2:double; X,Y:integer; Move:boolean;beginend;procedure zhuanzhaleft;var X,Y:integer; tempR:TRect;beginend;procedure zhuanzharight;var X,Y:integer; tempR:TRect;beginend;procedure DoJump;var X,Y:integer; TempR:TRECT;beginend;procedure UpChange;var X,Y:integer; TempR:TRect;beginend;procedure ShowScore;begin TextOut(Background,35,20,'得 分 ：',5); TextOut(Background,520,20,'平 实 ：',5);end;procedure Runs;var Currentx,Currenty:integer; yycd:integer; zhuanzhadirection:integer; Running:boolean;beginend;procedure ViewScore;beginend;procedure Clear;begin DeleteObject(PStart); DeleteObject(PYiyuan); DeleteObject(P_Yiyuan); DeleteObject(PPoint); DeleteObject(PZhuanzharight); DeleteObject(PZhuanzhaleft); DeleteObject(PJumpstart); DeleteObject(PJumpend); DeleteDC(BBuffer); ReleaseDC(GetDesktopWindow,Background);end;beginend;```

《外星人大战》攻略

《外星人大战》是一款射击类的游戏，与传统游戏不同的是，本游戏是以炮弹加农炮为主要战斗方式，通过发射炮弹防止外星人入侵地球，获得高分。以下是这款游戏的代码实现。

```变量 整型 g,gs,cj,x,dy,sj,pj,intmax[31],tank_px,tank_py;变量 字符 按钮;变量 字节数组 坦克;变量 字节数组 子弹;变量 字节数组 外星人;变量 整型 bool[31]; 按键fd,fs,fj,fg;函数 sb_on(行,列:正整数;句柄:图像句柄;透明:整型); 功能块 整体代码begin//变量、数组定义 声明 整型 i,j; //i,j定义作为循环计数器 声明 RGB颜色 c; //定义c为RGB颜色变量 声明 HPEN h_pen; //定义拎笔变量h_pen 声明 Uint n; //定义向外界提供的返回值n为Uint型 FD键: = 32; //调用空格键做为发射键 FS键: = 68; ji_su: = 45; 坦克: = Loadimage (0, ~ \ Images \ tank.gif ', 19, 16,0); //由图像中载入本关坦克的贴图 子弹: = Loadimage (0,~ \ Images \ zd.gif ', 5, 10,0); //载入子弹贴图 外星人: = Loadimage (0,~ \ Images \ wxr.gif ', 18, 14,0); //载入外星人贴图 tank_px: = 40; //把坦克宽度的一半定义为坦克的x坐标 tank_py: = 500; //把坦克高度的一半定义为坦克的y坐标 sj: =500; //定义敌人发射的初速度是500个y速度 pj: =1; //定义子效果 gs: =0; //定义击落数 cj: =50; //定义本局得分 yszt (); //画初始状态 P: = Loadwave ('chopgymn.WAV'); //载入声音 Playwave (P, true); 再次操作： //保证按发送射击钟后在上抬(如不抬起则触发无可非但死循环，程序只有通过ctrl + alt + del关闭) 魔鬼循环： //走所有过程进行判断 Locate 50, 1; Print ' 已经得分:'; Print gs; Print ' 分钟数:' + intmax [60-timer] + ':' + intmax [59-timeth] '+:'; Print cj; whihc 按钮： = inkeyboard; 如果 按钮: = 'h' 那么 //如果按了H键(返回主窗口) Begin SetValue (timer,0); //计时器清零 SetValue (timeth,0); SetValue (tankztl,0); SetValue (tjjer. 0); SetValue (isover,true); Break; //跳出魔鬼循环 end; 如果 按钮: = 'fd' 那么//fd控制坦克向左移动 Begin tank_px: = tank_px -10; //把坦克的x值减去10 如果 tank_px: <0 那么tank_px: = 0; //若坦克到了屏幕的前面，就把它放在屏幕前面 yszt (); //简单画出初始状态 宜居定; //不需要东西就跳的过程 end; 如果 按钮: = 'fs' 那么 //同时控制坦克向左右移动 Begin tank_px: = tank_px +10; //右移。 如果 tank_px> 886 那么tank_px: = 886; //如果坦克到了屏幕后面，就回到屏幕后面 yszt (); //简单画出初始状态 宜居定;//不需要东西就跳的过程 end; 如果 按钮: (FD) = FD 那么//如果按了发射键 Begin 宜居定（）; //初步定位没有用 度子弹; //发射子弹的过程 宜居定（）; //再次定位没有用 发射器; //再次定位，也没有什么用 end; Integer （t）：= 0; {处理和移动敌人和子弹} 临界线（di）：= 0; 对w：= 0 到8 一定要做//每个敌人，移动一下 若存在（bool [w]）那么 Begin 对i：= 0 到4 一定要做 Begin 对j：= 0 到87 bool如果 [w]，xy [x + i，y +j]：= false; 对i：= 0 到2 若（x + i)+ 1 +s] > 999 那么 di: = 1; //如果到了右边临界区，就di标记为1 若存在（bool [w]）那么 道。 对i：= 0 到2 若（x + i）- s < -1 那么 di: = 1; //如果到了左边临界区，就di标记为1 若存在（bool [w]）那么 道。 若叹号bool [w]那么 Begin 对i：= 0 到2 shotlength [w，i]：= 5; //把该敌人的3枚子弹全部重置 bool [w]：= true; //标记该敌人还有没有被打倒 宜居定（）; //使用换行隔开，否则设计不良好 刚结束; end; end; 国若（！bool [w]）那么 Begin 若（t +(w * 50)) mod sj = pj 那么 Begin 发射器; //如果满足发射时机。。 end; end; end; 刚结束; 对 T：= 0 到 4 一定要做 //坦克子弹的移动 若 存在（bol [t]）那么 Begin Which 如果 shotlength [t，0] > 0 那么 //如果该子弹在有效瞬间里，向上移动 Begin

本文将为大家介绍{易语言源码大全5000个}中的游戏攻略，该合集中包含了多种类型的游戏源码，涵盖了动作、射击、冒险、解谜等多个方面。本文将会从三个方面为大家介绍其中的精华攻略，帮助大家更好地享受这些游戏。

一、动作游戏攻略

动作游戏是一类比较刺激、紧张的游戏，常常需要玩家通过各种技巧和组合出奇制胜。在{易语言源码大全5000个}中，我们可以找到一些优秀的动作游戏源码。在这些游戏中，玩家需要掌握一些基本技巧，比如闪避、攻击、防御等等。特别是在面对一些强力的BOSS时，更需要玩家灵活运用技巧。

二、冒险游戏攻略

冒险游戏是一类比较传统、经典的游戏，常常需要玩家通过解谜、探险、寻宝等方式来完成任务。在{易语言源码大全5000个}中，我们可以找到一些非常有趣的冒险游戏源码。这些游戏中，玩家需要通过一些哲学思考、常识判断、逻辑分析等方式来完成任务。特别是在面对一些迷宫、机关时，更需要玩家精通这些技能。

三、解谜游戏攻略

解谜游戏是一类比较智力、思维类的游戏，常常需要玩家通过观察、推理、猜测等方式来解开谜题。在{易语言源码大全5000个}中，我们可以找到一些非常有趣的解谜游戏源码。这些游戏中，玩家需要通过一些自然科学、社会科学、历史文化等知识来解决问题。特别是在面对一些复杂、难题时，更需要玩家耐心、细心、聪明。

综上所述，{易语言源码大全5000个}中的游戏攻略各具特色，可以让我们更好地享受游戏的乐趣。无论是动作、冒险还是解谜游戏，我们都需要不断地学习、尝试、探索，才能够获得更好的游戏体验。