setting type to 0? - GameCreators Forum

Author

Message

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 26th Nov 2010 22:55

Link

Hi guys

Simple question : How can I set every value in a type to 0? The problem is, I have this code here:

rem technology type
   type tech
   
      rem active or not
      MetalMineActive as boolean
      CrystalMineActive as boolean
      DeuteriumSynthActive as boolean
      SolarPlantActive as boolean
      FusionReactorActive as boolean
      RoboticsFactoryActive as boolean
      NaniteFactoryActive as boolean
      ShipyardActive as boolean
      MetalStorageActive as boolean
      CrystalStorageActive as boolean
      DeuteriumTankActive as boolean
      ResearchLabActive as boolean
      TerraformerActive as boolean
      MissileSiloActive as boolean
      
      EspionageTechActive as boolean
      ComputerTechActive as boolean
      WeaponTechActive as boolean
      ShieldTechActive as boolean
      ArmorTechActive as boolean
      EnergyTechActive as boolean
      HyperspaceTechActive as boolean
      CombustionDriveActive as boolean
      ImpulseDriveActive as boolean
      HyperspaceDriveActive as boolean
      LaserTechActive as boolean
      IonTechActive as boolean
      PlasmaTechActive as boolean
      IntergalacticResearchNetworkActive as boolean
      GravitonTechActive as boolean
      
      SmallCargoActive as boolean
      LargeCargoActive as boolean
      LightFighterActive as boolean
      HeavyFighterActive as boolean
      CruiserActive as boolean
      BattleCruiserActive as boolean
      ColonyShipActive as boolean
      RecyclerActive as boolean
      EspionageProbeActive as boolean
      BomberActive as boolean
      SolarSatelliteActive as boolean
      DestroyerActive as boolean
      DeathStarActive as boolean
      
      RocketLauncherActive as boolean
      LightLaserActive as boolean
      HeavyLaserActive as boolean
      GaussCannonActive as boolean
      IonCannonActive as boolean
      PlasmaTurretActive as boolean
      SmallShieldActive as boolean
      LargeShieldActive as boolean
      AntiBallisticMissileActive as boolean
      InterplanetaryMissileActive as boolean
      
      LunarBaseActive as boolean
      SensorPhalanxActive as boolean
      JumpGateActive as boolean
      
      rem levels/amounts
      MetalMine as byte
      CrystalMine as byte
      DeuteriumSynth as byte
      SolarPlant as byte
      FusionReactor as byte
      RoboticsFactory as byte
      NaniteFactory as byte
      Shipyard as byte
      MetalStorage as byte
      CrystalStorage as byte
      DeuteriumTank as byte
      ResearchLab as byte
      Terraformer as byte
      MissileSilo as byte

EspionageTech as byte
      ComputerTech as byte
      WeaponTech as byte
      ShieldTech as byte
      ArmorTech as byte
      EnergyTech as byte
      HyperspaceTech as byte
      CombustionDrive as byte
      ImpulseDrive as byte
      HyperspaceDrive as byte
      LaserTech as byte
      IonTech as byte
      PlasmaTech as byte
      IntergalacticResearchNetwork as byte
      GravitonTech as byte

SmallCargo as byte
      LargeCargo as byte
      LightFighter as byte
      HeavyFighter as byte
      Cruiser as byte
      BattleCruiser as byte
      ColonyShip as byte
      Recycler as byte
      EspionageProbe as byte
      Bomber as byte
      SolarSatellite as byte
      Destroyer as byte
      DeathStar as byte

RocketLauncher as byte
      LightLaser as byte
      HeavyLaser as byte
      GaussCannon as byte
      IonCannon as byte
      PlasmaTurret as byte
      SmallShield as byte
      LargeShield as byte
      AntiBallisticMissile as byte
      InterplanetaryMissile as byte

LunarBase as byte
      SensorPhalanx as byte
      JumpGate as byte
   endtype

global dim EN_Technology(11) as tech

