Author Topic: Awesome Omnimaga rickrolling program.  (Read 31553 times)

0 Members and 2 Guests are viewing this topic.

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Awesome Omnimaga rickrolling program.
« Reply #75 on: July 30, 2010, 11:09:09 am »
Oh, sorry, I forgot, I only used the "Never Gonna" parts.

nice meishe, I wonder how I didn't think of using for( to clear the RRoT part?

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

_player1537

  • Guest
Re: Awesome Omnimaga rickrolling program.
« Reply #76 on: July 30, 2010, 10:48:13 pm »
not sure if I cheated... but here is my solution.  Run ZZZZZ2 to start it, and it will auto go into ZZZZZ3, afterwards you can just run ZZZZZ3.

Spoiler For Spoiler:
Prgm ZZZZZ2
Code: [Select]
:ClrHome
:":→Str4
:"OMNIMAGA→Str1
:" *--++--* →Str2
:"THE             RICK    ROLLER'S        OF              TOMARROW→Str3
:{1,2,3,4,5,6,7,6→L1
:6→A
:‾1→B
:For(D,1,14
:For(C,1,8
:Str4+sub(sub(Str2,1,L1(C))+sub(Str1,L1(C),2)+sub(Str2,L1(C)+3,8-L1(C)),2,8)+sub(Str3,8(C-1)+1,8→Str4
:End
:A+B→A
:If A=7 or A=1
:‾B→B
:augment(DeltaList(cumSum(L1)),{A→L1
:Output(3,1,sub("[===============",1,D+1
:Output(3,16,"]
:End
:sub(Str4,2,1792→Str4
:prgmZZZZZ3

Prgm ZZZZZ3
Code: [Select]
:ClrHome
:0→A
:Ans→B
:While 1
:Output(1,1,sub(Str4,128A+1,128
:A+1→A
:If A=13
:0→A
:End

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Awesome Omnimaga rickrolling program.
« Reply #77 on: July 30, 2010, 11:54:47 pm »
Oh, sorry, I forgot, I only used the "Never Gonna" parts.

nice meishe, I wonder how I didn't think of using for( to clear the RRoT part?

Thanks, though the only problem with using For( is that, one, it is technically slower and, two, it makes it more noticeable. Using the Output( command is faster and looks better, just quite a bit larger.

not sure if I cheated... but here is my solution.  Run ZZZZZ2 to start it, and it will auto go into ZZZZZ3, afterwards you can just run ZZZZZ3.

Spoiler For Spoiler:
Prgm ZZZZZ2
Code: [Select]
:ClrHome
:":→Str4
:"OMNIMAGA→Str1
:" *--++--* →Str2
:"THE             RICK    ROLLER'S        OF              TOMARROW→Str3
:{1,2,3,4,5,6,7,6→L1
:6→A
:‾1→B
:For(D,1,14
:For(C,1,8
:Str4+sub(sub(Str2,1,L1(C))+sub(Str1,L1(C),2)+sub(Str2,L1(C)+3,8-L1(C)),2,8)+sub(Str3,8(C-1)+1,8→Str4
:End
:A+B→A
:If A=7 or A=1
:‾B→B
:augment(DeltaList(cumSum(L1)),{A→L1
:Output(3,1,sub("[===============",1,D+1
:Output(3,16,"]
:End
:sub(Str4,2,1792→Str4
:prgmZZZZZ3

Prgm ZZZZZ3
Code: [Select]
:ClrHome
:0→A
:Ans→B
:While 1
:Output(1,1,sub(Str4,128A+1,128
:A+1→A
:If A=13
:0→A
:End

Could you please "un-spoil" the source codes? When you put [code][/code] inside of [spoiler][/spoiler] it compresses it very small and it is very hard to read. (At least it does in Chrome, I don't know about other browsers.)
« Last Edit: July 31, 2010, 12:12:21 am by meishe91 »
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

_player1537

  • Guest
Re: Awesome Omnimaga rickrolling program.
« Reply #78 on: July 31, 2010, 12:04:13 am »
Prgm ZZZZZ2
Code: [Select]
:ClrHome
:":→Str4
:"OMNIMAGA→Str1
:" *--++--* →Str2
:"THE             RICK    ROLLER'S        OF              TOMARROW→Str3
:{1,2,3,4,5,6,7,6→L1
:6→A
:‾1→B
:For(D,1,14
:For(C,1,8
:Str4+sub(sub(Str2,1,L1(C))+sub(Str1,L1(C),2)+sub(Str2,L1(C)+3,8-L1(C)),2,8)+sub(Str3,8(C-1)+1,8→Str4
:End
:A+B→A
:If A=7 or A=1
:‾B→B
:augment(DeltaList(cumSum(L1)),{A→L1
:Output(3,1,sub("[===============",1,D+1
:Output(3,16,"]
:End
:sub(Str4,2,1792→Str4
:prgmZZZZZ3
Prgm ZZZZZ3
Code: [Select]
:ClrHome
:0→A
:Ans→B
:While 1
:Output(1,1,sub(Str4,128A+1,128
:A+1→A
:If A=13
:0→A
:End

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Awesome Omnimaga rickrolling program.
« Reply #79 on: July 31, 2010, 12:18:36 am »
That's a really interesting way of doing it. The only downside I see of doing it like this is, well one, that you have to do the first program each time if you change Str4 or something and, two, that since you're displaying parts of a string it slows down the farther into it and you can see where it restarts. Otherwise, very nice :) Only optimizations I see is that in the second program you can replace the 0→A and Ans→B with DelVar ADelVar B the second 0→A with DelVar A. Great job :D
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

_player1537

  • Guest
Re: Awesome Omnimaga rickrolling program.
« Reply #80 on: July 31, 2010, 12:26:14 am »
:D  Thanks, this is generally the approach I take for things like this >.>  Spent a while getting it to where, Str2 can be any kind of background, and it will stay in its spot while OMNIMAGA is moving around :D

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Awesome Omnimaga rickrolling program.
« Reply #81 on: July 31, 2010, 12:57:36 am »
Wow, that works really well (no flickers :)). And fast! :D (Except the loading, but that doesn't matter much.)

EDIT: Sizes:

 ZZZZZ2     346 < Small...
  ZZZZZ3      65 < Wow, even smaller...
  Str4      1803 < ...
« Last Edit: July 31, 2010, 01:04:01 am by Deep Thought »




Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Awesome Omnimaga rickrolling program.
« Reply #82 on: July 31, 2010, 01:07:56 am »
Wow, that works really well (no flickers :)). And fast! :D (Except the loading, but that doesn't matter much.)

EDIT: Sizes:

 ZZZZZ2     346 < Small...
  ZZZZZ3      65 < Wow, even smaller...
  Str4      1803 < ...


That would be another draw back :P
« Last Edit: July 31, 2010, 01:08:10 am by meishe91 »
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

_player1537

  • Guest
Re: Awesome Omnimaga rickrolling program.
« Reply #83 on: July 31, 2010, 01:10:11 am »
wierd, on my calc when I checked, str4 was ~2000 bytes... oh, that was before I restricted the size of the string... carry on :P  I tried to decide between fast, and small... fast won ^^

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Awesome Omnimaga rickrolling program.
« Reply #84 on: July 31, 2010, 02:09:08 am »
Lol nice ^^