- 55
- 3
Помогите, нужно сделать радужные эффекты(дым от колес, стрельба и тд).
Код
Код
Код:
:PingPointColorLoop
0000:
CONST
R = 1@
G = 2@
B = 3@
END
WHILE TRUE
WAIT 0
R = 255
G = 0
B = 0
FOR B = 0 TO 255
WAIT 0
GOSUB @PLoop
END
B = 255
FOR R = 255 DOWNTO 0
WAIT 0
GOSUB @PLoop
END
R = 0
FOR G = 0 TO 255
WAIT 0
GOSUB @PLoop
END
G = 255
FOR B = 255 DOWNTO 0
WAIT 0
GOSUB @PLoop
END
B = 0
FOR R = 0 TO 255
WAIT 0
GOSUB @PLoop
END
R = 255
FOR G = 255 DOWNTO 0
WAIT 0
GOSUB @PLoop
END
G = 0
END
:PLoop
0B67: render a 0xFF R G B to_argb 4@
0AB3: VARIABLE 206 = 4@
return