(esimerkkejä mukana, tosin monet suht.koht. vanhoja)
Grafiikka
Osaan kohtuullisen hyvin pikseli- ja vektorigrafiikkaa söhlätä. (Monet esimerkkikuvat on tehty Naruto-foorumiropea varten)
Esimerkki
Esimerkki
Esimerkki (Juu, yritin piirtää Paintilla Kanji-merkkejä )
Esimerkki
Esimerkki (Viimeinen kuva sitä ropea varten!)
Esimerkki
Esimerkki
Esimerkki
Koodaus
Lähinnä Haamu Missioneja, mutta on parempiakin
Crosshair, uusin tuotos:
Code: Select all
ShowMouse 0
Repeat
Crosshair(MouseX(),MouseY())
DrawScreen
Forever
Function Crosshair(_Xcoord, _Ycoord)
If I_timer = 0 Then
I_timer=Timer()*2
EndIf
For I_i = 0 To 360
I_dott = Timer() - I_timer
I_X = Sin(I_dott + I_i * 10)*20 + _Xcoord
I_Y = Cos(I_dott + I_i * 10)*20 + _Ycoord
Dot I_X, I_Y
I_i + 1
Next I_i
Line _Xcoord, _Ycoord-20, _Xcoord, _Ycoord+20
Line _Xcoord-20, _Ycoord, _Xcoord+20, _Ycoord
EndFunction
Code: Select all
SCREEN 255,255
SetWindow "Joku satunnaisgeneraattori"
Repeat
maakoodi$=Rand(0, 100000000)
Until FileExists("Maamaa"+maakoodi$+".bmp")=0
GenerateLand(0,10000,0,10,"Maamaa"+maakoodi$+".bmp")
Function GenerateLand(_sandPieces,_grassPieces,_townPieces=10,_waterPieces=0,_landName$="landscape.bmp")
ClsColor cbblue
Cls
ClsColor cbblack
Repeat
I_r=0:I_x#=10.0:I_y#=10.0
Repeat
I_x#=Rand(0,255):I_y#=Rand(0,255)
Color cbwhite:Dot I_x#,I_y#
Color cbsilver:Dot I_x#+1,I_y#:Dot I_x#,I_y#+1:Dot I_x#+1,I_y#+1
Color cbyellow:Dot I_x#-1,I_y#:Dot I_x#,I_y#-1:Dot I_x#-1,I_y#-1
Color cblightyellow:Dot I_x#-1,I_y#+1:Dot I_x#+1,I_y#-1
I_r+1
Until I_r=_sandPieces
I_r=0
Repeat
I_x#=Rand(0,255):I_y#=Rand(0,255)
Color cbgreen:Dot I_x#,I_y#
Color cblightgreen:Dot I_x#+1,I_y#:Dot I_x#,I_y#+1:Dot I_x#+1,I_y#+1
Color cbdarkgreen:Dot I_x#-1,I_y#:Dot I_x#,I_y#-1:Dot I_x#-1,I_y#-1
Color cbdarkgreen:Dot I_x#-1,I_y#+1:Dot I_x#+1,I_y#-1
Color cblightgreen:Dot I_x#+2,I_y#+2
Color cblightgreen:Dot I_x#+2,I_y#:Dot I_x#,I_y#+2:Dot I_x#+2,I_y#+2
Color cbblackskin:Dot I_x#-2,I_y#:Dot I_x#,I_y#-2:Dot I_x#-2,I_y#-2
Color cbblackskin:Dot I_x#-2,I_y#+2:Dot I_x#+2,I_y#-2
I_r+1
Until I_r=_grassPieces
I_r=0
Repeat
I_x#=Rand(0,255):I_y#=Rand(0,255)
Color cbred:Dot I_x#,I_y#
Dot I_x#+1,I_y#:Dot I_x#-1,I_y#
Dot I_x#,I_y#+1:Dot I_x#,I_y#-1
Dot I_x#+2,I_y#:Dot I_x#-2,I_y#
Dot I_x#,I_y#+2:Dot I_x#,I_y#-2
Dot I_x#+3,I_y#:Dot I_x#-3,I_y#
Dot I_x#,I_y#+3:Dot I_x#,I_y#-3
Dot I_x#+1,I_y#+1:Dot I_x#-1,I_y#-1
Dot I_x#+2,I_y#+2:Dot I_x#-2,I_y#-2
Dot I_x#-1,I_y#+1:Dot I_x#+1,I_y#-1
Dot I_x#+1,I_y#-1:Dot I_x#-1,I_y#+1
Dot I_x#-2,I_y#+2:Dot I_x#+2,I_y#-2
Dot I_x#+2,I_y#-2:Dot I_x#-2,I_y#+2
I_r+1
Until I_r=_townPieces
I_r=0
Repeat
I_x#=Rand(0,255):I_y#=Rand(0,255)
Color cbblue:Dot I_x#,I_y#
I_r+1
Until I_r=_waterPieces
DrawScreen OFF
Repeat
Until WaitKey()=28
ScreenShot _landName$
DrawScreen
Exit
Forever
EndFunction
Pikku FPS-testeri (Frames per second)
Code: Select all
tool=1
juu=MakeImage(20,20)
Repeat
If tool=1 Then
Color Rand(0,255),Rand(0,255),Rand(0,255)
Line Rand(0,800),Rand(0,600),Rand(0,800),Rand(0,600)
ElseIf tool=2 Then
Color Rand(0,255),Rand(0,255),Rand(0,255)
Circle Rand(0,800),Rand(0,600),Rand(0,800)
ElseIf tool=3 Then
Color Rand(0,255),Rand(0,255),Rand(0,255)
Box Rand(0,800),Rand(0,600),Rand(0,800),Rand(0,600)
ElseIf tool=4 Then
Color Rand(0,255),Rand(0,255),Rand(0,255)
Ellipse Rand(0,800),Rand(0,600),Rand(0,800),Rand(0,600)
EndIf
If tool=5 Then tool=1
If KeyDown(cbkeyspace) Then tool=tool+1
DrawToImage juu
fapasa=FPS()
For x=40 To 59
For y=20 To 49
If fapasa=>60
Color cbgreen
ElseIf fapasa=x
ColOr cbyellow
ElseIf fapasa=y
Color cborange
ElseIf fapasa<20
Color cbred
EndIf
Next y
Next x
Box 0,0,20,20,1
Color cbblack
Text 0,0,Str(FPS())
DrawToScreen
DrawImage juu,0,0
DrawScreen OFF
Forever
Siinä oli esimerkkiä. Lisääkin olisi löytynyt, tuossa taitaa olla parhaat.