[MWForum] Amazed / Davids Pickup

[Wendy Petti]

I've uploaded Davids-Pickup.mw2 to the attachments page:

http://www.mathcats.com/mwforum/attachments.html

with one slight modification to the code, for on my version of MW there
was an error on startup, so I changed the first line of startup to
simply
presentationmode

Wendy

> -----Original Message-----
> From: mwforum-admin@lists.mathcats.com
> [mailto:mwforum-admin@lists.mathcats.com]On Behalf Of Jay
> Sent: Friday, January 10, 2003 12:16 AM
> To: mwforum@lists.mathcats.com
> Subject: Re: [MWForum] Amazed / Davids Pickup
>
>
> <J wrote
> <I'll post David's solution in a few days.
> <(This will give Members of MicroWorld Forum a chance to
> write their own
> <solutions, if they care to.)
> <
> <Regards
> <J (also known as GP)
>
> David's procedures are listed below for digest members.
>
> His program seems to be running without error.
>
> He did not complete the "person versus computer" part of the project.
>
> His use of freeze and unfreeze is incorrect. What he wanted
> to do, was to
> prevent a player from changing "who goes 1st" in the middle of a game.
>
> He seriously lacks comments in his coding. I'll have to talk
> to him about
> that.
>
> Regards
> J.
>
>
> <<<<<<<<<< david's pickup >>>>>>>>>
> (see attachment for complete project)
>
> to who.1st
> ifelse Turn = p1
> [setTurn p2]
> [setTurn p1]
> end
>
> to new
> unfreeze "button4
> settext1 #.of.sticks
> setSticks #.of.sticks
> cc
> setPlayer1 0
> setPlayer2 0
> settext3 p1
> settext4 p2
> end
>
> to m1
> freeze "button4
> if text1 < 1
> [oops]
> settext1 text1 - 1
> setSticks Sticks - 1
> if Turn = p1
> [setPlayer1 Player1 + 1]
> if Turn = p2
> [setPlayer2 Player2 + 1]
> who.1st
> if text1 = 0
> [winner]
> end
>
> to m2
> freeze "button4
> if text1 < 2
> [oops]
> settext1 text1 - 2
> setSticks Sticks - 2
> if Turn = p1
> [setPlayer1 Player1 + 2]
> if Turn = p2
> [setPlayer2 Player2 + 2]
> who.1st
> if text1 = 0
> [winner]
> end
>
> to m3
> freeze "button4
> if text1 < 3
> [oops]
> settext1 text1 - 3
> setSticks Sticks - 3
> if Turn = p1
> [setPlayer1 Player1 + 3]
> if Turn = p2
> [setPlayer2 Player2 + 3]
> who.1st
> if text1 = 0
> [winner]
> end
>
> to winner
> if Turn = p1
> [player1.win]
> if Turn = p2
> [player2.win]
> end
>
> to player1.win
> announce [Player1 is the winner!]
> settext7 text7 + 1
> setGames text7 + text8
> end
>
> to player2.win
> announce [Player2 is the winner!]
> settext8 text8 + 1
> setGames text7 + text8
> end
>
> to oops
> announce [There are not enough sticks!]
> stopall
> end
>
> to reset
> settext7 0
> settext8 0
> setGames 0
> end
>
> to Vs.Person
> David.Vs.Person
> end
>
> to Vs.Computer
> Computer
> end
>
> to Smart
> David.vs.S.Computer
> end
>
> to Dumb
> David.vs.D.Computer
> end
>
> to Main
> Start
> end
>
> to Instructions
> Instruction
> freeze "Rules
> end
>
> to Players
> question [Player1, enter your name.]
> setp1 answer
> question [Player2, enter your name.]
> setp2 answer
> end
>
> to startup
> set "project "presentationmode? "true
> launch [blink]
> end
>
> to blink
> Start
> text1, forever [showtext wait 5 hidetext wait 5]
> wait 10
> text2, forever [showtext wait 10 hidetext wait 10]
> end
>
> <<<<<<< end >>>>>>>>>>>
>