Sub Activity_KeyUp (KeyCode As Int) As Boolean
'SELECT - Remote CodeSelect KeyCode
Case KeyCodes.KEYCODE_DPAD_CENTER
If (Round(clvMasterCh.ScrollPosition/250) <> SelCh-1 And tmrScrollers.Enabled = True) Then
SelCh = ScrolledChannel
'CHECK - porno lock
If (Channels(SelCh, 5) = "false") Then
CallSubDelayed(Activity, "CheckPorno")
Else
Log("Doing other sutff..")
End If
End If
End Select
End Sub
Sub CheckPorno
'DEFINE - InputDialog
Dim InputDialog1 As InputDialog
Dim Ret As Int
'SET - Type
InputDialog1.InputType = InputDialog1.INPUT_TYPE_NUMBERS
'SETTINGS - InputDialog
InputDialog1.Input = ""
InputDialog1.HintColor = Colors.ARGB(196, 255, 140, 0)
Ret = DialogResponse.CANCEL
Ret = InputDialog1.Show("CHANNEL Locked. Please Enter PIN:", "Message", "Yes", "No", "", Null)
'VALIDATE - Pin
If (InputDialog1.Input = Authorisation(2)) Then
Log("Doing other stuff..")
End If
End Sub