Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules. as
Type Sensor(Device As PhoneSensors, Name As String, SensorType As Int, ThreeValues As Boolean, IsPresent As Boolean,X As Int, Y As Int, Z As Int, MaxValue As Float )
Dim SensorList As List, SensorEnabled As Boolean , Pi As Double,SelectedSetting As Double,LastURL As String ,LCARSpeed As Int:LCARSpeed=10
Dim A As AudioRecorder, myWifi As ABWifi,waitingforwifi As Boolean,turnedwifion As Boolean ,CurrSensor As Int,GPSitems As Int,StarshipID As String ,SettingIndex As Int 'virtual sensors
Dim serverIP As IPaddress :serverIP=API.ParseIP("192.168.0.1:8080"):serverIP.SelectedOctet=1
Pi = 3.14159265358979
SensorEnabled=False'if = true then randomizes sensor data
Dim Hotspots As List ,WifiIsOn As Boolean,LoadingWifi As Boolean,WifiSearching As Boolean,WifiSearchCycles As Int,WifiSuccess As Int ,TechnisMAC As String ,DOSITEM As Int
Type Hotspot(Name As String,MAC As String, Checked As Boolean , isCurrent As Boolean)' , Data As ABWifiInfo)
Dim Settings As Map, MicEnabled As Boolean ,micrunning As Boolean ,BackToQuit As Boolean ,cTimer As Int ,TimerCount As Int,needsreloading As Boolean ,AprilFools As Boolean
Dim CurrentSection As Int,UMRsection As Int'-3=stardate, -2=settings, -1=mode select
Dim Server As ServerSocket,SelectedSection As Int
Dim Socket1 As Socket,AStreams As AsyncStreams, GPS1 As GPS, GPSenabled As Boolean ,SocketConnected As Boolean ,Keytones As Boolean , UMRURL As String ,UMRDOWNLOADING As Boolean ,HasShown As Boolean
Dim MagicURL As String, MyURL As String , VR As VoiceRecognition,VRisInitialized As Boolean,IsVoiceCommand As Boolean ', TTS1 As TTS
MyURL="http://sites.google.com/site/neotechni/Home/"
MagicURL=MyURL & "lcars/magic"
UMRURL=MyURL & "programs/UltraMobileRemote.zip?attredirects=0&d=1"
Dim BorgColor As Int, BorgPic As Int, BorgFont As Typeface, BorgSound As Int, BorgMode As Int, BorgFontSize As Int,needsborgswap As Boolean ,BorgElement As Int 'rgb 0,120,0
Dim OkudaMode As Int ,MouseStage As Int ,DefaultPort As Int,Screenshots As Boolean ,MultiCore As Boolean ,SkipIntro As Boolean ,UID As String ,Starshipname As String ,DOS As Int
Dim Password As String , CustomLevel As Int ,CMD() As String, RepeatMode As Boolean ,RAWmode As Boolean , LastVersion As String , WarpCoreRumble As Boolean
Dim GameMode As Boolean , Buttons(15) As Byte , ButtonsChanged As Boolean ,CurrentSensor As Int,PlusID As String ,PageToken As String ,WebMode As Int,MaxSearchCycles As Int ,CurrentSettingsSection As Int
DefaultPort= 8080
CurrentSensor=-1
SelectedSection=-1
PlusID="113296486298236709829"
MaxSearchCycles=50
CustomLevel=5
Dim AR As AudioRecord, BufferSize As Int, SampleRate As Int, ChannelConfig As Int, AudioFormat As Int, AudioSource As Int, NoChnls,BitsPerSample,DataSize As Int, StartTime As Long
End Sub