ever wondered...

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

ever wondered...

Logged in as: Guest

arrSession:exec spGetSession 2,9,26110

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [General Forum] >> Off-Topic Lounge >> ever wondered...
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

ever wondered... - 9/20/2005 5:58:39 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

If WomanOfDreamsProximity = "Close" Then
   VoicePitch = VoicePitch - 10db
   EyeStatus = "Wink"
   If Hair = "Messy" Then
      SpitOnHand(StyleHair)
End If

Sub Spray(BreathFreshener)
   If BreathFreshenerDestination = "Eyeball" Then
       CryLikeABaby
       Run(away)
       Exit Sub
End If
End Sub

Do While DistanceToWoman > 0
     If (DistanceToWoman mod 2) = 0 Then
          MoveLeftFoot(forward)
      Else
           MoveRightFoot(forward)
      End if
Wend
Loop

Sub Begin(Conversation)
   If ConversationResponse = "Hostile" Then
      Exit Sub
    Else
      Giggle(LikeSchoolgirl)
      InviteWoman(Home)
   End If
End Sub

Post #: 1

RE: ever wondered... - 9/21/2005 10:38:04 PM

TNO

Posts: 1074
Score: 10
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

hehe.....

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to Snipah)

Post #: 2

RE: ever wondered... - 9/22/2005 3:57:50 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

This script is open for suggestions and add-ons

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to TNO)

Post #: 3

RE: ever wondered... - 9/23/2005 1:15:41 AM

mbouchard

Posts: 1903
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

Time to jump to the chase.

If clothingStatus = True then
    If desireLevel = "High" then
       Call removeClothes("ripoff")
    elseIf desireLevel = "playful" then
       Call removeClothes("striptease")
    else
       Call removeClothes("normal"
    End If
ElseIf clothingStatus = False then
    If womansReaction = "laugh" then
       msgbox getRandomExcuse()
    Else
       protectionLevel = applyProtection()
    End if
End If

Unless someone wants to add some subs, I will work on them later.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to Snipah)

Post #: 4

RE: ever wondered... - 9/26/2005 6:43:22 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

more subs ...

Sub getRandomExcuse()
oRandomize=Int(7 * rnd())

Select case oRandomize
case 1
   CryLikeABaby
case 2
   Run(away)
case 3
   Exit Sub
case 4
   Faint
case 5
   FakeFaint
   PeakThrough(Eyes)
case 6
   oChance = PumpMuscles(Schwarzenegger) & HopeHopeHope
case else
   oMouth.Say("...") ' stutter
End Select

End Sub

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to mbouchard)

Post #: 5

RE: ever wondered... - 10/4/2005 5:25:42 AM

JimmyFo

Posts: 5
Score: 0
Joined: 9/20/2005
Status: offline

Sub validateWOD
If strLastName = "." then
     Call Sob("selfHate")
     objEgo.Shutdown(0)
   Else
      If personalResponse = "positive" then
        oPants.Popup("Hello, world!", 0, ":)" 0+48)
      Else
        msgbox getRandomExcuse()
      End if
End if
End Sub

'really new to VBS, thought this was fun :)

(in reply to Snipah)