#Region Module Attributes
#StartAtBoot: True
#End Region
'Service module
Sub Process_Globals
Public ajiya As List
Public ajiya2 As List
Dim Sms As PhoneSms
Dim PE As PhoneEvents
Dim AC As AnswerCall
Dim PhoneId As PhoneId
Dim phone As Phone
Dim TTS1 As TTS
Dim SI As SmsInterceptor
'Dim audio1 As MediaPlayer
Public s As PhoneSms
End Sub
Sub Service_Create
PE.InitializeWithPhoneState("PE",PhoneId)
AC.Initialize("AnswerCall")
ajiya.Initialize
ajiya2.Initialize
SI.Initialize2("SI",999)
TTS1.Initialize("TTS1")
Log("Service created")
End Sub
Sub Service_Start
Log("Service started.")
'StartServiceAt(tura1,3000,True)
Service.StopAutomaticForeground
End Sub
Sub SI_MessageReceived (From As String, Body As String) As Boolean
'TTS1.Speak("Hello test.", True)
ajiya.Add(From)
StartService(tura2)
's.Send(From, "I am praying right now, try reaching me later on . @Danj soft")
Return True
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
Log(Intent.ExtrasToString)
ToastMessageShow(IncomingNumber,False)
AC.LetPhoneRing(3000)
If AC.isRinging == True Then
'TTS1.Speak("Hello test.", True)
'Sms.Send(IncomingNumber, "tt")
ajiya.Add(IncomingNumber)
AC.AnswerPhone
End If
AC.enableSpeakerphone
StartService(tura1)
End Sub
Sub tura1
'Sleep(7000)
s.Send(ajiya.Get(0), "I am praying right now, try reaching me later on . @Danj soft")
ajiya.Clear
End Sub
Sub tura2
'Sleep(7000)
s.Send(ajiya2.Get(0), "I am praying right now, try reaching me later on . @Danj soft")
ajiya2.Clear
End Sub
Sub Service_Destroy
End Sub
