Omnimaga

General Discussion => Other Discussions => Miscellaneous => Topic started by: Happybobjr on December 13, 2011, 05:12:53 pm

Title: Random Project. Come join in.
Post by: Happybobjr on December 13, 2011, 05:12:53 pm

Ok, so i have been seeing lot of random topics lately, and thought of this.
Basically all you have to do, as a minimum, is add one line of code to the program.

You may make changes to previous parts of the program for obvious reasons, but don't change everything all at once ;)

oh.  and please have a comment next to every sprite.

Code: [Select]

:.A
:
:Repeat Getkey(15)
:
:
:
:End


Title: Re: Random Project. Come join in.
Post by: saintrunner on December 13, 2011, 05:16:07 pm

Code: [Select]

:.A
:
:Repeat Getkey(15)
:
:Displaygraph
:
:End

Ha ha win! great Idea by the way

Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 05:35:15 pm

Code: [Select]

:.A
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:
:Displaygraph
:
:End


Title: Re: Random Project. Come join in.
Post by: parserp on December 13, 2011, 06:01:25 pm

Code: [Select]

:.A
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End


Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 06:02:17 pm

Code: [Select]

:.A
:Asm(C9C7
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End


Title: Re: Random Project. Come join in.
Post by: Builderboy on December 13, 2011, 06:04:19 pm

This would probably progress faster if people didn't introduce syntax errors and intentionally sabotage the program  ::)

:.A
:Asm(C9C7
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(X,Y,Pic666)
:Displaygraph
:
:End

I also recommend you use color to specify what you may have added or removed in a revision to increase ease of reading.  

Title: Re: Random Project. Come join in.
Post by: parserp on December 13, 2011, 06:04:30 pm

Code: [Select]

:.A
:DiagnosticOff
:Asm(C9C7
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End


Title: Re: Random Project. Come join in.
Post by: Juju on December 13, 2011, 06:07:05 pm

Code: [Select]

:.THEGAME
:Text(0,0,"You will lose the Game...")
:Repeat Getkey(15):End
:Asm(C9C7
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End


Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 06:07:14 pm

Code: [Select]

:.THEGAME
:Text(0,0,"You will lose the Game...")
:Repeat Getkey(15):End
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End



Title: Re: Random Project. Come join in.
Post by: epic7 on December 13, 2011, 06:10:50 pm

Code: [Select]

:.THEGAME
:Text(0,0,"You will lose the Game...")
:Repeat Getkey(15):End
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:
:End
:End



Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 06:12:54 pm

Code: [Select]

:.THEGAME
:Text(0,0,"You will lose the Game...")
:Repeat Getkey(15):End
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:Return
:LBL TY




Title: Re: Random Project. Come join in.
Post by: epic7 on December 13, 2011, 06:14:22 pm

Code: [Select]

:.THEGAME
:Text(0,0,"You will lose the Game...")
:Repeat Getkey(15):End
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"

Also bitmap needs X Y?
And DisplayGraph to DispGraph :P

Title: Re: Random Project. Come join in.
Post by: Builderboy on December 13, 2011, 06:16:01 pm

So currently the program will make you lose the game, wait for a keypress, then execute some hex, then get in a loop with a syntax error and tell you that you explode when you press 2nd :P

Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 06:16:52 pm

@epic7: let's put something useful here :D

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:Fix 5
:Text(0,0,"You will lose the Game...")
:DispGraph
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)//Syntax error
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
:Return

EDIT: Fixed a bit.

Title: Re: Random Project. Come join in.
Post by: epic7 on December 13, 2011, 06:20:13 pm

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:Text(0,0,"You will lose the Game...")
:Repeat Getkey(15):End
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
Pause 1800
ClrDraw
[FEFDFBF7EFDFBD7F]->Str1
Line(0,63,95,63   
Repeat getKey(15) 
For(F,L6+12,L6+767
{F} and {rand^8+Str1}->{F-12}
End
DispGraph
End
:Return
Thanks, builderboy :P

Title: Re: Random Project. Come join in.
Post by: Happybobjr on December 13, 2011, 09:13:47 pm

Rule Change!
* please put comments next to things that people normaly can't understand.  Like the Asm(###########) :P
also, please make sure you don't give it errors, and make it so i won't clear ram :P

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:
:Repeat Getkey(15):End
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
Pause 1800
ClrDraw
[FEFDFBF7EFDFBD7F]->Str1
Line(0,63,95,63   
Repeat getKey(15) 
For(F,L6+12,L6+767
{F} and {rand^8+Str1}->{F-12}
End
DispGraph
End
:Return


Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 09:16:13 pm

gotcha!

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:DispGraph
:Text(0,0,"Eat Netham
:DispGraph
:Repeat Getkey(15):End
:.Clears the Screen
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
Pause 1800
ClrDraw
[FEFDFBF7EFDFBD7F]->Str1
Line(0,63,95,63   
Repeat getKey(15) 
For(F,L6+12,L6+767
{F} and {rand^8+Str1}->{F-12}
End
DispGraph
End
:Return


Title: Re: Random Project. Come join in.
Post by: Happybobjr on December 13, 2011, 09:18:45 pm

Thanks!!!

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:
:Fix 5
:
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:DispGraph
:Text(0,0,"Eat Netham
:DispGraph
:Repeat Getkey(15):End
:.Clears the Screen
:Asm(EF4045
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:If getKey(54)
:TY(
:End
:End
:
:Fix 4
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
:Pause 1800
:ClrDraw
:[FEFDFBF7EFDFBD7F]->Str1
:Line(0,63,95,63   
:Repeat getKey(15) 
:For(F,L6+12,L6+767
:{F} and {rand^8+Str1}->{F-12}
:End
:DispGraph
:End
:
:Fix 4
:
:Return


Title: Re: Random Project. Come join in.
Post by: epic7 on December 13, 2011, 09:25:16 pm

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:
:Fix 5
:
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:DispGraph
:Text(0,64,"Eat Netham
:DispGraph
:Repeat Getkey(15):End
:.Clears the Screen
:Asm(EF4045
:.Will appvOMNIMAGA exist?
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(X,Y,Pic666)
:Dispgraph
:If getKey(54)
:TY(
:End
:If getKey(3)
:LOL()
:End
:
:Fix 4
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
:Pause 1800
:ClrDraw
:.Code for flames incoming
:[FEFDFBF7EFDFBD7F]->Str1
:Line(0,63,95,63   
:Repeat getKey(15) 
:For(F,L6+12,L6+767
:{F} and {rand^8+Str1}->{F-12}
:End
:DispGraph
:End
:Fix 4
:Return
:LOL()
:. Jetpack dude!
:[0004EAF430C84080]->Pic7
:64->Y
:0->X
:Repeat Y<<1
:Y--
:X++
:Pt-On(X,Y,Pic7)
:DispGraphClrDraw
:End
:Return


Title: Re: Random Project. Come join in.
Post by: Yeong on December 13, 2011, 09:27:29 pm

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:
:Fix 5
:
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:DispGraph
:Text(0,64,"Eat Netham
:DispGraph
:Repeat Getkey(15):End
:.Clears the Screen
:Asm(EF4045
:.Will appvOMNIMAGA exist?
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(X,Y,Pic666)
:Dispgraph
:If getKey(54)
:TY(
:End
:If getKey(3)
:LOL()
:End
:Lbl L1
:ClrDraw
:Text(0,0,"YOU ARE A SMILEY
:Text(0,8,"AVOID PIXEL!
:Pause 2000:20→A→B:ClrDraw
:Repeat getKey(15)
:Pt-Off(A,B,Pic1S
:
:DispGraphClrDraw
:
:End
:
:
:Fix 4
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
:Pause 1800
:ClrDraw
:.Code for flames incoming
:[FEFDFBF7EFDFBD7F]->Str1
:Line(0,63,95,63   
:Repeat getKey(15) 
:For(F,L6+12,L6+767
:{F} and {rand^8+Str1}->{F-12}
:End
:DispGraph
:End
:Fix 4
:Return
:LOL()
:. Jetpack dude!
:[0004EAF430C84080]->Pic7
:64->Y
:0->X
:Repeat Y<<1
:Y--
:X++
:Pt-On(X,Y,Pic7)
:DispGraphClrDraw
:End
:Return


Title: Re: Random Project. Come join in.
Post by: aeTIos on December 15, 2011, 09:40:01 am

Hum, Would be nice if this turned out like a playable game :p

Title: Re: Random Project. Come join in.
Post by: Happybobjr on December 15, 2011, 01:04:14 pm

that was what i initialy hoped for :P

Title: Re: Random Project. Come join in.
Post by: epic7 on December 15, 2011, 04:00:12 pm

Will appvOMNIMAGA exist tho? Or add something in there to create it :P

Also can a bitmap be 1337 bytes?

Title: Re: Random Project. Come join in.
Post by: saintrunner on December 15, 2011, 04:10:32 pm

I think that makes it exist

Title: Re: Random Project. Come join in.
Post by: epic7 on December 15, 2011, 04:15:35 pm

Oh, right./me gets getcalc mixed up

But will that work with the bitmap?

Title: Re: Random Project. Come join in.
Post by: saintrunner on December 15, 2011, 04:16:31 pm

To be honest, I don't know what parts of this program will work, or what it does for that matter, lol

Title: Re: Random Project. Come join in.
Post by: epic7 on December 15, 2011, 04:24:18 pm

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:.Bitmap
[18181DC00038E000F9FF80FFFFC05FFFF00F7C180E7C0C1EFC6E1EFC6E3E7C0E7FBE1F7F9FFF7F1FFE7F43FC7FC2D87FD8023FD25E3FF3FE1FFFFC0FFFF807FFF003FFE000FFC0003F00]->Pic666
:Fix 5
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:DispGraph
:Text(0,64,"Eat Netham
:DispGraph
:Pause 1234
:.Clears the Screen
:Asm(EF4045
:0->X
:Repeat Getkey(15)
:.Randomize coordinates
:rand^41->Y
:Bitmap(X,Y,Pic666)
:Dispgraph
:If getKey(42)
:TEH()
:If getKey(54)
:TY()
:End
:If getKey(3)
:LOL()
:End
:If getKey(41)
:L1()
:End
:Lbl L1
:ClrDraw
:Text(0,0,"YOU ARE A SMILEY
:Text(0,8,"FLY AROUND!
:Pause 2000:20→A→B:ClrDraw
:Repeat getKey(15)
:Pt-On(A,B,Pic1S
:DispGraphClrDraw
:rand^89->A
:Rand^57->B
:Pause 123
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
:Pause 1800
:ClrDraw
:.Code for flames incoming
:[FEFDFBF7EFDFBD7F]->Str1
:Line(0,63,95,63   
:Repeat getKey(15) 
:For(F,L6+12,L6+767
:{F} and {rand^8+Str1}->{F-12}
:End
:DispGraph
:End
:Fix 4
:Return
:LOL()
:. Jetpack dude!
:[0004EAF430C84080]->Pic7
:64->Y
:0->X
:Repeat Y<<1
:Y--
:X++
:Pt-On(X,Y,Pic7)
:DispGraphClrDraw
:End
:Return
:Lbl TEH
:. Put something here!
:Return


Title: Re: Random Project. Come join in.
Post by: Freyaday on December 16, 2011, 02:30:14 am

Code: [Select]

:.THEGAME
:.SMILE SPRITE
:[3C42A581A599423C→Pic1S
:.Bitmap
[18181DC00038E000F9FF80FFFFC05FFFF00F7C180E7C0C1EFC6E1EFC6E3E7C0E7FBE1F7F9FFF7F1FFE7F43FC7FC2D87FD8023FD25E3FF3FE1FFFFC0FFFF807FFF003FFE000FFC0003F00]->Pic666
:Fix 5
:For (A,0,5)
:Text(0,A*6,"You will lose the Game...")
:End
:DispGraph
:Text(0,64,"Eat Netham
:DispGraph
:Pause 1234
:.Clears the Screen
:Asm(EF4045
:0->X
:Repeat Getkey(15)
:.Randomize coordinates
:rand^41->Y
:Bitmap(X,Y,Pic666)
:Dispgraph
:If getKey(42)
:TEH()
:If getKey(54)
:TY()
:End
:If getKey(3)
:LOL()
:End
:If getKey(41)
:L1()
:End
:Lbl L1
:ClrDraw
:Text(0,0,"YOU ARE A SMILEY
:Text(0,8,"FLY AROUND!
:Pause 2000:20→A→B:ClrDraw
:Repeat getKey(15)
:Pt-On(A,B,Pic1S
:DispGraphClrDraw
:rand^89->A
:Rand^57->B
:Pause 123
:End
:Return
:LBL TY
:Text(1,8,"You've exploded, fool!"
:Pause 1800
:ClrDraw
:.Code for flames incoming
:[FEFDFBF7EFDFBD7F]->Str1
:Line(0,63,95,63   
:Repeat getKey(15) 
:For(F,L6+12,L6+767
:{F} and {rand^8+Str1}->{F-12}
:End
:DispGraph
:End
:Fix 4
:Return
:LOL()
:. Jetpack dude!
:[0004EAF430C84080]->Pic7
:64->Y
:0->X
:Repeat Y<<1
:Y--
:X++
:Pt-On(X,Y,Pic7)
:DispGraphClrDraw
:End
:Return
:Lbl TEH
:."You pressed tyop"->Str1TEH
:."Teh!"->Str1TEH
:"TEH HAS BEEN SELECTED. DIE, MORTAL"->Str1TEH
:.DECIDE WHICH TO USE LATER. PERHAPS CONDUCT POLL
:.SPACES WITH WIDTH 4 TO 1 IN SMALL FONT
:[04EDEE20]->Str1SP
:0->r1
For(Q,0,length(Str1TEH))
:0->r2
:{Q+Str1TEH}->r1
:For(R,0,3)
:{R+Str1SP}->r2
:Text(Q*4,0,r1
:Text(Q*4+R,0,r2
:DispGraph
:End
:End