----------------------------------- shorthair Sat Mar 27, 2004 2:22 pm 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 , ----------------------------------- shorthair Sun Mar 28, 2004 1:52 am ----------------------------------- 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 ----------------------------------- jonos Sun Mar 28, 2004 1:54 am ----------------------------------- 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. ----------------------------------- shorthair Sun Mar 28, 2004 1:57 am ----------------------------------- 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 ----------------------------------- Paul Sun Mar 28, 2004 9:49 am ----------------------------------- I would start to learn today, but have a monster essay I need to finish in one day, so... ----------------------------------- Paul Fri Apr 09, 2004 4:25 pm ----------------------------------- 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 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 ----------------------------------- shorthair Fri Apr 09, 2004 5:06 pm ----------------------------------- and then there were BITS , have a happy 100 + bits day ----------------------------------- Sanjay Tue May 02, 2006 7:34 pm ----------------------------------- 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? ----------------------------------- ecookman Wed Nov 05, 2008 9:10 am 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