UFO Fight   (By: Vladimir Plouzhnikov)

NOTE: This program requires that you pre-compile some of its tasks. (See "How To Run The Program" at the bottom of this page.)

Your mission: To save the Earth from the UFO invaders!

Source Listing ("Main Program")

Pro-SiMPLE Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12], speedrocket[12] Common Int rockstat[12], ufostat, reset, collisions, ufohit Common Int explodex[6], explodey[6], explodestat[6], explodetype[6] Common Int xufo=0, yufo=0, xoufo, youfo //(xufo, yufo Returned by 'findufo') Common Int frikkinlasors, xpellet[3], ypellet[3], xopellet[3], yopellet[3], livepellet[3] Common Int dxpellet, dypellet, manual Common Text difflevel[3]={"EASY","DIFFICULT","HARD"}, player Int2 totalpoints, levelpoints Graphon xm=0; ym=0; button=0 //(Returned by 'readmouse') Do k = 0, 5 //INIT the explosions array (just in case) explodex[k] = 0 explodey[k] = 0 explodestat[k] = 0 explodetype[k] = 0 Loop k Call intro @ //The Intro screen player = "Flush Gorden" // 13 characters max //------------- Call getname(player) @ //Let player enter his name cheats = 0 //Cheats: 1 - enabled, 0 = disabled Delay(200) //This is to "eat" mousebuttons, if any totalpoints = 0L // LEVEL ONE begin: spentrockets = 0 //initialise killedufos = 0 //initialise cyclecount = 24 //initialise display timer maxrockets = 25 //set max number of rockets for this level ufosneeded = 5 //set the number of UFOs to be hit mspeed = 5 //rocket launch speed maccel = 0 //rocket acceleration rockets = 1 //number of rockets on pad angryufo = 0 //if 1 - random shootback, 2 - shoots at all airborne rockets level = 1 //level # bonuslevel = 0 //if 1 - this level is a bonus level reset: Call transitionscreen(level) @ Call levelsplashscreen(level, totalpoints, bonuslevel, player) @ Call flush @ //another attempt to "eat" mousebuttons Call resetufo @ //(Flag to init 'findufo') Randomize levelpoints = 0L prevcount = 0 staticufo = 0 //if 1 - UFO does not go anywhere restart: Call reloadrockets(rockets, mspeed) @ //reload rockets on the pad collisions = 0 //number of collisions in progress pattern = 0 //0 = No multiple launch currently in progress bonus = 0 manual = 0 //1 = manually guided missile savedx = 0 //this is to restore mouse pos after manual guidance aimloop: If (collisions = 0) delay (25) //Keep the speed down only if there are no explosions in progress. stars @toys //("Twinkle, twinkle...") Call showmessages @ //THIS is free position display cyclecount = cyclecount + 1 //increment display timer If (cyclecount = 25) //THIS is the top-left corner status display s = "LEVEL: " + Itot(level) If (!cheats) s = s + " " If (cheats) s = s + " CHEATS ON" Tabxy(1,1) Out(s) s = "Rockets used: " + Itot(spentrockets) + "/" + Itot(maxrockets) + " " Tabxy(1,2) Out(s) s = "UFOs destroyed: " + Itot(killedufos) + "/" + Itot(ufosneeded) + " " Tabxy(1,3) Out(s) s = "Level points: " + I2tot(levelpoints) + " " Tabxy(1,4) Out(s) cyclecount = 0 //reset display counter Endif If (ufohit = 0) //Only refresh UFO if is hasn't been hit yet xoufo = xufo; youfo = yufo //remember old UFO position If (!staticufo) find ufo (xufo, yufo, 100, reset) @toys //Find that pesky UFO if not frozen j = -8 - (angryufo*3) + 2 //(rusty or blue or red) ufo (xufo, yufo, j) @toys // and draw it. If (frikkinlasors = 0) //0 = no UFO gun pellets in the air If (angryufo = 1) And (Random(100) = 51) //if hasn't done that yet... Call ufostrikesback(rockets) @ //shoot back at the rockets Endif If (angryufo = 2) //Try to shoot at all airborne if possible j = 0 Do i = 0, rockets-1 If (rockstat[i] = 2) j = 1 If (rockstat[i] = 4) j = 1 Loop i If (j) Call ufostrikesback(rockets) @ //shoot back at the rockets if any are launched Endif Endif Endif If frikkinlasors Call guidepellets @ //move pellets if any are there //MAIN COMMAND INPUT read mouse (xm, ym, button) //get the mouse coordinates If (xm > (640-(rockets-1)*20)) xm=640-(rockets-1)*20 //limit traverse if more than 1 rocket //MOUSE PROCESSING If (button = 1) And (pattern = 0) //if mouse button 1 and no multiple launch selected If (rockstat[0] = 1) //if rocket#1 is on the pad rockstat[0] = 2 //Fire 1 spentrockets = spentrockets + 1 //increment used rockets counter Starttimer //To avoid single button press triggering more than 1 event Endif Else If (Elapsedtime() > 200) //if rocket#1 is away and mouse button 1 pattern = 1 //launch next rocket on the pad Endif Endelse Endif If (button = 2) And (pattern = 0) //If mouse button 2 and no multiple launch If (rockets > 1) //if more than one rocket in total If (rockstat[1] = 1) //and if rocket#2 is still on the pad rockstat[1] = 2 //Fire 2 spentrockets = spentrockets + 1 Endif Endif Else If (rockstat[0] = 1) //if only one rocket per level rockstat[0] = 2 //Fire 1 (only one rocket) spentrockets = spentrockets + 1 Endif Endelse Endif If (button = 3 And rockstat[2] = 1 And pattern = 0) //both buttons and no multi-launch rockstat[2] = 2 //Fire 3 spentrockets = spentrockets + 1 Endif //This is currently the end of mousecheck //KEYBOARD PROCESSING button = Readkey() //Now test the keyboard If (button = 17 And cheats) //Self-destruct A CHEAT (<Ctrl-Q>) Do i = 0,rockets-1 If (rockstat[i] = 1) spentrockets = spentrockets + 1 If (rockstat[i] != 0) rockstat[i] = 3 //self-destruct all remaining rockets Loop i Endif If (button = 1) //Launch all available rockets <Ctrl-A> pattern = 2 //2 = launch left to right Endif If (button = 26) //Launch all available rockets <Ctrl-Z> pattern = 3 //3 = launch right to left Endif If (button = 32 And pattern = 0) //Launch next available rocket <SPACE> pattern = 1 //1 = launch one at a time Endif If (button = 7) Or (button = 71) Or (button = 103) //<Ctrl-G>, G or g - manual guidance Do i = 0, rockets-1 If manual Break //Only one rocket at a time If (rockstat[i] != 2) Continue //Only flying rocket can be steered manual = 1 //manual control enabled rockstat[i] = 4 //set rocket status to manual savedx = xm; xm = 320; Movemouse (xm,ym) //remember mouse x coord, then centre mouse Loop i Endif If button = 27 Call quit //<ESC> to quit If button = 315 Call help @ //<F1> displays the help screen If button = 8 Call help @ //<Ctrl-H> displays the help screen If (button = 67 Or button = 99) //<c> or <C> toggles cheats cheats = Bool(!cheats) Endif If (button = 12) And (cheats) //<Ctrl-L> goes to nextlevel Goto nextlevel Endif If (button = 4) And (cheats) //<Ctrl-D> changes angryufo (difficulty) angryufo = angryufo + 1; If (angryufo > 2) angryufo = 0 cyclecount = 0 //make sure the message is not erased for 25 cycles (backcompatibility) s = "Difficulty: " + difflevel[angryufo] + " " ufo (xufo, yufo, 0) @toys //remove traces of old ufo Call addmessage(s, 1, 5, 20, -1, 0) @ //load message reader Endif If (button = 6) And (cheats) //<Ctrl-F> - freeze the ufo staticufo = 1 - staticufo Endif If (button = 18) And (cheats) //<Ctrl-R> - accelerating rockets maccel = Bool(!maccel) //acceleration more than 1 is pointless - too fast Endif //End of keyboard check hitrockets = 0 //To see if any rockets are pattern-launched If (pattern) Call patternlaunch(rockets, pattern, hitrockets) @ Do i = 0,rockets-1 //Main rocket cycle - for each rocket If (rockstat[i] = 1) //If on pad and If (manual = 0) Call aimrocket(i, xm) @ //rockets on auto - traverse, else Else Call aimrocket(i, savedx) @ //wait while manual guidance is over Endif If (rockstat[i] = 2) Call guiderocket(i, maccel, xm) @ //If flying - guide rocket If (rockstat[i] = 4) Call guiderocket(i, maccel, xm) @ //If on manual - guide rocket If (rockstat[i] = 3) //If cheating - explode everything Do If (!frikkinlasors) Break //if any pellets are in the air, let them fly off screen Call guidepellets @ Delay(25) Loop Do j = 0, rockets-1 //for all rockets... If (rockstat[j] = 0) Continue //skip dead rockets explode (xrocket[j], yrocket[j]) @toys //explode rockstat[j] = 0 ufohit = 1 //make UFO stop and suffer Loop j explode (xufo, yufo) @toys //explode the UFO ufostat = 0 //and destroy it Endif Loop i Call collideobjects(rockets,hitrockets) @ //check if any objects collided If (collisions) playkaboom @ //if yes - show explosions If (hitrockets) //if rockets expended spentrockets = spentrockets + hitrockets //add to total rockets spent Endif If (manual = 0) //if in auto guidance mode If (savedx) //and if only just off manual Movemouse (savedx, ym) //restore mouse x position savedx = 0 //finish switch back to auto Endif Endif j = spentrockets - prevcount //avoid double counting spent rockets If (j > 0) levelpoints = levelpoints - (j * 10) //reduce points if more rockets spent If (levelpoints < 0) levelpoints = 0 //currently no penalties between levels prevcount = spentrockets //next time count only newly spent rockets j = collisions k = 0 Do i = 1, rockets j = j + rockstat[i-1] If (rockstat[i-1] = 2) k = 2 Loop i If (ufostat = 0 And collisions = 0) //if UFO is destroyed and all explosions finished bonus = (ufohit - 1) * 1000 //1000 points bonus for each extra rocket hitting UFO s = Itot(bonus) If (bonus) Call addmessage(s, xufo/8, yufo/15, 20, -1, 0) @ //load message reader If (k = 0) Call resetufo @ // Reset UFO only if it's dead, no explosions in progress and killedufos = killedufos + 1 // no rockets flying, add to the UFO kill count cyclecount = 24 //reset display timer staticufo = 0 //unfreeze UFO levelpoints = levelpoints + 200 + (300*angryufo) + bonus Endif Endif //Nothing is flying, run out of rockets and UFOs remain - finish the game, loser. If (j + frikkinlasors = 0) And (spentrockets >= maxrockets) And (killedufos < ufosneeded) Goto endgame If (j = 0 And frikkinlasors = 0) Goto restart // No rockets on pad or flying, no pellets - go reload. If (killedufos < ufosneeded) Goto aimloop // Rockets available, UFOs remain - continue playing nextlevel: Call clearallmessages @ totalpoints = totalpoints + levelpoints level = level + 1 If level = 2 // LEVEL TWO spentrockets = 0 killedufos = 0 cyclecount = 24 maxrockets = 40 ufosneeded = 5 mspeed = 5 maccel = 0 angryufo = 0 rockets = 2 bonuslevel = 0 Endif If level = 3 // LEVEL THREE spentrockets = 0 killedufos = 0 cyclecount = 24 maxrockets = 60 ufosneeded = 5 mspeed = 5 maccel = 0 angryufo = 1 rockets = 3 bonuslevel = 0 Endif If level = 4 // LEVEL FOUR spentrockets = 0 killedufos = 0 cyclecount = 24 maxrockets = 99 ufosneeded = 1 mspeed = 5 maccel = 0 angryufo = 2 rockets = 3 bonuslevel = 0 Endif If level = 5 // LEVEL FIVE spentrockets = 0 killedufos = 0 cyclecount = 24 maxrockets = 20 ufosneeded = 5 mspeed = 4 maccel = 1 angryufo = 1 rockets = 2 bonuslevel = 0 Endif If (level = 6) // LEVEL SIX spentrockets = 0 killedufos = 0 cyclecount = 24 maxrockets = 105 ufosneeded = 3 mspeed = 5 maccel = 0 angryufo = 2 rockets = 7 bonuslevel = 1 Endif If (level = 7) // LEVEL SEVEN spentrockets = 0 killedufos = 0 cyclecount = 24 maxrockets = 875 ufosneeded = 25 mspeed = 4 maccel = 1 angryufo = 2 rockets = 7 bonuslevel = 1 Endif If (level <= 5) Goto reset If (level <= 6) And (totalpoints > 8000) Goto reset //if bonus conditions are met If (level <= 7) And (totalpoints > 10000) Goto reset //if bonus conditions are met endgame: Call transitionscreen(level) @ If ((spentrockets >= maxrockets) Or (totalpoints = 0)) s = "GAME OVER FOR PLAYER <"+player+">" Tabxy(41-(Length(s)/2), 10) Cwrite(s, 15, 0) s = "YOU'VE LOST!!! THE EARTH IS TAKEN OVER BY UFOS!!!" Tabxy(41-(Length(s)/2), 12) Cwrite(s, 12, 0) Sound(550);Delay(500) Sound(400);Delay(500) Sound(320);Delay(500) Sound(270);Delay(1000) Nosound s = "Total score: " + I2tot(totalpoints) Tabxy(41-(Length(s)/2), 15) Cwrite(s, 7, 0) Tabxy(38, 25) Drawbutton(1, " Finish ", 0, 0) Showmouse Movemouse(320,400) Do i = 1, 200 If (Readbuttons() != 0) Break Delay(25) Loop Hidemouse Endif Else Call winner (totalpoints, player) @ //display the victory screen Endelse Delay(500) Quit //####### END OF THE MAIN MODULE ############# // ************ TASKS ********************** Task resetufo Common Int frikkinlasors, xpellet[3], ypellet[3], livepellet[3] Common Int ufostat, reset, ufohit reset=1 //(Flag to init 'findufo') ufostat = 1 //if 1 UFO is alive ufohit = 0 //if 1 UFO is hit but may not be dead yet. frikkinlasors = 0 Do i = 0,2 //remove all pellets, just in case xpellet[i] = 0 ypellet[i] = 0 livepellet[i] = 0 Loop i Return Task ufostrikesback (Int numrock) Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12], speedrocket[12] Common Int rockstat[12], ufostat, reset, collisions Common Int xufo, yufo, xoufo, youfo Common Int frikkinlasors, xpellet[3], ypellet[3], xopellet[3], yopellet[3], livepellet[3] Common Int dxpellet, dypellet Float fspeed ufospeed = xufo - xoufo; If (ufospeed = 0) ufospeed = 1 // if >0 = flying East chosenrocket = 0 threat = 0 //reset threat level Do i = 0, numrock-1 If (rockstat[i] = 0) Continue // rocket's dead, next q = rockstat[i] * 20 dx = xufo - xrocket[i]; If (dx = 0) dx = 1 //Avoid division by 0 here; >0 = left of UFO dy = yufo - yrocket[i]; If (dy = 0) dy = 1 //Avoid division by 0 here; >0 = above UFO If (speedrocket[i] = 0) speedrocket[i] = 1 //Avoid division by 0 here intercept = Wabs(Wabs(dx / ufospeed) - Wabs(dy / speedrocket[i])) If (dy < 0) q = q + 100 If ((Sgn(dx)+ Sgn(ufospeed)) = 0) Or (Wabs(ufospeed) <= 3) q = q + 100 If (intercept < 10) q = q + 6000 / Wabs(dy) End End End If (q >= threat) //if this rocket's more dangerous than the last one... threat = q //... remember its threat level and... chosenrocket = i + 1 //...choose this rocket Endif Loop i If chosenrocket != 0 // if any rocket is at all dangerous - fire at it i = chosenrocket - 1 deflection = 0 fkvadratspeed = 196.0 // slant speed of pellets = 14 pixels per cycle dx = xufo - xrocket[i]; If (dx = 0) dx = 1 //Avoid division by 0 here If (rockstat[i] = 2) fspeed = Float(speedrocket[i]) deflection = Wabs(Int(fspeed / 14.0 * Float(dx))) Endif dy = yufo - yrocket[i] + 15 + deflection fkvadrattan = Pow((Float(dy)/Float(dx)),2) //squared tan If (fkvadrattan = 0) fkvadrattan = 0.001 //avoid division by 0 when dy = 0 fkvadratdx = fkvadratspeed/(fkvadrattan + 1.0) //squared x increment for pellets fkvadratdy = fkvadratspeed - fkvadratdx //squared y increment for pellets dxpellet = Int(Sqrt(fkvadratdx))*Sgn(dx) //negative dx or dy means rocket is dypellet = Int(Sqrt(fkvadratdy))*Sgn(dy) //farther from 0,0 than UFO Solidcolor (10) //draw the 1st instance of the pellets Do i = 0, 2 xpellet[i] = xufo - (dxpellet * (4 - (i * 2))) ypellet[i] = yufo - (dypellet * (4 - (i * 2))) livepellet[i] = 1 Solidcircle(xpellet[i],ypellet[i],1) Loop i frikkinlasors = 3 // fire 3 pellets at a time Endif Return Task guidepellets Common Int frikkinlasors, xpellet[3], ypellet[3], xopellet[3], yopellet[3], livepellet[3] Common Int dxpellet, dypellet Do i = 0,2 If (livepellet[i] != 0) // for all live pellets... xopellet[i] = xpellet[i] yopellet[i] = ypellet[i] xpellet[i] = xpellet[i] - dxpellet ypellet[i] = ypellet[i] - dypellet Solidcolor (0) Solidcircle(xopellet[i],yopellet[i],1) If (ypellet[i] < 0 Or ypellet[i] > 480) //Is pellet off screen? livepellet[i] = 0 Endif If (xpellet[i] < 0 Or xpellet[i] > 640) //Is pellet off screen? livepellet[i] = 0 Endif If (livepellet[i] = 0) frikkinlasors = frikkinlasors - 1 //if any pellet's gone, decrement counter Else Solidcolor (10) Solidcircle(xpellet[i],ypellet[i],1) Endelse Endif Loop i Return Task reloadrockets (Int numrock, Int ms) Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12], speedrocket[12] Common Int rockstat[12] Do i = 0,numrock-1 yorocket[i] = 464 yrocket[i] = 464 rockstat[i] = 1 // 0-destroyed;1-on pad;2-in flight;3-K4;4-manual guidance speedrocket[i] = ms // initial speed at launch (pxl/cycle) Loop i Return Task patternlaunch (Int numrock, Int pattern, Int hitrockets) Common Int rockstat[12] If (Elapsedtime() < 200) Return k = 0 If (pattern = 1) Or (pattern = 2) // if one at a time or left to right Do i = 0, numrock-1 If (rockstat[i] = 1) k = i rockstat[i] = 2 hitrockets = hitrockets + 1 Starttimer Break Endif Loop i Endif If (pattern = 3) // if right to left Do i = numrock-1, 0 Step -1 If (rockstat[i] = 1) k = Wabs(i - numrock + 1) rockstat[i] = 2 hitrockets = hitrockets + 1 Starttimer Break Endif Loop i Endif If (pattern = 1) pattern = 0 // if one at a time - pattern finished If (k >= (numrock-1)) pattern = 0 // if all rockets gone - pattern finished Return Task aimrocket(Int i, Int xm) Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12] Common Int rockstat[12], ufostat xorocket[i] = xrocket[i] xrocket[i] = xm + i*20 // offset to the right for multiple rockets rocket (xorocket[i], yorocket[i], 0, 0) @toys // clear the last rocket's position rocket (xrocket[i], yrocket[i], i+3, 0) @toys // paint rocket at new position Return Task guiderocket(Int i, Int ma, Int xm) Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12], speedrocket[12] Common Int rockstat[12], manual If (rockstat[i] = 0) Return xorocket[i] = xrocket[i] // remember current position yorocket[i] = yrocket[i] If (rockstat[i] = 4) // if on manual... dx = (xm - 320) / 70 // mouse x coord controls drift angle xrocket[i] = xrocket[i] + dx Endif If (speedrocket[i] <= 30) speedrocket[i] = speedrocket[i] + ma //don't let rocket to go too fast yrocket[i] = yrocket[i] - speedrocket [i] rocket (xorocket[i], yorocket[i], 0, 4) @toys // remove old rocket (with flame on). If (yrocket[i] < 0) Or (xrocket[i] < 0) Or (xrocket[i] > 640) //Is rocket off screen? If (rockstat[i] = 4) manual = 0 rockstat[i] = 0 Endif Else rocket (xrocket[i], yrocket[i], i+3, 4) @toys // paint new rocket (with flame on). Endelse Return Task collideobjects(Int numrock, Int hitrockets) Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12], speedrocket[12] Common Int rockstat[12], ufostat, collisions, ufohit, manual Common Int xufo, yufo Common Int explodex[6], explodey[6], explodestat[6], explodetype[6] Common Int frikkinlasors, xpellet[3], ypellet[3], livepellet[3] Do i = 0,numrock-1 //First see if any live rockets hit by pellets If (frikkinlasors != 0) And (rockstat[i] != 0) Do j = 0,2 If (collisions >= 6) Continue //Too many explosions in progress! If (livepellet[j] = 0) Continue //This pellet's dead If (rockstat[i] = 0) Continue //This rocket has been hit already! If (wabs(xrocket[i] - xpellet[j])>7) Continue //Did pellet hit rocket? If If (wabs(yrocket[i] - ypellet[j])>(20 + speedrocket[i]/3)) Continue // not, continue. If (rockstat[i] = 1) hitrockets = hitrockets + 1 //If the rocket hasn't been spent yet... If (rockstat[i] = 4) manual = 0 //manual mode off rockstat[i] = 0 //It has now collisions = collisions + 1 //yes this is a collision explodex[collisions-1] = xrocket[i] //make the collisions coord those of explodey[collisions-1] = yrocket[i] //the hit rocket explodestat[collisions-1] = 0 //reset explosion stage counter explodetype[collisions-1] = j + 1 //collision type = number of the pellet livepellet[j] = 0 //this pellet dies in the explosion frikkinlasors = frikkinlasors - 1 //number of pellets in the air reduced Loop j //next pellet... Endif Loop i //next rocket... Do i = 0,numrock-1 //Now see if any live rocket hit the UFO If (collisions >= 6) Continue //Too many explosions in progress! If (ufostat = 0) Continue //UFO's dead, can't be hit anymore If (rockstat[i] = 0) Continue //Rocket's gone, nothing to see here, move along If (wabs(xrocket[i] - xufo)>30) Continue //Did rocket hit UFO? If If (wabs(yrocket[i] - yufo)>(10 + speedrocket[i]/3)) Continue // not, continue flying. If (rockstat[i] = 4) manual = 0 //manual mode off rockstat[i] = 0 collisions = collisions + 1 //It's a hit, so increment collisions count explodex[collisions-1] = xrocket[i] //Explode coords = rocket's centre explodey[collisions-1] = yrocket[i] explodestat[collisions-1] = 0 //reset explosion stage counter explodetype[collisions-1] = 0 //type = 0 means UFO is hit (not a pellet) ufohit = ufohit + 1 //Yep, UFO's hit and burning (count how many times) Loop i //next rocket Return Task playkaboom Common Int xrocket[12], yrocket[12], xorocket[12], yorocket[12] Common Int rockstat[12], ufostat, collisions Common Int xufo, yufo Common Int explodex[6], explodey[6], explodestat[6], explodetype[6] Int hue[] = {4, 6, 12, 14, 15} sound = 1 If (collisions = 0) Return //you shouldn't have called us here, go away... // The idea is that all collisions are served 1 cycle of "explodestat[]" every time this routine runs // Once all explosions have been served, check if any of them finished on this cycle // If it did - decrement the collisions count and filter the explode array for finished explosions m = collisions - 1 //if only one collision m = 0 Do i = 0, m //it runs at least once, but it's OK x = explodex[i] //Set the explosion centre coords y = explodey[i] // This is the main IF-ELSE in the Do-Loop i If (explodetype[i] != 0) //If 0 - UFO is hit, if >0 rocket shot by pellet If (explodestat[i] = 0) //This is the beginning of a pellet explosion Solidcolor (10) Do l = 1, 6 Solidcircle(x, y, l * 5) //Big round green flare If (sound) Sound(2000-5*l) Delay (1) If (sound) Sound (2000-10*l) Delay (1) If (sound) Sound (1000-15*l) Delay (2) Loop l Endif If (explodestat[i] = 1) //Next pellet burst cycle (extinguish flare) Solidcolor (0) If (sound) Sound (500) Do l = 1, 6 Solidcircle(x, y, l * 5) Loop l Endif If (explodestat[i] >= 2) And (explodestat[i] <= 10) //Finish pellet rumbling... Do l = 1, 10 Step m + 1 If (sound) Sound (Random(500)) Delay(3) Loop l Endif explodestat[i] = explodestat[i] + 1 //End of current cycle - increment status If (explodestat[i] > 10) //End of last cycle If (sound) Nosound explodestat[i] = 0 //reset the explosion status flag rocket (x, y, 0, 4) @toys //clean-up the rocket bits collisions = collisions - 1 //This explosion is now over Endif Endif Else //If we are here - it's a UFO-rocket explosion If (explodestat[i] = 0) //If 0 - this is the start of an explosion // Backcolor (7) Delay (1) // Backcolor (8) Delay (2) // Backcolor (1) Endif If ((explodestat[i] >= 0) And (explodestat[i] <= 33)) //Second stage - lovely lines and ovals Do n = 0 To 5 Step m + m + 1 r = (explodestat[i]*6 + n)/2 Solid color (hue[4-r/40]) a = Random(Random(Random(r/3+1)+1)+1)+1 b = Random(Random(Random(r/3+1)+1)+1)+1 Filled ellipse (x, y, a, b) dx = Random(101)-50 dy = Random(101)-50 dr = Sqrt(dx*dx+dy*dy)+1 dx = (r*dx)/dr ; dy = (r*dy)/dr Line color (hue[Random(Random(5)+1)]) Line (x+dx/2, y+dy/2, x+dx, y+dy) a = Random(Random(r/3+1)+1) b = Random(Random(r/3+1)+1) Ellipse (x, y, a, b, 0) If (sound) Sound(Random(3000-5*r)) Delay (1) If (sound) Sound (Random(3000-5*r)) Delay (1) If (sound) Sound (Random(3000-5*r)) Loop n If (sound) Nosound Endif If ((explodestat[i] >= 34) And (explodestat[i] <= 37)) //Third stage - black circles Line color (0) Do n = 1 To 25 Step m + 1 If !Random(Random((explodestat[i]-34)*25 + n)) If (sound) Sound (Random(2000)) Delay (1) Endif Circle (x+Random(11)-5, y+Random(11)-5, (explodestat[i]-34)*25 + n) Delay (1) If (sound) Nosound Loop n Endif If (explodestat[i] >= 38) And (explodestat[i] <= 49) //Nearing the end - fracture shrapnel Line color (0) Do n = 4, 0 Do p = 1 To 9 Step m + 2 Circle (x+Random(11)-5, y+Random(11)-5, Random((explodestat[i]-38)*9+p)) Loop p Loop n Endif If (explodestat[i] >= 50) And (explodestat[i] <= 61) //End of a rocket-UFO explosion Solid color (0) Do n = 1 To 9 Step m + 2 //wipe out the remaining mess Solid circle (x, y, (explodestat[i]-50)*10 + n) Loop n Endif explodestat[i] = explodestat[i] + 1 //Increment explosion status If (explodestat[i] > 61) explodestat[i] = 0 //0 here means the end of explosion collisions = collisions - 1 //This explosion is now over ufostat = 0 //UFO must be dead now (but may catch more rockets) If (sound) Nosound Endif Endelse //End of explosion type selection Loop i //Serve next explosion //remove all entries which have explodestat = 0 from between those which don't m = 4 Do k = 0, m If (explodestat[k] != 0) Continue Do l = k, m explodex[l] = explodex[l+1] explodey[l] = explodey[l+1] explodestat[l] = explodestat[l+1] explodetype[l] = explodetype[l+1] Loop l //we need to start next iteration from the same k as before k = k - 1 //to catch any 0's that moved from l + 1 m = m - 1 //reduce the number of entries to check Loop k Return Task flush // Try to intercept these mouse clicks....... Int x, y, b Flushkbd () Readmouse(x,y,b) flush: If (b) b = 0 Goto flush Endif Delay(500) Return

