Hi. I recently descovered Small Basic, and, man I have wanted to program video games since the bloody late 70's early 80's, sine I had an Atari VCS console and I have never, EVER, gotten close to doing it, until I started on Small Basic like 2 days ago. Not that I haven't learned a grip of blasted programming languages, like not for lack of trying. I've worked on like 5 different high level programming languages over the years, like in depth, and I never not even ONCE got anything like a game to run, NOT EVEN CLOSE! Sure, tons of website and dos examples and shit, no games though. Weird. Kinda sad, really. Like what's my trip? I just thought you might like to know that, hehe, ah, huh? Anyhoo, Heres my bouncing pong ball type thing that just bounces a ball around a window. Cool. I worked on it for like all night and it's 7:57 and I wanted to share. It has no comments because my comments were too long and descriptive and explanitory, so, hopefully you can just figure it out without any help. After looking at some code on the Small Basic web site, I'm sure I'll catch all kinds of flak for writing something so simple, but anyway, here it is. One last thing, you can get Small Basic on the Microsoft website, I'm thinking they mostly, like if you're Mac or Linux, you don't want it, not really sure though. Link: https://www.microsoft.com/en-us/download/details.aspx?id=22961 Link for games to copy and paste and run in Small Basic: http://social.technet.microsoft.com/wiki/contents/articles/14013.list-of-programs-made-with-small-basic.aspx#E Link for online previews of books on Small Basic: http://msdn.microsoft.com/en-us/beginner/hh308208.aspx There is a reference book on there that is helpful for those already familiar with any kind of programming language. There are some other sources out there on SB and they are pirate, so, if you can find it it's yours. Anyway, here's the code:
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.BrushColor = "White"
GraphicsWindow.Width = 640
GraphicsWindow.Height = 480
Ball = Shapes.AddRectangle(16, 16)
x = 0
y = 0
ModifierX = 1
ModifierY = 1
RunLoop:
x = x + ModifierX
y = y + ModifierY
If (x = 0) Then
ModifierX = 1
Goto RunLoop
EndIf
If (y = 0) Then
ModifierY = 1
Goto RunLoop
EndIf
If (x = 630) Then
ModifierX = -1
Goto RunLoop
EndIf
If (y = 470 Or y = 471) Then
ModifierY = -1
Goto RunLoop
EndIf
Shapes.Move(Ball, x, y)
Program.Delay(5)
If (y < 630) Then
Goto RunLoop
EndIf
Painfully simple, I know, but exciting never the less. Nobody ever comments on this blog, but if you have one then comment away, I guess, I mean why not? and all. Nobody sees this shit, ever, not like I care overly one way or the other, but it's out there, anyway. OK, Cheers, X.
Thursday, February 21, 2013
Monday, May 31, 2010
Flower Leopards - Has Hate Been Kind Enough?
(child crying)
I see you're lonely child
I see your mother and father's cold cruel world
I see the bitter eyes
I see your pretty face so frightened girls
Mama please you're hurting me
When will daddy hold me close again?
I see you through those lies
I'll see your daddy soon
Just not sure when
Not sure when
Well I never needed love
- But momma please hold me
And I'll never trust my heart again
Never feel(fear) the war(wolf) inside my head
Dont' let nothin' out
It's the way you think before you feel
Well tell me if and how?
And tell me which reality is real?
Daddy please don't lie to me
Got to know if momma's words are true
So on the too sick nights (?) So in the chill set night
I'll seek you back, well I'll ask you (?)
I'll ask you
Has hate been kind enough? Oh.
Has hate been kind enough? Oh.
A you've been away too long
Dad's been away a way too long
Has hate been kind enough? Oh.
Has hate been kind enough? Oh.
Subscribe to:
Posts (Atom)