Kakva je ovo samo trebalo da bude igra! :)

[sasha vukelic]

heh jesam se obradovao kada sam je nasao na jednom starom cd-u
igra koju sam nesto poceo raditi ali nikada nije zavrsena jer sam zapeo kod povecanja rezolucije
naravno, sve sam sam radio

za upute pogledajte txt fajl ili komentar u zip fajlu
trebalo bi da radi na xp-u bez problema (kod mene je sp2 i radi ok)

za download najnovije verzije, pogledajte jedan od zadnjih postova

[Nemesis]

Simpatična igra. Svaka čast!
Posebno mi se dopada kako je izvedeno kretanje.

[mirk]

Meni je isto igra simpatična

[Stevvan]

Svidja mi se. Zanimljiv sistem kretanja. Svaka cast! Preko cega je radjena igra???

[ACHTUNG]

Gluplju igru u zivotu nisam video.

[PeTkO]

Zanimljiva igra samo mnogo ruzna.I mnogo teska

[sasha vukelic]

radjena je u qbasic-u 4.5, za dos, naravno

[Nemesis]

Ako si radio za dos, mora da si direktno pristupao video memoriji kako bi prikazao grafiku. (beše $a000:nešto pa upiši boju za piksel koji treba)

No, iznenađenje je da radi na XP-u.
Ili si možda na neki drugi način crtao brodiće?

[Renee]

Simpaticna igra, samo da je malo lepša

[3dM@niak]

brate kako je ludacki dobro! odvalio sam se od igranja ajmo ljudi, svi + reputaciju za autora

[sasha vukelic]

Nemesis kaže:

Ako si radio za dos, mora da si direktno pristupao video memoriji kako bi prikazao grafiku. (beše $a000:nešto pa upiši boju za piksel koji treba) Ili si možda na neki drugi način crtao brodiće?

nije koristene su obicne naredbe od basic-a:

    IF e(pp) > 0 THEN
      IF shield(pp) > 0 THEN
        CIRCLE (x(pp), y(pp)), 5 + shield(pp), 15, , , 1
        CIRCLE (x(pp), y(pp)), 2 + shield(pp), 15, , , 1
        PAINT (x(pp) + 4 + shield(pp), y(pp)), fifty(6), 15
        CIRCLE (x(pp), y(pp)), 5 + shield(pp), 0, , , 1
        CIRCLE (x(pp), y(pp)), 2 + shield(pp), 0, , , 1
      END IF
      six x(pp), y(pp), cc + 8, a(pp), 1 / 3, 1, 1, 1, 5 / 3, 1, 3 / 2, 1 / 3, 0, 1, 1 / 2, 1 / 3
      FOR i1 = 0 TO 1
        pc = pc + 1
        IF pc >= particle THEN pc = 0
        pv(pc) = RND
        IF i1 = 0 THEN
          px(pc) = x(pp) + COS(a(pp) + pi / 3) * (size / 3 + 1)
          py(pc) = y(pp) - SIN(a(pp) + pi / 3) * (size / 3 + 1)
        ELSE
          px(pc) = x(pp) + COS(a(pp) - pi / 3) * (size / 3 + 1)
          py(pc) = y(pp) - SIN(a(pp) - pi / 3) * (size / 3 + 1)
        END IF
        pa(pc) = a(pp) + pi
        pb(pc) = cc
      NEXT
      PAINT (x(pp), y(pp)), fifty(pp), cc + 8
    END IF

"fifty" je definisan drugdje

DIM fifty(7) AS STRING
fifty(0) = CHR$(85) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(170)
fifty(1) = CHR$(0) + fifty(0)
fifty(2) = CHR$(0) + fifty(1)
fifty(3) = CHR$(17) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(68) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)
fifty(4) = CHR$(0) + fifty(3)
fifty(5) = CHR$(0) + fifty(4)
fifty(6) = CHR$(0) + fifty(2)

kao i "six"

SUB six (x AS SINGLE, y AS SINGLE, c AS INTEGER, aa AS SINGLE, a1 AS SINGLE, i1 AS SINGLE, a2 AS SINGLE, i2 AS SINGLE, a3 AS SINGLE, i3 AS SINGLE, a4 AS SINGLE, i4 AS SINGLE, a5 AS SINGLE, i5 AS SINGLE, a6 AS SINGLE, i6 AS SINGLE)
LINE (x + COS(aa + a1 * pi) * i1 * size, y - SIN(aa + a1 * pi) * i1 * size)-(x + COS(aa + a2 * pi) * i2 * size, y - SIN(aa + a2 * pi) * i2 * size), c
LINE (x + COS(aa + a2 * pi) * i2 * size, y - SIN(aa + a2 * pi) * i2 * size)-(x + COS(aa + a3 * pi) * i3 * size, y - SIN(aa + a3 * pi) * i3 * size), c
LINE (x + COS(aa + a3 * pi) * i3 * size, y - SIN(aa + a3 * pi) * i3 * size)-(x + COS(aa + a4 * pi) * i4 * size, y - SIN(aa + a4 * pi) * i4 * size), c
LINE (x + COS(aa + a4 * pi) * i4 * size, y - SIN(aa + a4 * pi) * i4 * size)-(x + COS(aa + a5 * pi) * i5 * size, y - SIN(aa + a5 * pi) * i5 * size), c
LINE (x + COS(aa + a5 * pi) * i5 * size, y - SIN(aa + a5 * pi) * i5 * size)-(x + COS(aa + a6 * pi) * i6 * size, y - SIN(aa + a6 * pi) * i6 * size), c
LINE (x + COS(aa + a6 * pi) * i6 * size, y - SIN(aa + a6 * pi) * i6 * size)-(x + COS(aa + a1 * pi) * i1 * size, y - SIN(aa + a1 * pi) * i1 * size), c
END SUB

