Home work

page 1 of 212next »

Home work

Slim420 12 May 2007 14:40

Ok I've completed the assignment (it's kinda bare-minimum, and i'm unsatisfied) and I still have all weekend!! so I'm gonna post this one here and try to work on something more complex, but if i cant figure it out by monday then use this!!!! ;-)

dim as string fortune(20)
dim as integer x

fortune(1) = "He who stands on toilet, is high on pot!"
fortune(2) = " He who throws dirt is losing ground."
fortune(3) = " The greatest danger could be your stupidity."
fortune(4) = "A closed mouth gathers no feet."
fortune(5) = "A conclusion is simply the place where you got tired of thinking."
fortune(6) = "A friend asks only for your time, not your money."
fortune(7) = "A hangover is the wrath of grapes."
fortune(8) = "Man who sent out to doghouse, may often be found at cathouse"
fortune(9) = "A truly wise man never plays leapfrog with a unicorn."
fortune(10) = "After all is said and done, usually more is said than done"
fortune(11) = "Always keep a record of data -- it indicates you've been working."
fortune(12) = "An atheist is a man with no invisible means of support."
fortune(13) = "An idea is not responsible for the people who believe in it."
fortune(14) = "Arithmetic is being able to count up to 20 without taking off your shoes."
fortune(15) = "As far as we know, our computer has never had an undetected error."
fortune(16) = "Beauty is only skin deep, but ugly goes clear to the bone."
fortune(17) = "Behind every argument is someone's ignorance."
fortune(18) = "Arguing on line is like the special olymipics, even if you win you are still retarded"
fortune(19) = "Broadmindedness is highmindedness flattened out by experience"
fortune(20) = "By failing to prepare, you are preparing to fail."

randomize timer

x  = int(rnd(1)*20)+1

screen 8
print
print
print
print "Thought for the day:"
print 
print
print
print
print fortune(x)

sleep

its a little entertaining!

Re: Home work

bacon333 12 May 2007 18:39

Here is my homework… I also decided to do this early, because I couldn't help but program :/
I have one question though; Is there an easier way to make it ask the timer what weapon it pulled out of it's arse to assign it a certain type of ammunition?

Randomize Timer 
Option Explicit

Screen 19, 15

Dim weapon(3) As String
Dim Weapons As Integer
Dim ammountofammo As Integer
Dim typeofammo(2) As String

weapon(1) = "USP match"
weapon(2) = "Shot gun"
weapon(3) = "sub machine gun"

TypeOfAmmo(1) = "rounds"
TypeOfAmmo(2) = "shells"

Starthere:

Weapons = Int(Rnd(1)*3)+1
ammountofammo = Int(Rnd(3)*6)+5

Print "You have picked up a " ; weapon(Weapons) ; " with" ;(ammountofammo); " " ; 
weapon(1) = "rounds" 
weapon(2) = "shells"
weapon(3) = "rounds"
Print weapon(Weapons) 

weapon(1) = "USP match"
weapon(2) = "Shot gun"
weapon(3) = "sub machine gun"

Sleep 2000, 1

Print "You have dropped your weapon..."

Sleep 2500, 1
Cls
sleep 500, 1

Goto Starthere

End

I will be adding some more code later, as the weekend progresses, unless I just get really lazy and stop programming :|

Last edited on 12 May 2007 18:45 by bacon333 Show more

Re: Home work

hartnell 12 May 2007 18:47

Both very cool. :) —hartnell

Re: Home work

hartnell 12 May 2007 18:56

About the weapon and ammo. Yes, I'm going to write an example soon (couple of hours max) —hartnell

Re: Home work

hartnell 12 May 2007 19:01

Approach 1 : 2 Dimensional Array

' uses a two dimensional array
Randomize Timer
Dim weapons(3,2) As String
Dim weaponRnd As integer
weapons(1,1) = "Machine gun"
weapons(1,2) = "bullets"
weapons(2,1) = "Shotgun"
weapons(2,2) = "shells"
weapons(3,1) = "Uzi"
weapons(3,2) = "rounds"

weaponRnd = Int(Rnd(1)*3)+1

Print weapons(weaponRnd,1) ; " and " ; weapons(weaponRnd,2)
Sleep
End

-hartnell

Re: Home work

hartnell 12 May 2007 19:06

Approach 2 : Two Arrays, same random array index

Randomize Timer
Dim weapons(3) As String
Dim ammo(3) As String
Dim weaponRnd As integer

weapons(1) = "Machine gun"
weapons(2) = "Shotgun"
weapons(3) = "Uzi"

ammo(1) = "bullets"
ammo(2) = "shells"
ammo(3) = "rounds"

weaponRnd = Int(Rnd(1)*3)+1

Print weapons(weaponRnd) ; " and " ; ammo(weaponRnd)
Sleep
End

—hartnell

Last edited on 12 May 2007 19:11 by hartnell Show more

Re: Home work

bacon333 12 May 2007 19:25

Hey thats fantastic!
Thats great :D

I was trying something else, as an if statement, to try and get the random number, but that didn't work out too well :/
Anyway, thanks for the advice :D

Re: Home work

hartnell 12 May 2007 19:49

Glad to help. :) —hartnell

Re: Home work

bacon333 13 May 2007 00:30

EDIT: Post useless…

Last edited on 13 May 2007 00:35 by bacon333 Show more

Re: Home work

hartnell 13 May 2007 00:39

k…

—hartnell

page 1 of 212next »