home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 September / 64er_Magazin_92-09_1992_Markt__Technik_de.d64 / puzzletris (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  968b  |  21 lines
  1. 5 dimc(11):fort=1to11:readc(t):next:z=54272:pokez+24,15:pokez+6,255:pokez+1,5
  2. 9 poke53280,0:poke53281,0:print"[147] [152]jhs":fort=1to20:print"             [200][144][186][186][186][186][186][186][186][186][186][186][146][212]":next
  3. 20 fort=1to39:print"[183]";:next:print:print"[156]steine :";s:deffnx(u)=55296+13+x+y*40:dima(11,21)
  4. 21 v=3:y=20:forx=1to10:c=c(int(11*rnd(1))+1):a(x,y)=c:pokefnx(i),c:next
  5. 30 o=rnd(-ti):x=int(10*rnd(1))+1:c=int(11*rnd(1))+1:y=1:c=c(c)
  6. 40 j=peek(56320):pokefnx(x),0:ifj=119 andx<10 and a(x+1,y+1)=0thenx=x+1
  7. 50 ifj=123andx>1 anda(x-1,y+1)=0thenx=x-1
  8. 60 pokez+4,33:forn=0to9:next:pokez+4,127:y=y+1:ifa(x,y+1)<>0then80
  9. 70 ify<20thenpokefnx(x),c:forn=1to50-w:next:goto40
  10. 80 a(x,y)=c:h=0:ifa(x,18)=0 then111
  11. 90 fort=ytoy+2:ifa(x,t)=cthenh=h+1
  12. 100 next:t=y:ifh<3then111
  13. 110 l=l+1:fory=ttot+2:a(x,y)=0:pokefnx(x),0:next
  14. 111 ifh<3thenpokefnx(i),c
  15. 112 t=y:fori=1to8:g=0:forn=0to2:ifa(i+n,y)=ctheng=g+1
  16. 113 next:ifg=3thenl=l+1:x=i:i=0:n=x:forx=nton+2:fory=tto1step-1:a(x,y)=a(x,y-1)
  17. 114 ifg=3thenpokefnx(i),a(x,y):nexty,x
  18. 120 nexti:s=s+1:ifa(x,2)>0thenprint"[147]game over !!!":print"[156]punkte :"l*100+s:end
  19. 130 if(g=3 or h=3) and l/v=int(l/v)thenw=w+1:data1,3,4,5,6,7,9,10,11,14,15
  20. 140 print""tab(8)s:print"[145][158]"tab(20)"linien :";l:goto30
  21.