3dM@niak kaže:

brate kako je ludacki dobro! odvalio sam se od igranja ajmo ljudi, svi + reputaciju

e hvala

[galebns]

Vrlo zanimljiva igra! Kako je uradjen AI protivnickih brodova?

[sasha vukelic]

galebns kaže:

Vrlo zanimljiva igra! Kako je uradjen AI protivnickih brodova?

AI je uradjen dosta jednostavno, zato jer je i igra jednostavna
evo ga source za AI

      IF pp <> pl1 AND pp <> pl2 AND e(pp) > 0 THEN
        IF prox(x(pp) - tx(pp), y(pp) - ty(pp)) < 20 THEN
          i1 = 0
          DO
            i1 = i1 + 1
            tx(pp) = 159 + pp + (INT(RND * 7) - 3) * 45
            ty(pp) = 99 + pp + (INT(RND * 5) - 2) * 40
            i = prox(x(pp) - tx(pp), y(pp) - ty(pp))
            a = ABS(angle(x(pp) - tx(pp), y(pp) - ty(pp)) - a(pp))
          LOOP UNTIL (i > 60 - pp * 10 AND i < 120 - pp * 20) AND (i1 >= 9 OR a < pi / 2 OR a > 3 * pi / 2)
        END IF
        IF rc(pp) = -80 THEN
          rc(pp) = 320
          ra(pp) = afix(a(pp) + pi)
          rx(pp) = x(pp) + COS(a(pp)) * 6
          ry(pp) = y(pp) - SIN(a(pp)) * 6
          xk(pp) = xk(pp) - COS(a(pp)) * 2
          yk(pp) = yk(pp) + SIN(a(pp)) * 2
          rt(pp) = pp
        END IF
        IF bc(pp) = -30 THEN
          i = 1
          i1 = 2
          IF i = pp THEN i = 0
          IF i1 = pp THEN i1 = 0
          IF (e(i) > 0 AND ABS(a(pp) - angle(x(pp) - x(i), y(pp) - y(i))) < .1) OR (e(i1) > 0 AND ABS(a(pp) - angle(x(pp) - x(i1), y(pp) - y(i1))) < .1) OR (rc(i) > 0 AND ABS(a(pp) - angle(x(pp) - rx(i), y(pp) - ry(i))) < .1) OR (rc(i1) > 0 AND ABS( _
a(pp) - angle(x(pp) - rx(i1), y(pp) - ry(i1))) < .1) THEN
            bc(pp) = 30
            ba(pp) = a(pp)
            bx(pp) = x(pp) - COS(a(pp)) * 6
            by(pp) = y(pp) + SIN(a(pp)) * 6
            xk(pp) = xk(pp) + COS(a(pp)) * 2
            yk(pp) = yk(pp) - SIN(a(pp)) * 2
          END IF
        END IF
      END IF

inace sherovao bih cijeli source no imam samo dijelove jer sam nesto zeznuo

[sasha vukelic]

vecina promjenljivih je definisana i objasnjena ovdje

CONST pi = 3.141593
CONST size = 6         ''' ship size
CONST ps = 3           ''' pointer size
CONST particle = 2500  ''' koliko ima cestica (max)

DIM death AS INTEGER   ''' how many ships are dead
DIM menu  AS INTEGER   ''' menu

DIM a     AS SINGLE
DIM a1    AS SINGLE
DIM i     AS INTEGER
DIM i1    AS INTEGER
DIM i2    AS INTEGER

DIM pl1   AS INTEGER   ''' first player
DIM pl2   AS INTEGER   ''' second player
DIM tt    AS DOUBLE    ''' timer catch
DIM ii    AS STRING    ''' inkey catch
DIM pp    AS INTEGER   ''' player
DIM cc    AS INTEGER   ''' color
DIM ss    AS INTEGER   ''' starcount
DIM rr    AS SINGLE    ''' rotacija

DIM page  AS INTEGER   ''' current page
DIM ppage AS INTEGER   ''' previous page

DIM op(3)      AS INTEGER
DIM speed(3)   AS INTEGER
DIM thrust(3)  AS INTEGER
DIM shield(3)  AS INTEGER
DIM missile(3) AS INTEGER
DIM laser(3)   AS INTEGER

DIM e(3)    AS INTEGER ''' ship energy
DIM p(3)    AS INTEGER ''' points
DIM m(3)    AS INTEGER ''' money
DIM a(3)    AS SINGLE  ''' angle
DIM x(3)    AS SINGLE  ''' pos
DIM y(3)    AS SINGLE  '''
DIM xk(3)   AS SINGLE  ''' kick
DIM yk(3)   AS SINGLE  '''

DIM tx(3)   AS INTEGER ''' pointer pos
DIM ty(3)   AS INTEGER '''
DIM tp(3)   AS INTEGER ''' type of spinning
DIM tz(3)   AS SINGLE  ''' speed of spinning

DIM bc(3)   AS INTEGER ''' bullet cooldown 
DIM ba(3)   AS SINGLE  ''' angle
DIM bx(3)   AS SINGLE  ''' pos
DIM by(3)   AS SINGLE  '''

DIM rc(3)   AS INTEGER ''' rocket cooldown
DIM rt(3)   AS SINGLE  ''' target
DIM ra(3)   AS SINGLE  ''' angle
DIM rx(3)   AS SINGLE  ''' pos
DIM ry(3)   AS SINGLE  '''

