Help i dont know wats wrong 8-O - GameCreators Forum

Author

Message

Lowky12

15

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: On The Moon

Posted: 22nd Jan 2011 14:00 Edited at: 22nd Jan 2011 21:32

Link

Help i don't know wats wrong whit this code

+ Code Snippet

sync rate 60
sync on

load image "Images/Shiv-high-blood",1,1
load image "Images/Shiv-Medum-blood",2,2
load image "Images/Shiv-little-blood",3,3
load image "Images/Shiv-no-blood",4,4

Timer1 as dword

gosub loading:


loading:
hide mouse
 
Timer1 = 0

do
timer1 = timer1 + 1
loop

if timer1 < 100 

paste image 4,122,414

if timer1 < 300 

paste image 3,122,414

else

if timer1 < 600 

paste image 2,122,414

else

if timer1 > 1000 

paste image 1,122,414

wait key

Back to top

Profile PM Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 22nd Jan 2011 21:35

Link

None of your IF statements are closed with ENDIF. As it's not obvious where any of them can go, I'll leave it to you to fix.

IF without ELSE

+ Code Snippet

IF <test something here>
    <1 or more lines of code that are executed when the test is true>
ENDIF

IF with ELSE

+ Code Snippet

IF <test something here>
    <1 or more lines of code that are executed when the test is true>
ELSE
    <1 or more lines of code that are executed when the test is false>
ENDIF

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 22nd Jan 2011 21:47

Link

The bit where it says

+ Code Snippet

do
    timer1=timer1+1
loop

is prolly going to cause problems as well.

Back to top

Profile PM Email Website

Blobby 101

20

Years of Service

User Offline

Joined: 17th Jun 2006

Location: England, UK

Posted: 22nd Jan 2011 22:15

Link

Ian M is rightm that's a big error, but =PRoF=, that is a perfectly acceptable (and if anything, faster alternative to INC timer1

