Omnimaga: The Coders Of Tomorrow
Welcome, Guest. Please login or register.
 
Omnimaga: The Coders Of Tomorrow
25 May, 2013, 04:59:34 *
Welcome, Guest. Please login or register.

Login with username, password and session length
 
   home   news downloads projects tutorials misc forums rules new posts irc about Login Register  
+-OmnomIRC

You must Register, be logged in and have at least 40 posts to use this shout-box! If it still doesn't show up afterward, it might be that OmnomIRC is disabled for your group or under maintenance.

Note: You can also use an IRC client like mIRC, X-Chat or Mibbit to connect to an EFnet server and #omnimaga.

Pages: 1 ... 15 16 [17] 18 19 20   Go Down
  Print  
Author Topic: Homescreen Game Pack -  (Read 20112 times) Bookmark and Share
0 Members and 1 Guest are viewing this topic.
ztrumpet
The Rarely Active One
LV13 Extreme Addict (Next: 9001)
*************
Offline Offline

Gender: Male
Last Login: 22 May, 2013, 03:10:30
Date Registered: 08 November, 2009, 21:10:12
Location: Michigan
Posts: 5687


Topic starter
Total Post Ratings: +360

View Profile
« Reply #240 on: 11 April, 2011, 23:45:39 »
0

Alright, here are your games, including the change to allow the spikes to appear:

Spoiler for actually not much code:
My code "starts" like this:
:"42=abs(Ans-63→u
:"42=abs(K-63→v
:"42=abs(getKey-63→w
...
:For(A,0,14
:Disp "
:End

Jump!
:For(A,1,8
:Output(A,1,"=   // The '=' should be the inverse =
:End
:randInt(1,1,9→L1
:DelVar SDelVar B2→A
:Repeat K=45 or A=1 or (A-.5=L1(1
:getKey→K
:If Ans=22
:Then
:Repeat getKey=Ans
:End
:End
:If (Ans=21 or Ans=26)(A-1=int(L1(1
:3→B
:A+1-2not(B
:Ans+(Ans=int(L1(2
:Output(2,A,"
:Ans→A
:Disp "
:Output(2,Ans,"Ʃ
:If L1(8
:Output(8,int(L1(8)),sub("=►",1,1+2fPart(L1(8   // The '=' should be the inverse =
:B-1+not(B→B
:DeltaList(cumSum(L1
:If 8=dim(Ans
:Then
:augment(Ans,augment({0,0},binomcdf(2+int(6rand),0)min(12,max(1,Ans(8)-2+int(5rand→L1
:Else
:Ans→L1
:If Ans(6)Ans(8)not(int(6rand   // My changes from the uploaded version are in bold
:.5+Ans(8→L1(8
:End
:S+1→S
:End
:Output(8,1,"SCORE:
:Output(8,7,Ans

Freefall
:DelVar SrandInt(1,1,8→L1
:16→A
:Repeat K=45 or Ans>16 or Ans≤L1(3
:Output(8,1,sub("*************",1,L1(8
:Output(3,Ans,"V
:augment(DeltaList(cumSum(L1)),{min(13,max(1,L1(8)-1+int(3rand→L1
:S+1→S
:getKey→K
:If Ans=22
:Pause
:A-1+2(Ans=21 or Ans=26→A
:Disp "
:End
:Output(8,1,"SCORE:
:Output(8,7,S
I hope you don't mind that Jump's quite different than your original code; I basically rewrote it. Wink  Thanks for the games! Smiley

On a side note, I'm working on a pretty cool game for it now entitled "City Saver."




Alright, I think I found all of the typos now...
« Last Edit: 12 April, 2011, 00:31:35 by ztrumpet » Logged

Pages: 1 ... 15 16 [17] 18 19 20   Go Up
  Print  
 
Jump to:  

Powered by EzPortal
Powered by MySQL Powered by SMF 1.1.18 | SMF © 2013, Simple Machines Powered by PHP
Page created in 0.216 seconds with 31 queries.
Skin by DJ Omnimaga edited from SMF default theme with the help of tr1p1ea.
All programs, games and songs avaliable on this website are property of their respective owners.
Best viewed in Opera, Firefox, Chrome and Safari with a resolution of 1024x768 or above.