QB黑白棋

大佬教程收集整理的这篇文章主要介绍了QB黑白棋，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

const cOPYRIGHTnumbER = "HeiBaiQi V1.0"
const cOPYRIGHT = "Copyright (C) sosei"
CONST NO = "2CFD4E6D12DA4469"
CONST PROGRAmname = "OTHelLO"
CONST REGCODELEN = 16
CONST VERIFYLENGTH = 32
const cOMPUTERNAME = "snowman"
CONST E = 2.718281828459045#
CONST PI = 3.141592653589793#
CONST DEGREE = PI / 180
const cIRCLEANGLE = 2 * PI
CONST SECOND = 1,minutE = 60,HOUR = 60,HALFDAY = 12
CONST DAY = 2& * HALFDAY * HOUR * minutE * SECOND
CONST BOARDSIZE = 8
CONST MAXUNITIME = 2 * minutE,MAXEXTRATIME = 6 * minutE
CONST WARNTIME = 10 * SECOND
CONST HUMAN = 0,COMPUTER = 1
CONST OVER = -1,BLACKSIDE = 0,WHITESIDE = 1
CONST BLACKWIN = -1,EQUAL = 0,WHITEWIN = 1
CONST BLANK = -1,BLACKSTONE = 0,WHITESTONE = 1
CONST BEFORETIME = 0,NOWTIME = 1
CONST ORIGINALSCREEN = -1,BLACKSTATESCREEN = 0,WHITESTATESCREEN = 1,BOARDSCREEN = 2,BUTTONSCREEN = 3
CONST EVENTOFF = -1,EVENTSTOP = 0,EVENTON = 1
CONST TRAPINIT = -1,TRAPOFF = 0,TRAPON = 1
CONST SET = 0,USE = 1
CONST TRUE = -1,falSE = 0
CONST SHOW = 1,DISAPPEAR = 0
CONST REPOSE = 0,THINK = 1,LOSE = 2,QUIET = 3,WIN = 4
CONST INIT = 0,REST = 1,TURN = 2
CONST FINISH = -1,RENEW = 0
CONST BLACK = 0,WHITE = 3,RED = 2,BLUE = 1
CONST ZEROOFCLOCKANGLE = PI / 2
const c = 4294967296#

TYPE playdata
   playname AS StriNG * 10
   playtype AS IntegeR
END TYPE

DECLARE SUB Install ()
DECLARE FUNCTION RandomNum# ()
DECLARE FUNCTION ERandomNum# (n AS DOUBLE)
DECLARE FUNCTION PIRandomNum# (n AS DOUBLE)
DECLARE FUNCTION passwordSwitch# (password AS DOUBLE)
DECLARE SUB passwordToPAB (password AS StriNG,passworda AS DOUBLE,passwordb AS DOUBLE)
DECLARE FUNCTION HexToDec# (hex AS StriNG)
DECLARE SUB DataLock (dataString AS StriNG,password AS StriNG)
DECLARE SUB DataUnLock (dataString AS StriNG,password AS StriNG)
DECLARE FUNCTION Verify$ (filenum AS IntegeR,startadd AS LONG,endadd AS LONG)
DECLARE FUNCTION checkBit ()
DECLARE FUNCTION TESTCode ()
DECLARE SUB RandomSide (gameorder AS IntegeR,bothname() AS playdata)
DECLARE SUB InputName (humanside AS IntegeR,bothname() AS playdata)
DECLARE SUB otHelloscreen (screentype AS IntegeR,screenstate AS IntegeR)
DECLARE SUB trapcontrol (control AS IntegeR)
DECLARE SUB boardinit (board() AS IntegeR)
DECLARE SUB stonenumshow (board() AS IntegeR,stonenum() AS IntegeR)
DECLARE SUB faceshow (nowside AS IntegeR,faCEType AS IntegeR)
DECLARE SUB clock (nowside AS IntegeR,clockstate AS IntegeR,recoverscreen AS IntegeR,unitime() AS LONG,extratime() AS LONG,notime AS IntegeR)
DECLARE SUB turnstone (board() AS IntegeR,x AS IntegeR,y AS IntegeR)
DECLARE SUB overjudge (nowside AS IntegeR,board() AS IntegeR)
DECLARE SUB humanthink (nowside AS IntegeR,board() AS IntegeR,y AS IntegeR)
DECLARE SUB computerthink (nowside AS IntegeR,y AS IntegeR)
DECLARE SUB stoneshow (stone AS IntegeR,y AS IntegeR)
DECLARE SUB lightmark (nowside AS IntegeR,BACkground AS IntegeR,y AS IntegeR,cursor AS IntegeR)
DECLARE FUNCTION checkPlace (nowside AS IntegeR,y AS IntegeR)
DECLARE FUNCTION winsidejudge (nowside AS IntegeR,notime AS IntegeR,accpetlose AS IntegeR,stonenum() AS IntegeR)
DECLARE SUB winshow (winside AS IntegeR)
DECLARE SUB AdmitDefeat (accpetlose AS IntegeR)
DECLARE SUB Quit (choose AS IntegeR)
DECLARE SUB Recorder (bothname() AS playdata)

DIM nn AS StriNG
DIM nowscreen AS IntegeR
DIM gameorder AS IntegeR
DIM timetrap AS IntegeR
DIM keytrap AS IntegeR
DIM bothname(BLACKSIDE TO WHITESIDE) AS playdata
DIM stonenum(BLACKSIDE TO WHITESIDE) AS IntegeR
DIM unitime(BLACKSIDE TO WHITESIDE,BEFORETIME TO NOWTIME) AS LONG
DIM extratime(BLACKSIDE TO WHITESIDE,BEFORETIME TO NOWTIME) AS LONG
DIM notime AS IntegeR
DIM accpetlose AS IntegeR
DIM board(1 TO BOARDSIZE,1 TO BOARDSIZE) AS IntegeR
DIM nowside AS IntegeR
DIM x AS IntegeR
DIM y AS IntegeR
DIM winside AS IntegeR
DIM choose AS IntegeR

