CoolBasic Forums

Vähän otat vielä mallia täältä: http://www.geocities.jp/lledoece/nanaca-crash.html niin hyvä tulee.

CCE wrote:

Knoy wrote:Pikselöinti effekti.

Saa tuon tehtyä vähän nopeamminkin

Code: Select all

---

Kusetusta tuollainen... Kuka antoi luvan käyttää resizeimagea
Enpä tullut ajatelleekseni tuota.

Pikselöinti effekti. Imag = LoadImage("media\map.bmp") Img=MakeImage(ImageWidth(Imag),ImageHeight(Imag)) For Times= 2 To 15 DrawToImage Img DrawImage Imag,0,0 DrawToScreen Skip#=Abs(Times) For X = 0 To ScreenWidth() SetWindow Str(FPS()) If (X Mod Skip) = 0 Then DrawImage Img,0,0 For Y = 0 ...

Editoin hieman vanhaa effektiäni ja siitä syntyi jotain omituisehkoa. Const ScreenW = 400 Const ScreenH = 300 Angle As Float = 0 ii As Float = 0 iii As Float = 0 SCREEN ScreenW,ScreenH Repeat Angle=WrapAngle(Angle+0.1) Angle2=WrapAngle(Angle2+1) Angle3#=WrapAngle(Angle3+0.15) Angle4#=WrapAngle(Angle...

Ahaa... Nyt pääsin jotenkin sekoamaan... Kiitos grandi... nyt on jotain miettimistä minullakin loppu illaksi...
En miettinyt asiaa kunnolla. Kyllä ne kaikki näköjään siis voivat olla täynnä. Nerokasta.

Chaosworm... Olet oikeassa siinä että, X=X+1 ei pidä paikkaansa, mutta Ääretön=Ääretön+1 pitää paikkansa.

Myös nämä pitävät paikkansa...
Ääretön=Ääretön-1
Ääretön=Ääretön*Ääretön
...

Legend: kaikki huoneet eivät voi olla täynnä jos niitä on äärettömästi.

1/9 = 0,111... | *9 1 = 0,999... 1 + 1 = 0,999... + 0,999... 1 + 1 = 1,999... Ei kyllä ihan noin mene... Muuten voisin sanoa, että 2=1 ja matikantunneista tulisi ihmeen helppoja -.- Kyllä se nyt menee noin... En jaksa nyt enempää ruveta väittelemään. Tässä olisi sitten vähän tietoa: http://en.wikip...

Tässä olisi laatikko tunnistus väreille. Siirtää X vanhaksi X ja Y vanhaksi Y jos osuu punaiseen X=200 Y=150 Repeat Color CbRed Box 0,0,100,100,1 VanhaX=X VanhaY=Y X=X+(RightKey()-LeftKey()) Y=Y-(UpKey()-DownKey()) For i = - 10 To 10 For ii = -10 To 10 PickColor X+i,Y+ii If getRGB(RED)=255 And getRG...

Kolikosta voi nähdä vain sen puolen, joka on katsojaa päin. Kun käännät kolikkoa, et näe enää "edellistä" puolta, joten sen olemassaolosta ei enää ole mitään viitteitä. Näinollen kolikossa on aina se yksi puoli. Jos et näe koko kolikkoa, sitä ei ole olemassa, joten ei voida sanoa olevan t...

Olen tässä miettinyt, että onko tämä projecti jäätynyt. Olen odotellut aika kovasti uusia päivityksiä, sillä peli kuulostaa lupaavalta.

Teet vaikka Dim Teksti(99) (sata riviä tekstiä) For i = Kek to Kek+10 Text 0,15*Lo,Teksti(i) Lo+1 Next i Kek=Max(Min(Kek+MouseMoveZ(),100),0) Miksi näin? Tämähän menee vaikka tällaisenaan: Dim Teksti(100) As String For i = Kek to Kek+10 Text 0,TextHeight("|")*i,Teksti(i) Next i DrawScreen...

Teet vaikka Dim Teksti(99) (sata riviä tekstiä)

For i = Kek to Kek+10
Text 0,15*Lo,Teksti(i)
Lo+1
Next i

Kek=Max(Min(Kek+MouseMoveZ(),100),0)

Näin... Liikutit möys aloituspistettä, vaikka pitäisi liikuttaa vain lopetuspistettä... Repeat Line ScreenWidth()/2,ScreenHeight()/2,ScreenWidth()/2+Cos(angle)*20,ScreenHeight()/2-Sin(angle)*20 If LeftKey() Then angle+1 If RightKey() Then angle-1 Text 0,0,"Angle : "+angle DrawScreen Forever

Katso oppaasta Type ja Field. Mielestäni kortit kannattaisi tehdä tyyppeihin. Jos nyt selittäisin sitten vielä vähän: //Tee tyyppi ja laita siihen fieldit. Type Kortit Field Kuva Field Pari EndType //Tee kuville dim ja lataa kuvat Dim Kuvat(4) // 5 kuvaa 10 paria... Kuvat(0)=LoadImage... Kuvat(1)=Lo...

-Poistettu-

En tajunnut tuota kun kolan puute oli valtava ja tilemappeja käyttänyt olen tasan kerran.
Anteeksi typerä sekoiluni...

YotsuSpace Peli jossa ei ole mitään järkeä olisi sopiva selitys tälle pelille. Tarinaa: Kerran Yotsuba meni nukkumaan ja näki unia... Unia avaruudesta ja avaruusaluksista... Unessa tulo kaikenlaisia outoja otuksia Yotsuban aluksen kimppuun ja Yotsuban piti puolustatua. Kuva: http://i77.photobucket....

Tausta on hieno.

Luin suunnittelemasi sisällön mitä aiot peliin pistää.
Kuulostaa kiinnostavalta projectilta. Toivotan onnea projectille...

Kauppapeli: E: Vaikeampi... SCREEN 600,400 Raha=5000 //Rahat Velka=4500 Päivä=0 Ketjunnimi$="Kaupan Nimi" //Kaupan nimi... Toim=4 Const VaihtoEhdot = 6 Dim VE(VaihtoEhdot) As String VE(0)="Osta lisää myytävää tavaraa. - 250$" VE(1)="Palkkaa lisää työntekijöitä." VE(2)=&...

Koin tarpeelliseksi laittaa nämä kuvat tänne...
Kuvat ovat isoja joten laitoin ne spiler tageihin.

suosittelisin temppuja suicide, genocide, infinite, excalibur ja excalibur genocide, maailman hankalimpia temppuja (itse osaan kaikki viimestä lukuun ottamatta, eli videon/animaation teko ei olisi ongelma) On pelottavan kuuloisia tempun nimiä. Itsemurha ja joukkomurha? :D Itseasiassa ne eivät ole m...