+ Code Snippet

   rem technology type
   type tech
   
      rem active or not
      MetalMineActive as boolean
      CrystalMineActive as boolean
      DeuteriumSynthActive as boolean
      SolarPlantActive as boolean
      FusionReactorActive as boolean
      RoboticsFactoryActive as boolean
      NaniteFactoryActive as boolean
      ShipyardActive as boolean
      MetalStorageActive as boolean
      CrystalStorageActive as boolean
      DeuteriumTankActive as boolean
      ResearchLabActive as boolean
      TerraformerActive as boolean
      MissileSiloActive as boolean
      
      EspionageTechActive as boolean
      ComputerTechActive as boolean
      WeaponTechActive as boolean
      ShieldTechActive as boolean
      ArmorTechActive as boolean
      EnergyTechActive as boolean
      HyperspaceTechActive as boolean
      CombustionDriveActive as boolean
      ImpulseDriveActive as boolean
      HyperspaceDriveActive as boolean
      LaserTechActive as boolean
      IonTechActive as boolean
      PlasmaTechActive as boolean
      IntergalacticResearchNetworkActive as boolean
      GravitonTechActive as boolean
      
      SmallCargoActive as boolean
      LargeCargoActive as boolean
      LightFighterActive as boolean
      HeavyFighterActive as boolean
      CruiserActive as boolean
      BattleCruiserActive as boolean
      ColonyShipActive as boolean
      RecyclerActive as boolean
      EspionageProbeActive as boolean
      BomberActive as boolean
      SolarSatelliteActive as boolean
      DestroyerActive as boolean
      DeathStarActive as boolean
      
      RocketLauncherActive as boolean
      LightLaserActive as boolean
      HeavyLaserActive as boolean
      GaussCannonActive as boolean
      IonCannonActive as boolean
      PlasmaTurretActive as boolean
      SmallShieldActive as boolean
      LargeShieldActive as boolean
      AntiBallisticMissileActive as boolean
      InterplanetaryMissileActive as boolean
      
      LunarBaseActive as boolean
      SensorPhalanxActive as boolean
      JumpGateActive as boolean
      
      rem levels/amounts
      MetalMine as byte
      CrystalMine as byte
      DeuteriumSynth as byte
      SolarPlant as byte
      FusionReactor as byte
      RoboticsFactory as byte
      NaniteFactory as byte
      Shipyard as byte
      MetalStorage as byte
      CrystalStorage as byte
      DeuteriumTank as byte
      ResearchLab as byte
      Terraformer as byte
      MissileSilo as byte

      EspionageTech as byte
      ComputerTech as byte
      WeaponTech as byte
      ShieldTech as byte
      ArmorTech as byte
      EnergyTech as byte
      HyperspaceTech as byte
      CombustionDrive as byte
      ImpulseDrive as byte
      HyperspaceDrive as byte
      LaserTech as byte
      IonTech as byte
      PlasmaTech as byte
      IntergalacticResearchNetwork as byte
      GravitonTech as byte

      SmallCargo as byte
      LargeCargo as byte
      LightFighter as byte
      HeavyFighter as byte
      Cruiser as byte
      BattleCruiser as byte
      ColonyShip as byte
      Recycler as byte
      EspionageProbe as byte
      Bomber as byte
      SolarSatellite as byte
      Destroyer as byte
      DeathStar as byte

      RocketLauncher as byte
      LightLaser as byte
      HeavyLaser as byte
      GaussCannon as byte
      IonCannon as byte
      PlasmaTurret as byte
      SmallShield as byte
      LargeShield as byte
      AntiBallisticMissile as byte
      InterplanetaryMissile as byte

      LunarBase as byte
      SensorPhalanx as byte
      JumpGate as byte
   endtype

   global dim EN_Technology(11) as tech

Isn't there a way to say EN_Technology(0)=0? Or do I really have to write

EN_Technology(0).MetalMineActive=0
EN_Technology(0).CrystalMineActive=0
EN_Technology(0).DeuteriumSynthActive=0
EN_Technology(0).SolarPlantActive=0

etc...

?

TheComet

Back to top

Profile PM Email Website

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 26th Nov 2010 23:04

Link

Redim it?

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 26th Nov 2010 23:28

Link

Multiple items in an array can be cleared with the CLEAR ARRAY command from my array plug-in. A single array item can be cleared with the CLEAR ARRAY ITEM command.

If you have to set multiple items in an array to non-zero values, then you can create a variable of the type required, set it's values as required, then assign like so:

+ Code Snippet

MyTypedArray(i) = MyTypedVariable

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 26th Nov 2010 23:56

Link

The day will come when I bring a problem that isn't in the matrix1 utils

Thanks!

TheComet

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 29th Nov 2010 20:28

Link

Sorry it took so long, I have a lot going on in my life, and didn't get to testing this until now.

Am I using this command correctly?

clear array EN_Technology()

The program crashes without any errors, and I tracked it down to this command...

TheComet

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 29th Nov 2010 20:47

Link

Quote: "Am I using this command correctly?"

It certainly appears so. Can you reproduce the problem is a small snippet and I'll try and work out what's going on.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 29th Nov 2010 21:01

