----------------------------------- Super Sat Jan 17, 2004 11:26 pm TURING BASEBALL PROGRAM HELP ----------------------------------- I have made a baseball game where the user can choose to play again or exit after playing one game. But if they choose to play again, it goes to the outcome of their last game. HELP PLEASE! %Results of Game procedure strikeoutresult title color (12) put "NADIM STRUCK HIM OUT!" GUI.Show (draw9) GUI.Enable (draw9) end strikeoutresult procedure walkresult title put "BOO" color (12) GUI.Show (draw9) GUI.Enable (draw9) end walkresult procedure hitBatter title color (12) put "hit batter" GUI.Show (draw9) GUI.Enable (draw9) end hitBatter %Game using fastball procedure fastballScreen title picture13 x11 := 300 x21 := 392 y11 := 200 y21 := 275 % drawbox (x11, y11, x21, y21, 12) % drawbox (330, 230, 350, 255, 14) % drawbox (300, 255, 365, 275, 12) % drawbox (300, 230, 330, 255, 9) % drawbox (300, 200, 375, 230, 12) % drawbox (350, 230, 370, 255, 14) % drawbox (365, 255, 375, 268, 9) % drawbox (375, 200, 392, 213, 12) % %---- % drawbox (375, 213, 392, 275, 12) % drawbox (365, 268, 375, 275, 9) % drawbox (370, 230, 375, 255, 100) %----- color (12) colorback (7) locate (4, 67) put "Strikes" locate (7, 68) put "Balls" locate (10, 66) put "Pitch Speed" loop setscreen("offscreenonly") var strikes : int := 0 var balls : int := 0 var randomspeed : int var draw9 : int := 0 loop mousewhere (xmouse1, ymouse1, button1) if (xmouse1 >= 330 and xmouse1 = 230 and ymouse1 94 then locate (20, 20) color (12) put "You're really bringing the heat tonight!" delay (1500) color (7) locate (20, 20) put "You're really bringing the heat tonight!" elsif randomspeed < 80 then locate (20, 20) color (12) put "COME ON! YOU CALL THAT A FAST BALL? THROW HARDER!" delay (1500) locate (20, 20) color (7) put "COME ON! YOU CALL THAT A FAST BALL? THROW HARDER!" end if picture14 delay (1000) picture13 elsif xmouse1 >= 300 and xmouse1 = 255 and ymouse1 = 300 and xmouse1 = 230 and ymouse1 = 300 and xmouse1 = 200 and ymouse1 = 350 and xmouse1 = 230 and ymouse1 94 then locate (20, 20) color (12) put "You're throwing some fireballs tonight!" delay (1500) color (7) locate (20, 20) put "You're throwing some fireballs tonight!" elsif randomspeed < 80 then locate (20, 20) color (12) put "COME ON! YOU CALL THAT A FAST BALL? THROW HARDER!" delay (1500) locate (20, 20) color (7) put "COME ON! YOU CALL THAT A FAST BALL? THROW HARDER!" end if picture18 delay (1000) picture13 elsif xmouse1 >= 365 and xmouse1 = 255 and ymouse1 = 375 and xmouse1 = 200 and ymouse1 94 then locate (20, 20) color (12) put "That 2-seamer was blazing!" delay (1500) color (7) locate (20, 20) put "That 2-seamer was blazing!" elsif randomspeed < 80 then locate (20, 20) color (12) put "COME ON! YOU CALL THAT A FAST BALL? THROW HARDER!" delay (1500) locate (20, 20) color (7) put "COME ON! YOU CALL THAT A FAST BALL? THROW HARDER!" end if picture18 delay (1000) picture13 else if xmouse1 >= 375 and xmouse1 = 213 and ymouse1 = 365 and xmouse1 = 230 and ymouse1 = 370 and xmouse1 = 230 and ymouse1 >= 255 and button1 = 1 then for x : 1 .. 70 picture13 drawfilloval (310 + x, 260, 3, 3, 31) delay (1) drawfilloval (310 + x, 260, 2, 2, 42) color (12) colorback (7) end for randomize randint (randomspeed, 75, 100) locate (11, 70) color (12) put randomspeed delay (1500) color (7) locate (11, 70) put randomspeed locate (20, 20) color (12) put "YOU HIT THE BATTER! GAME OVER!" delay (2000) color (7) locate (20, 20) put "YOU HIT THE BATTER! GAME OVER!" picture19 delay (1000) picture13 exit end if end if exit when strikes =3 or balls=4 end loop :arrow: if strikes = 3 then strikeoutresult end if if balls = 4 then walkresult end if if xmouse1 >= 375 and xmouse1 = 213 and ymouse1 = 365 and xmouse1 = 230 and ymouse1 = 370 and xmouse1 = 230 and ymouse1 >= 255 and button1 = 1 then hitBatter end if end loop end fastballScreen