ComedyCode.com
Home Categories Languages Random New Popular Links
Search 

Share This Code!
Send this code to a friend!

ComedyCode of the Week
Check out this week's highlighted snippet!

New Here?
Create an account and become a ComedyCoder today!




May 13, 2008

Happy Dance

if Day.Good = true
Bob.HappyDance()
else
Bob.Rawr()
endif

Public Function Happydance()
Dim rLeg as bodyPart
set rLeg = Bob.Leg.Right
dim lLeg as bodyPart
set lLeg = Bob.Leg.Left
dim rArm as bodyPart
set rArm = Bob.Arm.Right
dim lArm as bodyPart
set lArm = Bob.Arm.Left

while Bob.Happy = True
rLeg.Thigh.Up()
rLeg.Thigh.Out()
rLeg.Calf.up()
rLeg.reset()
Ben.Jump()
lLeg.Thigh.Up()
lLeg.Thigh.Out()
lLeg.Calf.up()
lLeg.Reset()
Bob.Jump()
Loop

Bob.Norm = True
end function

Public Function Rawr()
While Bob.Sad = true | Bob.Angry = true
Bob.Eyes.Glare = true
Dim sound as Sound
sound = Brain:\Parasympathetic\MotorFunction\Rawr.vbvs \\Voice Box Vibration Sequence
load sound
Sound.Strech = true
Bob.Mouth.Open = true
Bob.Voicebox.Play(sound)
Loop

Bob.Norm = true
end Function


Coded by: Ginkner
View other ComedyCode by this comedycoder.
Send this comedycoder a message.
Submitted on: December 7, 2005
Category: Kids & Teens
Show me more Kids & Teens snippets.
Programming language: Visual Basic
Show me more Visual Basic snippets.
Viewed by: 1923 unique visitors


Ratings & Comments

This snippet has not yet been rated.


» Submit Code
» Login

Rate This Code!

Login or create an account.




Copyright © 2001-2004 - N-VisionIT Interactive
Website Design, Development & Hosting by N-VisionIT Interactive