Source Listing ("Tasks") [Must be pre-compiled separately]

Pro-SiMPLE // TASKS FOR THE CUSTOMISED UFO BLASTER // INTRO SCREENS ETC. Task intro * * The main intro screen * Float alpha, beta, gamma, a, b, ra, rb, radius, angle, rangle Float2 cosalpha, sinalpha, cosbeta, sinbeta, cosgamma, singamma Common Int flagsky Int xm = 0, ym = 0, button = 0 Cls(1) Backcolor(1) Delay(2000) Frame Tabxy(24,5) Framedtext(" THE INCREDIBLE UFO BLASTER!\nPress a mouse button to continue", 11, 8, 14) xcentre = 320 ycentre = 320 radius = 100.0 //Now, launch UFO a = 200.0 b = 50.0 ra = 200.0 rb = 50.0 angle = 15.0 rangle = -45.0 //Start beta = -1 * angle * (3.14159 / 180.0) sinbeta = Sin(beta) cosbeta = Cos(beta) gamma = -1 * rangle * (3.14159 / 180.0) singamma = Sin(gamma) cosgamma = Cos(gamma) //start this UFO @ 0 degrees x = xcentre + Int(a * cosbeta) y = ycentre + Int(a * sinbeta) //start this UFO @ 90 degrees rx = xcentre + Int(-1 * rb * singamma) ry = ycentre + Int(rb * cosgamma) xm = 0 ym = 0 button = 0 Do k = 1, 20 Do i = 0, 360 Step 5 alpha = Float(i) * (3.14159 / 180.0) sinalpha = Sin(alpha) cosalpha = Cos(alpha) x = xcentre + Int(a * cosalpha * cosbeta - b * sinalpha * sinbeta) y = ycentre + Int(a * cosalpha * sinbeta + b * sinalpha * cosbeta) Sound (x + y + 20) Call starsky (25, 120, 24, 25) @ ufo (x, y, -14) @toys alpha = Float(i + 90) * (3.14159 / 180.0) sinalpha = Sin(alpha) cosalpha = Cos(alpha) rx = xcentre + Int(ra * cosalpha * cosgamma - rb * sinalpha * singamma) ry = ycentre + Int(ra * cosalpha * singamma + rb * sinalpha * cosgamma) If (ry > 435) Solidcolor(15) Solidrectangle(380, 456, 500, 457) Solidcolor(7) Solidrectangle(380, 458, 500, 473) Solidcolor(8) Solidrectangle(380, 474, 500, 478) Solidcolor(0) Solidrectangle(380, 479, 500, 480) Endif ufo (rx, ry, -12) @toys read mouse (xm, ym, button) Readquitkey(27) If button Break Delay(25) If (random(300) = 201) explodsky(xcentre, ycentre, 1) @ Loop i If button Break Loop k Nosound Return Task getname(Text default) * * The second part of the intro. Displays the main controls and allows player * to type in his name. "default" determines the default name displayed in the * dialogue box. * If (default = "") default = "PLAYER ONE" Cls (1) Backcolor(1) Frame Tabxy(21,5) Framedtext("ENTER YOUR NAME, PLAYER: ", 15, 8, 14) Call helpscreen ( 8 ) @ Tabxy(37, 25) Drawbutton(1, " Continue ", 9, 0) Showmouse Movemouse(320,400) startx = 46 starty = 5 cursor = "_" Tabxy(startx, starty) s = default + cursor Cwrite(s, 14, 8) name = default pos = Length(name) - 1 Do key = Readkey() If (key = 13) Or (Readbuttons() != 0) Break If (key = 27) Quit If (key>=48 And key<=57) Or (key>=65 And key <= 89) Or (key>=97 And key <= 122) Or (key = 32) pos = pos + 1 If (pos > 12) pos = 12 Endif Else name = name + Char(key) Endelse Endif If (key = 8) Tabxy(startx+pos+1, starty) Cwrite(" ",14,8) pos = pos - 1; If (pos < 0) pos = -1 name = "" Endif Else name = Extract(name, 0, pos) Endelse Endif If (key > 0) If (pos>=0) Tabxy(startx+pos, starty) s = Extract(name, pos, pos) + "_" Endif Else Tabxy(startx, starty) s = "_" Endif Cwrite(s,14,8) Endif Loop Delay(500) Hidemouse If (name != "") default = name Return Task help * * In-game help screen, listing the main controls * Cls (0) Backcolor(0) Call starsky (25, 25, 24, 25) @ Frame Call helpscreen ( 8 ) @ Tabxy(37, 25) Drawbutton(1, " Continue ", 9, 0) Showmouse Movemouse(320,400) Do key = Readkey() If (key = 315) Or (Readbuttons() != 0) Break If (key = 27) Quit Delay(5) Loop Delay(500) Hidemouse Cls(0) Return Task helpscreen (Int tabl) * * * Controls listing for use in the game intro and in the in-game help function * "tabl" parameter determines the display starting line * If (tabl <= 0) tabl = 1 If (tabl > 10) tabl = 10 Tabxy(10,tabl); tabl = tabl + 1 Cwrite(" HOW TO PLAY (F1):",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("--------------------------------------------------------------",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Mouse move - aim rocket(s)",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Mouse1 or Space - launch the 1st or the next available rocket",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Mouse2 - launch the 2nd rocket",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Mouse1 + Mouse 2 - launch the 3rd rocket",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-A - launch all rockets left to right",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-Z - launch all rockets right to left",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-D - change difficulty (cheats only)",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-L - go to next level (cheats only)",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-R - accelerate rockets (cheats only)",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-F - freeze the UFO (cheats only)",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("Ctrl-Q - Kaboom! (cheats only)",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("ESC - quit to DOS",3,0) Tabxy(10,tabl); tabl = tabl + 1 Cwrite("--------------------------------------------------------------",3,0) Return Task transitionscreen (Int level) * * The expanding transition screen for use in the intros and between levels * Common Int flagsky=0 //for Intro: a=25, b = 120, x = 24, y = 25 If (level = 1) Cls(1) Frame Endif Else Cls(0) Endelse Backcolor(0) flagsky = 0 xcentre = 320 ycentre = 240 Do i = 0, 241 Step 6 a = xcentre - Int (Float(i) * 1.33); If (a < 0) a = 0 b = ycentre - i; If (b < 0) y = 0 x = xcentre + Int (Float(i) * 1.33); If (x > 639) x = 639 y = ycentre + i; If (y > 479) y = 479 Solidcolor(0) Linecolor(15) Filledrectangle(a, b, x, y) Call starsky(a, b, 639-x, 479-y) @ flagsky = 0 Delay(5) Loop i Return Task levelsplashscreen(Int level, Int2 totalpoints, Int bonuslevel, Text player) * * The level change screen and music player * Int notes[] ={500,0,500, 450, 0,450,0,450, 400, 0,500,0,500, 450, 0,450,375, 340, 0} Int intervals[] ={400,5,500,3000,15,400,5,500,3000,15,400,5,500,3000,15,400,500,1000,5000} Int notesa[] ={494, 0,494,523,392,370,494,370,0,370,330,392,494,392,370,330,370,392, 370, 0} Int intervalsa[]={600,50,800,300,600,300,300,300,1,300,300,300,300,300,600,200,200,200,1000,5000} Graphon Int xm, ym, button=0 Cls(0) Backcolor(0) stars @toys If (bonuslevel) s = "LEVEL "+Itot(level)+" - BONUS!" colour = 10 Endif Else s = "LEVEL "+Itot(level) colour = 12 Endelse s1 = "Press a mouse button to continue..." shalflen = Length(s) / 2 s1halflen = Length(s1) / 2 padnum = s1halflen - shalflen Do i = 1, padnum s = " " + s Loop i Delay(500) xline = 41 - Maxi((Length(s1) / 2),(Length(s) / 2)) yline = 12 Tabxy(xline, yline) s = s + "\n" + s1 Framedtext(s, colour, 0, 9) If (level > 1) s = "TOTAL SCORE: " + I2tot(totalpoints) Else s = "Game starts for player <" + player + ">" shalflen = Length(s) / 2 Tabxy(37, 25) Drawbutton(1, " Continue ", 0, 0) Showmouse Movemouse(320,400) finish = 0 If (level = 1) Do k = 0,18 If (notes[k]) Sound(notes[k]) Else Nosound Starttimer Do i = 1, 6000 If (i%40 = 0) Tabxy(41 - shalflen, 20) Cwrite(s, (random(7)+9)%16, 0) Endif Readquitkey(27) If (Readbuttons() != 0) finish = 1 If ((Elapsedtime() >= intervals[k]) Or (finish)) Break If (!notes[k]) Delay(1) Loop i If finish Break Loop k Endif Else Do k = 0,19 If (notesa[k]) Sound(notesa[k]) Else Nosound Starttimer Do i = 1, 6000 If (i%40 = 0) Tabxy(41 - shalflen, 20) Cwrite(s, (random(7)+9)%16, 0) Endif Readquitkey(27) If (Readbuttons() != 0) finish = 1 If ((Elapsedtime() >= intervalsa[k]) Or (finish)) Break If (!notesa[k]) Delay(1) Loop i If finish Break Loop k Endelse Nosound Hidemouse Cls Return Task winner(Int2 totalpoints, Text player) * * "Game over, you win" screen and music player * Int notes[] ={350,0,350,0,350,0,350,330,294,277,294,330, 294,0,294,261,233,220,294,330,350,330, 294, 0} Int intervals[]={500,5,500,5,200,5,700,400,300,700,400,400,1500,5,700,400,400,700,400,400,800,800,2000,5000} Text s[5] Int sh[5] Common Int offset=0 Common Int r[]={0,63,63,63,63,63,31, 0, 0,31,31,31,47,63,63,63} Common Int g[]={0, 0,15,31,47,63,63,63,63,31,15, 0, 0, 0, 0, 0} Common Int b[]={0, 0, 0, 0, 0, 0, 0, 0,31,63,63,63,63,63,42,21} real=-0.1831; imag=-0.6639; inc=0.000002 graphon Do i=1,15 +setpalette (i_, i_); +setrgbpalette (i_, r_[i_], g_[i_], b_[i_]); Loop Do y=0,479 rx=real Do x=0,639 color=mandelbrot (rx, imag, 256) If ((x+y)%2) put pixel (x, y, color) Else put pixel (x, y, color/16) rx=rx+inc Loop imag=imag+inc read quitkey (27) Loop ufo(325,225,8) @toys s[0] = "CONGRATULATIONS!" string = "You've won, player <" + player + ">" s[1] = string s[2] = "The Earth is saved." s[3] = "For now..." string = "Total score = " + I2tot(totalpoints) s[4] = string Do i = 0,4 sh[i] = Length(s[i]) / 2 Loop i smax = sh[0] Do i = 0, 3 smax = Maxi(smax,sh[i+1]) Loop i padnum = 0 Do k = 0,4 padnum = smax - sh[k] If padnum string = s[k] Do i = 1, padnum string = " " + string Loop i s[k] = string Endif Loop k xline = 41 - smax yline = 5 Tabxy(xline, yline) string = s[0] + "\n" + s[1] + "\n" + s[2] + "\n" + s[3] + "\n\n" + s[4] Framedtext(string, 15, 0, 7) Tabxy(38, 25) Drawbutton(1, " Finish ", 0, 0) Showmouse Movemouse(320,400) finish = 0 Do n = 0,23 If (notes[n]) Sound(notes[n]) Else Nosound Starttimer Do i = 1, 6000 If (i%50 = 0) offset=cycle (offset-1, 15) Do k=1,15 color=1+(k+offset-1)%15 +setpalette (k_, color_); Loop k Endif read quitkey (27) If (Readbuttons() != 0) finish = 1 If ((Elapsedtime() >= intervals[n]) Or (finish)) Break Delay(1) Loop i If finish Break Loop Nosound Hidemouse Cls Return Task starsky (Int cuta, Int cutb, Int cutx, Int cuty) // * * A modified stars routine cropping the starfield by a specified margin * cuta, cutb - by how much to crop top left; cutx,cuty - bottom right * for the Intro: a=25, b = 120, x = 24, y = 25 * Common Int x[200],y[200],flagsky=0 Common Int hues[5]={0,7,8,15,14} xx=xpixels() - cutx yy=ypixels() - cuty If flagsky=0 randomize Do k=0,199 x[k]=random(xx - cuta) + cuta y[k]=random(yy - cutb) + cutb Loop Graphon flagsky=1 Endif Do k=0,99 solid color (hues[random(5)]) putpixel (x[k],y[k],hues[random(5)]) solid circle (x[k+100], y[k+100], 1) Loop Return Task explodsky (Int x, Int y, Int sound) * * Explosions (can't remember if that has been modified or not) * Common Int hue[] = {4, 6, 12, 14, 15} Do n = 0, 199 r = n/2 Solid color (hue[4-r/40]) a = Random(Random(Random(r/3+1)+1)+1)+1 b = Random(Random(Random(r/3+1)+1)+1)+1 Filled ellipse (x, y, a, b) dx = Random(101)-50 dy = Random(101)-50 dr = Sqrt(dx*dx+dy*dy)+1 dx = (r*dx)/dr ; dy = (r*dy)/dr Line color (hue[Random(Random(5)+1)]) Line (x+dx/2, y+dy/2, x+dx, y+dy) a = Random(Random(r/3+1)+1) b = Random(Random(r/3+1)+1) Ellipse (x, y, a, b, 0.0) If (sound) Sound(Random(3000-5*r)) Delay (1) If (sound) Sound (Random(3000-5*r)) Delay (1) If (sound) Sound (Random(3000-5*r)) Delay (1) Readkey Loop Line color (0) k = 7 Do r = 1, 100 If (sound) Nosound If !Random(Random(r)) If (sound) Sound (Random(2000)) Delay (1) Endif Nosound If !Random(Random(r)) If (sound) Sound (Random(2000)) Delay (1) Endif Circle (x, y, r) Readkey Loop If (sound) Nosound Delay (50) Do k = 7, 0 Do r = 1, 100 Circle (x+Random(11)-5, y+Random(11)-5, Random(r)) Readkey Loop Loop Solid color (0) Do r = 1, 100 Solid circle (x, y, r) Readkey Loop Return Task showmessages * * Used for asynchronous display of up to 5 messages at specified locations * and for a specified number of cycles * Common Text msgtext[5] Common Int msgx[5], msgy[5], msgticks[5], msgtype[5] Do i = 0,4 If (msgticks[i] = 0) Continue If (msgticks[i] = 1) // if only one cycle left - clear the message mlength = Length(msgtext[i]) msgtext[i] = " " Do j = 2, mlength msgtext[i] = msgtext[i] + " " Loop j Endif Tabxy(msgx[i], msgy[i]) If (msgtype[i] >= 0) //If >= 0 this is the FG colour, if 0 - message to be OUTed Cwrite(msgtext[i], msgtype[i], 0) Endif Else Out(msgtext[i]) Endelse msgticks[i] = msgticks[i] - 1 Loop i Return Task clearallmessages * * Sets time-out on all messages being displayed by "showmessages" * Common Text msgtext[5] Common Int msgx[5], msgy[5], msgticks[5], msgtype[5] Do i = 0,4 If (msgticks[i] = 0) Continue msgticks[i] = 1 Loop i Call showmessages @ Return Task addmessage (Text message, Int x, Int y, Int ticks, Int type, Int error) * * This is for queueing messages for "showmessages" * x, y = message coordinates in text lines and columns * "ticks" = number cycles the message needs to be repeated * "type" = 0 - use Out, >0 - the FG colour for Cwrite * "error" = 1 if the array is full and the new message was not queued * Common Text msgtext[5] Common Int msgx[5], msgy[5], msgticks[5], msgtype[5] error = 1 If (x <=0 ) x = 1 If (x >=80 ) x = 76 // leave space to show a 4 digit number If (y <= 0) y = 1 If (y > 25) y = 25 If (x <= 25) And (y <= 4) //if this interferes with the other display... If (y <= 2) x = 26 Else y = 5 Endif Do i = 0,4 If (msgticks[i] != 0) Continue msgtext[i] = message msgx[i] = x msgy[i] = y msgticks[i] = ticks msgtype[i] = type error = 0 Loop i Return

How To Run The Program If you're feeling ambitious and have nothing better to do, you could just copy the source listings by hand! However, there is a much easier way: Copy the "Main Program" source listing into the Windows Clipboard Paste the Clipboard into a new text document Copy the "Tasks" source listing into the Windows Clipboard Paste the Clipboard into another new text document, and then change the file's extension from ".txt" to ".src" Drop the ".src" document (the one containing the source listing for the tasks) onto the "Drop SiMPLE Listing Here" icon Drop the ".txt" document (the one containing the source listing for the main program) onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)

  [ Webmaster | FAQ's | Home Page | Contact Us ]