var Key : array char of boolean
var Ch : char
var Font1 : int := Font.New ("Arial:50")
var Font2 : int := Font.New ("Arial:30")
var Font3 : int := Font.New ("Arial:20")
var X1, Y1, Size, C : int
var X2, Y2 : int
var L : nat2 := 100
procedure DrawStuff
randint (X1, 1, maxx)
randint (Y1, 1, maxy)
randint (C, 1, 15)
randint (Size, 1, 200)
drawfilloval (X1, Y1, Size, Size, C)
drawoval (X1, Y1, Size, Size, 7)
end DrawStuff
procedure DrawLines
randint (X1, 1, maxx)
randint (X2, 1, maxx)
randint (Y1, 1, maxy)
randint (Y2, 1, maxy)
randint (C, 1, 15)
drawline (X1, Y1, X2, Y2, C)
end DrawLines
procedure Pause
Ch := getchar
end Pause
setscreen ("graphics:max,max,nobuttonbar")
colorback (7)
cls
Font.Draw ("Silly Keybord", maxx div 2 - 200, maxy - 200, Font1, 12)
Font.Draw ("(press any key to continue)", maxx div 2 - 200, maxy - 300, Font2, 12)
Font.Draw ("Made by: Peter Watt", maxx div 2 - 200, maxy - 400, Font3, 12)
Pause
loop
cls
Input.KeyDown (Key)
if Key ('1') then
DrawStuff
sound (25, L)
end if
if Key ('2') then
DrawLines
sound (125, L)
end if
if Key ('3') then
DrawStuff
sound (225, L)
end if
if Key ('4') then
DrawLines
sound (253, L)
end if
if Key ('5') then
DrawStuff
sound (425, L)
end if
if Key ('6') then
DrawLines
sound (525, L)
end if
if Key ('7') then
DrawStuff
sound (625, L)
end if
if Key ('8') then
DrawLines
sound (725, L)
end if
if Key ('9') then
DrawStuff
sound (825, L)
end if
if Key ('0') then
DrawLines
sound (925, L)
end if
if Key ('q') then
DrawStuff
sound (50, L)
end if
if Key ('w') then
DrawLines
sound (150, L)
end if
if Key ('e') then
DrawStuff
sound (250, L)
end if
if Key ('r') then
DrawLines
sound (350, L)
end if
if Key ('t') then
DrawStuff
sound (450, L)
end if
if Key ('y') then
DrawLines
sound (550, L)
end if
if Key ('u') then
DrawStuff
sound (650, L)
end if
if Key ('i') then
DrawLines
sound (750, L)
end if
if Key ('o') then
DrawStuff
sound (850, L)
end if
if Key ('p') then
DrawLines
sound (950, L)
end if
if Key ('a') then
DrawStuff
sound (75, L)
end if
if Key ('s') then
DrawLines
sound (175, L)
end if
if Key ('d') then
DrawStuff
sound (275, L)
end if
if Key ('f') then
DrawLines
sound (375, L)
end if
if Key ('g') then
DrawStuff
sound (475, L)
end if
if Key ('h') then
DrawLines
sound (575, L)
end if
if Key ('j') then
DrawStuff
sound (675, L)
end if
if Key ('k') then
DrawLines
sound (775, L)
end if
if Key ('l') then
DrawStuff
sound (875, L)
end if
if Key (';') then
DrawLines
sound (975, L)
end if
if Key ('z') then
DrawStuff
sound (100, L)
end if
if Key ('x') then
DrawLines
sound (200, L)
end if
if Key ('c') then
DrawStuff
sound (300, L)
end if
if Key ('v') then
DrawLines
sound (400, L)
end if
if Key ('b') then
DrawStuff
sound (500, L)
end if
if Key ('n') then
DrawLines
sound (600, L)
end if
if Key ('m') then
DrawStuff
sound (700, L)
end if
if Key (',') then
DrawLines
sound (800, L)
end if
if Key ('.') then
DrawStuff
sound (900, L)
end if
if Key ('/') then
DrawLines
sound (1000, L)
end if
if Key (KEY_LEFT_ARROW) then
L := 50
end if
if Key (KEY_RIGHT_ARROW) then
L := 300
end if
if Key (KEY_UP_ARROW) then
L := 200
end if
if Key (KEY_DOWN_ARROW) then
L := 500
end if
end loop
|