-
Notifications
You must be signed in to change notification settings - Fork 0
/
WINANIMA.txt
58 lines (55 loc) · 1.01 KB
/
WINANIMA.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
// Draw banner
SetDraw(0
For(X,0,240
SetColor(180
FillRectangle(98,X,124,1
SetColor(107
FillRectangle(99,X,122,1
SetColor(0
FillRectangle(100,X,120,1
End
Blit(0
SetDraw(1
SetTextScale(1,2
SetTextBGColor(0
SetTextFGColor(102
SetTextTransparentColor(0
PrintStringXY("CHALLENGE",124,60
PrintStringXY("COMPLETE",128,80
SetColor(255
Line(110,110,210,110
Line(110,144,210,144
SetTextFGColor(255
PrintStringXY("Points:",115,120
SetColor(0
// Print points
For(X,1,POINTS/1000
FillRectangle(165,120,50,15
SetTextXY(165,120
PrintUInt(1000*X,5
Blit(1
End
FillRectangle(165,120,50,15
SetTextXY(165,120
PrintUInt(POINTS,5
Blit(1
// Print 'New level unlocked' message if new level unlocked
If PROGRESS=0 and CURRWEEK=WEEK and WEEK<10
Pause 1000
SetTextScale(1,1
For(X,1,2
If X=1
SetTextFGColor(255
Else
SetTextFGColor(224
End
PrintStringXY("New level",130,170
PrintStringXY("Unlocked!",128,180
Blit(1
Pause 100
End
End
Repeat KEY
getKey->KEY
End
0->KEY