反骇客

load dbnletters.dbn
Size 400 400

fast

paper 10

Number keycheck
{
Set kevyalue 0
Repeat a 1 26
{
Same?100
{
Set kevyalue a
}
}
Value(kevyalue)
}

Set ax 2
Set ay 300
Set k 0
Forever
{
Pen(ax/2)(ay/2)
Set k

Notsmaller? K 1
{
Letter k ax ay
Set ax(ax+12)
Notsmaller? Ax 300
{
Set ax 2
Set ay(ay-12)

}
Smaller? ay 0
{
Set ay 300
}
}
pause 15
Notsmaller? K 26
{
Set k 0
}
Set k 0
Refresh
}

亂碼隨我打

load dbnletters.dbn

Size 400 400

Paper 10

Fast

Number keycheck
{
Set keycheck 0
Repeat a 1 26
{
Same? 100
{
Set kevyalue a
}
}
Value(kevyalue)
}

Set ax 2
Set ay 186
Forever
{
Same? 100
{
Set ax ((/12)*12+2)
Set ay ((/12)*12+2)
Field ax ay (ax-12)(ay+12)100
}

Pen(ax/2)(ay/2)
Set k

Notsmaller? K 1
{
letter k ax ay
Set ax(ax+12)
Notsmaller? Ax 188
{
set ax (ax-10)
Set ay 2
}

Smaller? Ay 0
{
Set ay 186
}
}

Pause 15
Set k 0
refresh
}

一山還有一山(刪除版)

size 400 400
paper 10
fast
command rects x y w h r g b
{
pen r g b
repeat w1 (-w) (w)
{
pen r g b
line (x+(w1*2)) (y-h/2) (x+(w1/2)) (y+h*2)
}
}
Forever
{
Same?100
{
rects20 30
}
//按下鍵盤的Z鍵，利用設定背景顏色清楚畫面
Same? 100
{
Paper 10
}
}

黑又紅

size 400 400
Forever
{
Paper 100 0 0
Pen 90
Set b 20
Repeat a 0 200
{
Same? A 30
{
Line 100 a a a
}
Notsame? A 70
{
Line a a a 100
}
}
}

小考-格格不入

size 400 400

paper 100

fast

command rects x y w h r g b

{

pen r g brepeat w1 (-w) (w)

{

pen r g bline (x-(w1*2)) (y+h*2) (x-(w1*2)) (y-h*2)

}

}

forever

{

rects 25 25

}

一山還有一山

size 200 200

paper 10

fast

command rects x y w h r g b

{

pen r g brepeat w1 (-w) (w)

{

pen r g bline (x+(w1*2)) (y-h/2) (x+(w1/2)) (y+h*2)

}

}

forever

{

rects 10 14

}

符號

size 200 200


paper 10


fast


command rect x y w h c


{


pen c


line (x-h*2) (y-h/2) (x+h*2) (y-h/2)


line (x+w/2) (y-h/2) (x+w/2) (y+h/2)


line (x+h*2) (y+h/2) (x-h*2) (y+h/2)


line (x-w/2) (y+h/2) (x-w/2) (y-h/2)


}


forever


{


rect 40 40


}