Distance, positioning, need help please

Blitz3D Forums/Blitz3D Programming/Distance, positioning, need help please

Rrtaya_Tsamsiyu (Posted 2015) [#1]

i've been working on 2d RTS game. Uses all ASCII characters. Right now i'm trying to implement AI. The objects i have so far are Factories, Ammo Dumps, Tanks, and Supply Piles that randomly spawn in the world at the beginning of the game. ----------------------------------------- Some details: Ammo Dumps collect money from supply piles, and must be within 2 squares of a pile. Ammo Dumps and Factories can only be built up to 3 squares away from a Factory. For testing, the only supply pile that spawns is just close enough to the South East start position for an ammo dump. To get the AI to spawn there set your spawn point to NW at the beginning of the game. The problem is this; i want the AI to, if a factory is not close enough to build an ammo dump, build a factory toward the closest supply pile. Right now the AI's factories spawn, well, nowhere near where they need to. These calculations are made more difficult by the fact that when you move around the map, it is actually the map that is moving, and therefore the coordinates of all objects. Map is 80 pixels wide per square + 8, 13 pixels tall per square +13. Any help is appreciated, i'm sorry if my code is weird lol. Problem code is between lines 749 and 762 ;This section makes the screen a certain size and sets the buffer Graphics 800,600 SetBuffer BackBuffer() AppTitle "RTS";and sets the title ;Keys Const KEsc=1,KLeft=203,KRight=205,KUp=200,KDown=208,KW=17,KA=30,KS=31,KD=32,KEnter=28,KSpace=57,KZ=44,KX=45,KF=33,KV=47,KC=46,KR=19,KP=25,K1=2,K2=3,K3=4,K4=5,K5=6,K6=7,K7=8,K8=9,K9=10,K0=11,KH=35 SeedRnd MilliSecs() .RestartHere Cls ok=0 While Not KeyHit (KEnter);Welcome screen before we do anything Text 250, 100, "Welcome to Text RTS!" Text 250, 113, "Press Enter to start" Text 250, 126, "press H to see the rules" Text 250, 139, "or Escape To Exit" Flip If KeyDown (KH) = True Then HelpScreen() If KeyHit (KEsc) = True Then End Wend ;<>* Size = 30 While ok = 0 Cls Text 250, 100, "Please select the size" Text 250, 113, "30 is optimal, other sizes work but make" Text 250, 126, "the mini map act strange. Can't be below 5." Text 250, 139, "Use the arrow keys to change size." Text 250, 152, "Size:"+Size Flip If KeyHit (KUp) = True Or KeyHit (KRight) = True Then Size=Size+1;Up If KeyHit (KDown) = True Or KeyHit (KLeft) = True Then Size=Size-1;Down If Size > 5 And KeyHit (KEnter) = True Then ok=1 If Size < 5 And KeyHit (KEnter) = True Then ok=0 If KeyDown (KH) = True Then HelpScreen() If KeyHit (KEsc) = True Then End Wend Global StartCorner = 0 ok=0 While ok = 0 Cls Text 250, 100, "Select which corner to start in" Text 250, 113, "Press 1 for NW, 2 = NE, 3 = SW, 4 = SE" Text 250, 126, "Starting Corner:"+StartCorner Flip If KeyHit (2) = True Then StartCorner = 1 If KeyHit (3) = True Then StartCorner = 2 If KeyHit (4) = True Then StartCorner = 3 If KeyHit (5) = True Then StartCorner = 4 If StartCorner <> 0 And KeyHit (KEnter) = True Then ok=1 If StartCorner = 0 And KeyHit (KEnter) = True Then ok=0 If KeyDown (KH) = True Then HelpScreen() If KeyHit (KEsc) = True Then End Wend ;Globals and Constants, grid stuff is farther down. Global CursorX = 96 ;Starting cursor position Global CursorY = 260 ;Starting cursor position Global CursorPos ;1 through 9 to say which of it's nine possible blocks the cursor is in, left to right top to bottom. Global ObjectX# ;Used mainly for mini map stuff Global ObjectY# ;Used mainly for mini map stuff Global Money = 50 ;Starting money Global ContinueGame = 0 ;Game Loop Const FastScroll = 3 ;How many blocks map moves with arrow keys Global Selected = False ;Show selection panel or not Global SelectionTanks = 0 ;How many tanks are selected Const FPS = 50 ;Controls Frames per Second Global Moved = False ;See if we've moved since starting selection Global Change = False ;If the cursor moves while selecting, select x number of tanks and stop selection process. Used in Selection() ;New Event is used by Event Log Global NewEvent$="",EventLog1$="New Game Started",EventLog2$="",EventLog3$="",EventLog4$="" Global EventLog5$="",EventLog6$="",EventLog7$="",EventLog8$="",EventLog9$="",EventLog10$="" Global RestartGame=False ;Used in EscMenu Global Money2 = 500 ;Carectors are 8 wide, 80+8 is total length of HoriWall ;Carectors are 13 tall, 78+13 is total hieght of VertWall ;Grid. Source is top left corner Global Width = Size ;Width of game board. Changing this from 30 still makes mini map act wierd. Global Hight = Size ;Hight of game board. Changing this from 30 still makes mini map act wierd. Global X=8 ;Width [location]. Starts off to allow for border Global Y=13 ;Hight [location]. Starts off to allow for border Const HoriWall$ = "+=========+";For grid squares Const VertWall$ = "|" ;For grid squares Global CX#;For Mini Map Global CY#;For Mini Map ;End Grid stuffs. ;Allied=================================================== Type Unit;New Type Field Name$;to see what we've selected, and what to draw Field Health;See a doctor. Field PosX,PosY;Where i am Field TargetX,TargetY;Where im going/attacking Field Selected;Am i selected? Field Side End Type Type Factory;New Type Field Health;See a doctor. Field PosX,PosY;Where i am Field Side End Type Type SupplyPile;New Type Field Health;See a doctor. Field PosX,PosY;Where i am End Type Type AmmoDump;New Type Field Health;See a doctor. Field PosX,PosY;Where i am Field Timer;How long since we've collected supplies Field StillNearPile;If all nearby piles are depleted then delete me and recover some of the cash Field Side End Type ;<>* ;First Factory If StartCorner = 1;NW ObjectX = 40 ObjectY = 46 CursorY = CursorY-156 X=X+80 Y=Y+78 ElseIf StartCorner = 2;NE ObjectX = Width*80+8-48 ObjectY = 46 CursorX = CursorX+160 CursorY = 46 X=X-(Width*80+8-48) Y=Y+78 ElseIf StartCorner = 3;SW ObjectX = 40 ObjectY = Hight*78+13-45 X=X+80 Y=Y-(Hight*78+13-45) Else;SE ObjectX = Width*80+8-48 ObjectY = Hight*78+13-45 CursorX = CursorX+160 X=X-(Width*80+8-48) Y=Y-(Hight*78+13-45) EndIf Factory.Factory = New Factory Factory\Health = 10 Factory\PosX = ObjectX Factory\PosY = ObjectY-6 Factory\Side = 1 ;Enemy stuffs If StartCorner = 1 ObjectX = Width*80+8-48 ObjectY = Hight*78+13-45 ElseIf StartCorner = 2 ObjectX = 40 ObjectY = Hight*78+13-45 ElseIf StartCorner = 3 ObjectX = Width*80+8-48 ObjectY = 46 ElseIf StartCorner = 4 ObjectX = 40 ObjectY = 46 EndIf Factory.Factory = New Factory Factory\Health = 10 Factory\PosX = ObjectX Factory\PosY = ObjectY-6 Factory\Side = 2 ;Supply Piles ;For ok = 1 To (Width+Hight)/4 SupplyPile.SupplyPile= New SupplyPile SupplyPile\Health = 50;Supply Piles use this to tell how many resources are left SupplyPile\PosX = Width*80-325;Rand(20,Width*80); SupplyPile\PosY = Hight*78-316;Rand(20,Hight*78); ;Next ;[=====================] ;[======MAIN LOOP======] ;[=====================] While ContinueGame = 0 Cls FrameLimiter() MapToMiniMapCalculator() CheckKeys() If ContinueGame=0 Selection() DrawStuff() Objects() AI() EndIf DeleteDeadStuff() Flip Wend If RestartGame=True Then Goto RestartHere End ;[=====================] ;[======FUNCTIONS======] ;[=====================] Function CheckKeys() If KeyHit (KEsc) = True Then EscMenu() ;Cursor Keys If KeyHit (KUp) = True Then Y = Y+78*FastScroll:If Selected = True Then Moved = True If KeyHit (KDown) = True Then Y = Y-78*FastScroll:If Selected = True Then Moved = True If KeyHit (KLeft) = True Then X = X+80*FastScroll:If Selected = True Then Moved = True If KeyHit (KRight) = True Then X = X-80*FastScroll:If Selected = True Then Moved = True If KeyHit (KW) = True Then CursorY = CursorY-78:If Selected = True Then Moved = True If KeyHit (KS) = True Then CursorY = CursorY+78:If Selected = True Then Moved = True If KeyHit (KA) = True Then CursorX = CursorX-80:If Selected = True Then Moved = True If KeyHit (KD) = True Then CursorX = CursorX+80:If Selected = True Then Moved = True If KeyHit (KP) = True Then PausedLoop() ;Selection Keys If KeyHit (KZ) = True And Selected = True And Moved = False And SelectionTanks>0 Then SelectionTanks=SelectionTanks-1 If KeyHit (KX) = True And Selected = True And Moved = False Then SelectionTanks=SelectionTanks+1 If KeyHit (KC) = True And Selected = True And Moved = False Then SelectionTanks=SelectionTanks+1000000;Select All If KeyHit (KR) = True Then BuildAmmoDump() If KeyHit (KF) = True Then BuildFactory() If KeyHit (KV) = True Then BuildTank();Yes, each object has it's own function in order to be built. No, this probably isn't the most efficient method. Works don't it? If Selected = False;Put like this so Keyhit isn't reset for KSpace in the event Selected is True If KeyHit (KSpace) = True Then Selected = True EndIf If KeyDown (KH) = True Then HelpScreen() ;Keep Map in bounds If Y>91 Then Y=91 If X>88 Then X=88 If Y<0-((Hight*78)-325) Then Y=0-((Hight*78)-325);-845 If X<0-((Width*80+8)-336) Then X=0-((Width*80+8)-336);-472 ;Keep Cursor in bounds If CursorY>260 CursorY=260 Y=Y-78 EndIf If CursorX>256 CursorX=256 X=X-80 EndIf If CursorY<104 CursorY=104 Y=Y+78 EndIf If CursorX<96 CursorX=96 X=X+80 EndIf ;Minimap Cursor stuffs ObjectX=(X-(CursorX-96 )) ObjectY=(Y-(CursorY-104)) ObjectX=0-ObjectX ObjectY=0-ObjectY MapToMiniMapCalculator() ObjectX=ObjectX+13 ObjectY=ObjectY+13 Text ObjectX,ObjectY,"o" ;<>* End Function ; | | ;----- ; | | ;tick tac toe board ;----- ; | | Function EscMenu() SelectBox = 126 Loopy=True While Loopy=True Cls Text 350, 100," Menu" Text 350, 126,"Continue" Text 354, 139,"Restart" Text 350, 152,"End Game" Text 326, SelectBox,"[[[ ]]]" Flip If KeyHit (KUp) = True And SelectBox>126 Then SelectBox=SelectBox-13 If KeyHit (KDown) = True And SelectBox<152 Then SelectBox=SelectBox+13 If KeyHit (KEnter) = True If SelectBox=126 Loopy=False ElseIf SelectBox=139 RestartGame = True ContinueGame=1 Loopy=False For thisUnit.Unit = Each Unit thisUnit\Health=0 Next For thisFactory.Factory = Each Factory thisFactory\Health=0 Next For thisSupplyPile.SupplyPile = Each SupplyPile thisSupplyPile\Health=0 Next For thisAmmoDump.AmmoDump = Each AmmoDump thisAmmoDump\Health=0 Next Cls ElseIf SelectBox=152 ContinueGame=1 Loopy=False EndIf EndIf If KeyHit (KEsc) = True Then Loopy=False Wend End Function Function DrawStuff();Draw Hud. Text 424, 0,"|X:"+(X-88);CursorX Text 424,13,"|Y:"+(Y-91);CursorY;(Y+Hight*78+13); Text 424,26,"|Money:"+Money2 ;Draw Event Log border Text 0,442,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Text 0,585,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Border = 455 For Loopy = 1 To 10 Text 0,Border,"X X" Border = Border + 13 Next Text 13, 455, " 1."+EventLog1 Text 13, 468, " 2."+EventLog2 Text 13, 481, " 3."+EventLog3 Text 13, 494, " 4."+EventLog4 Text 13, 507, " 5."+EventLog5 Text 13, 520, " 6."+EventLog6 Text 13, 533, " 7."+EventLog7 Text 13, 546, " 8."+EventLog8 Text 13, 559, " 9."+EventLog9 Text 13, 572, "10."+EventLog10 ;Draw the mini map border. Text 544,0, "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Text 544,249,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Border = 8 For Loopy = 1 To 30 Text 544,Border,"X" Border = Border + 8 Next Border = 8 For Loopy = 1 To 30 Text 792,Border,"X" Border = Border + 8 Next ;Cursor graphics Text CursorX, CursorY, "-- - - --" Text CursorX, CursorY+52,"-- - - --" Text CursorX, CursorY, "| |" Text CursorX, CursorY+13,"| |" Text CursorX, CursorY+26,"| |" Text CursorX, CursorY+39,"| |" Text CursorX, CursorY+52,"| |" ;Draw the grid view area border. Text 0, 0,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Text 0,416,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" Border = 0 For Loopy = 1 To 32 Text 416,Border,"X" Border = Border + 13 Next Border = 13 For Loopy = 1 To 31 Text 0,Border,"X" Border = Border + 13 Next ;Draw the Grid XX = X;We want a local version of this variable to manipulate YY = Y;We want a local version of this variable to manipulate For Loopy1 = 1 To Hight+1;Loops for top and bottom pieces For Loopy2 = 1 To Width;How many squares sideways we go If XX<=333 And YY<=403 And XX>0 And YY>0;We only show 5x5 grid squares, in the top left corner Text XX, YY, HoriWall;text for a square EndIf XX = XX+80;move us over one square Next;and repeat the For loop until we meet Width YY = YY + 13*6;Now go down one square XX = X;Reset X Next;And begin next line of squares. Repeat all of this until we meet Hight. YY = Y+13;Make ready for sides ;Side loops act the same as top and bottom, but we don't jump down an entire square each time, just one carector. We do jump entire squares to the right though. ;When we reach the bottom of a square we jump two carectors to avoid running into the bottom line. For Loopy1 = 1 To Hight;Loops for side pieces For Loopy2 = 1 To 5 For Loopy3 = 1 To Width+1 If XX<=416 And YY<=390 And XX>0 And YY>0;We only show 5x5 grid squares, in the top left corner Text XX, YY, VertWall EndIf XX = XX+80 Next YY = YY + 13 XX = X Next YY = YY+13 Next ;i would add more description to the grid drawing loops, but i forgot exactly how they work and i'm not bothered enough to figure it out again.Edit: Yes i am. ;i am happy now. ;Forgot what i was supposed to be doing though. i think i need to implement the event log now. bye. End Function ;Cycle through all the objects to display them, and do whatever else needs to be done per object needs. Function Objects() For thisUnit.Unit = Each Unit If X+thisUnit\PosX<=416 And Y+thisUnit\PosY<=390 And X+thisUnit\PosX>0 And Y+thisUnit\PosY>0;These calculations make sure i'm on the screen' If thisUnit\Name = "Tank";Hull and Barrel Text X+thisUnit\PosX-4, Y+thisUnit\PosY, "|";Draw me Text X+thisUnit\PosX+4, Y+thisUnit\PosY, "|" Text X+thisUnit\PosX, Y+thisUnit\PosY-4, "-" Text X+thisUnit\PosX, Y+thisUnit\PosY+4, "-" Text X+thisUnit\PosX, Y+thisUnit\PosY+4,"|" LX=0 For Ok=0 To thisUnit\Health Text X+thisUnit\PosX+LX, Y+thisUnit\PosY-15,"." LX=LX+2 Next EndIf EndIf If X+thisUnit\PosX < X+thisUnit\TargetX Then thisUnit\PosX = thisUnit\PosX+1 If X+thisUnit\PosX > X+thisUnit\TargetX Then thisUnit\PosX = thisUnit\PosX-1 If Y+thisUnit\PosY < Y+thisUnit\TargetY Then thisUnit\PosY = thisUnit\PosY+1 If Y+thisUnit\PosY > Y+thisUnit\TargetY Then thisUnit\PosY = thisUnit\PosY-1 ObjectX=thisUnit\PosX;Get ready to be mini-mapped ObjectY=thisUnit\PosY;Get ready to be mini-mapped MapToMiniMapCalculator();MMMC hammer time. Text ObjectX, ObjectY, "X";On the map. Next For thisFactory.Factory = Each Factory If X+thisFactory\PosX<=416 And Y+thisFactory\PosY<=390 And X+thisFactory\PosX>0 And Y+thisFactory\PosY>0;These calculations make sure i'm on the screen' Text X+thisFactory\PosX-11, Y+thisFactory\PosY+4,"/" Text X+thisFactory\PosX-5, Y+thisFactory\PosY+4,"\" Text X+thisFactory\PosX+1, Y+thisFactory\PosY+4,"/" Text X+thisFactory\PosX+7, Y+thisFactory\PosY+4,"\" Text X+thisFactory\PosX+12, Y+thisFactory\PosY+5,"|" Text X+thisFactory\PosX+14, Y+thisFactory\PosY+5,"|" Text X+thisFactory\PosX-14, Y+thisFactory\PosY+15,"|" Text X+thisFactory\PosX+12, Y+thisFactory\PosY+15,"|" Text X+thisFactory\PosX+14, Y+thisFactory\PosY+15,"|" LX=0 For Ok=0 To thisFactory\Health Text X+thisFactory\PosX+LX, Y+thisFactory\PosY-15,"." LX=LX+2 Next EndIf ObjectX=thisFactory\PosX;Get ready to be mini-mapped ObjectY=thisFactory\PosY;Get ready to be mini-mapped MapToMiniMapCalculator();MMMC hammer time. Text ObjectX, ObjectY, "F";On the map. Next For thisSupplyPile.SupplyPile = Each SupplyPile;Sets of boxesSupplyPile If X+thisSupplyPile\PosX<=416 And Y+thisSupplyPile\PosY<=390 And X+thisSupplyPile\PosX>0 And Y+thisSupplyPile\PosY>0;These calculations make sure i'm on the screen' Text X+thisSupplyPile\PosX-8, Y+thisSupplyPile\PosY, "\" Text X+thisSupplyPile\PosX-8, Y+thisSupplyPile\PosY-4, "/" Text X+thisSupplyPile\PosX-4, Y+thisSupplyPile\PosY-4, "\" Text X+thisSupplyPile\PosX-4, Y+thisSupplyPile\PosY, "/" Text X+thisSupplyPile\PosX-12, Y+thisSupplyPile\PosY-4, "\" Text X+thisSupplyPile\PosX-12, Y+thisSupplyPile\PosY-8, "/" Text X+thisSupplyPile\PosX-8, Y+thisSupplyPile\PosY-8, "\" Text X+thisSupplyPile\PosX-8, Y+thisSupplyPile\PosY-4, "/" Text X+thisSupplyPile\PosX+8, Y+thisSupplyPile\PosY, "\" Text X+thisSupplyPile\PosX+8, Y+thisSupplyPile\PosY+4, "/" Text X+thisSupplyPile\PosX+4, Y+thisSupplyPile\PosY+4, "\" Text X+thisSupplyPile\PosX+4, Y+thisSupplyPile\PosY, "/" Text X+thisSupplyPile\PosX+8, Y+thisSupplyPile\PosY-8, "\" Text X+thisSupplyPile\PosX+8, Y+thisSupplyPile\PosY-4, "/" Text X+thisSupplyPile\PosX+4, Y+thisSupplyPile\PosY-4, "\" Text X+thisSupplyPile\PosX+4, Y+thisSupplyPile\PosY-8, "/" LX=0 For Ok=0 To thisSupplyPile\Health Text X+thisSupplyPile\PosX+LX, Y+thisSupplyPile\PosY-15,"." LX=LX+2 Next EndIf ObjectX=thisSupplyPile\PosX;Get ready to be mini-mapped ObjectY=thisSupplyPile\PosY;Get ready to be mini-mapped MapToMiniMapCalculator();MMMC hammer time. Text ObjectX, ObjectY-4, ".";On the map. Next For thisAmmoDump.AmmoDump = Each AmmoDump;Shell ObjectX=thisAmmoDump\PosX;Get ready to be mini-mapped. Also used for detecting Supply Piles. ObjectY=thisAmmoDump\PosY;Get ready to be mini-mapped. Also used for detecting Supply Piles. If X+thisAmmoDump\PosX<=416 And Y+thisAmmoDump\PosY<=390 And X+thisAmmoDump\PosX>0 And Y+thisAmmoDump\PosY>0;These calculations make sure i'm on the screen' Text X+thisAmmoDump\PosX-2, Y+thisAmmoDump\PosY-8, "/" Text X+thisAmmoDump\PosX+2, Y+thisAmmoDump\PosY-8, "\" Text X+thisAmmoDump\PosX-2, Y+thisAmmoDump\PosY-10, "/" Text X+thisAmmoDump\PosX+2, Y+thisAmmoDump\PosY-10, "\" Text X+thisAmmoDump\PosX-4, Y+thisAmmoDump\PosY-2, "||" Text X+thisAmmoDump\PosX-4, Y+thisAmmoDump\PosY+2, "||" Text X+thisAmmoDump\PosX, Y+thisAmmoDump\PosY-4, "=" Text X+thisAmmoDump\PosX, Y+thisAmmoDump\PosY+6, "=" LX=0 For Ok=0 To thisAmmoDump\Health Text X+thisAmmoDump\PosX+LX, Y+thisAmmoDump\PosY-15,"." LX=LX+2 Next EndIf For thisSupplyPile.SupplyPile = Each SupplyPile If thisSupplyPile\PosX>ObjectX-168 And thisSupplyPile\PosX<ObjectX+168 And thisSupplyPile\PosY>ObjectY-191 And thisSupplyPile\PosY<ObjectY+191 thisAmmoDump\StillNearPile=True If MilliSecs() >= thisAmmoDump\Timer thisSupplyPile\Health = thisSupplyPile\Health-10 If thisAmmoDump\Side=1 Money = Money+10 ElseIf thisAmmoDump\Side=2 Money2=Money2+10 EndIf thisAmmoDump\Timer = MilliSecs()+10000 EndIf EndIf Next MapToMiniMapCalculator();MMMC hammer time. Text ObjectX-4, ObjectY, "AD";On the map. Next End Function ;< > * Function Selection() ;This section is for displaying the number of tanks in the selector box. DisplayTankNumber=0 Selectafew = 0 For thisUnit.Unit = Each Unit If thisUnit\Side=1 If X+thisUnit\PosX>=CursorX And Y+thisUnit\PosY>=CursorY And X+thisUnit\PosX<=CursorX+80 And Y+thisUnit\PosY<=CursorY+65 If thisUnit\Name="Tank" DisplayTankNumber = DisplayTankNumber+1 EndIf EndIf EndIf Next Text 424,39,"|Tanks:"+DisplayTankNumber If Moved = False If SelectionTanks>DisplayTankNumber Then SelectionTanks = DisplayTankNumber EndIf If Selected=True ;This section is for saying how many objects are in a selection If Moved = False For thisUnit.Unit = Each Unit If thisUnit\Side=1 If X+thisUnit\PosX>=CursorX And Y+thisUnit\PosY>=CursorY And X+thisUnit\PosX<=CursorX+80 And Y+thisUnit\PosY<=CursorY+65 If thisUnit\Name="Tank" Selectafew = Selectafew+1 thisUnit\Selected = 1 If Selectafew > SelectionTanks Then thisUnit\Selected = 0 EndIf Else;This is so if tanks move out of the selection box before we're done selecting, they won't be selected. thisUnit\Selected = 0 EndIf EndIf Next EndIf ;This section is for selecting the objects, telling them where to go, and exiting Selection mode. Text 424,52,"|Selected:"+SelectionTanks If KeyHit (KSpace) = True ObjectX=(X-(CursorX-96 ));///;This block of code is able to tell where the cursor is on the grid. ObjectY=(Y-(CursorY-104));///;Can be used in combanation with Rand to randomly create/direct an object in the gridsquare. ObjectX=0-ObjectX+128 ;/// ObjectY=0-ObjectY+137 ;/// For thisUnit.Unit = Each Unit If thisUnit\Selected = 1 Then thisUnit\TargetX = ObjectX+Rand(-25,25):thisUnit\TargetY = ObjectY+Rand(-25,25):thisUnit\Selected = 0 Next Selected = False Moved=False EndIf EndIf End Function ;< > * Function BuildFactory();Spawn a Factory ;See where the cursor is ObjectX=(X-(CursorX-96 )) ObjectY=(Y-(CursorY-104)) ObjectX=0-ObjectX+128 ObjectY=0-ObjectY+137 ;Check to see if there is already a factory here first and if we are close enough to another factory to build. Close = False;Closeness tester For thisFactory.Factory = Each Factory If thisFactory\PosX=ObjectX And thisFactory\PosY=ObjectY-6 Then NewEvent="Factory already exsists":EventLog():Goto NoFactory;Can't put more than one factory per square If thisFactory\PosX>ObjectX-248 And thisFactory\PosX<ObjectX+248 And thisFactory\PosY>ObjectY-269 And thisFactory\PosY<ObjectY+269 And thisFactory\Side=1 Then Close=True Next ;X 80 per square +8 ;Y 78 per square +13 If Close = False Then NewEvent="No Factory nearby": EventLog():Goto NoFactory;Used if we wern't close enough to another factory If Money<15 Then NewEvent="Not enough money": EventLog(): Goto NoFactory;Money Money Money Money Money Mon-ey; MON-EY Money = Money-15 Factory.Factory = New Factory Factory\Health = 10 Factory\PosX = ObjectX Factory\PosY = ObjectY-6 Factory\Side = 1 NewEvent="Factory Created" EventLog() .NoFactory End Function Function BuildTank();Spawn a Tank UnitCreated=False EnoughMoney=True ;See where the cursor is ObjectX=(X-(CursorX-96 )) ObjectY=(Y-(CursorY-104)) ObjectX=0-ObjectX+128 ObjectY=0-ObjectY+137 ;Spawncode. Check to see if there is a factory here first, build the tank if we can. If Money >= 3 For thisFactory.Factory = Each Factory If thisFactory\PosX=ObjectX And thisFactory\PosY = ObjectY-6 And thisFactory\Side=1 UnitCreated=True Money = Money-3 Unit.Unit = New Unit Unit\Name = "Tank" Unit\Health = 3 Unit\PosX = ObjectX Unit\PosY = ObjectY-6 Unit\TargetX = ObjectX+Rand(-25,25) Unit\TargetY = ObjectY-6+Rand(-25,25) Unit\Side = 1 NewEvent="Unit Created" EventLog() EndIf Next Else EnoughMoney=False EndIf If UnitCreated=False And EnoughMoney = True NewEvent="No Factory nearby" EventLog() ElseIf UnitCreated=False And EnoughMoney = False NewEvent="Not Enough Money" EventLog() EndIf End Function Function BuildAmmoDump();Spawn a Ammo Dump ;See where the cursor is ObjectX=(X-(CursorX-96 )) ObjectY=(Y-(CursorY-104)) ObjectX=0-ObjectX+128 ObjectY=0-ObjectY+137 ;Check to see if there is a supply pile near here and if we are close enough to a factory to build. Close1 = False;Closeness tester for factory Close2 = False;Same, for Supply Pile For thisFactory.Factory = Each Factory If thisFactory\PosX>ObjectX-248 And thisFactory\PosX<ObjectX+248 And thisFactory\PosY>ObjectY-269 And thisFactory\PosY<ObjectY+269 Then Close1=True And thisFactory\Side=1 Next For thisSupplyPile.SupplyPile = Each SupplyPile If thisSupplyPile\PosX>ObjectX-168 And thisSupplyPile\PosX<ObjectX+168 And thisSupplyPile\PosY>ObjectY-191 And thisSupplyPile\PosY<ObjectY+191 Then Close2 = True Next For thisAmmoDump.AmmoDump = Each AmmoDump If thisAmmoDump\PosX=ObjectX And thisAmmoDump\PosY=ObjectY-18 Then NewEvent="Ammo Dump already exsists here":EventLog():Goto NoDump;No more than one Ammo Dump per square Next ;X 80 per square +8 ;Y 78 per square +13 If Close1=False And Close2 = False NewEvent="No Factory or Supply Pile nearby" EventLog() Goto NoDump ElseIf Close1 = False NewEvent="No Factory nearby" EventLog() Goto NoDump ElseIf Close2 = False ;Used if we wern't close enough to another factory NewEvent="No Supply Pile nearby" EventLog() Goto NoDump EndIf If Money<10 Then Goto NoDump;Money Money Money Money Money Mon-ey; MON-EY Money = Money-10 AmmoDump.AmmoDump = New AmmoDump AmmoDump\Health = 5 AmmoDump\PosX = ObjectX AmmoDump\PosY = ObjectY-18 AmmoDump\Timer = MilliSecs()+10000 AmmoDump\StillNearPile = True AmmoDump\Side = 1 NewEvent="Ammo Dump created" EventLog() .NoDump End Function ;< > * Function AI() Factories=0 Units=0 AmmoDumps=0 Closest#=1000000 BuildFactory=True For thisAmmoDump.AmmoDump=Each AmmoDump If thisAmmoDump\Side=2 Then AmmoDumps=AmmoDumps+1 Next For thisFactory.Factory = Each Factory If thisFactory\Side=2 If AmmoDumps<4 And Money2>10 For thisSupplyPile.SupplyPile=Each SupplyPile If X+thisSupplyPile\PosX < X+thisFactory\PosX+286 And X+thisSupplyPile\PosX > X+thisFactory\PosX-286 And Y+thisSupplyPile\PosY > Y+thisFactory\PosY-279 And Y+thisSupplyPile\PosY<Y+thisFactory\PosY+279 InTheWay=False For thisAmmoDump.AmmoDump = Each AmmoDump;Can have nested For loops of the same type If X+thisSupplyPile\PosX = X+thisAmmoDump\PosX And Y+thisSupplyPile\PosY = Y+thisAmmoDump\PosY Then InTheWay=True Next If InTheWay=False Money2 = Money2-10 AmmoDump.AmmoDump = New AmmoDump AmmoDump\Health = 5 AmmoDump\PosX = thisSupplyPile\PosX AmmoDump\PosY = thisSupplyPile\PosY AmmoDump\Timer = MilliSecs()+10000 AmmoDump\StillNearPile = True AmmoDump\Side = 2 EndIf Else;Sees which Supply Pile is closest to which factory. Have new factory construction coords, and if a factory is closer to a pile then override dx# = X+thisFactory\PosX - Y+thisSupplyPile\PosX dy# = Y+thisFactory\PosY - Y+thisSupplyPile\PosY dz# = 0 - 0 dist# = Sqr(dx#*dx# + dy#*dy# + dz#*dy#) If dist < Closest Closest=dist ;These two vars are for seeing which direction to build the factory in If X+thisFactory\PosX > X+thisSupplyPile\PosX Then ObjectX=X+thisFactory\PosX-260 Else ObjectX=Y+thisFactory\PosX+260 If Y+thisFactory\PosY > Y+thisSupplyPile\PosY Then ObjectY=Y+thisFactory\PosY-234 Else ObjectY=Y+thisFactory\PosY+234 If ObjectX>Width*80+8 Then ObjectX=thisFactory\PosX If BuildHereY>Hight*78+13 Then ObjectY=thisFactory\PosY EndIf EndIf Next Else BuildFactory=False EndIf EndIf Next If BuildFactory=True And Money2>15 Money2 = Money2-15 Factory.Factory = New Factory Factory\Health = 10 Factory\PosX = ObjectX Factory\PosY = ObjectY Factory\Side = 2 EndIf ;Text 100,100,dist End Function ;< > * Function FrameLimiter() StopTime = 1000/FPS Time = MilliSecs() While Time+StopTime>MilliSecs() Wend End Function Function MapToMiniMapCalculator();-MMMC- If you want something to show on the mini map, run it through this to see where it goes. ObjectX=ObjectX/(Width*80);Divide to convert to map scale ObjectX=ObjectX*100;Make into precentage... ObjectX=ObjectX*2.4;Scale up to match Mini Map pixel size ObjectX=ObjectX+548 ;Same for Y ObjectY=ObjectY/(Hight*78) ObjectY=ObjectY*100 ObjectY=ObjectY*2.4 ObjectY=ObjectY+4 End Function Function DeleteDeadStuff();Generally delete if Health goes equal to or below 0. Supply Pile health is how many supplies it still has. For thisFactory.Factory = Each Factory If thisFactory\Health <= 0 Then Delete thisFactory Next For thisUnit.Unit = Each Unit If thisUnit\Health <= 0 Then Delete thisUnit Next For thisSupplyPile.SupplyPile = Each SupplyPile If thisSupplyPile\Health <= 0 Delete thisSupplyPile Next For thisAmmoDump.AmmoDump = Each AmmoDump;Ammo dumps are also deleted if there are no longer any supplies near it. If thisAmmoDump\Health <= 0 Delete thisAmmoDump ElseIf thisAmmoDump\StillNearPile=False Delete thisAmmoDump Money=Money+5 Else thisAmmoDump\StillNearPile=False EndIf Next;The Else part of the above If statement sets StillNearPile as false, if a pile is nearby when checked in Objects it is set to true. Deletes if returns here as false. End Function ;Event Log changes what is in the Event Log variables. Drawing is handled by the DrawStuff function. Function EventLog() EventLog10=EventLog9 EventLog9=EventLog8 EventLog8=EventLog7 EventLog7=EventLog6 EventLog6=EventLog5 EventLog5=EventLog4 EventLog4=EventLog3 EventLog3=EventLog2 EventLog2=EventLog1 EventLog1=NewEvent End Function Function PausedLoop() Time = MilliSecs() PauseDelay=500 While Not KeyHit (KP)Or KeyHit (KEsc) If Time+PauseDelay<MilliSecs() Cls For ok = 1 To 10 Time=MilliSecs()+PauseDelay Text 374,296,"Paused" Text 0,Rand(0,587),"Paused" Text 748,Rand(0,587),"Paused" Next Flip EndIf Wend End Function Function HelpScreen() While KeyDown (KH)=True Cls Text 150, 100, "Welcome Text RTS!" Text 150, 113, "The objective of this game is to destroy the enemy." Text 0, 139, "At your disposal are Factories, Ammo dumps, and Tanks." Text 0, 152, "These all cost money. Money is collected by Ammo dumps placed" Text 0, 165, "near various Supply Piles found around the map. After a" Text 0, 178, "Supply Pile is depleted it will dissapear. If all the Supply Piles" Text 0, 191, "around an Ammo Dump are depleted, the Ammo Dump will be sold and" Text 0, 204, "a portion of the cost will be refunded." Text 0, 240, "Units can only be constructed at the Factory, and Buildings can" Text 0, 253, "only be built near Factories. If all of your Factories are" Text 0, 266, "destroyed, you stand very little chance of winning." Text 0, 292, "If you destroy all enemy units and structures, you win." Text 0, 305, "Vice versa if all of your units and structures are destroyed, you lose." Text 0, 331, "All commands are givin via keyboard. These are the various useable keys;" Text 0, 344, "WASD moves the cursor across the map. The arrow keys will do the same but many sqares at a time." Text 0, 370, "Spacebar enters selection mode. Hit it, and then you can select units inside your cursor." Text 0, 383, "While selecting, use Z and X to choose how many units to select." Text 0, 396, "C will automatically select all the units inside your cursor." Text 0, 409, "If you move the cursor, you exit selection mode. Any selected units will be locked in, and when" Text 0, 422, "you hit spacebar again it will tell selected units to move to the sqare your cursor is over." Text 0, 448, "F builds a Factory. Only one Factory can be built in a square." Text 0, 461, "R builds Ammo Dumps, which are also limited to one per square." Text 0, 474, "V builds Tanks. the Cursor needs to be over a factory to build these." Text 0, 500, "Object descriptions;" Text 0, 513, "Tank: Cost is 3" Text 0, 526, "Factory: Cost is 15" Text 0, 539, "Ammo Dump: Cost is 15" ;Text 250, 100, "" ;Text 250, 100, "" Flip Wend Cls End Function ;Pictures...... ;+=========+ ;| | ;| | ;| | ;| | ;| | ;+=========+ ;One Gridsquare ;-- - - -- ;| | ;| | ;| | ;-- - - -- ;Select Box sorta

H&K (Posted 2015) [#2]

These calculations are made more difficult by the fact that when you move around the map, it is actually the map that is moving, and therefore the coordinates of all objects. No they aren't. Result = (X1-x2)*(y1-y2) a) It doesn't matter if these are on a moving or rotating map, its their relative difference that's important. b)The distance = (Sqr result), but again you only need relative, so don't bother Sqring it.

Rrtaya_Tsamsiyu (Posted 2015) [#3]

Thank you for the input, i'll keep looking into it.