HP39gii的任天堂明星大乱斗

8192Bit

（原游戏版权属于任天堂、HAL研究所 版权所有）

试图还原大乱斗
注：在模拟器上会卡住
差点就还原了大乱斗的面筋人系统。（看那一堆LOCAL）
0.1版本 可能有bug

1. //CalcSMASHBros.
   
2. FX(X,Xf,Pow)
   
3. BEGIN
   
4.   IF Xf==0 THEN RETURN X; END;
   
5.   (X+Xf?*(.001*(Pow+1)))=X;
   
6.   RETURN X;
   
7. END;
   
8. 
   
9. FY(Y,Yf,G)
   
10. BEGIN
    
11.   IF Yf==0 THEN RETURN Y; END;
    
12.   Y+Yf?*.01+G=Y;
    
13.   RETURN Y;
    
14. END;
    
15. 
    
16. EXPORT All;
    
17. EXPORT Win;
    
18. EXPORT CalcSBMain()
    
19. BEGIN
    
20.   LOCAL Xs,JMp;
    
21.   LOCAL EX,EY,PX,PY,EFX,EFY,PFX,PFY;
    
22.   LOCAL EIT,PIT,FP1,FP2,X,Y,Sync;
    
23.   LOCAL INDE1,INDE2,INDE3,INDE4;
    
24.   LOCAL BODX1,BODY1,BODX2,BODY2;
    
25.   LOCAL ARMX1,ARMY1,ARMX2,ARMY2;
    
26.   LOCAL HADX1,HADY1,HADX2,HADY2;
    
27.   LOCAL FOTX1,FOTY1,FOTX2,FOTY2;
    
28.   RECT;
    
29.   TEXTOUT_P("任天堂",20,40,2,1);
    
30.   TEXTOUT_P("计算器大乱斗    SX",71,41,2);
    
31.   REPEAT
    
32.     TEXTOUT_P("按任意键",70,100,1,1);
    
33.     WAIT(.4);
    
34.     TEXTOUT_P("按任意键",70,100,1,3);
    
35.     WAIT(.2);
    
36.   UNTIL GETKEY()≠-1;
    
37.   1=Sync;
    
38.   WHILE 1 DO
    
39.     RECT;
    
40.     RECT_P(130,1,160,27,0,3);
    
41.     RECT_P(100,31,130,57,0,3);
    
42.     RECT_P(70,61,100,87,0,3);
    
43.     RECT_P(40,91,70 ,117,0,3);
    
44.     TEXTOUT_P("F1 单人模式",162,17,1,0);
    
45.     TEXTOUT_P("F2 双人对战",132,47,1,2);
    
46.     TEXTOUT_P("F3 游戏设置",102,77,1,2);
    
47.     TEXTOUT_P("F4 数据",72,107,1,0);
    
48.     REPEAT
    
49.       GETKEY()=INDE1;
    
50.     UNTIL INDE1≠-1;
    
51.     IF INDE1==3 THEN
    
52.       RECT;
    
53.       TEXTOUT_P("胜利:"+Win,20,40,2);
    
54.       TEXTOUT_P("所有:"+All,20,60,2);
    
55.       TEXTOUT_P("清零: ←",80,60,1);
    
56.       REPEAT
    
57.         GETKEY()=INDE1;
    
58.         IF INDE1==20 THEN
    
59.           0=Win;
    
60.           0=All;
    
61.           MSGBOX("已清零")
    
62.         END;
    
63.       UNTIL INDE1≠-1;
    
64.     END;
    
65.     IF INDE1==0 THEN
    
66.       0=PY;
    
67.       40=PX;
    
68.       0=EY;
    
69.       216=EX;
    
70.       0=X;
    
71.       0=Y;
    
72. CHOOSE(INDE1,"难度","练习","25%","75%","100%");
    
73.       INDE1-1=INDE1;
    
74.       TEXTOUT("INIT",0,0,2);
    
75.       WAIT(.6);
    
76.       RECT;
    
77.       TEXTOUT("GO!",0,0,2);
    
78.       WAIT(.4);
    
79.       RECT;
    
80.       REPEAT
    
81.         INDE4+Sync=INDE4;
    
82.         IF irem(INDE4,8)≥6 THEN
    
83.           TEXTOUT_P("?",200,110,2,0);
    
84.           IF JMp≥1 THEN 0=JMp END;
    
85.           RECT;
    
86.         END;
    
87.         TEXTOUT_P("?",200,110,2,3);
    
88.         TEXTOUT_P(X+"%",50,110);
    
89.         TEXTOUT_P(Y+"%",150,110);
    
90.         LINE_P(30,108,226,108);
    
91.         ARC_P(G0,PX,PY,6,0,359,INDE1);
    
