home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.events (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 100 ::::::code=7*4096:vars=5*4096+6*256
  2. 111 gr=peek(code+3)+peek(code+4)*256:pg=vars:ps=vars+7:rs=ps+268
  3. 118 as=rs+80+512:es=as+560:pa=es+200:data 4,11,18,25,32,39,46,53::::
  4. 130 ja=peek(vars+6)*256+peek(vars+5):qu=peek(vars+4):ru=(ja-6547)*4+qu-1
  5. 142 ifpeek(pg+1)>peek(pg)then200
  6. 145 ifru<4then200
  7. 150 z=int(rnd(0)*100):dimw(8):fori=0to7:readw(i):nexti:fori=0to7:ifw(i)>zthen190
  8. 175 nexti
  9. 190 ifi=0then1000
  10. 191 ifi=1then2000
  11. 192 ifi=2then3000
  12. 193 ifi=3then4000
  13. 194 ifi=4then5000
  14. 195 ifi=5then6000
  15. 196 ifi=6then7000
  16. 197 ifi=7then8000
  17. 200 syscode,1,"l.abrech",8
  18. 1000 ::::ifru<8then1200
  19. 1010 a=0:n=peek(pg+1)*16+2:fori=0to6*9-1:ifpeek(gr+31*i+2)=nthena=a+1
  20. 1040 nexti:ifa=0thenreturn
  21. 1050 zg=int(rnd(0)*a):fori=0to6*9-1:ifpeek(gr+31*i+2)<>nthen1190
  22. 1080 a=a-1:ifa>0then1190
  23. 1100 p=gr+31*i:pokep+2,(peek(p+2)and240)+1:pokep+3,peek(p+3)and240:pokep+4,0:pokep+6,0
  24. 1150 forx=7to16:pokep+x,0:nextx:forx=17to26:pokep+x,255:nextx:forx=27to30:pokep+x,0:nextx
  25. 1175 syscode,22,48:syscode,8:goto1200
  26. 1190 nexti
  27. 1200 goto200
  28. 2000 ::::ifru<6then2140
  29. 2015 n=peek(pg+1)*16+2:fori=0to6*9-1:ifpeek(gr+31*i+2)<>nthen2130
  30. 2040 a=0:fore=12to16:a=a+peek(gr+31*i+e):nexte:ifa=0then2130
  31. 2090 fore=12to16:poke(gr+31*i+e),0:nexte:syscode,22,49:syscode,8:goto2140
  32. 2130 nexti
  33. 2140 goto200
  34. 3000 ::::gosub20000:k=k-100000:gosub10000:syscode,22,50:syscode,8:goto200
  35. 4000 ::::n=peek(pg+1)*16+2:fori=0to6*9-1:ifpeek(gr+31*i+2)<>nthen4100
  36. 4040 ifpeek(gr+31*i+7+5+3)=0then4100
  37. 4050 pokeps+(peek(pg+1)-1)*67,1:syscode,22,51:syscode,8:goto4110
  38. 4100 nexti
  39. 4110 goto200
  40. 5000 ::::n=peek(pg+1)*16+2:fori=0to6*9-1:ifpeek(gr+31*i+2)<>nthen5100
  41. 5040 a=peek(gr+31*i+6)and15:ifa=0ora=8then5100
  42. 5060 syscode,22,52:syscode,8:goto5110
  43. 5100 nexti
  44. 5110 syscode,1,"l.fahrseq",8
  45. 6000 ::::gosub20000:k=k+150000:gosub10000:syscode,22,53:syscode,8:goto200
  46. 7000 ::::gosub20000:k=k+200000:gosub10000:syscode,22,54:syscode,8:goto200
  47. 8000 ::::a=0:up=0:n=peek(pg+1)*1+2:fori=0to6*9-1:ifpeek(gr+31*i+2)<>nthen8070
  48. 8050 a=a+1:up=up+peek(gr+31*i+27)
  49. 8070 nexti:ifa=0then8170
  50. 8090 d=up/a:ifd<50then8170
  51. 8110 gosub20000:k=k+80000:gosub10000:syscode,22,55:syscode,8
  52. 8170 goto200
  53. 10000 ::::qk=k:b=vars+7+2+((peek(vars+1)-1)*67):x=0:ifk<0thenk=k-k-k:x=128
  54. 10020 poke(b+3),int(k/16777216):k=k-(int(k/16777216)*16777216):poke(b+2),int(k/65536)
  55. 10050 k=k-(int(k/65536)*65536):poke(b+1),int(k/256):k=k-(int(k/256)*256):poke(b+0),k
  56. 10090 poke(b+3),peek(b+3)orx:k=qk:return
  57. 20000 ::::b=vars+7+2+((peek(vars+1)-1)*67):x=peek(b+3)and128:k=peek(b+0)
  58. 20040 k=k+(peek(b+1)*256):k=k+(peek(b+2)*65536):k=k+((peek(b+3)and127)*16777216)
  59. 20070 ifx=128thenk=-k
  60. 20080 return
  61.