北極星 wrote:
想到:AIBO可以兩腳站立,甚至兩足步行嗎?
tales wrote:
[quote]北極星 wrote:
想到:AIBO可以兩腳站立,甚至兩足步行嗎?
大貓頭鷹 wrote:
Private Sub AIBO_Sex(sexAIBO as Boolean) 'True代表母AIBO FALSE代表公的AIBO
Dim Myself_AIBO as True
Dim AIBO_Accosting as String
Dim Girl_AIBO_Slap as Boolean
Try_i=0
If sexAIBO is True Then
[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]
Do While Not Girl_AIBO_Slap
Try_i=Try_i+1
Select Case Try_i
Case 1
AIBO_Accosting="哇!!妹妹~妳好美ㄛ~今晚有空嗎??"
Case 2
AIBO_Accosting="妳的身材真火辣,真引人暇想"
Case 3
AIBO_Accosting="如果妳家裡沒有人的話,我可以到妳房間喝杯咖啡嗎??"
Case 4
AIBO_Accosting="我可以親妳嗎??寶貝!!"
Case 5
AIBO_Accosting="我想跟你嘿咻!!!"
End Selected[$nbsp][$nbsp]
If Try_i>5 Then
AIBO_Accosting="我想跟你嘿咻!!!"
End IF
Loop
Else
[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]AIBO_Sex_Gayness()
End If
End Sub
小酒蟲 wrote:
[quote]tales wrote:
[quote]北極星 wrote:
想到:AIBO可以兩腳站立,甚至兩足步行嗎?
大貓頭鷹 wrote:
程式是亂寫的,重點在我寫的變數名稱跟迴圈及判斷,大家看的出來我的幽默嗎??
daniel35 wrote:
Jam有喔 ?
敢問是哪一個型號呀 ?
可不可以Po一些使用心得或是測試報告呢 ?
daniel35 wrote:
恨 ~
是最貴的那一台 ...
我 .. 我也好想要 ...
czh wrote:
[quote]daniel35 wrote:
恨 ~
是最貴的那一台 ...
我 .. 我也好想要 ...
necobi wrote:
[quote]daniel35 wrote:
Jam有喔 ?
敢問是哪一個型號呀 ?
可不可以Po一些使用心得或是測試報告呢 ?
歡迎光臨 PALMisLIFE 討論區 (http://f.pil.tw/) | Powered by Discuz! X2.5 |