Stratsims Home

CIC Home

Mini Proj. #1
  Future Plans
  Rel. Notes
  Scens & Such
  Tech Notes
  Tips & Tricks

Mini Project #1 - CIC Warfare Plotter Tips & Tricks

  • You can run time backwards if you so desire, i.e. -15 is a valid time increment.
  • The 'E'mitting sensor checkboxes can be greyed as well as checked. We suggest you use greyed to mean that the unit has such a sensor using that sensor and checked to mean the sensor is being used.
  • Upon Registration, a file called CICWarfarePlotter.ini is created in the program directory, copy it to your other computers to use the program there without re-entering registration info.
  • Use multiple map windows to view the action from different perspectives. Or in small scenarios, make one map window for each unit, select the unit and check "Track Selected Unit" to keep tabs on all units.
  • If the globe gets too off-center, zoom in until you have scroll bars and re-center the globe.

Want to learn more? Try our Official Email List at Strategy Sims CIC.

<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile("C:\sites\\ftp\sitestats\hit_count.txt") 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'If the session variable is null or does not exsist then increment the counter number If isEmpty(Session("blnCounterSet")) = True Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Set the session variable to true Session("blnCounterSet") = True End if 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile("C:\sites\\ftp\sitestats\hit_count.txt") 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number Response.Write("Visitor Number
") 'Display the hit count as text 'Response.Write(lngVisitorNumber) 'Loop to display graphical digits For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count Response.Write("") Next %>