View Single Post
  #5  
Old 8th May 2012
astralspirit's Avatar
astralspirit astralspirit is offline
Ceriwis Lover
 
Join Date: Apr 2012
Location: langit ke tujuh
Posts: 1,184
Rep Power: 17
astralspirit memiliki reputasi yang sangat baikastralspirit memiliki reputasi yang sangat baikastralspirit memiliki reputasi yang sangat baikastralspirit memiliki reputasi yang sangat baikastralspirit memiliki reputasi yang sangat baik
Default

Quote:
Originally Posted by riezugly View Post
mau tau syntaxnya ga ndan....?
nie ane kasih dech.....



Spoiler for Syntax:
Spoiler for :gg::
Function getSexWithHer(Object As Girl) As Boolean
dim stepdetail as string
dim tahap, percobaanke, maxcoba as integer

percobaanke=1
maxcoba=10

caritargetlain:
for tahap=1 to 16
cobalagi:
select case tahap
case is = 1
stepdetail="searching target"
case is = 2
stepdetail="katakan cinta"
case is = 3
stepdetail="pegang tangan"
case is = 4
stepdetail="cium pipi"
case is = 5
stepdetail="pegang leher"
case is = 6
stepdetail="cipokkkkkkk slurrrppp"
case is = 7
stepdetail="peluk mesra"
case is = 8
stepdetail="grepe toket dari luar"
case is = 9
stepdetail="grepe toket dari dalem"
case is = 10
stepdetail="petting"
case is = 11
stepdetail="raba miss V dari luar"
case is = 12
stepdetail="raba miss V dari dalem"
case is = 13
stepdetail="suruh pegang mr P"
case is = 14
stepdetail="blow job"
case is = 15
stepdetail="fire in the hole....ML"
case is = 16
stepdetail="kabur menghilang"
end select

if stepdetail=ok then
percobaanke=1
goto nextstep
else
percobaanke=percobaanke+1
if percobaanke<=maxcoba then
goto cobalagi
else
goto caritargetlain
end if
end if
nextstep:
next tahap
End Function



mantrab ndan....wah perlu belajar banyak nih dari kumendan...

Quote:
Originally Posted by Rikypeace View Post

mantap..!!
terima kasih ndan
Reply With Quote