Sign in to follow this  
Followers 0
LostUser

Maxit with AutoIt

1 post in this topic

I ported the old Maxit program from PET a long time ago to my Amiga...I can't remember the exact name of the software I made it in. Amos I think. Anyway, I decided to get some practice by making it in AutoIt.

This maxit was ported for windows and I will add the name when I can find it again if it isn't here already. I have the windows basic code here just as reference as I go. Here is the code I have so far.

Also, if anyone knows how to make a dos looking window so I can make it look like the classic version along with the gui, I'd appreciate it. I also tried attaching the file...my second attempt at this so not sure if I will be successful.

If you have some code helping ideas I'd appreciate it, other than that, it is not far enough along that I want to ask for ideas yet.

Thanks for looking.

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.2.0.1
; Author:        LostUser
; Last Updated:   12/06/2006
; 
; Maxit ported from PET
;
#include <guiconstants.au3>
;

; DEFINT A-Z
;1110 RANDOMIZE VAL(RIGHT$(TIME$,2))
Dim $NT [9] =  [49,51,53,54,56,58,60,61]
Dim $AV [65]
Dim $PC [65] = [15,10,9,9,8,8,7,7,7,6,6,6,5,5,5,5,4,4,4,4,3,3,3,3,3,2,2,2,2,2,2,1,1,1,1,1,0,0,0,0,0,0,-1,-1,-1,-1,-1,-2,-2,-2,-2,-3,-3,-3,-4,-4,-4,-5,-5,-6,-6,-7,-9,100]
Dim $BD [8][8], $BDID[8][8]
Global $Paused, $Timer
$Instructions = ""
$GameWinHeight="480"
$GameWinWidth="480"
$BoardLeft="64"
$BoardTop="64"
$PcScrW=@DesktopWidth
$PcScrH=@DesktopHeight
$ChildOpen=""
HotKeySet("{F2}","NewGame")
HotKeySet("{F3}","PauseGame")
HotKeySet("{F1}","ShowInstructions")
;HotKeySet("!g","")
;HotKeySet("!o","")
;HotKeySet("!h","")

;Create Game window
$MainWindow=GUICreate("MaxIt - from PET to AutoIt",$GameWinWidth,$GameWinHeight,-1,-1)
$GameMenu=GUICtrlCreateMenu("&Game")
$OptionsMenu=GUICtrlCreateMenu("&Options")
$HelpMenu=GUICtrlCreateMenu("&Help")
$GameStartItem=GUICtrlCreateMenuitem("&Start Game" & @TAB & "F2",$GameMenu)
$GamePauseItem=GUICtrlCreateMenuitem("&Pause Game" & @TAB & "F3",$GameMenu)
$GameExitItem=GUICtrlCreateMenuitem("E&xit",$GameMenu)
$OptionsSettingsItem=GUICtrlCreateMenuitem("&Settings",$OptionsMenu)
$HelpAboutItem=GUICtrlCreateMenuitem("&About Maxit",$HelpMenu)
$HelpInstructions=GUICtrlCreateMenuitem("&Instructions",$HelpMenu)
GUISetState (@SW_SHOW,$MainWindow)

