Well the first thing worng with it that i see is that you have a procedure in another procedure. Posted: Thu 9:11 am Post subject: RE:i need help!please fix my battleship game!!!i dont know what to do!! Picback1 := Pic.Scale (picback1, maxx, maxy)įont.Draw ("Loser!Better luck next time!! ", 80, 320, font4, green) %if the player lose, this will be displayedĭ := sqrt ((sx - gx) ** 2 + (sy - gy) ** 2) Var mx, my, gx, gy, sx, sy, XY, button : intĭrawfillmapleleaf (mx - 10, my - 10, mx + 10, my + 10, red)įont.Draw ("Congratulations!You Won ", 250, 350, font3, red) %if the player wins, this will be displayedįont3 := Font.New ("Tahoma:24:bold,italic")įont4 := Font.New ("Ariel Black:36:italic")įont4 := Font.New ("Tahoma:24:bold,italic") Picback := Pic.Scale (picback, maxx, maxy) Put "Your mission is to find the ship of your opponent" %this is the instructions Put "Would you like to see instruction?(y/n)" PicBackGround := Pic.Scale (PicBackGround, maxx, maxy) PicBackGround := Pic.FileNew ("battleship.jpg") %background if the user is playing
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |