Computer Science Canada

100 Bits for any Blitz program over 50 lines

Author:  shorthair [ Sat Mar 27, 2004 2:22 pm ]
Post subject:  100 Bits for any Blitz program over 50 lines

OKAY I advertising blitz now

If you need it , i can tell you where to buy it Wink Wink , and once you buy it START WORKING ON IT ,
Im trying ot get some more users into Blitz ive got 3 dedicated and active compsci users already and iwant to se more so


2 BITS per Line ( il judge whether or not the line counts as 2 bits )

50 line minimum

I want ot make the form a little more diverse , so i want some other people to ost here , so geta submission in and get some bits ,

Author:  shorthair [ Sun Mar 28, 2004 1:52 am ]
Post subject: 

I deleted your post jonos , this is for NEW BLITZ MEMBERS ,

Maverick , Jonos , Cervantes connot participate ( i know C is a mod ) im trying to attract new members

Author:  jonos [ Sun Mar 28, 2004 1:54 am ]
Post subject: 

damn damn damn, what about promoting it through existing members. i will post my friends program that he made, and try to get to him to sign up (i will wait till then to post it), i got him into blitz because its easy and he just started turing.

Author:  shorthair [ Sun Mar 28, 2004 1:57 am ]
Post subject: 

Spam ( not ) = Shorthairs & Cervantes Forum

Spam = Spam Forum

This Forum will be kept clean , i like some spam now ad then , but not in these important threads , where newpeople look , so from no on please keep it where it should be

Author:  Paul [ Sun Mar 28, 2004 9:49 am ]
Post subject: 

I would start to learn today, but have a monster essay I need to finish in one day, so...

Author:  Paul [ Fri Apr 09, 2004 4:25 pm ]
Post subject: 

Here's the crappy blitz program I made, its 50 lines exactly.
I'll just post the code and the exe here, since bb is not aloud *shakes head* bb not allowed in the bb section
[edit] wtf? it said exe extension not allowed.
code:

Graphics 640,480
Color 150, 150, 150
x1#=0
 x2# =0
y1#=0
 y2# =0
tempx#=0
tempy#=0
While Not KeyHit(1)
While  x1  = 0 And y1 = 0
If MouseDown(1) Then
x1=MouseX()
y1=MouseY()
Delay 500
Exit
End If
Wend
Plot x1, y1
 While Not KeyHit(1)
x2=MouseX()
y2=MouseY()
If tempx <> x2 Then 
If tempy  <> y2 Then
Color 1, 1, 1
Line x1, y1, tempx, tempy
tempx=x2
tempy=y2
Color 150, 150, 150
Line x1, y1, tempx, tempy
End If
End If
If MouseDown(1) Then
x2=MouseX()
y2=MouseY()
Color 1, 1, 1
Line x1, y1, tempx, tempy
Color 150, 150, 150
Line x1, y1, x2, y2
Delay 500
Exit
End If
Wend
Plot x2, y2
Line x1, y1, x2, y2
x1=0
x2=0
y1=0
y2=0
Wend
End

Author:  shorthair [ Fri Apr 09, 2004 5:06 pm ]
Post subject: 

and then there were BITS , have a happy 100 + bits day

Author:  Sanjay [ Tue May 02, 2006 7:34 pm ]
Post subject: 

At the risk of having my head cut off for reviving an exceptionally old post, and forum for that matter, I have a question.

Is this still open and are you planning on any more competitions like it?

Author:  ecookman [ Wed Nov 05, 2008 9:10 am ]
Post subject:  RE:100 Bits for any Blitz program over 50 lines

var win : int := Window.Open ("graphics:700;550")
var choice1,choice2,choice3,choice4,choice5,choice6,choice7,choice8 : string
var cc,ccc,cccc,ccccc,cccccc,ccccccc : int
cc:=Rand.Int (31,103)
ccc:=Rand.Int (31,103)
cccc:=Rand.Int (31,103)
ccccc:=Rand.Int (31,103)

colorback (black)
cls
color (white)
locate (1,35)
put "SURVIVAL GAME"
locate (3,1)
color (42)
put "In this game you will have to follow a story line that every choice you make, could be your last!"
put "You will play through as character named Link. He is just your every day farm-boy, but when people are in need he becomes a legendary hero who has been chosen "..
put "by the gods to protect the vast lands of Hyrule!"
locate (10,1)
put " SO SADDLE UP, WHAT ARE YOU WAITING FOR. AN ADVENTURE LIES AHEAD!!!"
delay (150)

Music.PlayFileLoop ("hyrule field.wav")

% window size

%color var
var c : int
for: 0..100
delay (100)
colorback (black)
cls
c := Rand.Int (63 ,103)
color (c)
put" _____ _____"
put" |00000| |00000|"
put" |00000| |00000|"
put" |000__| |__000|"
put" |000| |000|"
put" /0000| |0000\\"
put" /00000| |00000\\"
put" |0000000\\ /0000000|"
put" |00000000__________00000000|"
put" __________________|00000000000000000000000000|"
put" /00000000000000000000/0000 T H E L E G E N D O F"
put" /00___________00000000__________________ _________ __"
put" /0/ /00*00/ \\0000000000|\\0000/ \\000|\\00\\ \\0\\"
put" /_/ /00*00/ |00_____00| |00| |00| \\00\\ /00\\"
put" /0* *0/ |00| \\0| |00| |00| \\00\\ /0000\\"
put" /00*00/ |00| /| \\| |00| |00| |00| /0/\\000\\"
put" /00000/ |00|__0| |00| |00| |00| /0/ \\000\\"
put" /00*00/ |00|__0| |00| |00| |00|/00____0000\\"
put" /0* *0/ |00| \\| |00| |00| /00//00 ____00000\\"
put" /00* 0/ |00| /| |00| /| |00| /00//000/ \\000000\\"
put" /00000/ |00======0| |00|___0| |00|/00//000/ \\000000\\"
put" /00*00/ |000000000|/00000000|/000000//0000\\ /0000000\\"
put" /0* *0/ //================================================\""
put" /00*00/ // /0000000000000000\\"
put" /00*00/____________// /000000000000000000\\"
put" /0000000000000000000/ /0/ THE NOT SO FUN ADVENTURES OF LINK"
put" /0000000000000000000/ \\| /00000| |000000\\"
put" \\/0000| |00000\\/"
put" |00| |00|"
put" |00| |00|"
put" |00| |00|"
put" |00| |00|"
put" == =="
end for