;Create Instructions Window
$InstructionsWindow = GUICreate("Maxit - Instructions",260,280,-1,-1,"","",$MainWindow)
;   $Instructions = "THE OBJECT OF MAXIT IS TO GET AS MANY" & @CRLF & "POINTS AS POSSIBLE. TWO PLAYERS CAN" & @CRLF
;   $Instructions = $Instructions & "PLAY AGAINST EACH OTHER, OR ONE AGAINST" & @CRLF & "THE COMPUTER." & @CRLF & @CRLF
;   $Instructions = $Instructions & "YOU GET POINTS BY MOVING A MARKER" & @CRLF & "TO A SPACE WITH A NUMBER IN IT. THE" & @CRLF
;   $Instructions = $Instructions & "FIRST PLAYER ALWAYS MOVES HORIZONTALLY" & @CRLF & "AND THE SECOND MOVES VERTICALLY.  YOU" & @CRLF
;   $Instructions = $Instructions & "INDICATE THE PLACE YOU WANT TO MOVE TO" & @CRLF & "BY USING THE SPACE BAR TO POSITION" & @CRLF
;   $Instructions = $Instructions & "YOURSELF, AND THEN PUSH RETURN TO TAKE" & @CRLF & "THAT PIECE."
;   $Instructions = "THE OBJECT OF MAXIT IS TO GET AS MANY" & @CRLF & "POINTS AS POSSIBLE. TWO PLAYERS CAN" & @CRLF
$Instructions = "Thte object of Maxit is to get as many" & @CRLF & "points as possible.  Two players can" & @CRLF
$Instructions = $Instructions & "play against each other, or one against" & @CRLF & "the computer." & @CRLF & @CRLF
$Instructions = $Instructions & "You get points by moving a marker" & @CRLF & "to a space with a number in it.  The" & @CRLF
$Instructions = $Instructions & "first player always moves horizontally" & @CRLF & "and the second moves vertically.  You" & @CRLF
$Instructions = $Instructions & "indicate the place you want to move to" & @CRLF & "by using the space bar to position" & @CRLF
$Instructions = $Instructions & "yourself, and the push return to take" & @CRLF & "that piece."
GUICtrlCreateLabel($Instructions,26,20,260,180,$ES_READONLY)
$InstrClose=GUICtrlCreateButton("Close",100,220,65,24)
GUISetState(@SW_HIDE,$InstructionsWindow)
GUISetState(@SW_SHOW,$MainWindow)
 
;GUISetState(@SW_DISABLE)

;2220 PRINT "THE OBJECT OF MAXIT IS TO GET AS MANY"
;2230 PRINT "POINTS AS POSSIBLE. TWO PLAYERS CAN"
;2240 PRINT "PLAY AGAINST EACH OTHER, OR ONE AGAINST"
;2250 PRINT "THE COMPUTER.":PRINT :PRINT
;2260 PRINT "YOU GET POINTS BY MOVING A MARKER "
;2270 PRINT "           **"
;2280 PRINT "TO A SPACE WITH A NUMBER IN IT. THE"
;2290 PRINT "FIRST PLAYER ALWAYS MOVES HORIZONTALLY"
;2300 PRINT "AND THE SECOND MOVES VERTICALLY.  YOU"
;2310 PRINT "INDICATE THE PLACE YOU WANT TO MOVE TO"
;2320 PRINT "BY USING THE SPACE BAR TO POSITION"
;2330 PRINT "YOURSELF, AND THEN PUSH RETURN TO TAKE"
;2340 PRINT "THAT PIECE.":RETURN 

;Create pause window
$PauseWindow=GUICreate("Maxit - Game Paused",152,102,-1,-1,"","",$MainWindow)
;$PauseClose=GUICtrlCreateButton("Close",43,26,65,24)
GUICtrlCreateLabel("Press F3 to resume game",9,26,120,17)
GUISetState(@SW_HIDE,$PauseWindow)
GUISetState(@SW_SHOW,$MainWindow)


While 1
    $msg = GUIGetMsg($MainWindow)
    if $msg = $GameStartItem Then
        GUISetState(@SW_ENABLE,$MainWindow)
        InitGameBoard()
        DrawGameBoard()
    EndIf
    
    if $msg = $OptionsSettingsItem Then
        
    EndIf
    
    If $msg = $HelpAboutItem Then
        
    EndIf

    If $msg = $HelpInstructions Then
        ShowInstructions()
    EndIf
;   If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
    If $msg = $GUI_EVENT_CLOSE or $msg = $GameExitItem Then Exit
    
    

WEnd

Func NewGame ()
    If BitAND(WinGetState($MainWindow),8)  Then
        InitGameBoard()
        DrawGameBoard()
    EndIf
EndFunc

;Initialize game board for a new game
Func InitGameBoard()
    For $K= 1 TO 64
        $AV[$K]= $K
    Next
    For $K = 64 To 1 Step -1
        $rnd=Random(0,1)
;   Gives a random number from or between 0 to 1.  If it is between then adding 1 is necessary.
;   If it can include 0 and 1 then adding 1 can give you 65 and that may be an issue
        $P1 = 1 + Int($K * $rnd)
        $J=$AV[$P1] - 1
