Function ScreenShot2()
number = 1
Repeat
If Not FileExists("screen" + number + ".bmp") Then Exit
number = number + 1
Forever
ScreenShot "screen" + number + ".bmp"
EndFunction
Nostanpa tämän aiheen ettei huku. Tein yhtä projektia varten yksinkertaisen screenshot systeemin: //Haetaan jo olemassaolevat screenshotit "SCREENSHOTS" -kansiosta ChDir "SCREENSHOTS" scrNumber = 1 StartSearch Repeat file$ = FindFile() If file= "" Then Exit If Lower(Rig...
Mielestäni kaikki pitäisi olla ihan itse tehtyä eikä saisi käyttää mitään kirjastoja yms.
Aihe on liian laaja. Osalistuisin, mutta on jo yksi projekti menossa.
Tein pikasen esimerkin. Pitäisi toimia (sori huono kommentointi): FrameLimit 40 Type VIHUT Field obj Field reloadTimer Field reloadTime EndType Type VIHUNAMMUS Field obj EndType //Media pelaaja = LoadObject("Media\soldier.bmp", 72) PositionObject pelaaja, 100, 100 pati = LoadObject("M...
Minä tekisin funktioilla. Esim: Function VihuAmmu(vihuObj, ammusObj) ammus.VIHUNAMMUKSET = New(VIHUNAMMUKSET) ammus\Obj = CloneObject(ammusObj) CloneobjectPosition ammus\Obj, vihuObj CloneObjectOrientation ammus\Obj, vihuObj EndFunction Jotenkin noin. Ja sitten kun pitäisi ampua kutsut vain VihuAmmu...
Itse pidin grafiikasta ja väreistä. En vaihtaisi niitä pois. Mutta tee ihmeessä jatkoa! Pelissä oli mukava tunnelma ja äänet oli hienot. Ja näppäimet on just nyt hyvät. Hiiriohjausta en kannata..
Nyt alkoi TMNF toimimaan. On kyllä mahtava peli. Tosin en kyllä haluaisi pitää F-Securea pois päältä. Ja jos katkaisen nettiyhteyden niin ei pääse pelaamaan netissä.