[riezugly]

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