Author Topic: Random Project. Come join in.  (Read 9265 times)

0 Members and 1 Guest are viewing this topic.

Offline Happybobjr

  • James Oldiges
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2325
  • Rating: +128/-20
  • Howdy :)
    • View Profile
Random Project. Come join in.
« 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
School: East Central High School
 
Axe: 1.0.0
TI-84 +SE  ||| OS: 2.53 MP (patched) ||| Version: "M"
TI-Nspire    |||  Lent out, and never returned
____________________________________________________________

Offline saintrunner

  • Custom Spriter: You ask it! I'll Make it!
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1787
  • Rating: +115/-11
  • Flogging Molly
    • View Profile
    • Jonny K Music
Re: Random Project. Come join in.
« Reply #1 on: December 13, 2011, 05:16:07 pm »
Code: [Select]
:.A
:
:Repeat Getkey(15)
:
:Displaygraph
:
:End

Ha ha win! great Idea by the way
« Last Edit: December 13, 2011, 05:16:24 pm by saintrunner »
My Sprites Thread   :Updated often :) for your viewing pleasure

GAMES:

Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Random Project. Come join in.
« Reply #2 on: December 13, 2011, 05:35:15 pm »

Code: [Select]
:.A
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:
:Displaygraph
:
:End
« Last Edit: December 13, 2011, 05:35:27 pm by TBO_Yeong »
Sig wipe!

Offline parserp

  • Hero Extraordinaire
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1455
  • Rating: +88/-7
  • The King Has Returned
    • View Profile
Re: Random Project. Come join in.
« Reply #3 on: December 13, 2011, 06:01:25 pm »
Code: [Select]
:.A
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End

Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Random Project. Come join in.
« Reply #4 on: December 13, 2011, 06:02:17 pm »
Code: [Select]
:.A
:Asm(C9C7
:GetCalc("appvOMNIMAGA",1337)→Pic666
:Repeat Getkey(15)
:Bitmap(Pic666)
:Displaygraph
:
:End
Sig wipe!

Offline Builderboy

  • Physics Guru
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5673
  • Rating: +613/-9
  • Would you kindly?
    • View Profile
Re: Random Project. Come join in.
« Reply #5 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.  
« Last Edit: December 13, 2011, 06:07:48 pm by Builderboy »

Offline parserp

  • Hero Extraordinaire
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1455
  • Rating: +88/-7
  • The King Has Returned
    • View Profile
Re: Random Project. Come join in.
« Reply #6 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

Offline Juju

  • Incredibly sexy mare
  • Coder Of Tomorrow
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 5730
  • Rating: +500/-19
  • Weird programmer
    • View Profile
    • juju2143's shed
Re: Random Project. Come join in.
« Reply #7 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

Remember the day the walrus started to fly...

I finally cleared my sig after 4 years you're happy now?
THEGAME
This signature is ridiculously large you've been warned.

The cute mare that used to be in my avatar is Yuki Kagayaki, you can follow her on Facebook and Tumblr.

Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Random Project. Come join in.
« Reply #8 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

« Last Edit: December 13, 2011, 06:07:37 pm by TBO_Yeong »
Sig wipe!

Offline epic7

  • Chopin!
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2200
  • Rating: +135/-8
  • I like robots
    • View Profile
Re: Random Project. Come join in.
« Reply #9 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


Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Random Project. Come join in.
« Reply #10 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


Sig wipe!

Offline epic7

  • Chopin!
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2200
  • Rating: +135/-8
  • I like robots
    • View Profile
Re: Random Project. Come join in.
« Reply #11 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
« Last Edit: December 13, 2011, 06:15:53 pm by epic7 »

Offline Builderboy

  • Physics Guru
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5673
  • Rating: +613/-9
  • Would you kindly?
    • View Profile
Re: Random Project. Come join in.
« Reply #12 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

Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Random Project. Come join in.
« Reply #13 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.
« Last Edit: December 13, 2011, 06:19:01 pm by TBO_Yeong »
Sig wipe!

Offline epic7

  • Chopin!
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2200
  • Rating: +135/-8
  • I like robots
    • View Profile
Re: Random Project. Come join in.
« Reply #14 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
« Last Edit: December 13, 2011, 06:20:34 pm by epic7 »