<code>
Title:chastity_test
Sex: Female T Male T Trans T
Require:
Limits:
use:chastity
use:gen
;
; update to-do list with task run
;assign:taskName:'chastity_test'
;call:tsaveToDoTasks
;
show:This task is to diagnose problems with the chastity system. You are only allowed to run it if instructed so by a Mistress, Mod or Task Developer. HAve you received instructions to run this task?
choice:Yes I was told to run it, No
if:(LASTASK == 2)
  goto:exitTask
fi:
loadtemp1:unlock_pending
loadtemp2:chastityDuration
if:(('TEMP2' == '') || ('TEMP2' == 'undefined'))
  settemp2:'no value'
else:
  settemp2:(Math.floor(TEMP2/3600))
fi:
show:This task can display your remaining chastity time. It is STRICTLY forbidden to do so unless you have explicitely been told to do so. Note that your answer will be logged and you will be punished if you have lied. Have you been instructed to see your remaining chastity time?
choice:Yes, No
if:(LASTASK == 1)
  settemp3:(Math.floor(CH_END / 360) / 10)
  log:Slave has requested to see remaining chastity time
  msg:Thomas3:'slave SNAME has requested to see remaining chastity time'
  msg:Natasha:'slave SNAME has requested to see remaining chastity time'
else:
  settemp3:'hidden'
fi:
loadtemp4:chastityTagNumber
loadtemp5:chastityStartTime
loadtemp6:chastityLock
loadtemp7:directLock
loadtemp8:pending-unlock-time
loadtemp9:chastityStartTimeP
if:(('TEMP5' == '') || ('TEMP5' == 'undefined'))
  settemp5:0
fi:
if:(('TEMP9' == '') || ('TEMP9' == 'undefined'))
  settemp9:0
fi:
if:(('TEMP8' == '') || ('TEMP8' == 'undefined'))
  settemp8:0
fi:
show: system time STIME <br>unlock_pending TEMP1 <br>unlock-pending-time TEMP8<br>Duration of completed lockups this month TEMP2<br>Remaining Chastity time in hours TEMP3<br>tag TEMP4 <br>start time TEMP5 <br>start time P TEMP9<br>lock TEMP6<br>direct lock TEMP7
log: system time STIME
log: unlock_pending TEMP1
log: pending-unlock-time TEMP8
log: duration of completed lockups this month TEMP2 hours
log: Remaining time TEMP3
log: tag TEMP4
log: start time TEMP5
log: start time P TEMP9
log: lock TEMP6
log: direct lock TEMP7
button:ok
;
;*************** second page ********************************************
call:initializeChastityClub
loadtemp1:chastityAllTimeMax
loadtemp2:chastityAllTimeMonthlyMax
settemp3:(Math.floor((STIME-TEMP5)/3600))
loadtemp4:scheduledChastityDuration
loadtemp5:chastityLastValidation
settemp6:$lChastityClub
loadtemp7:chastityNextValidation
loadtemp8:cc_member
loadtemp9:chastityMustCumFast
if:(('TEMP1' == '') || ('TEMP1' == 'undefined'))
  settemp1:0
fi:
if:(('TEMP2' == '') || ('TEMP2' == 'undefined'))
  settemp2:0
fi:
if:(('TEMP5' == '') || ('TEMP5' == 'undefined'))
  settemp5:'undefined'
else:
  settemp5:(Math.floor((STIME - TEMP5) / 360) / 10)
fi:
if:(('TEMP7' == '') || ('TEMP7' == 'undefined'))
  settemp7:'undefined'
else:
  settemp7:(Math.floor((TEMP7 - STIME) / 360) / 10)
fi:
if:(('TEMP8' == '') || ('TEMP8' == 'undefined'))
  settemp8:'no level set'
fi:
if:(('TEMP9' == '') || ('TEMP9' == 'undefined'))
  settemp9:false
fi:
show: All Time Max (hours) TEMP1<br>All Time Monthly Max (hours) TEMP2<br>Current chastity duration TEMP3<br>Scheduled chastity duration TEMP4<br>Last validation TEMP5 hours ago<br>Next validation in TEMP7 hours<br>chastity club TEMP6<br>chastity club level TEMP8<br>Must cum fast TEMP9
log: All Time Max (hours) TEMP1
log: All Time Monthly Max (hours) TEMP2
log: Current Chastity Duration (hours) TEMP3
log: Scheduled Chastity Duration (upcoming) TEMP4
log: Last Validation TEMP5 hours ago
log: Next Validation in TEMP7 hours
log: Chastity Club TEMP6
log: Chastity Club Level TEMP8
log: Must cum fast TEMP9
button:ok
;*************** third page ********************************************
loadtemp1:controlledCummingDays
if:(('TEMP1' == '') || ('TEMP1' == 'undefined'))
  settemp1:0
fi:
loadtemp2:controlledCummingOrgasm
if:(('TEMP2' == '') || ('TEMP2' == 'undefined'))
  settemp2:0
fi:
loadtemp3:lastSuccessfulFastCumSecs
if:(('TEMP3' == '')||('TEMP3' == 'undefined'))
  settemp3:1000
fi:
loadtemp4:edge_pool
if:(('TEMP4' == '')||('TEMP4' == 'undefined'))
  settemp4:'empty'
fi:
loadtemp5:scheduledChastityDuration
if:(('TEMP5' == '')||('TEMP5' == 'undefined'))
  settemp5:'empty'
fi:
loadtemp6:scheduledChastityDelays
if:(('TEMP6' == '')||('TEMP6' == 'undefined'))
  settemp6:'empty'
fi:
loadtemp7:controlledCummingUnlock
if:(('TEMP7' == '') || ('TEMP7' == 'undefined'))
  settemp7:'empty'
fi:
show:controlled cum days value is TEMP1<br>controll cum pending orgasm is TEMP2<br>Last fast cumming time is TEMP3<br>Edge pool is TEMP4<br>Scheduled chastity duration is TEMP5<br>Scheduled chastity delays is TEMP6<br>Controlled Cumming Unlock is TEMP7
log:controlled cum days value is TEMP1
log:controlled cum pending orgasm value is TEMP2
log:last fast cumming time is TEMP3
log:Edge Pool is TEMP4
log:Scheduled chastity duration is TEMP5
log:Scheduled chastity delays is TEMP6
log:Controlled cumming unlock is TEMP7
button:ok
;*************** to-do list items ********************************************
loadlist:toDoTasks
assign:numberOfTasks:(List.length)
loop:$numberOfTasks
  settemp1:List[(LOOPVAR - 1)]
  split:'TEMP1'
  show:to-do list item LOOPVAR is SPLIT1 SPLIT2 SPLIT3 SPLIT4
  log:to-do list item LOOPVAR is SPLIT1 SPLIT2 SPLIT3 SPLIT4
  button:next
endloop:
;
;-----------------------------------------------------------------------------------------------------------
;
label:exitTask
</code>