Search found 187 matches
- Tue Jun 08, 2010 10:28 am
- Forum: Projektit
- Topic: Sheep Cannon 0.3.6!
- Replies: 48
- Views: 29208
Re: Sheep Cannon? Dead? No. It's a f***ing alive!
Vähän otat vielä mallia täältä: http://www.geocities.jp/lledoece/nanaca-crash.html niin hyvä tulee.
- Mon Jun 07, 2010 10:09 am
- Forum: Esimerkit ja tutoriaalit
- Topic: Efektit
- Replies: 678
- Views: 593398
Re: Efektit
Kusetusta tuollainen... Kuka antoi luvan käyttää resizeimageaCCE wrote:Saa tuon tehtyä vähän nopeamminkinKnoy wrote:Pikselöinti effekti.Code: Select all
---
Enpä tullut ajatelleekseni tuota.
- Sun Jun 06, 2010 11:35 pm
- Forum: Esimerkit ja tutoriaalit
- Topic: Efektit
- Replies: 678
- Views: 593398
Re: Efektit
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 ...
- Sun Jun 06, 2010 10:20 pm
- Forum: Esimerkit ja tutoriaalit
- Topic: Efektit
- Replies: 678
- Views: 593398
Re: Efektit
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...
- Fri Jun 04, 2010 2:13 pm
- Forum: Yleinen
- Topic: Älytehtävät
- Replies: 226
- Views: 118233
Re: Älytehtävät
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.
En miettinyt asiaa kunnolla. Kyllä ne kaikki näköjään siis voivat olla täynnä. Nerokasta.
- Fri Jun 04, 2010 1:31 pm
- Forum: Yleinen
- Topic: Älytehtävät
- Replies: 226
- Views: 118233
Re: Älytehtävät
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.
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.
- Thu Jun 03, 2010 7:30 pm
- Forum: Yleinen
- Topic: Älytehtävät
- Replies: 226
- Views: 118233
Re: Älytehtävät
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...
- Wed Jun 02, 2010 8:52 pm
- Forum: Ongelmat
- Topic: väritörmäys
- Replies: 8
- Views: 6824
Re: väritörmäys
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...
- Wed Jun 02, 2010 6:37 pm
- Forum: Yleinen
- Topic: Älytehtävät
- Replies: 226
- Views: 118233
Re: Älytehtävät
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...
- Wed Jun 02, 2010 5:19 pm
- Forum: Yleinen
- Topic: Galaksipeli-projekti
- Replies: 31
- Views: 20079
Re: Galaksipeli-projekti
Olen tässä miettinyt, että onko tämä projecti jäätynyt. Olen odotellut aika kovasti uusia päivityksiä, sillä peli kuulostaa lupaavalta.
- Tue May 25, 2010 6:30 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2010)
- Replies: 1543
- Views: 791666
Re: Tyhmät kysymykset (I/2010)
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...
- Tue May 25, 2010 5:06 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2010)
- Replies: 1543
- Views: 791666
Re: Tyhmät kysymykset (I/2010)
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)
For i = Kek to Kek+10
Text 0,15*Lo,Teksti(i)
Lo+1
Next i
Kek=Max(Min(Kek+MouseMoveZ(),100),0)
- Sun May 23, 2010 4:10 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2010)
- Replies: 1543
- Views: 791666
Re: Tyhmät kysymykset (I/2010)
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
- Sat May 15, 2010 10:48 pm
- Forum: Ongelmat
- Topic: Muistipeli!
- Replies: 4
- Views: 3949
Re: Muistipeli!
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...
- Wed May 12, 2010 1:29 pm
- Forum: Ongelmat
- Topic: Tyhmät kysymykset (I/2010)
- Replies: 1543
- Views: 791666
Re: Tyhmät kysymykset (I/2010)
-Poistettu-
En tajunnut tuota kun kolan puute oli valtava ja tilemappeja käyttänyt olen tasan kerran.
Anteeksi typerä sekoiluni...
En tajunnut tuota kun kolan puute oli valtava ja tilemappeja käyttänyt olen tasan kerran.
Anteeksi typerä sekoiluni...
- Sat May 08, 2010 10:16 pm
- Forum: Projektit
- Topic: YotsuSpace
- Replies: 1
- Views: 1972
YotsuSpace
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....
- Sat May 08, 2010 10:08 pm
- Forum: Tiimin haku ja rakennus
- Topic: Adventures of final frontier
- Replies: 43
- Views: 45010
Re: Adventures of final frontier
Tausta on hieno.
Luin suunnittelemasi sisällön mitä aiot peliin pistää.
Kuulostaa kiinnostavalta projectilta. Toivotan onnea projectille...
Luin suunnittelemasi sisällön mitä aiot peliin pistää.
Kuulostaa kiinnostavalta projectilta. Toivotan onnea projectille...
- Fri May 07, 2010 11:42 pm
- Forum: Projektit
- Topic: Pikku pelit
- Replies: 439
- Views: 267741
Re: Pikku pelit
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)=&...
- Thu May 06, 2010 8:05 pm
- Forum: Yleinen
- Topic: Offtopic (I/2010)
- Replies: 1987
- Views: 1034323
Re: Offtopic (I/2010)
Koin tarpeelliseksi laittaa nämä kuvat tänne...
Kuvat ovat isoja joten laitoin ne spiler tageihin.
- Thu May 06, 2010 7:40 pm
- Forum: Projektit
- Topic: Diabolo master ensimmäinen projektini!
- Replies: 10
- Views: 6091
Re: Diabolo master ensimmäinen projektini!
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...