Link

Here you go:

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
show mouse

rem technology type
type tech

rem active or not
   MetalMineActive as boolean
   CrystalMineActive as boolean
   DeuteriumSynthActive as boolean
   SolarPlantActive as boolean
   FusionReactorActive as boolean
   RoboticsFactoryActive as boolean
   NaniteFactoryActive as boolean
   ShipyardActive as boolean
   MetalStorageActive as boolean
   CrystalStorageActive as boolean
   DeuteriumTankActive as boolean
   ResearchLabActive as boolean
   TerraformerActive as boolean
   MissileSiloActive as boolean
   
   EspionageTechActive as boolean
   ComputerTechActive as boolean
   WeaponTechActive as boolean
   ShieldTechActive as boolean
   ArmorTechActive as boolean
   EnergyTechActive as boolean
   HyperspaceTechActive as boolean
   CombustionDriveActive as boolean
   ImpulseDriveActive as boolean
   HyperspaceDriveActive as boolean
   LaserTechActive as boolean
   IonTechActive as boolean
   PlasmaTechActive as boolean
   IntergalacticResearchNetworkActive as boolean
   GravitonTechActive as boolean
   
   SmallCargoActive as boolean
   LargeCargoActive as boolean
   LightFighterActive as boolean
   HeavyFighterActive as boolean
   CruiserActive as boolean
   BattleCruiserActive as boolean
   ColonyShipActive as boolean
   RecyclerActive as boolean
   EspionageProbeActive as boolean
   BomberActive as boolean
   SolarSatelliteActive as boolean
   DestroyerActive as boolean
   DeathStarActive as boolean
   
   RocketLauncherActive as boolean
   LightLaserActive as boolean
   HeavyLaserActive as boolean
   GaussCannonActive as boolean
   IonCannonActive as boolean
   PlasmaTurretActive as boolean
   SmallShieldActive as boolean
   LargeShieldActive as boolean
   AntiBallisticMissileActive as boolean
   InterplanetaryMissileActive as boolean
   
   LunarBaseActive as boolean
   SensorPhalanxActive as boolean
   JumpGateActive as boolean
   
   rem levels/amounts
   MetalMine as byte
   CrystalMine as byte
   DeuteriumSynth as byte
   SolarPlant as byte
   FusionReactor as byte
   RoboticsFactory as byte
   NaniteFactory as byte
   Shipyard as byte
   MetalStorage as byte
   CrystalStorage as byte
   DeuteriumTank as byte
   ResearchLab as byte
   Terraformer as byte
   MissileSilo as byte

EspionageTech as byte
   ComputerTech as byte
   WeaponTech as byte
   ShieldTech as byte
   ArmorTech as byte
   EnergyTech as byte
   HyperspaceTech as byte
   CombustionDrive as byte
   ImpulseDrive as byte
   HyperspaceDrive as byte
   LaserTech as byte
   IonTech as byte
   PlasmaTech as byte
   IntergalacticResearchNetwork as byte
   GravitonTech as byte

SmallCargo as byte
   LargeCargo as byte
   LightFighter as byte
   HeavyFighter as byte
   Cruiser as byte
   BattleCruiser as byte
   ColonyShip as byte
   Recycler as byte
   EspionageProbe as byte
   Bomber as byte
   SolarSatellite as byte
   Destroyer as byte
   DeathStar as byte

RocketLauncher as byte
   LightLaser as byte
   HeavyLaser as byte
   GaussCannon as byte
   IonCannon as byte
   PlasmaTurret as byte
   SmallShield as byte
   LargeShield as byte
   AntiBallisticMissile as byte
   InterplanetaryMissile as byte

LunarBase as byte
   SensorPhalanx as byte
   JumpGate as byte
endtype

global dim EN_Technology(11) as tech

rem clear the array
clear array EN_Technology()

rem main loop
do

rem output
   center text 320,240,"Is this text on the screen? It is? Then it works! :3"
   
   rem refresh screen
   sync
   
rem end of main loop
loop

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
show mouse

