PlayLink

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<code>
Title:deepthroat_task_fix_pics
Sex: Female F Male F Trans F
Require: chastity nochaste
Limits:
loadgtemp1:DEEPTHROAT_1_COCK_PICS
; e.g.:
;settemp1:'Adam,17149476719012400;Bob,17149476719012400;Carl,17149476719012400;Dave,17149476719012400;'
assign:cockPictures:'TEMP1'
assign:somethingWasRemoved:false
capture:hide
;
;----------------------------------------------------------------
function:deleteCurPic
  ;----------------------------------------------------------------
  show:$cockPictures<br><b>($curIndex/$noOfCockPics) $cockName</b> ($cockPic)<br><b><span style='color:red;'>Do you really want to delete it?</span><b>
  choice:DELETE,keep
  if: LASTASK == 1
    assign:cockPictures:'$cockPictures'.replace('$cockName,$cockPic;','')
    assign:somethingWasRemoved:true
    goto:startOfTask
  fi:
end:
;
;----------------------------------------------------------------
function:saveVars
  ;----------------------------------------------------------------
  if: $somethingWasRemoved
    show:Do you want to save your changes?
    choice:save,cancel
    if: LASTASK == 1
      settemp1:'$cockPictures'
      savegtemp1:DEEPTHROAT_1_COCK_PICS
      show:Changes were saved
      button:ok
    fi:
  else:
    show:Nothing was changed
    button:ok
  fi:
end:
;
label:startOfTask
assign:curIndex:0
assign:noOfCockPics:'$cockPictures'.split(';').length-2
;
label:startOfGetCockPicLoop
;
settemp1:$curIndex
assign:cockName:'$cockPictures'.split(';')[TEMP1].split(',')[0]
assign:cockPic:'$cockPictures'.split(';')[TEMP1].split(',')[1]
;
show:$cockPictures<br><b>($curIndex/$noOfCockPics) $cockName</b> ($cockPic)
image2:img/$cockPic.dat
choice:< prev, next >,DELETE,done
if: LASTASK == 1
  assign:curIndex:$curIndex-1
  if: $curIndex < 0
    assign:curIndex:$noOfCockPics
  fi:
fi:
if: LASTASK == 2
  assign:curIndex:$curIndex+1
fi:
if: LASTASK == 4
  goto:endOfTask
fi:
if: LASTASK == 3
  call:deleteCurPic
fi:
if: $curIndex > $noOfCockPics
  assign:curIndex:0
fi:
goto:startOfGetCockPicLoop
label:endOfTask
call:saveVars
;</code>
</code>
PlayLink

User Tools

Site Tools

Page Tools