;   ToolTip("$P1=" & $P1 & ", $K=" & $K & ", $j=" & $j & ", $rnd=" & $rnd )
;   MsgBox(0,"","$P1=" & $P1 & ", $K=" & $K & ", $j=" & $j & ", $rnd=" & $rnd)
;   Sleep(2000)
;   $maxitlogdata = "K=" & $K & @TAB & "rnd=" & $rnd & @TAB & "P1=" & $P1
;   This section ensures that
        if $P1 < $K Then
            For $i = $P1 To $K - 1
                $AV[$i] = $AV[$i + 1]
            Next
        EndIf
        $i= Int ($J/8)
        $J = $J - 8 * $i
        $BD[$i][$j] = $PC [64 - $K]
    Next
EndFunc

;Draw game board
Func DrawGameBoard()
;$SS_ETCHEDFRAME = 0X12, $SS_SUNKEN = 0x1000, $SS_CENTER  0x01, $WS_BORDER 0x00800000  
$LabelStyle=BitOR($SS_SUNKEN ,$SS_CENTER)
;$BS_FLAT  0x8000, $BS_DEFPUSHBUTTON  0x0001
$ButStyle=$BS_FLAT
$K=1
For $KX = 0 to 7
    For $KY = 0 to 7
        $BDL=$BoardLeft + $KY * 32
        $BDT=$BoardTop + $KX * 32
;       GUICtrlCreateLabel(@CR & $BD[$KX][$KY],$BDL ,$BDT,28,28,$LabelStyle)
;When the game board is first drawn the buttons are created and given their data
;This If/Then stops the buttons from being created over and over and just assigns new data
        If $BDID[$KX][$KY] <> "" Then
            GUICtrlSetData($BDID[$KX][$KY],$BD[$KX][$KY])
        Else    
            $BDID[$KX][$KY]=GUICtrlCreateButton($BD[$KX][$KY],$BDL,$BDT,28,28,$ButStyle)
;           GUICtrlCreateLabel($BD[$KX][$KY],$BDL ,$BDT,28,28,$SS_CENTER)
            $K += $K
        EndIf
;       sleep(10)
    Next 
Next
EndFunc

Func PauseGame ()
If Not WinActive($InstructionsWindow) Then  
    $Paused = NOT $Paused
;Disabling the $MainWindow ensures that the front window is the only one used until it is gone.
;Had to use WinActivate because the $MainWindow kept going behind other windows after the child window was closed.
    If $Paused Then
        GUISetState(@SW_DISABLE,$MainWindow)
        GUISetState(@SW_SHOW,$PauseWindow)
    Else
        GUISetState(@SW_ENABLE,$MainWindow)
        GUISetState(@SW_HIDE,$PauseWindow)
        WinActivate($MainWindow)
    EndIf
    While $Paused
        sleep(100)
    WEnd
EndIf
EndFunc

Func ShowInstructions ()
;$Answer= MsgBox("0x4","Instructions","Do you want instructions?")
;6=Yes, 7=No
;Game Instructions
If Not WinActive($PauseWindow) And WinActive($MainWindow) Then
    GUISetState(@SW_DISABLE,$MainWindow)
    GUISetState(@SW_SHOW,$InstructionsWindow)
    While 1
        $msg = GUIGetMsg($InstructionsWindow)
        If $msg = $GUI_EVENT_CLOSE or $msg = $InstrClose Then
            GUISetState(@SW_HIDE,$InstructionsWindow)
            ExitLoop
        EndIf
        
    WEnd
    GUISetState(@SW_ENABLE,$MainWindow)
    WinActivate($MainWindow)
EndIf
EndFunc

