I was looking for a good game to port on the CE (because I want more projects to work on) and I realized that there was no DTTWT-game to be found in de 84pce/asm/games folder.
I started yesterday evening and I don't really have anything yet besides the main game mechanism, but I intend to add different modes, high scores, etc. I might even download the original game again to see what I can add.
Here is the ICE code so far:
Code:
I started yesterday evening and I don't really have anything yet besides the main game mechanism, but I intend to add different modes, high scores, etc. I might even download the original game again to see what I can add.
Here is the ICE code so far:
Code:
[i]DTTWT
[i]"CCCCCCCCFFFFCCCCCBBBBBBBF333BBBCCBBBBBBBF333BBBCCBBBBBBBF333BBBCCBBBFFFFBBBBBBBCCBBBF333BBBBBBBCCBBBF333BBBBBBBCCBBBF333BBBBBBBCCBBBBBBBBBBBFFFFCBBBBBBBBBBBF333CBBBBBBBBBBBF333CBBBBBBBBBBBF333FFFFBBBBBBBBBBBCF333BBBBBBBBBBBCF333BBBBBBBBBBBCF333CCCCCCCCCCCC"
[i]Don't Touch The W\hite Tiles
Alloc(5->PTRT
For(X,0,4:rand/3355444->*{PTRT+X}:End
SetTextTransparentColor(254:SetTextBGColor(254:SetTransparentColor(254
Begin
0->EX->LOSE->SCORE
0->KEY
0->DH
While 1
getKey->KEY
If KEY>=49 and KEY<=53:53-KEY->FKEY:Call PRESS:End
If KEY=15:1->EX:End
If EX:Goto EXIT:End
If LO:Goto LOSE:End
If DH>0:DH-1->DH:End
Call DRAW
End
Lbl PRESS
If DH>8:Return:End
If FKEY=*{PTRT+1}
For(I,0,4:*{PTRT+I+1}->*{PTRT+I}:End
rand/3355444->*{PTRT+4}:While *{PTRT+4}=*{PTRT+3} and *{PTRT+4}=*{PTRT+2}:rand/3355444->*{PTRT+4}:End
12->DH:SCORE+1->SCORE
Else:1->LO:End
Return
Lbl LOSE
Call DRAW
Pause 1000
Goto EXIT
Return
Lbl DRAW
223->CLRA:191->CLRB
If LO:226->CLRA:228->CLRB:End
SetDraw(1
FillScreen(255
SetColor(CLRB:FillRectangle_NoClip(0,224,320,16
If DH or LO:FillRectangle_NoClip(FKEY*64,208,64,16:End
For(X,0,4
SetColor(CLRA:VertLine(X*64,0,240:VertLine(X*64+63,0,240
End
For(I,0,4
SetColor(0:FillRectangle(*{PTRT+I}*64,240-I*64-16*(max(DH,8)-8),64,64
SetColor(CLRA:Rectangle(*{PTRT+I}*64,240-I*64-16*(max(DH,8)-8),64,64
End
SetColor(CLRA:FillRectangle_NoClip(0,236,320,4
SetTextFGColor(CLRB:SetTextScale(1,1:SetTextXY(4,4:PrintInt(SCORE,3
SwapDraw
Return
Lbl EXIT
det(1