git @ Cat's Eye Technologies Dungeons-of-Ekileugor / f6ce43f
Crunch more. FRE(0)=138 when game ends. (ymmv, of course) catseye 12 years ago
1 changed file(s) with 13 addition(s) and 18 deletion(s). Raw diff Collapse all Expand all
+13
-18
src/ekileugor.bas less more
00 rem dungeons of ekileugor
1
2 rem i : temporary (loops)
1 rem conceived august 2012, chris pressey, cat's eye technologies
2
3 rem i,j : temporaries (loops)
34
45 rem x,y : temporary position (used by all)
56 rem dx,dy : delta for move (used by all)
5960
6061 rem main loop
6162
62 100 gosub1000:mu=0
63 102 dx=0:dy=0
63 100 gosub900:mu=0:dx=0:dy=0
6464 105 getk$:if k$=""then105
6565 110 ifk$="i"thendy=-1:goto 500
6666 120 ifk$="j"thendx=-1:goto 500
7474 400 formn=0to7
7575 405 ifm%(mn,2)<=0then490
7676 410 x=m%(mn,0):y=m%(mn,1):dx=sgn(hx-x):dy=sgn(hy-y)
77 420 gosub20
78 430 ifc=81thengosub800:goto490
79 435 ifc=32orc=86then460
77 420 gosub20:ifc=81thengosub800:goto490
78 430 ifc=32orc=86then460
8079 440 ifrnd(1)<.3thendx=0:goto420
8180 450 ifrnd(1)<.3thendy=0:goto420
8281 455 goto490
83 460 gosub30
84 470 x=x+dx:y=y+dy:c=19:co=2:gosub40
82 460 gosub30:x=x+dx:y=y+dy:c=19:co=2:gosub40
8583 480 m%(mn,0)=x:m%(mn,1)=y
86 490 next
87
88 499 goto100
84 490 next:goto100
8985
9086 rem hero can (and does) move
9187
122118 750 mv=-1:m$="you killed snake":gosub4000
123119 760 x=m%(mn,0):y=m%(mn,1):gosub30
124120 765 m%(mn,0)=-1:m%(mn,1)=-1:m%(mn,2)=0
125 780 x=hx:y=hy
126 790 return
121 780 x=hx:y=hy:return
127122
128123 rem monster attack hero!
129124
139134
140135 rem status
141136
142 1000 ifmu<>0thenreturn
143 1010 print"{home}{blk}{rvs on}"hp"{left}/"mh"{left},"dl"{left},"au"{left} ";
137 900 ifmu<>0thenreturn
138 910 print"{home}{blk}{rvs on}"hp"{left}/"mh"{left},"dl"{left},"au"{left} ";
144139
145140 rem ... this is also an entry point
146141
147 1020 fori=pos(0)to21:print" ";:next:return
142 920 fori=pos(0)to21:print" ";:next:return
148143
149144 rem display message
150145
151146 4000 ifmu<>0thengosub4100
152147 4010 print"{home}{blk}{rvs on} "m$;
153148 4015 ifmv>0thenprintmv"{left} ";
154 4020 gosub1020:mu=1:return
149 4020 gosub920:mu=1:return
155150
156151 rem wait for keypress
157152