92.         LINE_P(PX,PY+6,PX+BODX1,PY+BODY1);  LINE_P(PX+BODX1,PY+BODY1,PX+BODX1+FOTX1,PY+BODY1+FOTY1);
    
93. LINE_P(PX+BODX1,PY+BODY1,PX+BODX1+FOTX2,PY+BODY1+FOTY2);
    
94.         LINE_P(PX,PY+10,PX+HADX1,PY+HADY1);
    
95.         LINE_P(PX,PY+10,PX+HADX2,PY+HADY2);
    
96. 
    
97.         ARC_P(G0,EX,EY,6,0,359,0);
    
98.         LINE_P(EX,EY+6,EX+0,EY+24);  
    
99. LINE_P(EX+0,EY+24,EX+0+-10,EY+24+12);
    
100. LINE_P(EX+0,EY+24,EX+0+10,EY+24+12);
     
101. 
     
102.         LINE_P(EX,EY+10,EX-10,EY+12);
     
103.         LINE_P(EX,EY+10,EX+10,EY+12);
     
104.         -10=HADX1;
     
105.         12=HADY1;
     
106.         10=HADX2;
     
107.         12=HADY2;
     
108.         -10=FOTX1;
     
109.         12=FOTY1;
     
110.         10=FOTX2;
     
111.         12=FOTY2;
     
112.         0=BODX1;
     
113.         24=BODY1;
     
114. 
     
115.         IF EX>PX THEN
     
116.           EX-RANDOM(INDE1)=EX;
     
117.         ELSE
     
118.           EX+RANDOM(INDE1)=EX;
     
119.         END;
     
120.         GETKEY()=INDE2;
     
121.         IF INDE2 == 7 AND JMp≤2 THEN
     
122.           PY-36=PY;RECT;HADY1+12=HADY1;
     
123.           WAIT(.01);
     
124.           JMp+1=JMp;
     
125.         END;
     
126.         IF PX+15≥EX AND PX-15≤EX AND EY-45≤PY AND EY+45≥PY THEN
     
127.           IF INDE2==11 THEN
     
128. FX(EX,2,Y+.1)=EX;HADY2+32=HADY2;
     
129.             FY(EY,-2,1)-20-.005Y=EY;
     
130.             Y+12=Y;
     
131.           END;
     
132.           IF INDE2==12 THEN
     
133.             FX(EX,4,Y)=EX;FOTY1+32=HADY1;
     
134.             FY(EY,36,2)+.1Y=EY;
     
135.             Y+8=Y;
     
136.           END;
     
137.           IF INDE2==13 THEN
     
138.          
     
139.           END;
     
140.           IF ROUND(RANDOM(1),0) THEN
     
141.             FY(PY,24,1)=PY;
     
142.             X+4=X;
     
143.           END;
     
144.         END;
     
145.         IF INDE2 == 15 THEN
     
146.           HADY2+30=HADY2;PY+28=PY;
     
147.         END;
     
148.         
     
149.         IF INDE2==10 THEN
     
150.    
     
151.           Xs+1=Xs;  
     
152.           FOTX1+8=FOTX1;
     
153.         END;
     
154.         IF INDE2==14 THEN
     
155.    
     
156.           Xs-1=Xs;
     
157.           FOTX2-8=FOTX2;
     
158.         END;
     
159.         Xs*.9=Xs;
     
160.         Xs+PX=PX;
     
161.         IF PY<72 OR PY>127 OR 30>PX OR PX>226 THEN
     
162.           PY+INDE1+1=PY;
     
163.         END;
     
164.         IF EY<72 OR EY>127 OR 30>EX OR EX>226 THEN
     
165.           EY+3=EY;
     
166.         END;
     
167.         IF EY>110 THEN
     
168.           EY-2-6/9=EY;
     
169.         END;
     
170.         IF INDE2==50 THEN
     
171.           TEXTOUT("PAUSE",0,0,0);WAIT; END;
     
172.       UNTIL -40>EY OR EY>127 OR -40>PY OR PY>127 OR -44>EX OR EX>300 OR -44>PX OR PX>300;
     
173.       All+1=All;
     
174.       TEXTOUT("Game!",0,0,2,0);
     
175.       IF -44>EX OR EX>300 OR -40>EY OR EY>127 THEN
     
176.         Win+1=Win;
     
177.       FOR I FROM 0 TO 64 DO
     
178.         ARC_P(EX,EY,I);WAIT(.01)END;
     
179.         TEXTOUT("+1",0,-1,1,0);
     
180.       ELSE
     
181.         FOR I FROM 0 TO 48 DO
     
182.         ARC_P(PX,PY,I);WAIT(.01)END;
     
183.       END;
     
184.       WAIT(1);
     
185.     END;
     
186.   END;
     
187. END;

复制代码