;1150 CLS:LOCATE 3,11:PRINT "THE GAME OF MAXIT"
;1160 PRINT "DO YOU WANT INSTRUCTIONS ? ";:GOSUB 3000:PRINT
;1170 IF KS$= "Y" OR KS$="y" THEN GOSUB 2210
;1180 PRINT :PRINT "1 OR 2 PLAYERS ?";:GOSUB 3000
;1190 PRINT KS$:NP= VAL (KS$):PRINT 
;1200 IF NP= 1 THEN 1240
;1210 IF NP< > 2 THEN 1180
;1220 INPUT "WHAT IS YOUR NAME #1";P1$:P1$=LEFT$(P1$,7):BEEP:PRINT
;1230 PRINT :INPUT "WHAT IS YOUR NAME #2";P2$:P2$=LEFT$(P2$,7):BEEP:PRINT :GOTO 1250
;1240 P2$= "IBM PC":INPUT "WHAT IS YOUR NAME ";P1$:BEEP:PRINT:P1$=LEFT$(P1$,7)
;1250 CLS:LOCATE 2,16:PRINT "M A X I T":GOSUB 2360
;1260 RANDOMIZE VAL(RIGHT$(TIME$,2)):MD= 1
;1270
;1280 FOR K= 64 TO 1 STEP - 1:READ PC
;1290 P1= 1+ INT (K* RND (1))
;1300 J= AV(P1)- 1
;1310 IF P1< K THEN FOR I= P1 TO K- 1:AV(I)= AV(I+ 1):NEXT
;1320 I= INT (J/ 8):J= J- 8* I
;1330 BD(I,J)= PC:GOSUB 1540:NT= J:GOSUB 1980
;1340 NEXT K:RESTORE 1350:NT= 7:GOSUB 1980:GOSUB 1980:GOSUB 1980
;1350 DATA 15,10,9,9,8,8,7,7,7,6,6,6
;1360 DATA 5,5,5,5,4,4,4,4,3,3,3,3,3
;1370 DATA 2,2,2,2,2,2,1,1,1,1,1
;1380 DATA 0,0,0,0,0,0,-1,-1,-1,-1,-1
;1390 DATA -2,-2,-2,-2,-3,-3,-3
;1400 DATA -4,-4,-4,-5,-5,-6,-6
;1410 DATA -7,-9,100
;1420 S1= 0:S2= 0:GOSUB 2000
;1430 REM  PLAYER 1
;1440 PL= 1:GOSUB 1630:IF FL= 0 THEN 1470
;1450 REM  PLAYER 2
;1460 PL= 2:GOSUB 1630:IF FL< > 0 THEN 1430
;1470 LOCATE 22,1:PRINT STRING$(39," ");:LOCATE 22,1:ON 2+ SGN (S2- S1)GOSUB 1510,1520,1530
;1480 POKE 106,0:LOCATE 23,1:PRINT STRING$(39," ");:LOCATE 23,1:PRINT "DO YOU WANT TO PLAY AGAIN ?";:C$="":WHILE C$="":C$=INKEY$:WEND:PRINT C$
;1490 IF "Y"= C$ OR "y"=C$ THEN 1250
;1500 GOTO 10000
;1505 END
;