(Unless you were talking about the variable name timer1, but i don't think that would cause problems)

Back to top

Profile PM Email Website

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 22nd Jan 2011 22:31

Link

@Blobby 101:
I was refering to the bit where with no exit condition, it would just inc timer1 indefinately and not execute any of the if commands anyway.

Back to top

Profile PM Email Website

Blobby 101

20

Years of Service

User Offline

Joined: 17th Jun 2006

Location: England, UK

Posted: 22nd Jan 2011 22:56

Link

Oh right, I see xD Missed the obvious a bit there didn't I? xD

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 23rd Jan 2011 18:07 Edited at: 23rd Jan 2011 18:11

Link

Besides what IanM and Proof mentioned this part is silly to me:

+ Code Snippet

gosub loading:


loading:

There's no need to GOSUB to a line that's a couple of lines down with no code in between the GOSUB and the label (and no return).

Also at the end of the LOAD IMAGE commands the texture flag is either a 0 or a 1 not 1, 2, 3, 4. And there is no file extension in the filename. Darkbasic needs to know what the extension is before it knows how to load the image properly so add .png .jpg or .bmp (whichever the file is). Since you're a newbie I'm betting their .jpg. You really should use .png. Jpgs don't keep exactly the same colors you create them with and they don't allow you to use transparencies like .png.

What you have:

+ Code Snippet

load image "Images/Shiv-high-blood",1,1
load image "Images/Shiv-Medum-blood",2,2
load image "Images/Shiv-little-blood",3,3
load image "Images/Shiv-no-blood",4,4

What it should be:

+ Code Snippet

load image "Images/Shiv-high-blood.jpg",1,1
load image "Images/Shiv-Medum-blood.jpg",2,1
load image "Images/Shiv-little-blood.jpg",3,1
load image "Images/Shiv-no-blood.jpg",4,1

Back to top

Profile PM Email

Lowky12

15

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: On The Moon

Posted: 24th Jan 2011 11:04 Edited at: 24th Jan 2011 15:24

Link

Quote: "Besides what IanM and Proof mentioned this part is silly to me:

+ Code Snippet

gosub loading:


loading:

There's no need to GOSUB to a line that's a couple of lines down with no code in between the GOSUB and the label (and no return)."

its for later when I add more

and i still dosent work

+ Code Snippet

Rem ***** Included Source File *****
sync rate 60
sync on

hide mouse
 
Timer1 = 0

do
timer1 = timer1 + 1
loop

if timer1 < 100 

paste image 4,122,414

else

if timer1 < 300 

paste image 3,122,414

else

if timer1 < 600 

paste image 2,122,414

else

if timer1 > 1000 

paste image 1,122,414

end if

wait key

Back to top

Profile PM Website

Blobby 101

20

Years of Service

User Offline

Joined: 17th Jun 2006

Location: England, UK

Posted: 24th Jan 2011 17:45

Link

endif is all one word

Back to top

Profile PM Email Website

JosephB

19

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 24th Jan 2011 19:02

Link

Lowky12,

There are several things wrong with your code. If you try to follow it one instruction at a time starting at the "do/loop" section, you will discover that you never exit the loop to perform any of the "if" statements. Also, you are missing a sync command to show the results. I recommend breaking it into separate "if" statements to better understand what each instruction is asking your computer to perform. Nothing will happen between timer1 =>600 and <=1000. Following is some suggested code (I "REMed" out your "paste" commands and added "text" commands to show what was happening with the timer1) to follow:

+ Code Snippet

sync on
sync rate 60
hide mouse
 
Timer1 = 0

do

CLS

timer1 = timer1 + 1

If timer1 < 100 

  Text 10 ,10, "Timer1 is less than 100"  REM paste image 4,122,414

endif

if timer1 >=100 And timer1 < 300 

  Text 10 ,10, "Timer1 is greater than 100 and less than 300"  REM paste image 3,122,414

Endif

if timer1 >=300 And timer1 < 600
  
  Text 10 ,10, "Timer1 is greater than 300 and less than 600"  REM paste image 2,122,414 

Endif

if timer1 > 1000 

  Text 10 ,10, "Timer1 is greater than 1000"  REM paste image 1,122,414

Endif

Sync

REM wait key

loop

End

Back to top

Profile PM Email

Lowky12

15

Years of Service

User Offline

Joined: 22nd Jan 2011

Location: On The Moon

Posted: 7th Mar 2011 03:17

Link

delayed thanks

Back to top

Profile PM Website

sadsack

22

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 8th Mar 2011 01:36

Link

You might try reading the help abit.

(IF)
This command will allow your program to perform a sequences of commands based on the result of a 
condition. If the condition is true, the commands after the THEN keyword are performed. Ensure that your 
commands after the THEN keyword are separated by a colon(:). If the condition is false, the rest of the 
line is skipped.
 
SYNTAX
IF Condition
rem Math Showcase
prettybackdrop()
rem Standard Setup Code for all examples
set text font "arial" : set text size 20
set text to bold : set text transparent
rem TITLE
center text screen width()/2,2,"MATH OPERATIONS"
set cursor 0,40 : set text size 14
rem VARIABLE DATA TYPES
r as integer : a as integer : b as integer
`r as float : a as float : b as float
`r as boolean : a as boolean : b as boolean
`r as byte : a as byte : b as byte
`r as word : a as word : b as word
`r as dword : a as dword : b as dword
rem LITERAL RADIX FORMS (binary, decimal, octal, hexidecimal)
a=5
b=%1011
b=11
b=0x0B
b=0c13
rem VARIABLES
print "WHERE a=";a;" b=";b
print
rem BITWISE COMMANDS
print "BITWISE OPERATIONS"
r = a >> b : print "SHIFT a >> b = ";r
r = a  b : print "SHIFT a  b = ";r
r = a && b : print "AND   a && b = ";r
r = a || b : print "OR    a || b = ";r
r = a ~~ b : print "XOR   a ~~ b = ";r
r = a .. b : print "NOT   a .. b = ";r
print
rem LOGIC OPERATORS
print "LOGIC OPERATIONS"
print "IF a AND b is "; : if a and b then print "TRUE" else print "FALSE"
print "IF a OR b is "; : if a or b then print "TRUE" else print "FALSE"
print "IF NOT b is "; : if not b then print "TRUE" else print "FALSE"
print "IF a = b is "; : if a=b then print "TRUE" else print "FALSE"
print "IF a > b is "; : if a>b then print "TRUE" else print "FALSE"
print "IF a > b is "; : if a>b then print "TRUE" else print "FALSE"
print "IF a >= b is "; : if a>=b then print "TRUE" else print "FALSE"
print "IF a  b is "; : if a

+ Code Snippet


(IF)
This command will allow your program to perform a sequences of commands based on the result of a 
condition. If the condition is true, the commands after the THEN keyword are performed. Ensure that your 
commands after the THEN keyword are separated by a colon(:). If the condition is false, the rest of the 
line is skipped.
 
SYNTAX
IF Condition
rem Math Showcase
prettybackdrop()
rem Standard Setup Code for all examples
set text font "arial" : set text size 20
set text to bold : set text transparent
rem TITLE
center text screen width()/2,2,"MATH OPERATIONS"
set cursor 0,40 : set text size 14
rem VARIABLE DATA TYPES
r as integer : a as integer : b as integer
`r as float : a as float : b as float
`r as boolean : a as boolean : b as boolean
`r as byte : a as byte : b as byte
`r as word : a as word : b as word
`r as dword : a as dword : b as dword
rem LITERAL RADIX FORMS (binary, decimal, octal, hexidecimal)
a=5
b=%1011
b=11
b=0x0B
b=0c13
rem VARIABLES
print "WHERE a=";a;" b=";b
print
rem BITWISE COMMANDS
print "BITWISE OPERATIONS"
r = a >> b : print "SHIFT a >> b = ";r
r = a  b : print "SHIFT a  b = ";r
r = a && b : print "AND   a && b = ";r
r = a || b : print "OR    a || b = ";r
r = a ~~ b : print "XOR   a ~~ b = ";r
r = a .. b : print "NOT   a .. b = ";r
print
rem LOGIC OPERATORS
print "LOGIC OPERATIONS"
print "IF a AND b is "; : if a and b then print "TRUE" else print "FALSE"
print "IF a OR b is "; : if a or b then print "TRUE" else print "FALSE"
print "IF NOT b is "; : if not b then print "TRUE" else print "FALSE"
print "IF a = b is "; : if a=b then print "TRUE" else print "FALSE"
print "IF a > b is "; : if a>b then print "TRUE" else print "FALSE"
print "IF a > b is "; : if a>b then print "TRUE" else print "FALSE"
print "IF a >= b is "; : if a>=b then print "TRUE" else print "FALSE"
print "IF a  b is "; : if a

Life is not fair, so deal with it.
http://www.gusroundtable.com/

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Help i dont know wats wrong 8-O