IF checkBit = TRUE THEN
   IF UCASE$(COMMAND$) = "/INSTALL" THEN
      CALL Install
   END IF
   IF TESTCode = TRUE THEN
      nn = StriNG$(INT(LOG(BOARDSIZE * BOARDSIZE) / LOG(10#)) + 1,"#")
      nowscreen = ORIGINALSCREEN
      gameorder = 0
      SCREEN 1
      PLAY "mb"
      ON TIMER(SECOND) GOSUB clocklabel
      ON KEY(10) GOSUB keylabel
      DO
         CLS
         TIMER OFF
         timetrap = EVENTOFF
         KEY(10) OFF
         keytrap = EVENTOFF
         CALL trapcontrol(TRAPINIT)
         LOCATE 25,3: PRINT COPYRIGHTnumbER; "   "; COPYRIGHT;
         CALL RandomSide(gameorder,bothname())
         stonenum(BLACKSIDE) = 0
         stonenum(WHITESIDE) = 0
         LOCATE 1,1: PRINT "Name:"; bothname(BLACKSIDE).playname
         LOCATE 2,1: PRINT USING "Stones:" + nn; stonenum(BLACKSIDE);
         CALL otHelloscreen(BLACKSTATESCREEN,SET)
         CALL faceshow(BLACKSIDE,REPOSE)
         CALL clock(BLACKSIDE,INIT,falSE,unitime(),extratime(),notimE)
         LOCATE 11,1: PRINT "Name:"; bothname(WHITESIDE).playname
         LOCATE 12,1: PRINT USING "Stones:" + nn; stonenum(WHITESIDE);
         CALL otHelloscreen(WHITESTATESCREEN,SET)
         CALL faceshow(WHITESIDE,REPOSE)
         CALL clock(WHITESIDE,notimE)
         CALL otHelloscreen(BOARDSCREEN,SET)
         LOCATE 21,1: PRINT "F10=Defeat";
         LOCATE 22,19: PRINT "No:"; NO;
         IF gameorder = 0 THEN
            IF bothname(BLACKSIDE).playtype = HUMAN THEN
               CALL InputName(BLACKSIDE,bothname())
            END IF
            IF bothname(WHITESIDE).playtype = HUMAN THEN
               CALL InputName(WHITESIDE,bothname())
            END IF
         END IF
         CALL boardinit(board())
         FOR x = 1 TO BOARDSIZE
            FOR y = 1 TO BOARDSIZE
               CALL stoneshow(board(x,y),x,y)
            NEXT y
         NEXT x
         CALL stonenumshow(board(),stonenum())
         nowside = BLACKSIDE
         accpetlose = falSE
         x = 4
         y = 4
         CALL Recorder(bothname())
         gameorder = gameorder + 1
         keytrap = EVENTON
         KEY(10) ON
         PLAY "c8d8"
         DO UNTIL nowside = OVER
            CALL faceshow(nowside,THINK)
            IF bothname(nowsidE).playtype = HUMAN THEN
               CALL humanthink(nowside,board(),y)
            ELSEIF bothname(nowsidE).playtype = cOMPUTER THEN
               CALL computerthink(nowside,y)
            END IF
            CALL clock(nowside,REST,notimE)
            CALL faceshow(nowside,REPOSE)
            CALL turnstone(board(),y)
            CALL stonenumshow(board(),stonenum())
            CALL overjudge(nowside,board())
         LOOP
overlabel:
         TIMER OFF
         timetrap = EVENTOFF
         KEY(10) OFF
         keytrap = EVENTOFF
         winside = winsidejudge(nowside,notime,accpetlose,stonenum())
         CALL winshow(winsidE)
         CALL Recorder(bothname())
         CALL Quit(choosE)
      LOOP UNTIL choose = FINISH
      PLAY "mf"
      SCREEN 0
      CLS
   ELSE
      BEEP
      PRINT "time code!"
   END IF
ELSE
   BEEP
   PRINT "Found Virus!"
END IF
END

clocklabel:
   timetrap = EVENTSTOP
   CALL clock(nowside,TURN,TRUE,notimE)
   IF notime = falSE THEN
      timetrap = EVENTON
      RETURN
   ELSEIF notime = TRUE THEN
      timetrap = EVENTOFF
      RETURN overlabel
   END IF

keylabel:
   keytrap = EVENTOFF
   KEY(10) OFF
   CALL AdmitDefeat(accpetlosE)
   IF accpetlose = falSE THEN
      keytrap = EVENTON
      RETURN
   ELSEIF accpetlose = TRUE THEN
      keytrap = EVENTOFF
      RETURN overlabel
   END IF

SUB AdmitDefeat (accpetlose AS IntegeR)
   CONST TWINKLETIME = 1 / 6
 
   DIM RefTime AS SINGLE
   DIM TimeBalance AS SINGLE
   DIM cw AS StriNG * 1
   DIM ct AS StriNG * 1
   DIM check AS StriNG

   LOCATE 23,1
   PRINT SPACE$(40);
   cw = "?"
   ct = " "
   RefTime = TIMER
   DO
      LOCATE 23,1: PRINT "Admit defeat(Y/N)" + cw;
      TimeBalance = TIMER - RefTime
      TimeBalance = TimeBalance + DAY
      TimeBalance = TimeBalance - FIX(TimeBalance / DAY) * DAY
      IF TimeBalance >= TWINKLETIME THEN
         SWAP cw,ct
         RefTime = TIMER
      END IF
      check = INKEY$
   LOOP UNTIL check = "Y" OR check = "y" OR check = "N" OR check = "n"
   LOCATE 23,1: PRINT "Admit defeat(Y/N)?" + check;
   IF check = "Y" OR check = "y" THEN
      accpetlose = TRUE
   ELSEIF check = "N" OR check = "n" THEN
      accpetlose = falSE
   END IF
   LOCATE 23,1
   PRINT SPACE$(40);
END SUB

SUB boardinit (board() AS IntegeR)
   DIM x AS IntegeR
   DIM y AS IntegeR
  
   FOR x = 1 TO BOARDSIZE
      FOR y = 1 TO BOARDSIZE
         board(x,y) = BLANK
      NEXT y
   NEXT x
   board(BOARDSIZE / 2,BOARDSIZE / 2 + 1) = BLACKSTONE
   board(BOARDSIZE / 2 + 1,BOARDSIZE / 2 + 1) = WHITESTONE
   board(BOARDSIZE / 2,BOARDSIZE / 2) = WHITESTONE
   board(BOARDSIZE / 2 + 1,BOARDSIZE / 2) = BLACKSTONE
END SUB

FUNCTION checkBit
   DIM filenumber AS IntegeR
   DIM length AS LONG
   DIM newvdc AS StriNG * VERIFYLENGTH
   DIM oldvdc AS StriNG * VERIFYLENGTH

   filenumber = FREEFILE
   OPEN PROGRAmname + ".EXE" FOR BINARY AS filenumber
      length = LOF(filenumber)
      newvdc = Verify$(filenumber,1,length)
   CLOSE filenumber
   filenumber = FREEFILE
   OPEN PROGRAmname + ".VDC" FOR BINARY AS filenumber
      length = LOF(filenumber)
      IF length = VERIFYLENGTH THEN
         GET filenumber,oldvdc
      END IF
   CLOSE filenumber
   IF length = VERIFYLENGTH
      CALL DataUnLock(oldvdc,NO)
      IF oldvdc = newvdc THEN
         checkBit = TRUE
      ELSE
         checkBit = falSE
      END IF
   ELSE
      checkBit = falSE
   END IF
END FUNCTION

FUNCTION checkPlace (nowside AS IntegeR,y AS IntegeR)
   DIM stone AS IntegeR
   DIM xplus AS IntegeR
   DIM yplus AS IntegeR
   DIM xpointer AS IntegeR
   DIM ypointer AS IntegeR

   IF nowside = BLACKSIDE THEN
      stone = BLACKSTONE
   ELSEIF nowside = WHITESIDE THEN
      stone = WHITESTONE
   END IF
   FOR xplus = -1 TO 1
      FOR yplus = -1 TO 1
         xpointer = x + xplus
         ypointer = y + yplus
         DO WHILE (xpointer >= 1 AND xpointer <= BOARDSIZE) AND (ypointer >= 1 AND ypointer <= BOARDSIZE)
            IF board(xpointer,ypointer) = stone THEN
               IF x + xplus <> xpointer OR y + yplus <> ypointer THEN
                  checkPlace = TRUE
                  EXIT FUNCTION
               ELSE
                  EXIT DO
               END IF
            ELSEIF board(xpointer,ypointer) = BLANK THEN
               EXIT DO
            END IF
            xpointer = xpointer + xplus
            ypointer = ypointer + yplus
         LOOP
      NEXT yplus
   NEXT xplus
   checkPlace = falSE
END FUNCTION

SUB clock (nowside AS IntegeR,notime AS IntegeR) STATIC
   CONST SA = CIRCLEANGLE / minutE
   CONST MA = CIRCLEANGLE / HOUR
   CONST HA = CIRCLEANGLE / HALFDAY
  
   SHARED nowscreen AS IntegeR
  
   DIM unitclockface AS IntegeR
   DIM unitclockpointer AS IntegeR
   DIM extraclockface AS IntegeR
   DIM extraclockpointer AS IntegeR
   DIM befscreen AS IntegeR
   DIM a AS SINGLE
   DIM ot AS IntegeR
   DIM nt AS IntegeR
   DIM os AS IntegeR
   DIM om AS IntegeR
   DIM oh AS IntegeR
   DIM unitsecond(BLACKSIDE TO WHITESIDE) AS IntegeR
   DIM unitminute(BLACKSIDE TO WHITESIDE) AS IntegeR
   DIM unithour(BLACKSIDE TO WHITESIDE) AS IntegeR
   DIM extrasecond(BLACKSIDE TO WHITESIDE) AS IntegeR
   DIM extraminute(BLACKSIDE TO WHITESIDE) AS IntegeR
   DIM extrahour(BLACKSIDE TO WHITESIDE) AS IntegeR
  
   IF clockstate = INIT THEN
      unitime(nowside,BEFORETIME) = -1
      unitime(nowside,NOWTIME) = MAXUNITIME
      extratime(nowside,BEFORETIME) = -1
      extratime(nowside,NOWTIME) = MAXEXTRATIME
      notime = falSE
      unitclockface = TRUE: unitclockpointer = TRUE
      extraclockface = TRUE: extraclockpointer = TRUE
   ELSEIF clockstate = REST THEN
      unitime(nowside,BEFORETIME) = unitime(nowside,NOWTIME)
      unitime(nowside,NOWTIME) = MAXUNITIME
      unitclockface = falSE: unitclockpointer = TRUE
      extraclockface = falSE: extraclockpointer = falSE
   ELSEIF clockstate = TURN THEN
      IF unitime(nowside,NOWTIME) > 0 THEN
         unitime(nowside,NOWTIME)
         unitime(nowside,NOWTIME) = unitime(nowside,NOWTIME) - SECOND
         unitclockface = falSE: unitclockpointer = TRUE
         extraclockface = falSE: extraclockpointer = falSE
      ELSEIF unitime(nowside,NOWTIME) = 0 THEN
         extratime(nowside,BEFORETIME) = extratime(nowside,NOWTIME)
         extratime(nowside,NOWTIME) = extratime(nowside,NOWTIME) - SECOND
         unitclockface = falSE: unitclockpointer = falSE
         extraclockface = falSE: extraclockpointer = TRUE
         IF extratime(nowside,NOWTIME) = 0 THEN
            notime = TRUE
         END IF
      END IF
   END IF
   IF recoverscreen = TRUE THEN
      befscreen = nowscreen
   END IF
   IF nowside = BLACKSIDE THEN
      CALL otHelloscreen(BLACKSTATESCREEN,USE)
   ELSEIF nowside = WHITESIDE THEN
      CALL otHelloscreen(WHITESTATESCREEN,USE)
   END IF
   IF unitclockface = TRUE THEN
      CIRCLE (11,11),10,WHITE: PAINT (11,BLACK,WHITE
      CIRCLE (11,.5,WHITE
      FOR a = ZEROOFCLOCKANGLE TO ZEROOFCLOCKANGLE - CIRCLEANGLE STEP -(CIRCLEANGLE / HALFDAY)
         LINE (9 * COS(a) + 11,9 * SIN(a) + 11)-(8.5 * COS(a) + 11,8.5 * SIN(a) + 11),WHITE
      NEXT a
   END IF
   IF unitclockpointer = TRUE THEN
      IF unitime(nowside,NOWTIME) < WARNTIME THEN
         IF unitime(nowside,NOWTIME) < MAXUNITIME THEN
            PLAY "c8"
         END IF
      END IF
      ot = unitime(nowside,BEFORETIME)
      nt = unitime(nowside,NOWTIME)
      IF nt <> ot THEN
         os = ot MOD minutE
         unitsecond(nowsidE) = nt MOD minutE
         a = ZEROOFCLOCKANGLE - SA * os
         LINE (1 * COS(a) + 11,1 * SIN(a) + 11)-(7 * COS(a) + 11,7 * SIN(a) + 11),BLACK
         ot = INT(ot / minutE)
         nt = INT(nt / minutE)
         IF nt <> ot THEN
            om = ot MOD HOUR
            unitminute(nowsidE) = nt MOD HOUR
            a = ZEROOFCLOCKANGLE - MA * om
            LINE (1 * COS(a) + 11,1 * SIN(a) + 11)-(6 * COS(a) + 11,6 * SIN(a) + 11),BLACK
            ot = INT(ot / HOUR)
            nt = INT(nt / HOUR)
            IF nt <> ot THEN
               oh = ot MOD HALFDAY
               unithour(nowsidE) = nt MOD HALFDAY
               a = ZEROOFCLOCKANGLE - HA * oh
               LINE (1 * COS(a) + 11,1 * SIN(a) + 11)-(4.5 * COS(a) + 11,4.5 * SIN(a) + 11),BLACK
            END IF
         END IF
         a = ZEROOFCLOCKANGLE - SA * unitsecond(nowsidE)
         LINE (1 * COS(a) + 11,RED
         a = ZEROOFCLOCKANGLE - MA * unitminute(nowsidE)
         LINE (1 * COS(a) + 11,BLUE
         a = ZEROOFCLOCKANGLE - HA * unithour(nowsidE)
         LINE (1 * COS(a) + 11,WHITE
      END IF
   END IF
   IF extraclockface = TRUE THEN
      CIRCLE (35,15.5),14,WHITE: PAINT (35,WHITE
      CIRCLE (35,WHITE
      FOR a = ZEROOFCLOCKANGLE TO ZEROOFCLOCKANGLE - CIRCLEANGLE STEP -(CIRCLEANGLE / HALFDAY)
         LINE (13.5 * COS(a) + 35,13.5 * SIN(a) + 15.5)-(12 * COS(a) + 35,12 * SIN(a) + 15.5),WHITE
      NEXT a
   END IF
   IF extraclockpointer = TRUE THEN
      ot = extratime(nowside,BEFORETIME)
      nt = extratime(nowside,NOWTIME)
      IF nt <> ot THEN
         os = ot MOD minutE
         extrasecond(nowsidE) = nt MOD minutE
         IF extrasecond(nowsidE) = 0 THEN
            IF extratime(nowside,NOWTIME) < MAXEXTRATIME THEN
               PLAY "e8"
            END IF
         END IF
         a = ZEROOFCLOCKANGLE - SA * os
         LINE (1 * COS(a) + 35,1 * SIN(a) + 15.5)-(11 * COS(a) + 35,11 * SIN(a) + 15.5),BLACK
         ot = INT(ot / minutE)
         nt = INT(nt / minutE)
         IF nt <> ot THEN
            om = ot MOD HOUR
            extraminute(nowsidE) = nt MOD HOUR
            a = ZEROOFCLOCKANGLE - MA * om
            LINE (1 * COS(a) + 35,1 * SIN(a) + 15.5)-(9 * COS(a) + 35,9 * SIN(a) + 15.5),BLACK
            ot = INT(ot / HOUR)
            nt = INT(nt / HOUR)
            IF nt <> ot THEN
               oh = ot MOD HALFDAY
               extrahour(nowsidE) = nt MOD HALFDAY
               a = ZEROOFCLOCKANGLE - HA * oh
               LINE (1 * COS(a) + 35,1 * SIN(a) + 15.5)-(7 * COS(a) + 35,7 * SIN(a) + 15.5),BLACK
            END IF
         END IF
         a = ZEROOFCLOCKANGLE - SA * extrasecond(nowsidE)
         LINE (1 * COS(a) + 35,RED
         a = ZEROOFCLOCKANGLE - MA * extraminute(nowsidE)
         LINE (1 * COS(a) + 35,BLUE
         a = ZEROOFCLOCKANGLE - HA * extrahour(nowsidE)
         LINE (1 * COS(a) + 35,WHITE
      END IF
   END IF
   IF recoverscreen = TRUE THEN
      CALL otHelloscreen(befscreen,USE)
   END IF
END SUB

SUB computerthink (nowside AS IntegeR,y AS IntegeR)
   SHARED timetrap AS IntegeR

   DIM Place AS IntegeR
   DIM xx AS IntegeR
   DIM yy AS IntegeR

   Place = falSE
   timetrap = EVENTON
   TIMER ON
   FOR xx = 1 TO BOARDSIZE
      FOR yy = 1 TO BOARDSIZE
         IF board(xx,yy) = BLANK THEN
            Place = checkPlace(nowside,xx,yy)
            IF Place = TRUE THEN
               TIMER OFF
               timetrap = EVENTOFF
               x = xx
               y = yy
               IF nowside = BLACKSIDE THEN
                  board(x,y) = BLACKSTONE
               ELSEIF nowside = WHITESIDE THEN
                  board(x,y) = WHITESTONE
               END IF
               CALL stoneshow(board(x,y)
               EXIT SUB
            END IF
         END IF
      NEXT yy
   NEXT xx
END SUB

SUB DataLock (dataString AS StriNG,password AS StriNG)
   DIM passworda AS DOUBLE
   DIM passwordb AS DOUBLE
   DIM datalength AS IntegeR
   DIM tm AS DOUBLE
   DIM i AS IntegeR
   DIM byte AS StriNG * 1
   DIM add(1 TO 2) AS IntegeR
   DIM bit(1 TO 2) as strING * 1
 
   CALL passwordToPAB(password,passworda,passwordb)
   datalength = LEN(dataString)
   tm = PIRandomNum#(passwordSwitch#((passworda)))
   FOR i = 1 TO datalength
      byte = CHR$(ASC(MID$(dataString,i,1)) XOR FIX(256 * PIRandomNum#(-1)))
      MID$(dataString,1) = byte
   NEXT i
   tm = ERandomNum#(passwordSwitch#((passwordb)))
   FOR i = 1 TO datalength
      add(1) = FIX(datalength * ERandomNum#(-1) + 1)
      add(2) = FIX(datalength * ERandomNum#(-1) + 1)
      bit(1) = MID$(dataString,add(1),1)
      bit(2) = MID$(dataString,add(2),1)
      MID$(dataString,1) = bit(2)
      MID$(dataString,1) = bit(1)
   NEXT i
   tm = ERandomNum#(passwordSwitch#((passworda)))
   FOR i = 1 TO datalength
      byte = CHR$(ASC(MID$(dataString,1)) XOR FIX(256 * ERandomNum#(-1)))
      MID$(dataString,1) = byte
   NEXT i
   tm = PIRandomNum#(passwordSwitch#((passwordb)))
   FOR i = 1 TO datalength
      add(1) = FIX(datalength * PIRandomNum#(-1) + 1)
      add(2) = FIX(datalength * PIRandomNum#(-1) + 1)
      bit(1) = MID$(dataString,1) = bit(1)
   NEXT i
   tm = ERandomNum#((passworda))
   tm = PIRandomNum#((passworda))
   FOR i = 1 TO datalength
      add(1) = FIX(datalength * ERandomNum#(-1) + 1)
      add(2) = FIX(datalength * ERandomNum#(-1) + 1)
      bit(1) = MID$(dataString,1)
      bit(1) = CHR$(ASC(bit(1)) XOR FIX(256 * PIRandomNum#(-1)))
      bit(2) = CHR$(ASC(bit(2)) XOR FIX(256 * PIRandomNum#(-1)))
      MID$(dataString,1) = bit(1)
   NEXT i
   tm = PIRandomNum#((passwordb))
   tm = ERandomNum#((passwordb))
   FOR i = 1 TO datalength
      add(1) = FIX(datalength * PIRandomNum#(-1) + 1)
      add(2) = FIX(datalength * PIRandomNum#(-1) + 1)
      bit(1) = MID$(dataString,1)
      bit(1) = CHR$(ASC(bit(1)) XOR FIX(256 * ERandomNum#(-1)))
      bit(2) = CHR$(ASC(bit(2)) XOR FIX(256 * ERandomNum#(-1)))
      MID$(dataString,1) = bit(1)
   NEXT i
END SUB

SUB DataUnLock (dataString AS StriNG,password AS StriNG)
   DIM passworda AS DOUBLE
   DIM passwordb AS DOUBLE
   DIM datalength AS IntegeR
   DIM tm AS DOUBLE
   DIM i AS IntegeR
   DIM bit(1 TO 2) as strING * 1
   DIM byte AS StriNG * 1
  
   datalength = LEN(dataString)

   DIM add(1 TO datalength,1 TO 2) AS IntegeR
   DIM rn(1 TO datalength,1 TO 2) as strING * 1
  
   CALL passwordToPAB(password,passwordb)
   tm = PIRandomNum#((passwordb))
   tm = ERandomNum#((passwordb))
   FOR i = 1 TO datalength
      add(1,i) = FIX(datalength * PIRandomNum#(-1) + 1)
      add(2,i) = FIX(datalength * PIRandomNum#(-1) + 1)
      rn(i,1) = CHR$(FIX(256 * ERandomNum#(-1)))
      rn(i,2) = CHR$(FIX(256 * ERandomNum#(-1)))
   NEXT i
   FOR i = datalength TO 1 STEP -1
      bit(1) = MID$(dataString,add(i,2),1),1)
      bit(1) = CHR$(ASC(bit(1)) XOR ASC(rn(i,1)))
      bit(2) = CHR$(ASC(bit(2)) XOR ASC(rn(i,2)))
      MID$(dataString,1) = bit(1)
      MID$(dataString,1) = bit(2)
   NEXT i
   tm = ERandomNum#((passworda))
   tm = PIRandomNum#((passworda))
   FOR i = 1 TO datalength
      add(i,1) = FIX(datalength * ERandomNum#(-1) + 1)
      add(i,2) = FIX(datalength * ERandomNum#(-1) + 1)
      rn(i,1) = CHR$(FIX(256 * PIRandomNum#(-1)))
      rn(i,2) = CHR$(FIX(256 * PIRandomNum#(-1)))
   NEXT i
   FOR i = datalength TO 1 STEP -1
      bit(1) = MID$(dataString,1) = bit(2)
   NEXT i
   tm = PIRandomNum#(passwordSwitch#((passwordb)))
   FOR i = 1 TO datalength
      add(i,1) = FIX(datalength * PIRandomNum#(-1) + 1)
      add(i,2) = FIX(datalength * PIRandomNum#(-1) + 1)
   NEXT i
   FOR i = datalength TO 1 STEP -1
      bit(1) = MID$(dataString,1) = bit(2)
   NEXT i
   tm = ERandomNum#(passwordSwitch#((passworda)))
   FOR i = 1 TO datalength
      byte = CHR$(ASC(MID$(dataString,1) = byte
   NEXT i
   tm = ERandomNum#(passwordSwitch#((passwordb)))
   FOR i = 1 TO datalength
      add(i,2) = FIX(datalength * ERandomNum#(-1) + 1)
   NEXT i
   FOR i = datalength TO 1 STEP -1
      bit(1) = MID$(dataString,1) = bit(2)
   NEXT i
   tm = PIRandomNum#(passwordSwitch#((passworda)))
   FOR i = 1 TO datalength
      byte = CHR$(ASC(MID$(dataString,1) = byte
   NEXT i
END SUB

FUNCTION ERandomNum# (n AS DOUBLE)
   STATIC x AS DOUBLE

   SELECT CASE n
      CASE IS >= 0
         x = LOG(n + PI)
      CASE IS < 0
         x = LOG(x * C + PI)
   END SELECT
   x = x / 10 ^ INT(LOG(X) / LOG(10#) - 4)
   x = x - FIX(X)
   ERandomNum# = x
END FUNCTION

SUB faceshow (nowside AS IntegeR,faCEType AS IntegeR)
   DIM forecolor AS IntegeR
   DIM BACkcolor AS IntegeR

   IF nowside = BLACKSIDE THEN
      CALL otHelloscreen(BLACKSTATESCREEN,USE)
   END IF
   IF nowside = BLACKSIDE THEN
      forecolor = WHITE
      BACkcolor = BLACK
   ELSEIF nowside = WHITESIDE THEN
      forecolor = BLACK
      BACkcolor = WHITE
   END IF
   CIRCLE (6,25),3.9,RED
   PAINT (6,BLUE,BACkcolor,RED
   IF faCEType = THINK THEN
      CIRCLE (4.8,26),.6,forecolor
      CIRCLE (7.2,forecolor
      LINE (5,23)-(7,23),forecolor
   ELSEIF faCEType = LOSE THEN
      CIRCLE (4.8,forecolor
      CIRCLE (6,21),2.4,forecolor,60 * DEGREE,120 * DEGREE
   ELSEIF faCEType = QUIET THEN
      CIRCLE (4.8,.4
   ELSEIF faCEType = WIN THEN
      CIRCLE (4.8,2,240 * DEGREE,300 * DEGREE
   END IF
END SUB

FUNCTION HexToDec# (hex AS StriNG)
   DIM dec AS DOUBLE
   DIM length AS IntegeR
   DIM i AS IntegeR
   DIM byte AS StriNG * 1

   dec = 0
   length = LEN(heX)
   FOR i = 1 TO length
      byte = MID$(hex,1)
      SELECT CASE byte
         CASE "0" TO "9"
            dec = dec + (ASC(bytE) - 48) * 16# ^ (length - i)
         CASE "A" TO "F"
            dec = dec + (ASC(bytE) - 55) * 16# ^ (length - i)
      END SELECT
   NEXT i
   HexToDec# = dec
END FUNCTION

SUB humanthink (nowside AS IntegeR,y AS IntegeR)
   CONST TWINKLETIME = 1 / 3

   SHARED timetrap AS IntegeR

   DIM Left AS StriNG * 2
   DIM Right AS StriNG * 2
   DIM Up AS StriNG * 2
   DIM Down AS StriNG * 2
   DIM Enter AS StriNG * 1
   DIM State AS IntegeR
   DIM RefTime AS SINGLE
   DIM TimeBalance AS SINGLE
   DIM check AS StriNG
   DIM Place AS IntegeR

   Left = CHR$(0) + CHR$(75)
   Right = CHR$(0) + CHR$(77)
   Up = CHR$(0) + CHR$(72)
   Down = CHR$(0) + CHR$(80)
   Enter = CHR$(13)
   Place = falSE
   timetrap = EVENTON
   TIMER ON
   DO
      State = SHOW
      CALL lightmark(nowside,board(x,y,StatE)
      RefTime = TIMER
      DO
         TimeBalance = TIMER - RefTime
         TimeBalance = TimeBalance + DAY
         TimeBalance = TimeBalance - FIX(TimeBalance / DAY) * DAY
         IF TimeBalance >= TWINKLETIME THEN
            IF State = SHOW THEN
               State = DISAPPEAR
            ELSEIF State = DISAPPEAR THEN
               State = SHOW
            END IF
            CALL lightmark(nowside,StatE)
            RefTime = TIMER
         END IF
         check = INKEY$
      LOOP WHILE check = ""
      State = DISAPPEAR
      CALL lightmark(nowside,StatE)
      LOCATE 23,1
      PRINT SPACE$(40);
      SELECT CASE check
         CASE Left
            x = x - 1
            IF x < 1 THEN
               x = BOARDSIZE
            END IF
         CASE Right
            x = x + 1
            IF x > BOARDSIZE THEN
               x = 1
            END IF
         CASE Up
            y = y + 1
            IF y > BOARDSIZE THEN
               y = 1
            END IF
         CASE Down
            y = y - 1
            IF y < 1 THEN
               y = BOARDSIZE
            END IF
         CASE Enter
            IF board(x,y) = BLANK THEN
               Place = checkPlace(nowside,y)
               IF Place = TRUE THEN
                  TIMER OFF
                  timetrap = EVENTOFF
                  IF nowside = BLACKSIDE THEN
                     board(x,y) = BLACKSTONE
                  ELSEIF nowside = WHITESIDE THEN
                     board(x,y) = WHITESTONE
                  END IF
                  CALL stoneshow(board(x,y)
               ELSEIF Place = falSE THEN
                  LOCATE 23,1
                  PRINT "No strones capture.";
                  BEEP
               END IF
            ELSE
               LOCATE 23,1
               PRINT "Occupied square.";
               BEEP
            END IF
         CASE ELSE
            BEEP
      END SELECT
   LOOP WHILE Place = falSE
END SUB

SUB InputName (humanside AS IntegeR,bothname() AS playdata)
   CONST BLACKW = 1
   CONST BLACKH = 6
   CONST WHITEW = 11
   CONST WHITEH = 6
   CONST TWINKLETIME = 1 / 6
   
   DIM w AS IntegeR
   DIM h AS IntegeR
   DIM i AS IntegeR
   DIM RefTime AS SINGLE
   DIM TimeBalance AS SINGLE
   DIM cw AS StriNG * 1
   DIM ct AS StriNG * 1
   DIM check AS StriNG
   DIM humAnname AS StriNG
  
   IF humanside = BLACKSIDE THEN
      w = BLACKW
      h = BLACKH
   ELSEIF humanside = WHITESIDE THEN
      w = WHITEW
      h = WHITEH
   END IF
   humAnname = ""
   i = 0
   cw = "?"
   ct = " "
   RefTime = TIMER
   DO
      LOCATE w,h: PRINT humAnname + cw + SPACE$(10 - i - 1)
      TimeBalance = TIMER - RefTime
      TimeBalance = TimeBalance + DAY
      TimeBalance = TimeBalance - FIX(TimeBalance / DAY) * DAY
      IF TimeBalance >= TWINKLETIME THEN
         SWAP cw,ct
         RefTime = TIMER
      END IF
      check = INKEY$
      IF check >= "A" AND check <= "Z" OR check >= "a" AND check <= "z" OR check = " " OR check = "-" THEN
         humAnname = humAnname + check
         i = i + 1
      END IF
      IF check = CHR$(8) AND i > 0 THEN
         i = i - 1
         humAnname = LEFT$(humAnname,i)
      END IF
   LOOP UNTIL i >= 10 OR check = CHR$(13)
   bothname(humansidE).playname = humAnname
   LOCATE w,h: PRINT bothname(humansidE).playname
END SUB

SUB Install
  
END SUB

SUB lightmark (nowside AS IntegeR,cursor AS IntegeR)
   CALL trapcontrol(TRAPOFF)
   CALL otHelloscreen(BOARDSCREEN,USE)
   IF cursor = SHOW THEN
      IF BACkground = BLANK THEN
         IF nowside = BLACKSIDE THEN
            CIRCLE (x - .5,y - .5),.2,BLACK
            PAINT (x - .5,BLACK
         ELSEIF nowside = WHITESIDE THEN
            CIRCLE (x - .5,WHITE
            PAINT (x - .5,WHITE,WHITE
         END IF
      ELSE
         CIRCLE (x - .5,RED
         PAINT (x - .5,RED,RED
      END IF
   ELSEIF cursor = DISAPPEAR THEN
      IF BACkground = BLANK THEN
         PAINT (x - .5,BLUE
      ELSEIF BACkground = BLACKSTONE THEN
         PAINT (x - .5,BLACK
      ELSEIF BACkground = WHITESTONE THEN
         PAINT (x - .5,WHITE
      END IF
   END IF
   CALL trapcontrol(TRAPON)
END SUB

SUB otHelloscreen (screentype AS IntegeR,screenstate AS IntegeR)
   SHARED nowscreen AS IntegeR

   DIM i AS IntegeR

   IF screentype = BLACKSTATESCREEN THEN
      IF screenstate = SET THEN
         nowscreen = BLACKSTATESCREEN
         VIEW (1,18)-(120,77),WHITE
         WINDOW (1,1)-(50,30)
      ELSEIF screenstate = USE AND nowscreen <> BLACKSTATESCREEN THEN
         nowscreen = BLACKSTATESCREEN
         VIEW (1,77)
         WINDOW (1,30)
      END IF
   ELSEIF screentype = WHITESTATESCREEN THEN
      IF screenstate = SET THEN
         nowscreen = WHITESTATESCREEN
         VIEW (1,98)-(120,157),30)
      ELSEIF screenstate = USE AND nowscreen <> WHITESTATESCREEN THEN
         nowscreen = WHITESTATESCREEN
         VIEW (1,157)
         WINDOW (1,30)
      END IF
   ELSEIF screentype = BOARDSCREEN THEN
      IF screenstate = SET THEN
         nowscreen = BOARDSCREEN
         VIEW (126,1)-(318,161),WHITE
         WINDOW (0,0)-(BOARDSIZE,BOARDSIZE)
         FOR i = 0 TO BOARDSIZE
            LINE (i,0)-(i,BOARDSIZE),BLACK
         NEXT i
         FOR i = 0 TO BOARDSIZE
            LINE (0,i)-(BOARDSIZE,i),BLACK
         NEXT i
      ELSEIF screenstate = USE AND nowscreen <> BOARDSCREEN THEN
         nowscreen = BOARDSCREEN
         VIEW (126,161)
         WINDOW (0,BOARDSIZE)
      END IF
   ELSEIF screentype = BUTTONSCREEN THEN
   END IF
END SUB

SUB overjudge (nowside AS IntegeR,board() AS IntegeR)
   DIM refnowside AS IntegeR
   DIM x AS IntegeR
   DIM y AS IntegeR
  
   refnowside = nowside
   DO
      IF nowside = BLACKSIDE THEN
         nowside = WHITESIDE
      ELSEIF nowside = WHITESIDE THEN
         nowside = BLACKSIDE
      END IF
      FOR x = 1 TO BOARDSIZE
         FOR y = 1 TO BOARDSIZE
            IF board(x,y) = BLANK THEN
               IF checkPlace(nowside,y) = TRUE THEN
                  EXIT SUB
               END IF
            END IF
         NEXT y
      NEXT x
   LOOP UNTIL nowside = refnowside
   nowside = OVER
END SUB

FUNCTION passwordSwitch# (password AS DOUBLE)
   DIM i AS IntegeR
   DIM tm AS DOUBLE
   DIM rn AS DOUBLE

   tm = password - FIX(password / 65536) * 65536
   rn = PIRandomNum#((tm))
   rn = ERandomNum#((tm))
   FOR i = 1 TO 16
      IF PIRandomNum#(-1) * 999999 < 500000 THEN
         password = password + FIX(C * PIRandomNum#(-1))
      END IF
      IF ERandomNum#(-1) * 999999 >= 500000 THEN
         password = password + FIX(C * ERandomNum#(-1))
      END IF
   NEXT i
   passwordSwitch# = password - FIX(password / C) * C
END FUNCTION

SUB passwordToPAB (password AS StriNG,passwordb AS DOUBLE)
   passworda = HexToDec(MID$(password,4) + MID$(password,5,4))
   passwordb = HexToDec(MID$(password,9,13,4))
END SUB

FUNCTION PIRandomNum# (n AS DOUBLE)
   STATIC x AS DOUBLE

   SELECT CASE n
      CASE IS >= 0
         x = (n + E) ^ PI
      CASE IS < 0
         x = (x * C + E) ^ PI
   END SELECT
   x = x / 10 ^ INT(LOG(X) / LOG(10#) - 4)
   x = x - FIX(X)
   PIRandomNum# = x
END FUNCTION

SUB Quit (choose AS IntegeR)
   CONST TWINKLETIME = 1 / 6
  
   DIM RefTime AS SINGLE
   DIM TimeBalance AS SINGLE
   DIM cw AS StriNG * 1
   DIM ct AS StriNG * 1
   DIM check AS StriNG

   cw = "?"
   ct = " "
   RefTime = TIMER
   DO
      LOCATE 23,1: PRINT "Quit(Y/N)" + cw;
      TimeBalance = TIMER - RefTime
      TimeBalance = TimeBalance + DAY
      TimeBalance = TimeBalance - FIX(TimeBalance / DAY) * DAY
      IF TimeBalance >= TWINKLETIME THEN
         SWAP cw,1: PRINT "Quit(Y/N)?" + check;
   IF check = "Y" OR check = "y" THEN
      choose = FINISH
   ELSEIF check = "N" OR check = "n" THEN
      choose = RENEW
   END IF
   LOCATE 23,1
   PRINT SPACE$(40);
END SUB

FUNCTION RandomNum#
   DIM rn AS DOUBLE
   DIM rb AS IntegeR
   DIM i AS IntegeR
   DIM j AS LONG

   rn = 0
   RANDOMIZE TIMER
   FOR i = 3 TO 0 STEP -1
      rb = INP(&H40)
      rn = rn + rb * 256# ^ i
      FOR j = 1 TO FIX(65536 * RND + 256)
      NEXT j
   NEXT i
   RandomNum# = rn
END FUNCTION

SUB RandomSide (gameorder AS IntegeR,bothname() AS playdata)
   DIM cl AS StriNG

   IF gameorder = 0 THEN
      cl = UCASE$(COMMAND$)
      IF cl = "/C-C" THEN
         bothname(BLACKSIDE).playname = COMPUTERNAME
         bothname(BLACKSIDE).playtype = cOMPUTER
         bothname(WHITESIDE).playname = COMPUTERNAME
         bothname(WHITESIDE).playtype = cOMPUTER
      ELSEIF cl = "/H-H" THEN
         bothname(BLACKSIDE).playname = ""
         bothname(BLACKSIDE).playtype = HUMAN
         bothname(WHITESIDE).playname = ""
         bothname(WHITESIDE).playtype = HUMAN
      ELSE
         RANDOMIZE TIMER
         IF RND < .5 THEN
            bothname(BLACKSIDE).playname = ""
            bothname(BLACKSIDE).playtype = HUMAN
            bothname(WHITESIDE).playname = COMPUTERNAME
            bothname(WHITESIDE).playtype = cOMPUTER
         ELSE
            bothname(BLACKSIDE).playname = COMPUTERNAME
            bothname(BLACKSIDE).playtype = cOMPUTER
            bothname(WHITESIDE).playname = ""
            bothname(WHITESIDE).playtype = HUMAN
         END IF
      END IF
   ELSE
      SWAP bothname(BLACKSIDE).playname,bothname(WHITESIDE).playname
      SWAP bothname(BLACKSIDE).playtype,bothname(WHITESIDE).playtype
   END IF
END SUB

SUB Recorder (bothname() AS playdata)
   DIM filename AS StriNG

   
   filename = LEFT$(bothname(BLACKSIDE).playname,1) + "&" + LEFT$(bothname(WHITESIDE).playname,1) + "_" + "xxxx" + ".HBQ"
END SUB

SUB stonenumshow (board() AS IntegeR,stonenum() AS IntegeR)
   SHARED nn AS StriNG
  
   DIM x AS IntegeR
   DIM y AS IntegeR
  
   stonenum(BLACKSIDE) = 0
   stonenum(WHITESIDE) = 0
   FOR x = 1 TO BOARDSIZE
      FOR y = 1 TO BOARDSIZE
         IF board(x,y) = BLACKSTONE THEN
            stonenum(BLACKSIDE) = stonenum(BLACKSIDE) + 1
         ELSEIF board(x,y) = WHITESTONE THEN
            stonenum(WHITESIDE) = stonenum(WHITESIDE) + 1
         END IF
      NEXT y
   NEXT x
   LOCATE 2,8: PRINT USING nn; stonenum(BLACKSIDE);
   LOCATE 12,8: PRINT USING nn; stonenum(WHITESIDE);
END SUB

SUB stoneshow (stone AS IntegeR,y AS IntegeR)
  
   CALL otHelloscreen(BOARDSCREEN,USE)
   IF stone = BLACKSTONE THEN
      CIRCLE (x - .5,.4,BLACK
      PAINT (x - .5,BLACK
   ELSEIF stone = WHITESTONE THEN
      CIRCLE (x - .5,WHITE
      PAINT (x - .5,WHITE
   END IF

END SUB

FUNCTION TESTCode
   DIM filenumber AS IntegeR
   DIM length AS LONG
   DIM pdc AS StriNG * PDCLENGTH
   DIM dataString AS StriNG
   DIM regcod AS StriNG
  
   filenumber = FREEFILE
   OPEN PROGRAmname + ".PDC" FOR BINARY AS filenumber
      length = LOF(filenumber)
      IF length = PDCLENGTH THEN
         GET filenumber,pdc
      END IF
   CLOSE filenumber
   IF length = PDCLENGTH THEN
      dataString = pdc
      CALL DataUnLock(dataString,NO)
      regcod = MID$(dataString,REGCODELEN)
      dataString = MID$(dataString,REGCODELEN + 1)
      CALL DataUnLock(dataString,NO)
      CALL DataUnLock(dataString,regcod)

   ELSE
      TESTCode = falSE
   END IF
END FUNCTION

SUB trapcontrol (control AS IntegeR) STATIC
   SHARED timetrap AS IntegeR
   SHARED keytrap AS IntegeR

   DIM n AS IntegeR
   DIM timetrapstack(1 TO 64) AS IntegeR
   DIM keytrapstack(1 TO 64) AS IntegeR
  
   IF control = TRAPINIT THEN
      FOR n = 1 TO 64
         timetrapstack(n) = EVENTOFF
         keytrapstack(n) = EVENTOFF
      NEXT n
      n = 0
   ELSEIF control = TRAPOFF THEN
      n = n + 1
      timetrapstack(n) = timetrap
      IF timetrap = EVENTON THEN
         TIMER STOP
         timetrap = EVENTSTOP
      END IF
      keytrapstack(n) = keytrap
      IF keytrap = EVENTON THEN
         KEY(10) STOP
         keytrap = EVENTSTOP
      END IF
   ELSEIF control = TRAPON THEN
      SELECT CASE timetrapstack(n)
         CASE EVENTOFF
            TIMER OFF
            timetrap = EVENTOFF
         CASE EVENTSTOP
            TIMER STOP
            timetrap = EVENTSTOP
         CASE EVENTON
            timetrap = EVENTON
            TIMER ON
      END SELECT
      SELECT CASE keytrapstack(n)
         CASE EVENTOFF
            KEY(10) OFF
            keytrap = EVENTOFF
         CASE EVENTSTOP
            KEY(10) STOP
            keytrap = EVENTSTOP
         CASE EVENTON
            keytrap = EVENTON
            KEY(10) ON
      END SELECT
      n = n - 1
   END IF
END SUB

SUB turnstone (board() AS IntegeR,y AS IntegeR)
   DIM stone AS IntegeR
   DIM xplus AS IntegeR
   DIM yplus AS IntegeR
   DIM xpointer AS IntegeR
   DIM ypointer AS IntegeR
   DIM i AS IntegeR
   DIM j AS IntegeR

   stone = board(x,y)
   FOR xplus = -1 TO 1
      FOR yplus = -1 TO 1
         xpointer = x + xplus
         ypointer = y + yplus
         DO WHILE (xpointer >= 1 AND xpointer <= BOARDSIZE) AND (ypointer >= 1 AND ypointer <= BOARDSIZE)
            IF board(xpointer,ypointer) = stone THEN
               i = x + xplus
               j = y + yplus
               DO UNTIL i = xpointer AND j = ypointer
                  board(i,j) = stone
                  CALL stoneshow(board(i,j),j)
                  i = i + xplus
                  j = j + yplus
               LOOP
               EXIT DO
            ELSEIF board(xpointer,ypointer) = BLANK THEN
               EXIT DO
            END IF
            xpointer = xpointer + xplus
            ypointer = ypointer + yplus
         LOOP
      NEXT yplus
   NEXT xplus
END SUB

FUNCTION Verify$ (filenumber AS IntegeR,endadd AS LONG)
   CONST TEMPStriNGLEN = 8192

   DIM i AS IntegeR
   DIM p AS LONG
   DIM s AS LONG
   DIM l AS IntegeR
   DIM tempString AS StriNG
   DIM q AS IntegeR
   DIM t AS LONG
   DIM u AS DOUBLE
   DIM tc AS StriNG * 2
   DIM verifyhex(0 TO 15) AS LONG
   DIM verifynum(0 TO 15) AS LONG
   DIM verifyString AS StriNG

   tc = CHR$(0) + CHR$(0)
   FOR i = 0 TO 15
      verifyhex(i) = 0
      verifynum(i) = 0
   NEXT i
   p = startadd
   i = 0
   DO WHILE p <= endadd
      s = endadd - p + 1
      IF s < TEMPStriNGLEN THEN
         l = s
      ELSE
         l = TEMPStriNGLEN
      END IF
      tempString = StriNG$(l,0)
      GET filenumber,p,tempString
      IF l MOD 2 = 1 THEN
         l = l + 1
         tempString = tempString + CHR$(0)
      END IF
      FOR q = 1 TO l STEP 2
         t = CVL(MID$(tempString,q,2) + tC)
         verifyhex(15 - i) = verifyhex(15 - i) XOR t
         u = CDBL(t + 1) * FIX(65536 * RND + 1) + verifynum(i)
         verifynum(i) = u - FIX(u / 65536#) * 65536#
         i = (i + 1) MOD 16
      NEXT q
      p = p + l
   LOOP
   FOR i = 0 TO 15
      verifynum(i) = verifynum(i) XOR verifyhex(i)
   NEXT i
   verifyString = ""
   FOR i = 0 TO 15
      verifyString = verifyString + LEFT$(MKL$(verifynum(i)),2)
   NEXT i
   Verify$ = verifyString
END FUNCTION

SUB winshow (winside AS IntegeR)
   IF winside = BLACKWIN THEN
      CALL faceshow(BLACKSIDE,WIN)
      CALL faceshow(WHITESIDE,LOSE)
   ELSEIF winside = WHITEWIN THEN
      CALL faceshow(BLACKSIDE,LOSE)
      CALL faceshow(WHITESIDE,WIN)
   ELSEIF winside = EQUAL THEN
      CALL faceshow(BLACKSIDE,QUIET)
      CALL faceshow(WHITESIDE,QUIET)
   END IF
END SUB

FUNCTION winsidejudge (nowside AS IntegeR,stonenum() AS IntegeR)
   IF nowside = OVER THEN
      IF stonenum(BLACKSIDE) > stonenum(WHITESIDE) THEN
         winsidejudge = BLACKWIN
      ELSEIF stonenum(BLACKSIDE) = stonenum(WHITESIDE) THEN
         winsidejudge = EQUAL
      ELSEIF stonenum(BLACKSIDE) < stonenum(WHITESIDE) THEN
         winsidejudge = WHITEWIN
      END IF
   ELSEIF nowside <> OVER THEN
      IF notime = TRUE OR accpetlose = TRUE THEN
         IF nowside = BLACKSIDE THEN
            winsidejudge = BLACKWIN
         ELSEIF nowside = WHITESIDE THEN
            winsidejudge = WHITEWIN
         END IF
      END IF
   END IF
END FUNCTION

大佬总结

以上是大佬教程为你收集整理的QB黑白棋全部内容，希望文章能够帮你解决QB黑白棋所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。