퍼즐 빈 칸 스프라이트 만들기

puzzle-blank-sprite.bas

원래 파일

FLAG/MKPU.BAS

날짜

1996-02-08

크기

2,470바이트, 101줄

저장 형식

CP949 텍스트를 UTF-8로 바꿈

내려받기

puzzle-blank-sprite.bas (UTF-8)

설명

퍼즐의 빈 칸 그림 BOARD.SPR를 만든 도구입니다.
CPU와 그래픽 카드를 확인하고 로고를 보여 준 뒤 board.gif를 띄워 왼쪽 위를 BLKGET, BSAVE합니다.
start, opening, gifload는 청기백기에서 가져온 것입니다.
끝나면 "It's test of the game programmed by Jung-Sang-Hyuk"를 찍습니다.

소스

DECLARE SUB start ()DEFINT A-ZDECLARE SUB opening ()DECLARE SUB gifload (GIFFILENAME$)REM $INCLUDE: 'svgaqb10.bi'RANDOMIZE TIMERDIM SHARED GIFPAL AS STRING * 768DIM blk(5477) AS INTEGERVMODE = VIDEOMODEGET  RES640  start  VMODE = VIDEOMODEGET  RES640  opening  gifload "board.GIF "  blkget 0, 0, 87, 121, blk(0)  DEF SEG = VARSEG(blk(0))  BSAVE "board.spr", VARPTR(blk(0)), 10956  DEF SEGWHILE INKEY$ = "" WEND VIDEOMODESET VMODE PRINT "It's test of the game programmed by Jung-Sang-Hyuk"DEFSNG A-ZSUB gifload (GIFFILENAME$)            DEFINT A-Z            FOR I = 1 TO 768            MID$(GIFPAL, I, 1) = CHR$(63)            NEXT I            PALSET GIFPAL, 0, 255            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                OK = GIFPUT(1, 0, 0, GIFFILENAME$)                PALSET GIFPAL, 0, 255                IF OK <> 1 THEN                    SOUND 100, 5                END IF            END IFEND SUB  SUB opening  gifload "logo.gif"  WHILE INKEY$ = ""  WEND  END SUBSUB start  IF WHICHVGA = 0 THEN  PRINT "Unknown graphic Card..."  PRINT "Sorry!!!"  STOP  END IF  IF WHICHMEM < 512 THEN  PRINT "Not enough Video Memory."  STOP  END IF  IF WHICHCPU = 286 OR WHICHCPU = 86 THEN  PRINT "This Computer requires 30386 CPU at leat"  STOP  END IF  PRINT "Your CPU is"; WHICHCPU  PRINT "OK.... Press Any key..........."  WHILE INKEY$ = ""  WENDEND SUB