This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - Munchor
Pages: 1 ... 305 306 [307] 308 309 ... 424
4591
« on: December 18, 2010, 01:07:26 pm »
If you want to make your program slower, just use Pause(#) inside the main loop, or if it makes your grayscale glitchy, use a DS<( loop with DispGraphr/DispGraphrr outside the block and everything else inside. We can indeed use it or ask Quigibo to make a Slow program in the next version 
4592
« on: December 18, 2010, 01:06:26 pm »
i sent you back the code. How do you use str4? i didn't understand it...
The code you gave me crashed the calculator and does not work. I can't evem press 2nd or clear, only right and left in the title screen. Str4 is '<easy>' or '<hard>', and sub(CS,'<easy>',Str4 checks if the the game is easy.
4593
« on: December 18, 2010, 01:05:10 pm »
If the assembly program isn't that large you can even have it all in the same program:
[code]:Input "PRGM?",Str1
:If Str1="ASM3"
:Then
:AsmPrgm
:HEX CODE
:End[/code]
4594
« on: December 18, 2010, 01:03:27 pm »
!If GetCalc(NAME)
0→{GetCalc(NAME,SIZE)→H}
Fill(H,SIZE-1)
End
Well, I decided to make the code come public, to make this easier :S
The game is an edit of Quigibo's Axe Example, PONG:
.UPONG
"<easy>"->Str4
"SCORE:"->Str2
[6363636363633F1F]->Pic3
[FCFEC6C6FEFCC0C0C0]->Pic4
[3C7EE7C3C3E77E3C]->Pic5
[00CEDFF3E3C3C3C3]->Pic6
[3F7FC3C37F3F037FFE]->Pic7
[FF00000000000000]->Pic8
DiagnosticOff
Lbl 1
ClrDraw
ClrHome
Fix 5
.Code for image
Pt-On(25,10,Pic3
Pt-On(34,9,Pic4
Pt-On(34,10,Pic4+1
Pt-On(42,10,Pic5
Pt-On(51,10,Pic6
Pt-On(60,9,Pic7
Pt-On(60,10,Pic7+1
Pt-On(0,19,Pic8
Pt-On(8,19,Pic8
Pt-On(16,19,Pic8
Pt-On(24,19,Pic8
Pt-On(32,19,Pic8
Pt-On(40,19,Pic8
Pt-On(48,19,Pic8
Pt-On(56,19,Pic8
Pt-On(64,19,Pic8
Pt-On(72,19,Pic8
Pt-On(80,19,Pic8
Pt-On(88,19,Pic8
Pt-On(96,19,Pic8
Text(32,21,"2nd:play
Text(35,28,Str4
Text(29,35,"clear:quit
Getcalc("appvPongHS")->H
!If H
Getcalc("appvPongHS,8)->H
For(A,0,18)
0->{H+A}
End
If sub(CS,"<easy>",Str4
Text(29,42,"Highscore:",{H}>Dec
Else
Text(29,42,"Highscore:",{H+1}>Dec
End
Fix 3
Text(0,49," made by: David Gomes
Text(0,55," Quigibo
Fix 2
DispGraph
Repeat getKey->theta
End
If getKey(3) or getKey(19)
104->{Str4+1}
114->{Str4+3}
100->{Str4+4}
End
If getKey(2) or getKey(35)
101->{Str4+1}
115->{Str4+3}
121->{Str4+4}
End
If theta=15
Fix 4
ClrHome
ClrDraw
Return
End
.THIS IS THE START OF THE GAME CODE
If theta=54
ClrDraw
0->S-1->D
44->Z*256->X
10->Y
sub(HT)
Repeat getKey(15)
If sub(CS,"<hard>",Str4)
5->M
Else
2->M
End
.MOVE LEFT CODE
If getKey(2) or getKey(35) and (Z!=0
Z-M->Z
End
.MOVE RIGHT CODE
If getKey(3) or getKey(19) and (Z!=88
Z+M->Z
End
.RANDOM POSITION FOR BALL
X+V->X
Y+D->Y
.LOSING CODE
If Y>70
Goto D
End
.RANDOM POSITION FOR BALL WHEN HIT UPPER BARRIER
If Y=0
sub(HT)
End
.HIT IMAGE CODE
If Y=54 and (abs(X/256-Z)<8
sub(HT)
S+1->S
End
If X/256=0 or (X/256=88
~V->V+X->X
End
ClrDraw
[000000000000FFFF]->Pic1
[0000182C3C180000]->Pic2
If sub(CS,"<easy>",Str4
Line(0,0,96,0)
Line(0,0,0,64)
Line(95,0,95,63)
Line(0,63,95,63)
End
Pt-On(Z,54,Pic1
Pt-On(X/256,Y,Pic2
DispGraph
End
.LOSE LABEL
Lbl D
ClrDraw
ClrHome
Fix 5
.Code for image
Pt-On(25,25,Pic3
Pt-On(34,24,Pic4
Pt-On(34,25,Pic4+1
Pt-On(42,25,Pic5
Pt-On(51,25,Pic6
Pt-On(60,24,Pic7
Pt-On(60,25,Pic7+1
Pt-On(0,35,Pic8
Pt-On(8,35,Pic8
Pt-On(16,35,Pic8
Pt-On(24,35,Pic8
Pt-On(32,35,Pic8
Pt-On(40,35,Pic8
Pt-On(48,35,Pic8
Pt-On(56,35,Pic8
Pt-On(64,35,Pic8
Pt-On(72,35,Pic8
Pt-On(80,35,Pic8
Pt-On(88,35,Pic8
Pt-On(96,35,Pic8
If S>9
Text(33,38,Str2,S>Dec
Else
Text(35,38,Str2,S>Dec
End
If sub(CS,"<easy>",Str4
S->{H}
End
If sub(CS,"<easy>",Str4
S->{H+1}
End
DispGraph
Pause 1500
Repeat getKey->U
End
Goto 1
.ROUTINES
Return
Lbl CS
0->r3
Repeat {r2+r3}->r4 != {r1+r3} or ({r1+r3}->r5 = 0) or (r4 = 0)
::r3+1->r3
End
If r4 or r5=0
::1
::Return
End
0
Return
Lbl HT
rand^512-256->V
~D->D
Else
Goto 1
End
4595
« on: December 18, 2010, 01:02:23 pm »
I know i haven't had much time recently to go onto omnimaga.org. However i am making progress on a new rpg i am currently developing. I know that in the past few months i have started and halted many unfinished projects and have not really produced anything concrete for omnimaga to see. Hopefully this rpg will go further than most of my projects and i have some screenshots here for you all to look. Please feel free to comment!
i have put them in a rar file since there is 7 of them and it is easier to upload them together than separately.
That screenshot looks great, but I'm sure it'll be really hard to do it, I can't even imagine it finished, but I want it finished, though
4596
« on: December 18, 2010, 01:01:27 pm »
In Axe, lots of commands use r's, so for example: DispGraphr DispGraphrr (3 and 4 levels of grayscale) A->{H}r A->{H+1}r (pointers) When I compile programs that use r'ed stuff in WabbitEmu, it returns no error and works However, in my calculator, it gives me syntax error in all r's, I use an 84+ keypad, is it a bug?
4597
« on: December 18, 2010, 12:55:03 pm »
Hi!
Several weeks ago while trying to get Eclipse for Java and for C/C++ working on my computer, I broke my ability to run Java Web Applets while installing JDK on my computer. A couple of days ago when I tried to get the Applets working again, I ended up breaking my JDK compatibility and although I could open Eclipse, I could not build any Java files. When I went to try to reinstall JDK again, I ended up breaking Java completely on my computer. Right now, at this point, I have Java completely uninstalled and I can't run anything Java - or reinstall it again. 
Every time I try to reinstall Java (I am on Windows 7), it says I already have Java installed on the system and it asks me if I want to reinstall it. I click yes, and after a short pause, I get the error message "Error 1723. There is a problem with this Windows Installer package. A DLL required for this install to complete could not be run. Contact your support personnel or package vendor." I have tried installing several versions of Java (JRE-32 bit, JRE-64 bit, JDK-32 bit, and JDK-64 bit) and they all give the same error.
Does anyone know a solution to this problem. This is preventing me from working on all of my projects, as I can't open Eclipse. Likewise, it is quite annoying to not be able to open Java Applets.
Thank you very, very much in advance!
I would recommend registry repairing, cleaning in that situation 
4598
« on: December 18, 2010, 12:54:30 pm »
What I do to make it run slow is to add lines to the borders it then runs slower
4599
« on: December 18, 2010, 12:39:52 pm »
4600
« on: December 18, 2010, 12:35:33 pm »
So "send me" your program 
I already did, if you have any doubts, reply to e.mail, not here, because the code will not be public :S Maybe one day
4601
« on: December 18, 2010, 12:31:43 pm »
can you watch me the part of the program where you use the appvar?
Send me* Give me* Lend me* Let me see* Instead of "Can you watch me" I can send you the whole program, because they are separated by about 200 lines of code that can ruin the process. (PM/e-mail)
4602
« on: December 18, 2010, 12:30:44 pm »
I will be here, although I probably won't post much. I am having extreme problems with my Guitar Hero game I'm working on...
A GH game? 
For calc? Or for PC?
It is for calculator and is getting really nice, I'm helping him. Also, it was a secret project. Also, now I can help you more, I'm on holidays!
4603
« on: December 18, 2010, 12:28:43 pm »
I'm playing civilization V so it will be later
Hum... OK. It didn't work, the appvar is created, but the HS is always 0, both for easy and hard. !If GetCalc(NAME)→H
Fill(0→{GetCalc(NAME,SIZE)→H},SIZE-1)
EndI gotta try that too Runner always optimizing
4604
« on: December 18, 2010, 10:08:14 am »
that's r>Dec if you prefer
you've got to add after the pointer "r" (in the angles menu) to get the 2 bytes.
Done!! Now I'm gonna test the hardware, while you go to the introduce yourself thread, OK?
4605
« on: December 18, 2010, 10:03:29 am »
Text(0,0,{H}rDec
Text(0,10,{H+2}rDecrDec is >Dec, right? This is what I'm going for, it's very optimized! Getcalc(NAME)->H
!If H
Getcalc(NAME,SIZE)->H
For(A,0,SIZE)
0->{H+A}
EndAnd this is the loop at the start of the code. I will try it now
Pages: 1 ... 305 306 [307] 308 309 ... 424
|
Show Posts
I love the part when the background gets inverted