rem technology type
type tech

   rem active or not
   MetalMineActive as boolean
   CrystalMineActive as boolean
   DeuteriumSynthActive as boolean
   SolarPlantActive as boolean
   FusionReactorActive as boolean
   RoboticsFactoryActive as boolean
   NaniteFactoryActive as boolean
   ShipyardActive as boolean
   MetalStorageActive as boolean
   CrystalStorageActive as boolean
   DeuteriumTankActive as boolean
   ResearchLabActive as boolean
   TerraformerActive as boolean
   MissileSiloActive as boolean
   
   EspionageTechActive as boolean
   ComputerTechActive as boolean
   WeaponTechActive as boolean
   ShieldTechActive as boolean
   ArmorTechActive as boolean
   EnergyTechActive as boolean
   HyperspaceTechActive as boolean
   CombustionDriveActive as boolean
   ImpulseDriveActive as boolean
   HyperspaceDriveActive as boolean
   LaserTechActive as boolean
   IonTechActive as boolean
   PlasmaTechActive as boolean
   IntergalacticResearchNetworkActive as boolean
   GravitonTechActive as boolean
   
   SmallCargoActive as boolean
   LargeCargoActive as boolean
   LightFighterActive as boolean
   HeavyFighterActive as boolean
   CruiserActive as boolean
   BattleCruiserActive as boolean
   ColonyShipActive as boolean
   RecyclerActive as boolean
   EspionageProbeActive as boolean
   BomberActive as boolean
   SolarSatelliteActive as boolean
   DestroyerActive as boolean
   DeathStarActive as boolean
   
   RocketLauncherActive as boolean
   LightLaserActive as boolean
   HeavyLaserActive as boolean
   GaussCannonActive as boolean
   IonCannonActive as boolean
   PlasmaTurretActive as boolean
   SmallShieldActive as boolean
   LargeShieldActive as boolean
   AntiBallisticMissileActive as boolean
   InterplanetaryMissileActive as boolean
   
   LunarBaseActive as boolean
   SensorPhalanxActive as boolean
   JumpGateActive as boolean
   
   rem levels/amounts
   MetalMine as byte
   CrystalMine as byte
   DeuteriumSynth as byte
   SolarPlant as byte
   FusionReactor as byte
   RoboticsFactory as byte
   NaniteFactory as byte
   Shipyard as byte
   MetalStorage as byte
   CrystalStorage as byte
   DeuteriumTank as byte
   ResearchLab as byte
   Terraformer as byte
   MissileSilo as byte

   EspionageTech as byte
   ComputerTech as byte
   WeaponTech as byte
   ShieldTech as byte
   ArmorTech as byte
   EnergyTech as byte
   HyperspaceTech as byte
   CombustionDrive as byte
   ImpulseDrive as byte
   HyperspaceDrive as byte
   LaserTech as byte
   IonTech as byte
   PlasmaTech as byte
   IntergalacticResearchNetwork as byte
   GravitonTech as byte

   SmallCargo as byte
   LargeCargo as byte
   LightFighter as byte
   HeavyFighter as byte
   Cruiser as byte
   BattleCruiser as byte
   ColonyShip as byte
   Recycler as byte
   EspionageProbe as byte
   Bomber as byte
   SolarSatellite as byte
   Destroyer as byte
   DeathStar as byte

   RocketLauncher as byte
   LightLaser as byte
   HeavyLaser as byte
   GaussCannon as byte
   IonCannon as byte
   PlasmaTurret as byte
   SmallShield as byte
   LargeShield as byte
   AntiBallisticMissile as byte
   InterplanetaryMissile as byte

   LunarBase as byte
   SensorPhalanx as byte
   JumpGate as byte
endtype

global dim EN_Technology(11) as tech

rem clear the array
clear array EN_Technology()

rem main loop
do

   rem output
   center text 320,240,"Is this text on the screen? It is? Then it works! :3"
   
   rem refresh screen
   sync
   
rem end of main loop
loop

TheComet

Back to top

Profile PM Email Website

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 29th Nov 2010 21:22

Link

Works fine on mine mate :/

Back to top

Profile PM

Benjamin

23

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 29th Nov 2010 21:45

Link

You could just create a variable and leave it empty for assigning zero values to everything.

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 29th Nov 2010 21:55

Link

It may be because I have not upgraded DBP yet... Oh well, I better get around to it then

Thanks guys!

TheComet

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 30th Nov 2010 10:50

Link

What I do (as previously stated):

+ Code Snippet

type lunchTime
   lunchActive as byte
   lunchElasped as float
   hotDogCount as integer
   fruitCount as integer
endtype

global dim _lunch() as lunchTime
global lunchDefaults as lunchTime

lunchDefaults.lunchActive = 0
lunchDefaults.lunchElasped = 0.0
lunchDefaults.hotDogCount = 10
lunchDefaults.fruitCount = 10

_lunch(x) = lunchDefaults

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 30th Nov 2010 20:03

Link

Hey, nice idea Sasuke! Until I get the upgrade, I'll give that one a go. Thanks!

TheComet

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / setting type to 0?