cls

put ""
put ""
put ""
put ""
put ""
put ""
put ""
put ""
put ""
put ""

put " It was a clear and sunny day when the goblins came to attack the village."..
put "It was pillaged, and some people were kindapped."..


put "The only person in the village, strong and brave enough to face the gobblins horrible and evil leader, Zant was link."..
put "After comming back from defending a small village out-post, Link was told the horrible news."..
put "Within minuites he set out to find the gobblins that kidnapped the villagers and slay the evil Zant."..

put "While you are riding through Hyrule Field you find piece of clothing, do you want to investigate? (yes or no)"
get choice1

loop
if choice1 = "yes" or choice1= "no" then
exit
else
put "Please enter yes or no"
get choice1
end if
end loop
put ""
put""
put""
if choice1 = "yes" then
color (cc)
put "hmm it appears to be a piiece of one of the villager's clothing, They must have gone through here!"
end if

if choice1 = "no" then
color(cc)
put" With no other leads you continue to search. The next day you find your self going throuhg a cave when the entrance caves in. You are trapped"
delay(2000)
put" After spending two days in the cave something is on the other side of the rubble you yell for help. you hear rocks being moved, and then some light. But this was then end. A herd of gobblins had found you and they throw bombs thrugh the hole they made."


delay (5000)
cls

locate (15,35)
color (brightgreen)

put "GAME OVER"
delay (2000)
Window.Close (win)

quit
Music.PlayFileStop
end if


% Chapter 2______________________________________________________________
color (ccc)
put "As you are running you find a strange looking wall, one that has never been there before."
put "Do you want to touch it(yes ro no)"
get choice2

loop
if choice1 = "yes" or choice1 = "no" then
exit
else
put "Please enter yes or no"
get choice2


end if
end loop
color (cccc)
put ""
put""
put""
if choice2 = "yes" then
color (cc)
put "you are warped into another dimention before you lies a small rock."

end if

if choice2 = "no" then
color(cc)
put"as you turn arround you can see an arrow comming straight for your head it is comming to fast you can't doge it"



delay (5000)
cls

locate (15,35)
color (brightgreen)

put "GAME OVER"
Music.PlayFileStop
Window.Close (win)
delay (2000)
quit

end if

%chapter3 PREboss battle________________________________________________________
color (ccccc)
put " do you want to pick it up (yes nor no)"
get choice3

loop
if choice3 = "yes" or choice3 = "no" then


exit
else
put "Please enter yes or no"
get choice1
end if
end loop

put ""
put""
put""
if choice3 = "no" then
color (ccccc)
put "you continue walking and then you come across a door. Out from the door Comes the evil Zant!"
delay (1000)
put "THE EPIC BATTLE BEGINS"

end if

if choice3 = "yes" then
color(cc)
put"the rock was a bomb. As you pick it up it explpdes you are thrown off a cliff into a pit od spikes"



delay (5000)
cls

locate (15,35)
color (brightgreen)

put "GAME OVER"
delay (2000)
Window.Close (win)
quit
Music.PlayFileStop
end if



%boss battle
Music.PlayFileStop
Music.PlayFile ("bossbattle.wma")
var playerhp, monsterhp : int
var playerattk, monsterattk : int
var playerdef: int
var onetwo : int
var monsterchoice: int

randint (playerhp,50,100)
randint (monsterhp,75,250)

loop
randint (playerattk,1,10)
randint (monsterattk,1,20)
randint (playerdef,1,15)
randint (monsterchoice,1,2)

delay(2000)

%player attack or defend
color (brightred)
cls
locate (10,1)
put "your hp is ",playerhp
locate (11,1)
put "the monster's hp is ",monsterhp


locate (3,1)

put "press 1 to attack or press 2 to defend and use a health potion"
get onetwo
if onetwo = 1 then
%player attacks
put "you hit a ",playerattk
monsterhp := monsterhp-playerattk

%monster decides what to do - attack or defend
if monsterchoice = 1 then
put "the monster attked and hit a ",monsterattk
playerhp := playerhp-monsterattk
end if
end if

if onetwo = 2 then
%player defends
put "your defend and gain ",playerdef, " hp"
playerhp:=playerhp+playerdef
%monster decides what to do - attack or defend
if monsterchoice= 1 then
put "the monster attked and hit a ",monsterattk
playerhp := playerhp-monsterattk


end if
end if
if monsterhp<=0 then
cls
locate (13,30)
put "you win"
locate (13,1)
put "you rescue the kidnapped children and return to the village.The world is safe once again"
Music.PlayFileStop
exit

elsif playerhp<=0 then
cls
color (brightgreen)
locate (15,35)

put "GAME OVER"
exit
end if

end loop
Music.PlayFileStop






i win!!!1\\\\\



soory i know this is old but still

Author:  [Gandalf] [ Wed Nov 05, 2008 4:16 pm ]
Post subject:  RE:100 Bits for any Blitz program over 50 lines

Your post is wrong in just about every way imaginable, warned and locked for now.


: