Forum

Lesson 2 crashed because MYSCORE was not declared. At line 24 I added , MYSORE = 0 that fixed the crash. The program did not pause to show a screen display, possibly because it bounced through the 'Wait key'. At new line 131 I added, Wait Key The 2 wait key commands solved the skipped display.

// Below is Lesson 1 with changes for ATOM environment. // ............................................................................................................ // // ___ ____ _____ _____ __ ___ __ // / | / __ \/__ / / ___// /___ ______/ (_)___ / / ___ ______________ ____ _____ // / /| |/ / / / / / \__ \/ __/ / / / __ / / __ \ / / / _ \/ ___/ ___/ __ \/ __ \/ ___/ // / ___ / /_/ / / /__ ___/ / /_/ /_/ / /_/ / / /_/ / / /___/ __(__ |__ ) /_/ / / / (__ ) // /_/ |_\____/ /____/ /____/\__/\__,_/\__,_/_/\____/ /_____/\___/____/____/\____/_/ /_/____/ // // ............................................................................................................ // // Welcome to your AOZ Studio Lesson 1 // // You see these two slash (//) -> that means that anything afterwards (all marked in green) is a comment. // After the // you can put remarks, notes, explanations, not program instructions // // So we are ready, let's start! // // // The Print instruction--------------------------------------------- Print "Hello. Go back to program code by clicking on main.aoz above this window" // **Click on the "Run in ATOM" button on the top center of the window, it looks like an atom or flower // // Wait about 10 seconds for the compilation to occur, this is the process to transform your // program made of AOZ Instructions (easy to understand for humans) into executable instructions // (that your computer may understand and Run) // // You should have seen the Hello word in your automatically opened web browser. // // So... yes, you are a programmer! // // Great, now one step further. Try putting your own words, or "string" between the speech // marks (instead of Hello) and // // **Press Run in Atom again to update the display End // **Now let's continue the lesson. First remove the End instruction above, by putting 2 slashes // in front of it. // That will allow the following instructions to be executed as well: // // The Locate instruction--------------------------------------------- // Locate tells the program where to Print the string on the screen. Locate 5,1 Print "Printed at 5,1" End // The numbers after "Locate" tell the computer the number of text columns, down and across; // in this case 5 across and 1 down from the top // // **Press the Press 'Run in Atom (button) // // **Now, delete the End instruction above, so the following instructions will be executed as well: // // // // The Input instruction---------------------------------------------- // Input allows you to ask for information and use it in the program Input "What is your name?";name$ Print name$ Input "How old are you?";age Print "Your age is: ";age End // The first "Input" asks for a name and that is a string so the string variable name$ was // chosen in this example (We might have used MyName$ or rabbit$ or ....) // It makes sense to use a word that means something to you the programmer. // The second use of "Input"asks for a number and stores it in the variable "age". // // Notice how the semi-colon, (;) allows us to combine the printed "Your age is: " to the variable // stored in age // // **Press the RUN in Atom (button) // // **Now, remove the End instruction above, so the following instructions will be executed as well: // // // The Pen instruction and the For-to-Next instruction--------------- // Pen instruction sets the colour of the text. // For-to-Next instruction is a combined one to create a loop of automatically repetitive instructions For n = 1 to 20 Pen n Locate 40,n Print name$ + " is great!" Wait 0.5 Next End // This above code will run through many colours for the on-sreen text, the variable n will // step by step increase from 1 to 20 // The first time in the For-to-Next loop n=1 and therefore will execute: // - the instruction Pen 1 that will display that color 1 (white) // - set the position of Locate 40 (width), 1 (height) // - then will do the Print // when the program execute the Next Instruction, like a loop it will starts back on the line: For n= 1 to 20 // while increasing the value of n // So now n=2 and therefore Pen 2 and Locate 40,2 this will move the next Print one line below (line 2) // with the next color (2) etc, etc, up to... n=20, this will be the end of the For...to...Next loop // and the program will continue the instructions after the word "Next" // // If you do not get it right away, no worries. You can try with a simple program only with For-to-Next // loop with a Print inside like: // For n = 1 to 5 // Print n // Next // // Note that the Wait instruction is pausing the program for the value here of 0.2 seconds, so you can see the Print // one by one. Do not worry about understanding all of it. Have fun trying to change text and values. // // OK lot of explanations, so now let see what it does. // **Press the RUN in ATOM (button) // // // // _ __ ____ __ __ // | | / /__ / / / ____/ /___ ____ ___ / / // | | /| / / _ \/ / / / __ / __ \/ __ \/ _ \/ / // | |/ |/ / __/ / / / /_/ / /_/ / / / / __/_/ // |__/|__/\___/_/_/ \__,_/\____/_/ /_/\___(_) // // Well, congratulations! That's the end of lesson 1. You are ready to move to Lesson 2 :) //

