Dragon Rage

[chipanpriest]

This is a program I've been working on in school, hope you enjoy it!

[chipanpriest]

Turing:

setscreen ("title:Dragon Rage") setscreen ("graphics:1000,600") buttonchoose ("multibutton") var edgeovalx1, edgeovalx2, edgeovaly1, engeovaly2, font1, font2, font3, font4, titlepic1, titlepic2, mousex, mousey, click, score : int var textx, pic1, pic2, pic3, pic4, linex1, linex2, liney1, liney2, ovalonex, ovaloney, ovaltwox, ovaltwoy, mainovalx, mainovaly : int var ball1speedx, ball1speedy, ball2speedx, ball2speedy, ball3speedx, ball3speedy, ball4speedx, ball4speedy, ballspeed, speedtime : int var dragonspeed, knightspeed, difficulty, filenumb : int var high : int := 0 var ovalsize1 : int := 50 var ovalsize2 : int := 25 var filename : string := "Highscore.txt" pic1 := Pic.FileNew ("Pictures/Dragon.jpg") pic2 := Pic.FileNew ("Pictures/Dragon2.jpg") pic3 := Pic.FileNew ("Pictures/Dragon3.jpg") pic4 := Pic.FileNew ("Pictures/Dragon4.jpg") titlepic1 := Pic.FileNew ("Pictures/Titledragon1.jpg") titlepic2 := Pic.FileNew ("Pictures/Titledragon2.jpg") font1 := Font.New ("Comic Sans MS:36:bold") font2 := Font.New ("Arial:20:bold") font3 := Font.New ("Arial:10") font4 := Font.New ("Comic Sans MS:32") procedure title     Font.Draw ("Dragon Rage", textx + 2, 475, font1, 12)     Font.Draw ("Dragon Rage", textx - 2, 475, font1, 12)     Font.Draw ("Dragon Rage", textx, 475, font1, yellow) end title procedure edgecircles     drawfilloval (edgeovalx1, edgeovaly1, 10, 10, 12)     drawfilloval (edgeovalx2, engeovaly2, 10, 10, 12)     drawoval (edgeovalx1, edgeovaly1, 10, 10, yellow)     drawoval (edgeovalx2, engeovaly2, 10, 10, yellow)     delay (50)     drawfilloval (edgeovalx1, edgeovaly1, 11, 11, 7)     drawfilloval (edgeovalx2, engeovaly2, 11, 11, 7) end edgecircles procedure mouse     mousewhere (mousex, mousey, click)     drawfillbox (150, 250, 300, 325, 12)     drawbox (150, 250, 300, 325, yellow)     drawfillbox (700, 250, 850, 325, 12)     drawbox (700, 250, 850, 325, yellow)     if mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 then         drawfillbox (150, 250, 300, 325, 10)         drawbox (150, 250, 300, 325, yellow)     elsif mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 then         drawfillbox (700, 250, 850, 325, 10)         drawbox (700, 250, 850, 325, yellow)     end if end mouse loop     textx := 400     edgeovalx1 := 20     edgeovaly1 := 20     edgeovalx2 := 980     engeovaly2 := 580     ovalsize1 := 50     ovalsize2 := 25     colourback (7)     cls     Pic.Draw (pic1, 310, 25, picCopy)     Pic.Draw (titlepic1, 180, 65, picCopy)     Pic.Draw (titlepic2, 720, 65, picCopy)     drawfillbox (50, 450, 950, 550, 12)     drawbox (50, 450, 950, 550, yellow)     drawfillbox (65, 497, 150, 503, brown)     drawfillbox (96, 495, 150, 505, grey)     drawbox (65, 497, 95, 503, 7)     drawfillbox (90, 480, 95, 520, brown)     drawbox (90, 480, 95, 520, 7)     drawfilloval (70, 500, 7, 7, yellow)     drawfilloval (92, 520, 5, 5, yellow)     drawfilloval (92, 480, 5, 5, yellow)     drawoval (70, 500, 7, 7, 7)     drawoval (92, 520, 5, 5, 7)     drawoval (92, 480, 5, 5, 7)     drawline (150, 495, 150, 505, grey)     drawline (150, 495, 160, 500, grey)     drawline (150, 505, 160, 500, grey)     drawfill (152, 500, grey, grey)     drawfillbox (96, 498, 150, 502, darkgrey)     drawline (150, 498, 150, 502, darkgrey)     drawline (150, 498, 155, 500, darkgrey)     drawline (150, 502, 155, 500, darkgrey)     drawfill (152, 500, darkgrey, darkgrey)     drawfillbox (935, 497, 910, 503, brown)     drawfillbox (904, 495, 850, 505, grey)     drawbox (935, 497, 910, 503, 7)     drawfillbox (910, 480, 905, 520, brown)     drawbox (910, 480, 905, 520, 7)     drawfilloval (930, 500, 7, 7, yellow)     drawfilloval (908, 520, 5, 5, yellow)     drawfilloval (908, 480, 5, 5, yellow)     drawoval (930, 500, 7, 7, 7)     drawoval (908, 520, 5, 5, 7)     drawoval (908, 480, 5, 5, 7)     drawline (850, 495, 850, 505, grey)     drawline (850, 495, 840, 500, grey)     drawline (850, 505, 840, 500, grey)     drawfill (848, 500, grey, grey)     drawfillbox (904, 498, 850, 502, darkgrey)     drawline (850, 498, 850, 502, darkgrey)     drawline (850, 498, 845, 500, darkgrey)     drawline (850, 502, 845, 500, darkgrey)     drawfill (848, 500, darkgrey, darkgrey)     Font.Draw ("New Game", 159, 350, font2, yellow)     Font.Draw ("Exit", 750, 350, font2, yellow)     loop         loop             title             mouse             if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                     or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then                 exit             end if             textx := textx - 2             edgeovalx1 := edgeovalx1 + 20             edgeovalx2 := edgeovalx2 - 20             edgecircles             exit when edgeovalx1 = 980         end loop         if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                 or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then             exit         end if         loop             title             mouse             if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                     or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then                 exit             end if             textx := textx - 2             edgeovaly1 := edgeovaly1 + 20             engeovaly2 := engeovaly2 - 20             edgecircles             exit when edgeovaly1 = 580         end loop         if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                 or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then             exit         end if         loop             title             mouse             if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                     or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then                 exit             end if             textx := textx + 2             edgeovalx1 := edgeovalx1 - 20             edgeovalx2 := edgeovalx2 + 20             edgecircles             exit when edgeovalx1 = 20         end loop         if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                 or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then             exit         end if         loop             title             mouse             if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                     or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then                 exit             end if             textx := textx + 2             edgeovaly1 := edgeovaly1 - 20             engeovaly2 := engeovaly2 + 20             edgecircles             exit when edgeovaly1 = 20         end loop         if (mousex >= 150 and mousex <= 300 and mousey >= 250 and mousey <= 325 and click = 1)                 or (mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 and click = 1) then             exit         end if     end loop     if mousex >= 700 and mousex <= 850 and mousey >= 250 and mousey <= 325 then         cls         exit     end if     %dragon's fire     for : 1 .. 10         drawfilloval (maxx div 2, 150, ovalsize1, ovalsize1, yellow)         drawfilloval (maxx div 2, 150, ovalsize2, ovalsize2, 12)         delay (150)         ovalsize1 := ovalsize1 + 100         ovalsize2 := ovalsize2 + 50     end for     cls     Font.Draw ("What difficulty do you wish to play on?", 100, 500, font4, yellow)     Font.Draw ("Easy", 270, 225, font2, yellow)     Font.Draw ("Medium", 450, 225, font2, yellow)     Font.Draw ("Hard", 670, 225, font2, yellow)     Pic.Draw (pic4, 600, 75, picMerge)     Pic.Draw (pic3, 175, 200, picMerge)     Pic.Draw (pic2, 400, 100, picMerge)     loop         mousewhere (mousex, mousey, click)         if mousex >= 270 and mousex <= 330 and mousey >= 225 and mousey <= 250 then             Font.Draw ("Easy", 270, 225, font2, 10)         elsif mousex >= 450 and mousex <= 550 and mousey >= 225 and mousey <= 250 then             Font.Draw ("Medium", 450, 225, font2, 10)         elsif mousex >= 670 and mousex <= 730 and mousey >= 225 and mousey <= 250 then             Font.Draw ("Hard", 670, 225, font2, 10)         else             Font.Draw ("Easy", 270, 225, font2, yellow)             Font.Draw ("Medium", 450, 225, font2, yellow)             Font.Draw ("Hard", 670, 225, font2, yellow)         end if         if mousex >= 270 and mousex <= 330 and mousey >= 225 and mousey <= 250 and click = 1 then             difficulty := 30             exit         elsif mousex >= 450 and mousex <= 550 and mousey >= 225 and mousey <= 250 and click = 1 then             difficulty := 25             exit         elsif mousex >= 670 and mousex <= 730 and mousey >= 225 and mousey <= 250 and click = 1 then             difficulty := 20             exit         end if     end loop     score := 0     cls     setscreen ("nocursor")     var ball1x, ball1y, ball2x, ball2y, ball3x, ball3y, ball4x, ball4y : int := 10     if difficulty = 30 then         ballspeed := 3         speedtime := 50     elsif difficulty = 25 then         ballspeed := 5         speedtime := 125     elsif difficulty = 20 then         ballspeed := 7         speedtime := 250     end if     mainovalx := 500     mainovaly := 300     ovalonex := 100     ovaloney := 100     ovaltwox := 900     ovaltwoy := 500     knightspeed := 1     ball1speedx := ballspeed     ball1speedy := ballspeed     ball2speedx := ballspeed     ball2speedy := ballspeed     ball3speedx := ballspeed     ball3speedy := ballspeed     ball4speedx := ballspeed     ball4speedy := ballspeed     %Instructions     for decreasing i : 3 .. 1         colour (0)         put i, " " ..         drawbox (-1, 580, 65, maxy + 1, 12)         drawfilloval (ovalonex, ovaloney, 50, 50, 3)         drawfilloval (ovaltwox, ovaltwoy, 25, 25, green)         drawfilloval (mainovalx, mainovaly, 30, 30, 12)         for g : 1 .. 5             drawline (450 + g, 150, 490 + g, 225, 12)         end for         Font.Draw ("Guide your dragon with the mouse", 300, 75, font2, yellow)         Font.Draw ("This is your dragon - do not let him get hit by the knights", 200, 125, font3, yellow)         delay (1000)     end for     loop         for i : 0 .. speedtime             if difficulty = 30 then                 dragonspeed := 10             elsif difficulty = 25 then                 dragonspeed := 8             elsif difficulty = 20 then                 dragonspeed := 7             end if             cls             View.Set ("offscreenonly")             open : filenumb, filename, get             get : filenumb, high             close : filenumb             if high = 1 then                 put "Score: ", score, "     High Score: N/A"             else                 put "Score: ", score, "     High Score: ", high             end if             %draws knights and dragon             drawfilloval (ovalonex, ovaloney, 50, 50, 3)             drawfilloval (ovaltwox, ovaltwoy, 25, 25, green)             drawfilloval (mainovalx, mainovaly, 30, 30, 12)             %movement of the knights             if mainovalx > ovalonex then                 ovalonex := ovalonex + knightspeed             elsif mainovalx < ovalonex then                 ovalonex := ovalonex - knightspeed             end if             if mainovaly > ovaloney then                 ovaloney := ovaloney + knightspeed             elsif mainovaly < ovaloney then                 ovaloney := ovaloney - knightspeed             end if             if mainovalx > ovaltwox then                 ovaltwox := ovaltwox + (knightspeed * 2 - 1)             elsif mainovalx < ovaltwox then                 ovaltwox := ovaltwox - (knightspeed * 2 - 1)             end if             if mainovaly > ovaltwoy then                 ovaltwoy := ovaltwoy + (knightspeed * 2 - 1)             elsif mainovaly < ovaltwoy then                 ovaltwoy := ovaltwoy - (knightspeed * 2 - 1)             end if             %borders (knight 1)             if ovalonex > 950 then                 ovalonex := 950             end if             if ovalonex < 50 then                 ovalonex := 50             end if             if ovaloney > 550 then                 ovaloney := 550             end if             if ovaloney < 50 then                 ovaloney := 50             end if             %borders (knight 2)             if ovaltwox > 975 then                 ovaltwox := 975             end if             if ovaltwox < 25 then                 ovaltwox := 25             end if             if ovaltwoy > 575 then                 ovaltwoy := 575             end if             if ovaltwoy < 25 then                 ovaltwoy := 25             end if             %borders (dragon)             if mainovalx > 970 then                 mainovalx := 970             end if             if mainovalx < 30 then                 mainovalx := 30             end if             if mainovaly > 570 then                 mainovaly := 570             end if             if mainovaly < 30 then                 mainovaly := 30             end if             %--------------------------------------------------%             if score >= 1000 then                 drawfilloval (ball1x, ball1y, 10, 10, yellow)                 if mainovalx + 21 >= ball1x - 6 and mainovaly + 21 >= ball1y - 6 and mainovalx - 21 <= ball1x + 6 and mainovaly - 21 <= ball1y + 6 then                     exit                 end if                 ball1x := ball1x + ball1speedx                 ball1y := ball1y + ball1speedy                 if ball1x <= 10 then                     ball1x := 10                     ball1speedx := ball1speedx * (-1)                 elsif ball1x >= 990 then                     ball1x := 990                     ball1speedx := ball1speedx * (-1)                 end if                 if ball1y <= 10 then                     ball1y := 10                     ball1speedy := ball1speedy * (-1)                 elsif ball1y >= 590 then                     ball1y := 590                     ball1speedy := ball1speedy * (-1)                 end if             end if             if score >= 2000 then                 drawfilloval (ball2x, ball2y, 10, 10, yellow)                 if mainovalx + 21 >= ball2x - 6 and mainovaly + 21 >= ball2y - 6 and mainovalx - 21 <= ball2x + 6 and mainovaly - 21 <= ball2y + 6 then                     exit                 end if                 ball2x := ball2x + ball2speedx                 ball2y := ball2y + ball2speedy                 if ball2x <= 10 then                     ball2x := 10                     ball2speedx := ball2speedx * (-1)                 elsif ball2x >= 990 then                     ball2x := 990                     ball2speedx := ball2speedx * (-1)                 end if                 if ball2y <= 10 then                     ball2y := 10                     ball2speedy := ball2speedy * (-1)                 elsif ball2y >= 590 then                     ball2y := 590                     ball2speedy := ball2speedy * (-1)                 end if             end if             if score >= 3000 then                 drawfilloval (ball3x, ball3y, 10, 10, yellow)                 if mainovalx + 21 >= ball3x - 6 and mainovaly + 21 >= ball3y - 6 and mainovalx - 21 <= ball3x + 6 and mainovaly - 21 <= ball3y + 6 then                     exit                 end if                 ball3x := ball3x + ball3speedx                 ball3y := ball3y + ball3speedy                 if ball3x <= 10 then                     ball3x := 10                     ball3speedx := ball3speedx * (-1)                 elsif ball3x >= 990 then                     ball3x := 990                     ball3speedx := ball3speedx * (-1)                 end if                 if ball3y <= 10 then                     ball3y := 10                     ball3speedy := ball3speedy * (-1)                 elsif ball3y >= 590 then                     ball3y := 590                     ball3speedy := ball3speedy * (-1)                 end if             end if             if score >= 4000 then                 drawfilloval (ball4x, ball4y, 10, 10, yellow)                 if mainovalx + 21 >= ball4x - 6 and mainovaly + 21 >= ball4y - 6 and mainovalx - 21 <= ball4x + 6 and mainovaly - 21 <= ball4y + 6 then                     exit                 end if                 ball4x := ball4x + ball4speedx                 ball4y := ball4y + ball4speedy                 if ball4x <= 10 then                     ball4x := 10                     ball4speedx := ball4speedx * (-1)                 elsif ball4x >= 990 then                     ball4x := 990                     ball4speedx := ball4speedx * (-1)                 end if                 if ball4y <= 10 then                     ball4y := 10                     ball4speedy := ball4speedy * (-1)                 elsif ball4y >= 590 then                     ball4y := 590                     ball4speedy := ball4speedy * (-1)                 end if             end if             View.Update             if score >= 5000 then                 score := 5000                 exit             end if             %--------------------------------------------------%             delay (difficulty)             %movement of the dragom             mousewhere (mousex, mousey, click)             if mainovalx > mousex then                 mainovalx := mainovalx - dragonspeed             end if             if mainovaly > mousey then                 mainovaly := mainovaly - dragonspeed             end if             if mainovalx < mousex then                 mainovalx := mainovalx + dragonspeed             end if             if mainovaly < mousey then                 mainovaly := mainovaly + dragonspeed             end if             %if either knight hits the dragon it exits loop             if mainovalx + 21 >= ovalonex - 35 and mainovaly + 21 >= ovaloney - 35 and mainovalx - 21 <= ovalonex + 35 and mainovaly - 21 <= ovaloney + 35                     or mainovalx + 21 >= ovaltwox - 17 and mainovaly + 21 >= ovaltwoy - 17 and mainovalx - 21 <= ovaltwox + 17 and mainovaly - 21 <= ovaltwoy + 17 then                 exit             end if             if difficulty = 30 then                 score := score + 5             elsif difficulty = 25 then                 score := score + 2             elsif difficulty = 20 then                 score := score + 1             end if         end for         if score >= 1000 and mainovalx + 21 >= ball1x - 6 and mainovaly + 21 >= ball1y - 6 and mainovalx - 21 <= ball1x + 6 and mainovaly - 21 <= ball1y + 6 then             exit         end if         if score >= 2000 and mainovalx + 21 >= ball2x - 6 and mainovaly + 21 >= ball2y - 6 and mainovalx - 21 <= ball2x + 6 and mainovaly - 21 <= ball2y + 6 then             exit         end if         if score >= 3000 and mainovalx + 21 >= ball3x - 6 and mainovaly + 21 >= ball3y - 6 and mainovalx - 21 <= ball3x + 6 and mainovaly - 21 <= ball3y + 6 then             exit         end if         if score >= 4000 and mainovalx + 21 >= ball4x - 6 and mainovaly + 21 >= ball4y - 6 and mainovalx - 21 <= ball4x + 6 and mainovaly - 21 <= ball4y + 6 then             exit         end if         if score >= 5000 then             score := 5000             exit         end if         %if either knight hits the dragon it exits loop         if mainovalx + 21 >= ovalonex - 35 and mainovaly + 21 >= ovaloney - 35 and mainovalx - 21 <= ovalonex + 35 and mainovaly - 21 <= ovaloney + 35                 or mainovalx + 21 >= ovaltwox - 17 and mainovaly + 21 >= ovaltwoy - 17 and mainovalx - 21 <= ovaltwox + 17 and mainovaly - 21 <= ovaltwoy + 17 then             exit         end if         knightspeed := knightspeed + 1         if knightspeed >= 3 then             knightspeed := 3         end if     end loop     View.Set ("nooffscreenonly")     if score = 5000 then         cls         put "Score: ", score, "     High Score: ", high         drawfilloval (ovalonex, ovaloney, 50, 50, 3)         drawfilloval (ovaltwox, ovaltwoy, 25, 25, green)         drawfilloval (mainovalx, mainovaly, 30, 30, 12)         drawfilloval (ball1x, ball1y, 10, 10, yellow)         drawfilloval (ball2x, ball2y, 10, 10, yellow)         drawfilloval (ball3x, ball3y, 10, 10, yellow)         drawfilloval (ball4x, ball4y, 10, 10, yellow)         Font.Draw ("You Win!", maxx div 2 - 50, maxy div 2, font2, yellow)         delay (1250)         high := 0         open : filenumb, filename, put         put : filenumb, 1         close : filenumb         cls     else         Font.Draw ("You Lose.", maxx div 2 - 50, maxy div 2, font2, yellow)         delay (1250)         cls     end if     if score < 5000 and score > high then         open : filenumb, filename, put         put : filenumb, score         close : filenumb         high := score     end if end loop

[Raknarg]

This is a pretty good game. One thing that really bugged me was the directions, though. Have you done trigonometry yet? It's much more accurate for directions.

[Zren]

I will point you to this as you've probably learned the basics of Trig by now. This will help you make movement follow the mouse perfectly instead of N/S and E/W.

http://compsci.ca/v3/viewtopic.php?t=17607

Edit: Ninja'd by a lemur. '>.>