|
Next Template Please by g0blinish
[nfo]
|
||||||||
|---|---|---|---|---|---|---|---|---|
|
|
|||||||
|
popularity : 48% |
|||||||
alltime top: #34590 |
|
|||||||
|
||||||||
added on the 2020-05-29 14:57:17 by g0blinish  |
||||||||
popularity helper
comments
was HellMood sagt
not for the effect but for having text in there
thumb for HellMood!
Nice looking!
How it start:
Code:
SCREEN 13
x = 0
c = 1
FOR j = 1 TO 32
COLOR c
FOR i = 1 TO 10
LINE (x, 0)-(319 - x, 199)
x = x + 1
NEXT i
c = c + 1
IF c = 5 THEN c = 1
NEXT j
y = 0
FOR j = 1 TO 20
c = c - 1
IF c = 0 THEN c = 4
COLOR c
FOR i = 1 TO 10
LINE (0, y)-(319, 199 - y)
y = y + 1
NEXT i
NEXT j
d = 0
WHILE INKEY$ <> CHR$(27)
SLEEP 1
OUT &H3C8, 1
SELECT CASE d
CASE 0
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
CASE 1
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
CASE 2
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
CASE 3
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
REM CYAN
OUT &H3C9, 63
OUT &H3C9, 0
OUT &H3C9, 63
REM YELLOW
OUT &H3C9, 63
OUT &H3C9, 63
OUT &H3C9, 0
END SELECT
d = d + 1
IF d = 4 THEN d = 0
WEND
Very nice looking!
submit changes
if this prod is a fake, some info is false or the download link is broken,
do not post about it in the comments, it will get lost.
instead, click here !
let me give you a way in 45 bytes (might be possible smaller)
push 0x9FE2 pop es or al,0x13 int 0x10 X: mov ax,0xCCCD mul di sub dh,[si] pusha fild word [bx-9] fild word [bx-8] fpatan fimul word [bx] fistp word [bx-5] popa sub ax,bp and al,8 add al,36 stosb inc di inc di jnz X dec bp hlt jmp short X