You could also make a hand coming out of the guy's monitor, grab him by his balls, turn him upside down, shake him, all his pocket coins will then fall into a pre-set recepient sliding all the way to the front door straight in to your waiting hands, here's the code for that:
<%
Set myHand = Server.CreateObject("Punch.Grabber")
Set myAction = myHand.WideOpen(FromMonitor.SqueezeBalls("Tight"))
Set Turn = myAction.UpSideDown
For Each Coin in Turn
onClient.Action = KeepShaking
'If End Of Coins
If myAction.EOC Then
'Send SMS to yourself so you know when to go and collect coins
Send.SMS("YourPhoneNumber", "SMS Msg", 1)
'Drop the guy after 30 mins
onClient.Action = DropGuy.Delay(30)
Else
onClient.Action = KeepShaking("Harder")
End If
Next
myHand.Close
Set myHand = Nothing
myAction.Stop
Turn.Stop
%>
See? Easy...