Ultimate Amiga

Please login or register.

Login with username, password and session length
Advanced search  
Pages: 1 ... 7 8 [9] 10
 81 
 on: August 11, 2021, 06:27:27 PM 
Started by xboxisfinished - Last post by SamuraiCrow
I can but I won't do it for you.

 82 
 on: August 11, 2021, 06:20:29 PM 
Started by xboxisfinished - Last post by xboxisfinished
It seems you will not be able to help me. Thank you so much for taking your time all the way, but unfortunately I cannot use your code and I need to figure this on my own all over again. Which also means I will not be able to give you credit on my game, nor share any profit from donation money I will get. I am sure you will understand. Maybe you don't even care for the share profit either. Regardless, thanks in advance for all the help you have given me..but this problem goes unresolved and I need to figure things on my own again.

Thanks. Please have a nice day.

 83 
 on: August 11, 2021, 04:37:17 AM 
Started by xboxisfinished - Last post by xboxisfinished
Let us assume for argument sake..that it was mistyped here and it is *height and let us assume it is mistyped there and it is + and I fixed it to * and it still fails to function...your helping me here so far have taught me the null. chr$(0) or the backspace key chr$(8). I returned back my old code and commented yours...(the old code was commented) and I used chr$(8)...or even chr$(0)...it came close to what I wanted...even if it is not encrypted.

At the end of 2 there is no more a space where it screws up my code, so it solved it..but it added another problem. Instead of being like this:

2222222222222
2000000000002
2000000000002
2222222222222

It did it this way:

 2 2 2 2 2 2 2 2 2 2 2 2 2
 2 0 0 0 0 0 0 0 0 0 0 0 2
 2 0 0 0 0 0 0 0 0 0 0 0 2
 2 2 2 2 2 2 2 2 2 2 2 2 2

As you can see there is space between the 2 and 0...if I provide you my original code without typo entered here, would you be able to fix it for me? Right now it is 9:36 PM, if you agree I will write the code tomorrow as early as possible. Please check here for new updates. THANK YOU!!!


PS."The bug is there...it is + instead of *. However, loading still returned overflow at offset line of code. It is still reading jibberish.

 84 
 on: August 11, 2021, 03:47:54 AM 
Started by xboxisfinished - Last post by SamuraiCrow
Code: [Select]
    Loke Start(16)+(49+HEIGHT+WIDTH)*4, OFFSETshould be 49*HEIGHT...

 85 
 on: August 10, 2021, 11:49:08 PM 
Started by xboxisfinished - Last post by xboxisfinished
still...problem the same...it is not working.

 86 
 on: August 10, 2021, 11:28:00 PM 
Started by xboxisfinished - Last post by SamuraiCrow
Wrong syntax.  Remove the varptr and the +2. Just pass the variable.  Sorry.

 87 
 on: August 10, 2021, 11:15:13 PM 
Started by xboxisfinished - Last post by xboxisfinished
This code is the issue:

Poke$(start(16)+offset),VarPtr(LevelGetCard$(Width,Height))+2

I cannot use VarPtr here and I removed it. Could this be the problem? Because if I put VarPtr it gives me syntax error. What advice do you have?

 88 
 on: August 10, 2021, 10:18:35 PM 
Started by xboxisfinished - Last post by xboxisfinished
I typed here wrong. it is add to start.

For C=Start(16) to Start(16)+Length(16)-2 Step 2

is what I have for both. It still does the same problem. I still get overflow. You are sure the code logic you gave me is correct? Can I send you my source code so you can check it out yourself?

 89 
 on: August 10, 2021, 10:11:23 PM 
Started by xboxisfinished - Last post by SamuraiCrow
I saw the bug right away.  The length should be added to the start.  Not subtracted.

 90 
 on: August 10, 2021, 09:05:58 PM 
Started by xboxisfinished - Last post by xboxisfinished
This is the code for loading:
Loading a level
Code: [Select]
Load Dir$+_PROJECTNAME$+"/"+_DEFAULTLEVELS$(_LEVELINDEX),16
For C=Start(16) to Start(16)-Length(16)-2 Step 2
  Doke C, Deek(C) xor $A55A
  Ror.w 5,C
Next C

For HEIGHT=0 To 49
  For WIDTH=0 to 49
    OFFSET=Leek(HEIGHT*49+WIDTH)*4+Start(16)
    LEVELGETCARD$(WIDTH,HEIGHT)=Peek$(12001+Start(16)+OFFSET, 32768,Chr$(0))
    LEVEL(WIDTH,HEIGHT)=Peek(Start(16)+9604+(49*HEIGHT+WIDTH))
  Next WIDTH
Next HEIGHT
Erase 16

Saving a level
Code: [Select]
For N=0 to _NUMOFLEVELS-1
  _DEFAULTLEVELS$(N)="level"+str$(N)
  _DEFAULTLEVELSPROPERTIES$(N)="level"+str$(N)+" Properties"

STRINGLENGTH=0
For HEIGHT=0 TO 49
  For WIDTH=0 TO 49
    LEVELGETCARD$(WIDTH,HEIGHT)=LEVELGETCARD$(WIDTH.HEIGHT)+Chr$(0)
    STRINGLENGTH=STRINGLENGTH+Len(LEVELGETCARD$(WIDTH,HEIGHT))
  Next WIDTH
Next Height

Reserve As Work 16, (STRINGLENGTH+12001+3) and Not 3
OFFSET=12001

For HEIGHT=0 TO 49
  For WIDTH=0 TO 49
    Poke$(Start(16)+OFFSET),(LEVELGETCARD$(WIDTH,HEIGHT))
    Loke Start(16)+(49+HEIGHT+WIDTH)*4, OFFSET
    OFFSET=OFFSET+Len(LEVELGETCARD$(WIDTH,HEIGHT))
    Poke Start(16)+(49*HEIGHT+WIDTH)+9604, LEVEL(WIDTH,HEIGHT)
  Next WIDTH
Next Height
For C=Start(16) To Start(16)+Length(16)-2 Step 2
   Rol.w 5,C
   Doke C,Peek(C) xor $A55A
Next C
Save Dir$+_PROJECTNAME$+"/"+_DEFAULTLEVELS$(N)
Erase 16
Next N

Pages: 1 ... 7 8 [9] 10

TinyPortal 2.2.2 © 2005-2022