DIM sx(200) AS SINGLE  ''' star pos

DIM fifty(7) AS STRING
fifty(0) = CHR$(85) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(170)
fifty(1) = CHR$(0) + fifty(0)
fifty(2) = CHR$(0) + fifty(1)
fifty(3) = CHR$(17) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(68) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)
fifty(4) = CHR$(0) + fifty(3)
fifty(5) = CHR$(0) + fifty(4)
fifty(6) = CHR$(0) + fifty(2)

DIM SHARED pc            AS INTEGER ''' particle count
DIM SHARED pv(particle)  AS SINGLE  ''' speed
DIM SHARED px(particle)  AS SINGLE  ''' pos
DIM SHARED py(particle)  AS SINGLE  '''
DIM SHARED pa(particle)  AS SINGLE  ''' angle
DIM SHARED pb(particle)  AS SINGLE  ''' color

[Stevvan]

Pa dobro grafika nije mogla biti lepsa za vreme kada je igra radjena ali game-play i AI su po meni super (jedina zamerka za kontrole pucanja jer je tesko u kretanju pritisnuti 1 i 0 , trebao si recimo da stavis da se krece na strelice a da pucanje ostane isto). Trebao si mozda da jos postavis tezinu igranja (na poetku je tesko ali kad se uhodas bude malo lakse). U svakom slucaju reputacija + od mene.

[Marko_L]

Fantastično. Ovo je jedna od najboljih igara rađenih u qbasicu koju sam video. Čudi me da nisi ostao u game dev-u (možda i grešim), jer čini mi se da imaš baš takvu programersku logiku. Inače i ja sam se svojevremeno baktao sa njim, ali sam više radio poslovne aplikacije, od igara nešto malo (neke kvizove, tekstualne avanture, trkačke igre tipa Le Mans, a uradio sam i jednu na foru Scramble-a). Trebalo bi da su još uvek na tavanu po onim silnim disketama (ako se neko još uvek seća šta su diskete). Sad si mi probudio nostalgiju, pa ću baš da ih potražim ako je sve to još uvek čitljivo, pa da napravimo ovde jednu kolekciju qbasic igara Svaka čast još jednom.

Pa dobro grafika nije mogla biti lepsa za vreme kada je igra radjena

Kada pominjete grafiku, imajte u vidu da je sve ručno crtano pomoću koda... ništa bitmape, ništa transparencija... samo dobra stara umetnost programiranja

[sasha vukelic]

znaci igru sam pravio prije oko 3 godine (sudeci po tome koji je datum na fajlu, mozda i vise, oko 5-6 godina, ne sjecam se tacno) i planirao sam da se mogu igrati trojica ljudi na jednoj tastaturi
zbog specificnosti upravljanja brodom, to je moguce izvesti a da ne dodje do "zaglupljivanja" tastature ili keylock-a (ili kako se vec zove)
jedan igrac je trebao igrati na numpad-u, drugi bi koristio tipke wasd za kretanje i q i 1 za pucanje, a treceg bi negdje uglavio izmedju ta dva

zato je i ostalo ovako kako je sada - desna ruka na 8456 za kretanje a lijeva na 1 i 0 za pucanje

dva igraca mogu komotno igrati (isprobano)
i cim se docepam prilike (tamo krajem slijedece sedmice) napravicu da se moze birati koliko je igraca a koliko kompjutera, te citav source okaciti ovdje

do tada bilo kakvi komentari pozeljni, samo nemojte traziti nesto previse, jer necu imati vremena

[kish]

Igra je odlicna! Super ideja, majke mi. Lepo je videti da jos uvek postoje kreativni programeri.

[sasha vukelic]

evo konacno sam iskresao source, da ga svi mozete pogledati, posto je bila u pitanju neka polu-nova verzija.
u txt fajlu vam pise koje su izmjene napravljene...

citava igra zauzima svega oko 750 redova u malom se krije otrov

[Oggy]

ne mogu da verujem.. to je u qbasicu?? i ja sam se nekada baktao sa qbasic-om.. ah, uspomene. pogotovo na crtanje preko koda. Cak sam pravio i sprajt editor i editor za animaciju da ne bi sve morao da radim u kodu.