-
Notifications
You must be signed in to change notification settings - Fork 0
/
draw_board.kbs
65 lines (63 loc) · 1.07 KB
/
draw_board.kbs
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
59
60
61
62
63
64
65
shift = 16777248
restart:
cls
clg
graphsize 1068, 601
color clear, orange
rect 0, 0, graphwidth, graphheight
imgload graphwidth/2, graphheight/2, 0.7, "planet_2.png"
color DARKRED
font "Mistral", 28, 50
text 1068/2-100+20, 601/2-100+60, "Welcome"
gosub border
print "Welcome to Paint Shell !!!"
gosub border
pause 2
clg
width = 10
paint:
clg
color clear, orange
rect 0, 0, graphwidth, graphheight
do
start:
input ":Paint:> " , n
if n = "width" then
input "Pixels? " , w
width = w
goto start
else
if n = "draw" then
gosub cir
goto start
else
if n = "clear" then
goto paint
else
if n = "exit" then
end
else
if n = "restart" then
goto restart
else
print "I cannot understand what you want to say"
end if
end if
end if
end if
end if
until n = "exit"
end
border:
print "--------------------------------"
return
cir:
while keypressed(shift)
color clear, blue
circle mousex, mousey, width
end while
if keypressed(32) then
return
end if
gosub cir
return