Apua projekteihin tarjolla

Etsitkö tiimiä tai etsiikö tiimisi jäseniä?
Post Reply
User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Apua projekteihin tarjolla

Post by esa94 »

No, kun tässä on nyt ollut vähän tylsää, niin ajattelin nyt, että jos joku tarvitsisi apua, voisin auttaa. Taitoa löytyy näiltä alueilta:
(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ä :D)
Esimerkki
Esimerkki (Viimeinen kuva sitä ropea varten!)
Esimerkki
Esimerkki
Esimerkki

Koodaus

Lähinnä Haamu Missioneja, mutta on parempiakin :D
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 
LandGen, luo epäitoja mutta hianohkoja 'karttoja', enter tallentaa.

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 
Tyyppihässäkkä, paketti täällä (ladatkaa 7-zip täältä silti) (Ei toimi, saa käyttää vapaasti jos osaa korjata. Ensimmäinen kokeilu Type:llä.)

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 
The Run Project, liitteenä sekin.


Siinä oli esimerkkiä. Lisääkin olisi löytynyt, tuossa taitaa olla parhaat. :D
Attachments
The Run project.7z
Run Zero, The Run Projectin beta. Jäätynyt.
(324.66 KiB) Downloaded 367 times
Post Reply