;1510 PRINT P1$;" WON BY ";STR$ (S1- S2);" POINTS":PRINT :RETURN
;1520 PRINT "IT'S A TIE !!                 ":RETURN
;1530 PRINT P2$;" WON BY ";STR$ (S2- S1);" POINTS ":PRINT :RETURN
;1540 REM  DRAW BOARD POSITION I,J IN MODE MD (1=RED,2=BLACK)
;1550 PC= BD(I,J)
;1560 LOCATE I* 2+ 5,J*4+5
;1570 IF MD= 2 THEN COLOR 0,7:GOTO 1590
;1580 COLOR 7,0
;1590 IF PC= 100 THEN PRINT "**":C1= I:C2= J:GOTO 1620
;1600 IF PC= - 100 THEN PRINT "  ":GOTO 1620
;1610 PRINT RIGHT$ ("  "+ STR$ (PC),2)
;1620 COLOR 7,0:RETURN
;1630 IF PL= 2 THEN 1670
;1640 FL= 600:FOR J= 0 TO 7:FL= FL+ BD(C1,J):NEXT 
;1650 IF FL= 0 THEN RETURN
;1660 NM$= P1$:DX= 1:DY= 0:GOSUB 1700:RETURN 
;1670 FL= 600:FOR I= 0 TO 7:FL= FL+ BD(I,C2):NEXT 
;1680 IF FL= 0 THEN RETURN 
;1690 NM$= P2$:DX= 0:DY= 1:GOSUB 1700:RETURN 
;1700 Y= C1:X= C2:FX= 1
;1705 IF PL = 2 THEN COLOR 0,7
;1710 IF NP= 2 OR PL= 1 THEN 1730
;1720 PRINT :GOSUB 1970:PRINT NM$;"'S TURN.      ":GOSUB 2060:GOTO 1880
;1730 GOSUB 1970:ON FX GOTO 1740,1750
;1740 PRINT :GOSUB 1970:PRINT NM$;", YOUR TURN.  ":PRINT :GOTO 1760
;1750 PRINT "                   ":PRINT
;1760 PLAY "L64T200N70"
;1770 C$=INKEY$:IF C$="" THEN 1770 ELSE KS=ASC(C$)
;1775 IF C$=CHR$(27) THEN 1500
;1780 IF C$< > " "THEN 1860
;1790 OX= X:OY= Y
;1800 Y= Y+ DY:IF Y> 7 THEN Y= 0
;1810 X= X+ DX:IF X> 7 THEN X= 0
;1820 PT= BD(Y,X):IF ABS (PT)= 100 THEN 1800
;1830 MD= 1:I= OY:J= OX:GOSUB 1540
;1840 MD= 2:I= Y:J= X:GOSUB 1540
;1850 GOTO 1770
;1860 IF C$< > CHR$ (13)THEN 1770
;1870 IF ABS (BD(Y,X))= 100 THEN 1770
;1880 REM SCORE IT
;1890 '
;1900 IF NP=1 AND PL =2 THEN MD= 2:I= Y :J= X:GOSUB 1540:FOR DL = 1 TO 1500:NEXT
;1905 GOSUB 1990:MD= 1:I= C1:J= C2:BD(I,J)= - 100:GOSUB 1540
;1910 I= Y:J= X:PT= BD(I,J):BD(I,J)= 100:GOSUB 1540
;1920 IF PL= 1 THEN S1= S1+ PT
;1930 IF PL= 2 THEN S2= S2+ PT
;1940 GOSUB 1970
;1950 LOCATE 22,25:PRINT "LAST TAKEN:";PT;" ";
;1960 GOSUB 2000:RETURN 
;1970 LOCATE 22,1:RETURN
;1980 PLAY "MNMFL64N=NT(NT);":RETURN
;1990 FOR N=49 TO 70 :PLAY "MBT255MLO3L64N=N;":NEXT:RETURN
;2000 GOSUB 1970
;2010 LOCATE 21,1:ME$=P1$+"'S SCORE="+STR$ (S1)+"  "+P2$+"'S SCORE="+STR$ (S2)+"       ":ME$=LEFT$(ME$,40):PRINT ME$:RETURN
;2020 REM  SCREEN INSTRUCTIONS
;2050 RETURN
;2059 '   COMPUTER PLAYER ALGORITHM
;2060 MT= - 100:GG= - 1:FOR A1= 0 TO 7:PC= BD(A1,C2):IF ABS (PC)= 100 THEN 2200
;2070 MX= - 100:FOR A2= 0 TO 7
;2080 IF A2< > C2 THEN PK= BD(A1,A2):IF PK< > - 100 AND PK> MX THEN MX= PK:SV= A
;2090 NEXT A2
;2100 IF MX< > - 100 THEN 2120
;2110 IF PC> MT THEN MT= PC:GG= A1:GOTO 2200
;2120 IF GG< 0 THEN GG= A1
;2130 FOR A2= 0 TO 7:PQ= BD(A2,SV):IF PQ= - 100 OR A2= A1 THEN 2190
;2140 MY= - 100:FOR A3= 0 TO 7:PW= BD(A2,A3):IF A3= SV THEN 2160
;2150 IF ABS (PW)< > 100 AND PW> MY THEN MY= PW
;2160 NEXT A3
;2170 IF MY= - 100 THEN MY= 0
;2180 DT= PC- MX+ PQ- MY:IF DT> MT THEN MT= DT:GG= A1
;2190 NEXT A2
;2200 NEXT A1:Y= GG:RETURN 
;** Start Game instructions
;2210 LOCATE 1,16:PRINT "M A X I T":PRINT
;2220 PRINT "THE OBJECT OF MAXIT IS TO GET AS MANY"
;2230 PRINT "POINTS AS POSSIBLE. TWO PLAYERS CAN"
;2240 PRINT "PLAY AGAINST EACH OTHER, OR ONE AGAINST"
;2250 PRINT "THE COMPUTER.":PRINT :PRINT
;2260 PRINT "YOU GET POINTS BY MOVING A MARKER "
;2270 PRINT "           **"
;2280 PRINT "TO A SPACE WITH A NUMBER IN IT. THE"
;2290 PRINT "FIRST PLAYER ALWAYS MOVES HORIZONTALLY"
;2300 PRINT "AND THE SECOND MOVES VERTICALLY.  YOU"
;2310 PRINT "INDICATE THE PLACE YOU WANT TO MOVE TO"
;2320 PRINT "BY USING THE SPACE BAR TO POSITION"
;2330 PRINT "YOURSELF, AND THEN PUSH RETURN TO TAKE"
;2340 PRINT "THAT PIECE.":RETURN 
;** End Game instructions
;2350 PLOT 8:END 
;2360 REM  OTHER OTHELLO BOARD
;2370 '
;2380 TOP$="ÕÍÍÍÑÍÍÍÑÍÍÍÑÍÍÍÑÍÍÍÑÍÍÍÑÍÍÍÑÍÍ͸"
;2382 MD1$="³   ³   ³   ³   ³   ³   ³   ³   ³"
;2384 MD2$="ÆÍÍÍØÍÍÍØÍÍÍØÍÍÍØÍÍÍØÍÍÍØÍÍÍØÍÍ͵"
;2386 BOT$="ÔÍÍÍÏÍÍÍÏÍÍÍÏÍÍÍÏÍÍÍÏÍÍÍÏÍÍÍÏÍÍ;"
;2390 LOCATE 4,4:PRINT TOP$
;2400 FOR Y=5 TO 17 STEP 2:LOCATE Y,4:PRINT MD1$:LOCATE Y+1,4:PRINT MD2$:NEXT
;2410 LOCATE 19,4:PRINT MD1$:LOCATE 20,4:PRINT BOT$
;2440 GOSUB 2020
;2450 RETURN 
;3000 KS$="":WHILE KS$="":KS$=INKEY$:WEND:KS=ASC(KS$):RETURN
;10000 SYSTEM
;65000 REM -*- program name -*-
;65010 REM Version 1.00
;65020 KEY(2) ON:ON KEY(2) GOSUB 65200
;65030 KEY OFF:SCREEN 0,1:COLOR 15,3,1:WIDTH 40:CLS:LOCATE 5,18:PRINT " IBM "
;65040 LOCATE 7,12,0:PRINT "Personal Computer"
;65050 COLOR 10,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
;65060 LOCATE 11,9,0:PRINT CHR$(179)+" -*-  MAXIT   -*- "+CHR$(179)
;65070 LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179)
;65080 LOCATE 13,9,0:PRINT CHR$(179)+" (A) by P Leabo 3/82 "+CHR$(179)
;65090 LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
;65100 COLOR 15,0:LOCATE 19,5,0:PRINT "  Originally a 'PET' program   "
;65110 COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue";CHR$(7);
;65120 COLOR 30:LOCATE 23,5,0:PRINT CHR$(15);:LOCATE 23,35,0:PRINT CHR$(15);
;65130 COLOR 14
;65140 POKE 106,0 'CLEAR KYBD BUFFER
;65150 CMD$ = INKEY$
;65160 IF CMD$="" THEN GOTO 65150
;65170 IF CMD$ = CHR$(27) THEN GOTO 10000
;65180 IF CMD$ = " " THEN GOTO 1
;65190 GOTO 65140
;65200 ON ERROR GOTO 65240:GOTO 10000
;65240 E=ERR:RESUME NEXT

Maxit.au3


Be open minded but not gullible.A hammer sees everything as a nail ... so don't be A tool ... be many tools.

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0