you might need to put the special i in
Its not fully done but its my first alright game
dont judge to harshly please
[i]ICEASM
det(0
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
det(5,52
det(2,255
det(36,20,20,280,200
det(2,224
det(30,70,50,120,50
det(18,"Dodgecube",125,100
det(18,"Highscore",125,120
det(19,125,130
det(16,HIGH,0
Repeat getKey(54)
If getKey(15)
Goto 1
End
End
det(5,255
150→X
230→Y
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
0-CIR→ENEY
0→SCORE
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
1→LIFE
1→MOVEA
1→MOVEB
While not(getKey(15)) and LIFE=1
If X+10≥ENEX and X-10≤ENEX+CIR and Y-10<ENEY+CIR and Y-10>ENEY
0→LIFE
End
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:det(19,X-7,Y-5:det(16,SCORE,1:End
ENEY+1→ENEY
If ENEY=241
det(2,255:det(36,X-4,Y-5,20,10
SCORE+1→SCORE
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
det(2,255
det(36,0,0,50,50
0-CIR→ENEY
End
If getKey(3) and MOVEA=1
X+1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEA
Else
1→MOVEA
End
If getKey(2) and MOVEB=1
X-1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEB
Else
1→MOVEB
End
det(2,0
det(31,X-10,Y-10,20
det(2,224
det(31,ENEX,ENEY+CIR,CIR
det(2,255
det(31,ENEX,ENEY-1,CIR*2
det(6,X-11,Y-10
det(6,X+10,Y-10
End
Lbl 1
det(1
sum(0
sum(1,"TEST","r")→F
sum(5,°B,3,1,F
If B<SCORE
sum(1,"TEST","w")→F
sum(4,°SCORE,3,1,F
sum(0
Input "Name"
End
sum(13,1,FICEASM
det(0
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
det(5,52
det(2,255
det(36,20,20,280,200
det(2,224
det(30,70,50,120,50
det(18,"Dodgecube",125,100
det(18,"Highscore",125,120
det(19,125,130
det(16,HIGH,0
Repeat getKey(54)
If getKey(15)
Goto 1
End
End
det(5,255
150→X
230→Y
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
0-CIR→ENEY
0→SCORE
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
1→LIFE
1→MOVEA
1→MOVEB
While not(getKey(15)) and LIFE=1
If X+10≥ENEX and X-10≤ENEX+CIR and Y-10<ENEY+CIR and Y-10>ENEY
0→LIFE
End
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:det(19,X-7,Y-5:det(16,SCORE,1:End
ENEY+1→ENEY
If ENEY=241
det(2,255:det(36,X-4,Y-5,20,10
SCORE+1→SCORE
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
det(2,255
det(36,0,0,50,50
0-CIR→ENEY
End
If getKey(3) and MOVEA=1
X+1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEA
Else
1→MOVEA
End
If getKey(2) and MOVEB=1
X-1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEB
Else
1→MOVEB
End
det(2,0
det(31,X-10,Y-10,20
det(2,224
det(31,ENEX,ENEY+CIR,CIR
det(2,255
det(31,ENEX,ENEY-1,CIR*2
det(6,X-11,Y-10
det(6,X+10,Y-10
End
Lbl 1
det(1
sum(0
sum(1,"TEST","r")→F
sum(5,°B,3,1,F
If B<SCORE
sum(1,"TEST","w")→F
sum(4,°SCORE,3,1,F
sum(0
Input "Name"
End
sum(13,1,F
Its not fully done but its my first alright game
dont judge to harshly please
[i]ICEASM
det(0
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
det(5,52
det(2,255
det(36,20,20,280,200
det(2,224
det(30,70,50,120,50
det(18,"Dodgecube",125,100
det(18,"Highscore",125,120
det(19,125,130
det(16,HIGH,0
Repeat getKey(54)
If getKey(15)
Goto 1
End
End
det(5,255
150→X
230→Y
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
0-CIR→ENEY
0→SCORE
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
1→LIFE
1→MOVEA
1→MOVEB
While not(getKey(15)) and LIFE=1
If X+10≥ENEX and X-10≤ENEX+CIR and Y-10<ENEY+CIR and Y-10>ENEY
0→LIFE
End
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:det(19,X-7,Y-5:det(16,SCORE,1:End
ENEY+1→ENEY
If ENEY=241
det(2,255:det(36,X-4,Y-5,20,10
SCORE+1→SCORE
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
det(2,255
det(36,0,0,50,50
0-CIR→ENEY
End
If getKey(3) and MOVEA=1
X+1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEA
Else
1→MOVEA
End
If getKey(2) and MOVEB=1
X-1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEB
Else
1→MOVEB
End
det(2,0
det(31,X-10,Y-10,20
det(2,224
det(31,ENEX,ENEY+CIR,CIR
det(2,255
det(31,ENEX,ENEY-1,CIR*2
det(6,X-11,Y-10
det(6,X+10,Y-10
End
Lbl 1
det(1
sum(0
sum(1,"TEST","r")→F
sum(5,°B,3,1,F
If B<SCORE
sum(1,"TEST","w")→F
sum(4,°SCORE,3,1,F
sum(0
Input "Name"
End
sum(13,1,FICEASM
det(0
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
det(5,52
det(2,255
det(36,20,20,280,200
det(2,224
det(30,70,50,120,50
det(18,"Dodgecube",125,100
det(18,"Highscore",125,120
det(19,125,130
det(16,HIGH,0
Repeat getKey(54)
If getKey(15)
Goto 1
End
End
det(5,255
150→X
230→Y
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
0-CIR→ENEY
0→SCORE
sum(0:sum(1,"TEST","r")→F:SCORE→B:sum(5,°HIGH,3,1,F:If HIGH=0:sum(1,"TEST","w")→F:End
1→LIFE
1→MOVEA
1→MOVEB
While not(getKey(15)) and LIFE=1
If X+10≥ENEX and X-10≤ENEX+CIR and Y-10<ENEY+CIR and Y-10>ENEY
0→LIFE
End
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:det(19,X-7,Y-5:det(16,SCORE,1:End
ENEY+1→ENEY
If ENEY=241
det(2,255:det(36,X-4,Y-5,20,10
SCORE+1→SCORE
randInt(50,100→CIR
randInt(X-40-CIR,X+20→ENEX
det(2,255
det(36,0,0,50,50
0-CIR→ENEY
End
If getKey(3) and MOVEA=1
X+1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEA
Else
1→MOVEA
End
If getKey(2) and MOVEB=1
X-1→X
det(2,255:det(36,X-10,Y-5,20,10
If SCORE<10:det(19,X-3,Y-5:det(16,SCORE,1:Else:det(19,X-7,Y-5:det(16,SCORE,1:End
0→MOVEB
Else
1→MOVEB
End
det(2,0
det(31,X-10,Y-10,20
det(2,224
det(31,ENEX,ENEY+CIR,CIR
det(2,255
det(31,ENEX,ENEY-1,CIR*2
det(6,X-11,Y-10
det(6,X+10,Y-10
End
Lbl 1
det(1
sum(0
sum(1,"TEST","r")→F
sum(5,°B,3,1,F
If B<SCORE
sum(1,"TEST","w")→F
sum(4,°SCORE,3,1,F
sum(0
Input "Name"
End
sum(13,1,F