Bomb-diffusion sim

That_One_Guy · Post by **That_One_Guy** » Tue 05 Apr, 2005 1:04 am

Hey guys, my friends thought i should make a bomb-diffusing type game. (they also think i should make it russian-roulette style) Let me know if you think that'll be any good. I want it to be real good and not something crappy i could throw together in like 30 minutes. pm if you want to help? BTW its gonna be in BASIC cuz i dont know ASM

That_One_Guy · Post by **That_One_Guy** » Wed 06 Apr, 2005 12:53 am

nvm, plz close thread

DigiTan · Post by **DigiTan** » Wed 06 Apr, 2005 6:07 am

Trying to postcount++ there? Eh, That_One_Guy?

Well, actually I kind of like the idea. I don't exactly know what kind of gameplay you had planning, but these "beat the clock" games work well with BASIC if you ask me. Was this a purely text-based game or did you have something graphical in mind?

Drak Dragon · Post by **Drak Dragon** » Wed 06 Apr, 2005 12:17 pm

lmao... i just got a point!

Post by **tr1p1ea** » Wed 06 Apr, 2005 12:47 pm

I could take it away just as easily.

This thread will stand, but please dont spam.

That_One_Guy · Post by **That_One_Guy** » Thu 07 Apr, 2005 12:17 am

Oh no, nothing like that at all, just i ended up throwing something together in 15 minutes. Its graphical, btw. It uses one pic, though. Lost the source, but it's on a friend's calc; i'll have it on here tomorrow for sure.

That_One_Guy · Post by **That_One_Guy** » Thu 07 Apr, 2005 8:34 pm

Here's the code:
ClrDraw
RecallPic 0
DelVar ADelVar BDelVar C
30->A
Lbl 0
randInt(1,3)->B
randInt(1,3)->C
Text(10,15,"1
Text(10,70,"2
Text(50,15,"3
Text(-1,19,35,A
A-1->A
If AÃƒÆ’Ã‚Â·0
Then
ClrDraw
Text(0,0,"BOOOOOOM!
Return
End
DelVar (theta)
getKey->(theta)
If (theta)=92
Goto 1
If (theta)=93
Goto 2
If (theta)=94
Goto 3
If (theta)=0
Goto 0
If (theta)(not equals)92 or (theta)(not equals)93 or (theta)(not equals)94
Goto 0
Lbl 1
If B=1
Then
ClrDraw
Text(0,0,"You deactivate the bomb!
Return
End
If C=1
Then
ClrDraw
Text(0,0,"BOOOOOOOM!
Return
End
Goto 0
Lbl 2
If B=2
Then
ClrDraw
Text(0,0,"You deactivate the bomb!
Return
End
If C=2
Then
ClrDraw
Text(0,0,"BOOOOOOOM!
Return
End
Goto 0
Lbl 3
If B=3
Then
ClrDraw
Text(0,0,"You deactivate the bomb!
Return
End
If C=3
Then
ClrDraw
Text(0,0,"BOOOOOOOM!
Return
End
Goto 0

necro · Post by **necro** » Mon 09 May, 2005 2:20 pm

You don't need any of the first 3 Delvars (that don't affect anything as they are overwritten within the program very quickly) and you should use Whiles and If Thens instead of all of those Lbls and gotos[/code]

crzyrbl · Post by **crzyrbl** » Mon 11 Jul, 2005 4:28 am

why did they even bother making goto a command in basic

EDIT:

That_One_Guy wrote:Here's the code:
....15,"3
Text(-1,19,35,A
A-1->A
If AÃƒÆ’Ã‚Â·0
Then
ClrDraw
Text(0,0,"BOOOOOOM!
Ret.......

anything / 0 = error

Post by **Patori** » Mon 11 Jul, 2005 5:33 am

i hate how the ti font in the link program doesnt copy-paste ok...

crzyrbl · Post by **crzyrbl** » Mon 11 Jul, 2005 5:44 am

That_One_Guy wrote:Here's the code:
"You deactivate the bomb!

CATS:all your base are belong to us,
CATS:you are on the way to destruction
CAPTIAN:WHAT YOU SAY!!!
CATS:you have no chance to survive make your time
CATS:ha ha ha ha...(only laughs three times)

look how far we've progressed!!