깃발 스프라이트 확인

flag-sprite-check.bas

원래 파일

LAN/QB/PCXLIB/GREADS.BAS

날짜

1995-02-13

크기

1,942바이트, 65줄

저장 형식

CP949 텍스트를 UTF-8로 바꿈

내려받기

flag-sprite-check.bas (UTF-8)

설명

GIF를 띄우는 gifload에 bu.spr를 BLOAD해서 (0, 0)에 BLKPUT하는 코드를 붙였습니다.
깃발 올린 스프라이트 만들기로 만든 파일이 제대로 나오는지 확인하는 용도입니다.
끝나면 "It's demo version of flag game programmed by Jung-Sang-Hyuk"를 찍습니다.

소스

DECLARE SUB gifload ()REM $INCLUDE: 'C:\LAN\QB\PCXLIB\SVGAQB10.BI'DEFINT A-ZDIM SHARED GIFPAL AS STRING * 768gifloadPRINT "It's demo version of flag game programmed by Jung-Sang-Hyuk"DEFSNG A-ZSUB gifload            DEFINT A-Z            IF WHICHVGA = 0 THEN STOP            IF WHICHMEM < 512 THEN STOP            GIFFILENAME$ = "C:\FLAG\DOWNBN.GIF"            VMODE = VIDEOMODEGET            RES640            OK = GIFGETINFO(GIFFILENAME$, XSIZE, YSIZE, NUMCOL, GIFPAL)            IF OK = 1 THEN                FIXIT = 0                FOR A = 1 TO NUMCOL * 3 STEP 3                    R = ASC(MID$(GIFPAL, A, 1))                    G = ASC(MID$(GIFPAL, A + 1, 1))                    B = ASC(MID$(GIFPAL, A + 2, 1))                    IF R > 63 THEN                        FIXIT = 1                        EXIT FOR                    END IF                    IF G > 63 THEN                        FIXIT = 1                        EXIT FOR                    END IF                    IF B > 63 THEN                        FIXIT = 1                        EXIT FOR                    END IF                NEXT A                IF FIXIT = 1 THEN                    FOR A = 1 TO NUMCOL * 3                        C = ASC(MID$(GIFPAL, A, 1))                        MID$(GIFPAL, A, 1) = CHR$(C \ 4)                    NEXT A                END IF                PALSET GIFPAL, 0, 255                OK = GIFPUT(1, 0, 0, GIFFILENAME$)                IF OK <> 1 THEN                    SOUND 100, 5                END IF            END IF  'DYNAMIC  DIM bu(6741) AS INTEGER  DEF SEG = VARSEG(bu(0))  BLOAD "bu.spr", VARPTR(bu(0))  DEF SEG  BLKPUT 1, 0, 0, bu(0)            WHILE INKEY$ = ""            WEND            VIDEOMODESET VMODE            ENDEND SUB