[有趣的代码]征求：贪食蛇混乱代码 - C语言论坛

问题点数：0 回复次数：5

[有趣的代码]征求：贪食蛇混乱代码

评分标准：

1。比代码长度.一个字符计 2 分

2。必须完成的功能:

              1.方向键控制蛇行方向
              2.随机布食
              3.吃食蛇长节
              4.蛇死法除吃到自己必死，其它不作限制

3。加分(实际应是减分^_^)

              每增加一功能减去10分.比如：蛇身着色，食物闪亮等等

[如有不同意见，跟贴]

搜索更多相关主题的帖子: 代码　征求　功能　死法　评分　

第 2 楼

得分:0

那么，每个功能减去20分好了。

靠，近段时间老停电，说什么电力紧张，停一开二。等晚上我也缩一个

九洲方除百尺冰，映秀又遭蛮牛耕。汽笛嘶鸣国旗半，哀伤尽处是重生。 -老K
治国就是治吏。礼义廉耻，国之四维。四维不张，国之不国。 -毛泽东

第 3 楼

得分:0

以下是引用live41在2005-1-23 15:54:14的发言：

欺负我不会图形界面

字符界面,图形界面不作限制

九洲方除百尺冰，映秀又遭蛮牛耕。汽笛嘶鸣国旗半，哀伤尽处是重生。 -老K
治国就是治吏。礼义廉耻，国之四维。四维不张，国之不国。 -毛泽东

第 4 楼

得分:0

#include <stdio.h> #include <dos.h> #define G gotoxy #define C printf #define A rand int k,f,g,q,p, m=0,n=1,d=0, e=0,a=2,b=5,c= 5,t=1,M[22] [76]={-1,4};L( ){return a% 2?(f=0,g=a/2?- 1:1):(g=0,f =a/2?1:-1),(!M [m+f][n+g]|| M[m+f][n+g] == 10||M[m+f][n +g]==-1);}K(){ M[m+f][ n+g] ==-1&&E(),M[m+ f][n+g]!=10? F(m,n):(t= 0), M[m+f][n+g]= (a+2)%4+1;}D( ){a-0||((m+f >=0&&L())?(K(),m=m+f):(a=A ()%2?3:1)),a-2 ||((m+f<22&& L())?(K(),m=m+ f):(a=A()%2? 1:3)),a-1||((n +g<76&&L())? (K(),n=n+g):(a =A()%2?0:2)), a- 3||((n+g>=0 &&L())?(K(),n =n+g):(a=A()%2 ?2:0));}F(x,y) {M[x][y]%2?(p= 0,q=M[x][y]/2? 1:-1):(q=0,p=M [x][y]/3?-1:1), M[x+q] [y+p]== -1?(M[x+q][y+p] =0,b=x+q,c=y+p ,M[x][y]=-1):F(x +q,y+p);} R(){ int x,y;x=A()%22,y= A()%76,M[x][y] ==0?(M[x][y]=10,G(y+ 1,x+2),C("X")) :R();}P(){G(c+1,b+2), C(" "),G(n+1,m +2),C("O"),G(e+1,d+2),C("o");}E(){G (10,10), C("The game is over!"), getch(), exit();} main(){R(); while(1){while(bioskey(1)==0)d=m,e=n,D (),P(),t==0&&(R(),t =1),delay(4500);k =bioskey(0)>> 8,k-75||(a=3),k-77||(a=1),k-72||(a=0),k-80||(a=2);}}

/*union REGS regs; regs.h.ah=1; regs.h.ch=13; regs.h.cl=0; int86(0x10,&regs,&regs); */

不知会不会变形？

好象是980个字符左右，用TC编译，蛇的初始状态只有蛇头，蛇尾，所以，没有吃食以前不能按与蛇行方向相反的方向键，否则就吃到自己了^_^

[此贴子已经被作者于2005-1-25 9:23:38编辑过]

九洲方除百尺冰，映秀又遭蛮牛耕。汽笛嘶鸣国旗半，哀伤尽处是重生。 -老K
治国就是治吏。礼义廉耻，国之四维。四维不张，国之不国。 -毛泽东

第 5 楼

得分:0

[QUOTE]

#include <stdio.h>
#include <dos.h>
#define U n+g
#define J m+f
#define G gotoxy
#define C printf
#define A rand

                                     int k
            ,f,g                    ,q;int
           p,m=0,                   n=1,d=0
           ,e=0,a                   =2,b=5,c
           =5,t=1                   ,M[22][76
            ]={-1                   ,4};L(){
            return          a        % 2?(f=
            0,g=a          /2?-1:1):(g=0,f=a/2    ?1:-
            1),(!         M[J][U]||M[J][U]==10||M[J][U]
    ==-1    );}K(   ){M   [J][U]==-1&&E(),M[J][U]!=10?F(
    m,n):(t=0),M[J][U]=(  a+2)%4+1;}D(){a-0||((J>=0&&L()
    )?(K(),m=J):(a=A()%2  ?3:1))                ,a-2||((
    J<22&&L())?(K(),m=J): (a=A(                    )%2?1:
    3)),a   -1||(   (U<   76&&L   (                 ))?(K
    (),n=   U):(a   =A()  %2?0   :2))                ,a-
    3||((   U>=0&&   L()  )?(K   (),n=               U):
     (a=A   ()%2?    2:0  ));}   F(x,y       ){M     [x]
     [y]    %2?(p    =0,  q=M    [x][      y]/2?1    :-1
     ):(q   =0,p=   M[x]  [y]    /3?-   1:1),M[x+    q][
     y+p]==-1?(M[x+q][y+  p]=   0,b=x +q,c=y+p,M[    x]
     [y]=-1):F(x+q,y+p);   }    R(){int x,y;x=A
     ()%22,y=A()%76,M[x         ][y]==0?(M[
      x][y  ]=10,               G(y+1
            ,x+2)    ,C         ("X")
            ):R()   ;}P         (){G(
            c+1,b   +2),        C(" "
            ),G(n   +1,m+       2),C(
           "O"),G(e+1,d+2)       ,C("o"
         ) ;}E(){G(10,10),       C("The"                     "g"
"ame is over!"), getch( ),      exit();                 }main
(){R();while(1){     while      (bioskey(1)          ==0)d=m,
e=n,D(),P(),t         ==0&&      (R(),t = 1),delay ( 4500);k=
bioskey(0)>>           8,k        -75||(a=3),k-77||(a=1),k-72
||(a=0)                 ,         k-80||(a=2) ;}}

[/QUOTE]

再发一个

九洲方除百尺冰，映秀又遭蛮牛耕。汽笛嘶鸣国旗半，哀伤尽处是重生。 -老K
治国就是治吏。礼义廉耻，国之四维。四维不张，国之不国。 -毛泽东

第 6 楼

得分:0

改日我也写一个，不过，delay(100);你用的是什么破机啊？难道386?286?晕，不成比我的还差？差点让我眼珠看掉下来，这么暗暗的蛇......

九洲方除百尺冰，映秀又遭蛮牛耕。汽笛嘶鸣国旗半，哀伤尽处是重生。 -老K
治国就是治吏。礼义廉耻，国之四维。四维不张，国之不国。 -毛泽东