[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