Uses 5 target sprites, in this version there are 5 different sized targets so 5 images. Sprite 1 uses image 1 etc. All sprites move at slightly different speeds. // --------------- Target Shoot 2 - ( Using Procedures ) // #splashScreen:false #manifest: "pc" MV=1: HIT=0: k=0: ns=0: nos=5 // nos = set number of bouncing sprites X=10: Y=40 SC=0: miss=0 Global SC,miss Curs Off: Ink 4: plot 10,10 // Draw a single point on screen get sprite nos+1,10,10 to 12,12 // Grab 2 pixel square as sprite image // Set hotspot of stored images, (1,2,3,4,5.png) hot spot 1,$11: hot spot 2,$11 hot spot 3,$11: hot spot 4,$11 hot spot 5,$11 // ** Arrays to hold direction flags for bouncing sprites Dim XF(nos+1): Dim YF(nos+1) // Array index 0 not used, sprite = index number Global XF(),YF() // -- Place sprites numbered k, (1 to nos) randomly on screen for k=1 to nos sprite k,rnd(screen width),rnd(screen height),k XF(k)=Rnd(1) : YF(k)=Rnd(1) // Random start direction flags (0,1) next k // ** Change Mouse 2 // change mouse pointer to cross Locate ,11: Centre "Click Left mouse button to start. Right button to End." While Mouse Click<>1: Wend // Start with mouse click Cls 0: Wait Vbl Locate 2,2 : Cline : Pen 5 : Print " Hit Score : ";SC; // Start Scores Cmove 46,0 : Pen 4 : Print " Misses : ";miss; Repeat // ==================================== Main Loop For MV=1 to nos Proc CHNGMV[MV] Next MV Sprite nos+1,X Mouse,Y Mouse,nos+1 // Sprite to current mouse coordinates Wait Vbl If Mouse Click=1 and HIT=0 // New mouse click Proc SCOL[nos] End if HIT=0 Exit if Mouse Key=2 Until false // ==================================== Procedure SCOL[ns] // nos is used as ns in procedure For k=1 to ns // Step through range of sprites, (1 to ns) if sprite col(k,ns+1) // Look for collision between on screen sprites,(1 to ns) and the 2 pixel sprite,(ns+1) HIT=k // Set HIT number same as sprite in contact with sprite/mouse pointer end if next k If HIT=0 : Inc miss : Sam Play 1 : end if // gun sound If HIT>0 // HIT has the value of the contacted sprite Sprite HIT,,,ns+1 // hit sprite set to image nos+1 for a moment Sam Play 2 // hit sound Wait Vbl Inc SC // increase score End if Locate 2,2 : Cline : Pen 5 : Print " Hit Score : ";SC; Cmove 46,0 : Pen 4 : Print " Misses : ";miss; Shared HIT End Proc Procedure CHNGMV[MV] X=X Sprite(MV) Y=Y Sprite(MV) If X >= Screen Width: XF(MV) = false: End if If X <= 0: XF(MV) = true: End if If Y >= Screen Height: YF(MV) = false: End if If Y <= 0: YF(MV) = true: End if If XF(MV)=true: X=X+(MV+2): Else: X=X-(MV+2): End if If YF(MV)=true: Y=Y+(MV+2): Else: Y=Y-(MV+2): End if Sprite MV,X,Y,MV End Proc