HELP! (My help thread.) - GameCreators Forum

Author

Message

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 14th Oct 2011 07:55 Edited at: 15th Oct 2011 05:10

Link

Ok, so Im having this problem, the playerinput glitches out. And load/save is getting errors (I don't know why!)

So here:

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.1-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------

gosub types
wait 0500

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 5 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant upk upkey()
#constant downk downkey()
#constant rightk rightkey()
#constant leftk leftkey()
#constant true 1
#constant false 0
#constant savedir1 "saves\save01.dat"
#constant savedir2 "saves\save02.dat"
#constant savedir3 "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upk = 1
        player.direction = 0 `Face up.
        repeat
            sprite player.id, player.x, player.y+player.movespeed, 1
            player.y = player.y+player.movespeed
        until upk = 0
    endif
    
    if downk = 1
        player.direction = 1 `Face down.
        repeat
            sprite player.id, player.x, player.y-player.movespeed, 1
            player.y = player.y-player.movespeed
        until downk = 0
    endif
    
    if rightk = 1
        player.direction = 2 `Face right
        repeat
            sprite player.id, player.x+player.movespeed, player.y, 1
            player.x = player.x+player.movespeed
        until rightk = 0
    endif
    
    if leftk = 1
        player.direction = 3 `Face left.
        repeat
            sprite player.id, player.x-player.movespeed, player.y, 1
            player.x = player.x-player.movespeed
        until leftk = 0
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

rem I don't know why, but I feel this should be at the end.
rem Write functions in front of it.
function save()
    if dir1=true then savegame$=savedir1
    if dir2=true then savegame$=savedir2
    if dir3=true then savegame$=savedir3
    
    if file exist(savegame$) then delete file savegame$ else make file savegame$
    open to write 1, savegame$
    
    rem LOOK AT LOAD(), WHEN ITS FIXED, ILL APPLY IT HERE!
    
    write long 1, player, knight, civilian, troops, maxtroops, civs
    write long 1, maxcivs, houses, entroops, maxentroops, gold, seiges
    write long 1, defences
endfunction

function load()
    if dir1=true then loadgame$=savedir1
    if dir2=true then loadgame$=savedir2
    if dir3=true then loadgame$=savedir3
    
    if file exist(loadgame$) then delete file loadgame$ else make file loadgame$
    open to read 1, loadgame$
    #constant rl read long
    rl 1, player : rl 1, knight : rl 1, civilian : rl 1, troops
    rl 1, maxcivs : rl 1, maxtroops : rl 1, civs : rl 1, houses
    rl 1, defences : rl 1, entroops : rl 1, maxentroops : rl 1, gold : rl 1, seiges
endfunction

+ Code Snippet

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.1-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------

gosub types
wait 0500

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 5 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant upk upkey()
#constant downk downkey()
#constant rightk rightkey()
#constant leftk leftkey()
#constant true 1
#constant false 0
#constant savedir1 "saves\save01.dat"
#constant savedir2 "saves\save02.dat"
#constant savedir3 "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upk = 1
        player.direction = 0 `Face up.
        repeat
            sprite player.id, player.x, player.y+player.movespeed, 1
            player.y = player.y+player.movespeed
        until upk = 0
    endif
    
    if downk = 1
        player.direction = 1 `Face down.
        repeat
            sprite player.id, player.x, player.y-player.movespeed, 1
            player.y = player.y-player.movespeed
        until downk = 0
    endif
    
    if rightk = 1
        player.direction = 2 `Face right
        repeat
            sprite player.id, player.x+player.movespeed, player.y, 1
            player.x = player.x+player.movespeed
        until rightk = 0
    endif
    
    if leftk = 1
        player.direction = 3 `Face left.
        repeat
            sprite player.id, player.x-player.movespeed, player.y, 1
            player.x = player.x-player.movespeed
        until leftk = 0
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

rem I don't know why, but I feel this should be at the end.
rem Write functions in front of it.
function save()
    if dir1=true then savegame$=savedir1
    if dir2=true then savegame$=savedir2
    if dir3=true then savegame$=savedir3
    
    if file exist(savegame$) then delete file savegame$ else make file savegame$
    open to write 1, savegame$
    
    rem LOOK AT LOAD(), WHEN ITS FIXED, ILL APPLY IT HERE!
    
    write long 1, player, knight, civilian, troops, maxtroops, civs
    write long 1, maxcivs, houses, entroops, maxentroops, gold, seiges
    write long 1, defences
endfunction

function load()
    if dir1=true then loadgame$=savedir1
    if dir2=true then loadgame$=savedir2
    if dir3=true then loadgame$=savedir3
    
    if file exist(loadgame$) then delete file loadgame$ else make file loadgame$
    open to read 1, loadgame$
    #constant rl read long
    rl 1, player : rl 1, knight : rl 1, civilian : rl 1, troops
    rl 1, maxcivs : rl 1, maxtroops : rl 1, civs : rl 1, houses
    rl 1, defences : rl 1, entroops : rl 1, maxentroops : rl 1, gold : rl 1, seiges
endfunction

EDIT: Problem Fixed! SEE BOTTOM FOR MOST RECENT PROBLEMS!

"Insert funny coding-related joke here"

Back to top

Profile PM Email

Kezzla

16

Years of Service

User Offline

Joined: 21st Aug 2008

Location: Where beer does flow and men chunder

Posted: 14th Oct 2011 08:10 Edited at: 14th Oct 2011 10:07

Link

well, i can see a couple of things,
true is a reserved keyword so you cant call your constant that.

also you have put the loop condition until downk = 0 but you have set the constant downk to the original value of downkey() which was not being pressed during declaration, so downk will always = 0 try using variables instead of constants for that.

ive never really played with write long, but it seems you've entered the values incorrectly

WRITE LONG File Number, Variable
where you have
write long 1, player, knight, civilian, troops, maxtroops, civs
write long 1, maxcivs, houses, entroops, maxentroops, gold, seiges
write long 1, defences

there's some stuff for starters(im writing this as i go through the code.
hope this helps.
kezzla

Sometimes I like to use words out of contents

Back to top

Profile PM

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 14th Oct 2011 08:52 Edited at: 14th Oct 2011 08:58

Link

Oh I see, but actually, with the WRITE LONG thing, I was going to change that to fit the load() function, but I was having errors so I forgot to, please look at that. I don't see why its not working.

EDIT: Ok... still not working, I changed the constants to variables

+ Code Snippet

upk = upkey()
downk = downkey()
rightk = rightkey()
leftk = leftkey()
#constant true 1
#constant false 0
#constant savedir1 "saves\save01.dat"
#constant savedir2 "saves\save02.dat"
#constant savedir3 "saves\save03.dat"

"Insert funny coding-related joke here"

Back to top

Profile PM Email

Kezzla

16

Years of Service

User Offline

Joined: 21st Aug 2008

Location: Where beer does flow and men chunder

Posted: 14th Oct 2011 10:04

Link

not sure of your end goal with your layout, but it seems to me you are making it all a little over complicated.

why not try something like

+ Code Snippet

if upkey() = 1
        player.direction = 0 `Face up.
        
            sprite player.id, player.x, player.y+player.movespeed, 1
            player.y = player.y+player.movespeed
        
endif

that way the command will repeat every loop until the key is not pressed.

I don't see any immediate use for your constants(but ive just had a brief look and don't know your end goal)

I dont really use file commands too much but it seems to me like this would work better with the following format

write long 1, player

but even still, your trying to save a UDT with no actual data assigned to the variable player.

maybe try simplifying your layout, work on getting a model of the game working first and then focus on loading and saving game files.

good luck, sorry I couldn't be more help.

kezzla

Sometimes I like to use words out of contents

Back to top

Profile PM

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 14th Oct 2011 10:30

Link

Quote: "true is a reserved keyword so you cant call your constant that."

Are you sure about that Kezzla? It doesn't highlight for me.

@ DarkZombies: Where do you declare dir1, dir2 and dir3? If you are declaring them in the functions then each time that function is called they will be set to 0.

I also highly recommend Kezzla's way of moving the sprites but if you wish to keep your current system you'll need to call this each loop.

+ Code Snippet

upk = upkey()
downk = downkey()
rightk = rightkey()
leftk = leftkey()

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 14th Oct 2011 13:56 Edited at: 14th Oct 2011 22:32

Link

I will try to work on this for a little while, but just glancing at the code... I think it would be in your best interest to take some time and work through some of tutorials on DBpro principles. There are numerous threads that will come up using the forum search as well as "stickied threads" on boards listing them.

edit

I fixed some of the code. I will have to edit your code here so that I can grab blocks of color to represent images, to test further. Some other suggestions...

1. Either declare and initialize all of your variables at the top of your program, or call a subroutine via a gosub, to initialize them. If you don't you run into a chance that you attempt to use variables before they are defined or given a value

2. Ease up on the functions, as many of yours would serve better as subroutines. Generally functions are good when you need to pass it variables,, perform some calculation, AND return a result.

3. Variables that you assign values to inside of functions are only available to that function. Unless... you declare a variable as a global ( or it is defined outside of a function) or you use a return variable. Check out the help on functions, and how to return values . I tend to make a lot of variables global in scope, while not everyone does that, I find it causes me less issues, and I don't have to pass every function, every outside variable. Others may feel that it isn't good practice, but I think if you are careful it's a lot easier. Either way, you need to have an understanding of the DB principles.

4. I REMMED out your save and load functions. You really need to understand how they work (eg... you can't place multiple variables separated by commas. It's not how the command works. My suggestion is to use the "write string" & "Read String" commands for all your variables. Just convert any non-string variables to a string by using str$(variable) and convert them back by using val(variable) when reading. I don't use the other read and write commands, honestly because I don't understand them. I can write and read them from within dbpro, but I am lost about how to create them on my own in a textfile. Maybe someday I'll get around to it. Anyways, and it's one variable per Write command, to keep it simple. If you want to write numerous variables you can have a string variable temp_var$... convert your other variables to a string and then add them to the temp_var$ like.... temp_var$=var1$ + var2$ + var3$. Though you will then have to parse the string when you read it back. Check out some code snippets on the file write and read commands. Or download Ianm's matrix1utils dll, for improved file commands. Maybe I shouldn't be giving advice on file commands. LOL!!!!

I would have to few the file with a hex editor to have a beter understanding of the other read and write commands. It just seems easier to work with strings and see the data.

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.1-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------

easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 5 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

global upk as integer = 0
global downk as integer = 0
global rightk as integer = 0
global leftk as integer = 0
#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upk = 1
        player.direction = 0 `Face up.
        repeat
            sprite player.id, player.x, player.y+player.movespeed, 1
            player.y = player.y+player.movespeed
        until upk = 0
    endif
    
    if downk = 1
        player.direction = 1 `Face down.
        repeat
            sprite player.id, player.x, player.y-player.movespeed, 1
            player.y = player.y-player.movespeed
        until downk = 0
    endif
    
    if rightk = 1
        player.direction = 2 `Face right
        repeat
            sprite player.id, player.x+player.movespeed, player.y, 1
            player.x = player.x+player.movespeed
        until rightk = 0
    endif
    
    if leftk = 1
        player.direction = 3 `Face left.
        repeat
            sprite player.id, player.x-player.movespeed, player.y, 1
            player.x = player.x-player.movespeed
        until leftk = 0
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

rem I don't know why, but I feel this should be at the end.
rem Write functions in front of it.
remstart
function save()
    if dir1=true then savegame$=savedir1
    if dir2=true then savegame$=savedir2
    if dir3=true then savegame$=savedir3
    
    if file exist(savegame$) then delete file savegame$ else make file savegame$
    open to write 1, savegame$
    
    rem LOOK AT LOAD(), WHEN ITS FIXED, ILL APPLY IT HERE!
    
    write long 1, player, knight, civilian, troops, maxtroops, civs
    write long 1, maxcivs, houses, entroops, maxentroops, gold, seiges
    write long 1, defences
endfunction

function load()
    if dir1=true then loadgame$=savedir1
    if dir2=true then loadgame$=savedir2
    if dir3=true then loadgame$=savedir3
    
    if file exist(loadgame$) then delete file loadgame$ else make file loadgame$
    open to read 1, loadgame$
    #constant rl read long
    rl 1, player : rl 1, knight : rl 1, civilian : rl 1, troops
    rl 1, maxcivs : rl 1, maxtroops : rl 1, civs : rl 1, houses
    rl 1, defences : rl 1, entroops : rl 1, maxentroops : rl 1, gold : rl 1, seiges
endfunction
remend

+ Code Snippet

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.1-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------


easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 5 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

global upk as integer = 0
global downk as integer = 0
global rightk as integer = 0
global leftk as integer = 0
#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upk = 1
        player.direction = 0 `Face up.
        repeat
            sprite player.id, player.x, player.y+player.movespeed, 1
            player.y = player.y+player.movespeed
        until upk = 0
    endif
    
    if downk = 1
        player.direction = 1 `Face down.
        repeat
            sprite player.id, player.x, player.y-player.movespeed, 1
            player.y = player.y-player.movespeed
        until downk = 0
    endif
    
    if rightk = 1
        player.direction = 2 `Face right
        repeat
            sprite player.id, player.x+player.movespeed, player.y, 1
            player.x = player.x+player.movespeed
        until rightk = 0
    endif
    
    if leftk = 1
        player.direction = 3 `Face left.
        repeat
            sprite player.id, player.x-player.movespeed, player.y, 1
            player.x = player.x-player.movespeed
        until leftk = 0
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

rem I don't know why, but I feel this should be at the end.
rem Write functions in front of it.
remstart
function save()
    if dir1=true then savegame$=savedir1
    if dir2=true then savegame$=savedir2
    if dir3=true then savegame$=savedir3
    
    if file exist(savegame$) then delete file savegame$ else make file savegame$
    open to write 1, savegame$
    
    rem LOOK AT LOAD(), WHEN ITS FIXED, ILL APPLY IT HERE!
    
    write long 1, player, knight, civilian, troops, maxtroops, civs
    write long 1, maxcivs, houses, entroops, maxentroops, gold, seiges
    write long 1, defences
endfunction

function load()
    if dir1=true then loadgame$=savedir1
    if dir2=true then loadgame$=savedir2
    if dir3=true then loadgame$=savedir3
    
    if file exist(loadgame$) then delete file loadgame$ else make file loadgame$
    open to read 1, loadgame$
    #constant rl read long
    rl 1, player : rl 1, knight : rl 1, civilian : rl 1, troops
    rl 1, maxcivs : rl 1, maxtroops : rl 1, civs : rl 1, houses
    rl 1, defences : rl 1, entroops : rl 1, maxentroops : rl 1, gold : rl 1, seiges
endfunction
remend

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Kezzla

16

Years of Service

User Offline

Joined: 21st Aug 2008

Location: Where beer does flow and men chunder

Posted: 14th Oct 2011 14:29 Edited at: 14th Oct 2011 14:35

Link

Quote: "Quote: "true is a reserved keyword so you cant call your constant that."
Are you sure about that Kezzla? It doesn't highlight for me. "

hmmm, it must be one of my plugins that uses it. with my setup I cant use "true". Not sure which plugin it is, ill have to look into it.
edit: I can use it as a variable but not as a #constant which throws up the error
Quote: "Constant name 'true' cannot share the name of a reserved word or command."
:edit
kezzla

Sometimes I like to use words out of contents

Back to top

Profile PM

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 14th Oct 2011 19:01 Edited at: 14th Oct 2011 19:31

Link

Gah! I know im a noob you don't have to tell me. Im just tired of watching tutorials, I want to learn on my own. Thanks for the help.

EDIT: Ok, I took all your advice, now whatever I do, the left/right moving is always inverted, and the character teleports to the bottom left corner at the very beggining.

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.1-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------

easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 5 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        player.direction = 2 `Face right
        
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
        
    endif
    
    if leftkey() = 1
        player.direction = 3 `Face left.
      
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
      
    endif
endfunction player

+ Code Snippet

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.1-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------


easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 5 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        player.direction = 2 `Face right
        
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
        
    endif
    
    if leftkey() = 1
        player.direction = 3 `Face left.
      
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
      
    endif
endfunction player

EDIT TWO: Okay, now I added mirror sprite commands, thats working (Note the inverted bug isnt fixed)
But it glitches out when you press two arrow keys at the same time.

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------

easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        if player.direction <> 2 then mirror sprite player.id
        player.direction = 2 `Face right
        
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
        
    endif
    
    if leftkey() = 1
        if player.direction <> 3 then mirror sprite player.id
        player.direction = 3 `Face left.
      
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem ----------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem ----------------------|

rem --------
rem | DATA |
rem --------


easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        if player.direction <> 2 then mirror sprite player.id
        player.direction = 2 `Face right
        
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
        
    endif
    
    if leftkey() = 1
        if player.direction <> 3 then mirror sprite player.id
        player.direction = 3 `Face left.
      
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

"Insert funny coding-related joke here"

Back to top

Profile PM Email

Kezzla

16

Years of Service

User Offline

Joined: 21st Aug 2008

Location: Where beer does flow and men chunder

Posted: 14th Oct 2011 19:26

Link

Quote: "Gah! I know im a noob you don't have to tell me. Im just tired of watching tutorials, I want to learn on my own. Thanks for the help."

nothing to stress about, I'm still a noob too.

I think just make small test projects testing out different ideas for your final goal.

keep it very simple and work your way up.

if it doesnt work go back to a place where it does work and make sense.

game logic has to make sense to you or else it simply isn't logic it's jibberish.

gotta go back to where it makes sense and build.

I recomend TDKs tutorials, they are truely exellent. search for them in TGC forums, you will find them.
best of luck

kezzla

Sometimes I like to use words out of contents

Back to top

Profile PM

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 14th Oct 2011 19:32

Link

Oh... well I edited my other post.. can you can look at that please?

"Insert funny coding-related joke here"

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 14th Oct 2011 22:09 Edited at: 14th Oct 2011 22:17

Link

@Darkzombies,, I wasn't trying to bash you. And I appologize if my post came off that way. When I recommended tutorials, I didn't mean watch them... but pull apart the code,, play with them, and get a solid foundation on the principles. If you get that out of the way now, your enjoyment of the product will be more pleasant than painful.

As for your issues. You need to do some key handling. There are some good snippets on the snippets board that may help you. But generally...

- You need to check for multiple keypresses, and handle that accordingly. For some designs you may need to treat a user holding the up AND right arrow keys together differently than performing the upkey() code and the rightkey() code.

- You may want to prevent anything from happening if opposite direction keys are held like "up" AND "down", or "right" AND "left". Especially "left" AND "right" as that code is mirroring the sprite and it will certainly look glitchy!

- If you are truly limiting movements to only 4 directions then the simplest way for you to handle it, is to have an if..else...endif rather than your multiple if's structure you currently have. If you will need simultaneous keys like "up" AND "right" that suggestion will not work.

- If I have time, I'll try to work on you code later. In the mean time you should look up some codeon keystate handlers in the snippets board,, the basic upkey()=1 stuff is ok for quick prototyping purposes... but it usually falls short of what most games need.

As for the inversion,, I haven't looked over all the new code yet, but I would gather that in moving right you would want to "+" movespeed to your x coordinate. And moving left you would want to "-". I'll have to look at your full source to see if my assumption on quick glance is correct?

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 15th Oct 2011 00:32 Edited at: 15th Oct 2011 00:40

Link

Lol... its so funny cause I did that, then remembered the post...

so here ya go, I did it by myself!

rem |---------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem |---------------------|

rem --------
rem | DATA |
rem --------

easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
    attack = troops + seiges
    defence = troops + defences
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        if player.direction = 1 then goto skip_2
        if player.direction = 0 then goto skip_2
        if player.direction = 3 then goto skip_2
        if player.direction <> 2 then mirror sprite player.id
        skip_2:
        player.direction = 2 `Face right
        
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
        
    endif
    
    if leftkey() = 1
        if player.direction = 1 then goto skip_1
        if player.direction = 0 then goto skip_1
        if player.direction = 2 then goto skip_1
        if player.direction <> 3 then mirror sprite player.id
        skip_1:
        player.direction = 3 `Face left.
      
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem |---------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem |---------------------|

rem --------
rem | DATA |
rem --------


easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
    attack = troops + seiges
    defence = troops + defences
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        if player.direction = 1 then goto skip_2
        if player.direction = 0 then goto skip_2
        if player.direction = 3 then goto skip_2
        if player.direction <> 2 then mirror sprite player.id
        skip_2:
        player.direction = 2 `Face right
        
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
        
    endif
    
    if leftkey() = 1
        if player.direction = 1 then goto skip_1
        if player.direction = 0 then goto skip_1
        if player.direction = 2 then goto skip_1
        if player.direction <> 3 then mirror sprite player.id
        skip_1:
        player.direction = 3 `Face left.
      
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

Now, *Dramatic music plays* TO ANIMATION!! (Once I get art done

)

EDIT: Ok, so this works, but occasionally it will glitch out and not mirror the sprite. (I can actually give you the temp image if you want to test it, its attached)

rem |---------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem |---------------------|

rem --------
rem | DATA |
rem --------

easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
    attack = troops + seiges
    defence = troops + defences
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        if player.direction = 1 then goto skip_2
        if player.direction = 0 then goto skip_2
        if player.direction = 3
            if player.direction = 2
                goto skip_2
            endif
        endif
        if player.direction <> 2 then mirror sprite player.id
        skip_2:
        player.direction = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        if player.direction = 1 then goto skip_1
        if player.direction = 0 then goto skip_1
        if player.direction = 2
            if player.direction = 3
                goto skip_1
            endif
        endif
        if player.direction <> 3 then mirror sprite player.id
        skip_1:
        player.direction = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem |---------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem |---------------------|

rem --------
rem | DATA |
rem --------


easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    direction as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
    attack = troops + seiges
    defence = troops + defences
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.direction = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.direction = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        if player.direction = 1 then goto skip_2
        if player.direction = 0 then goto skip_2
        if player.direction = 3
            if player.direction = 2
                goto skip_2
            endif
        endif
        if player.direction <> 2 then mirror sprite player.id
        skip_2:
        player.direction = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        if player.direction = 1 then goto skip_1
        if player.direction = 0 then goto skip_1
        if player.direction = 2
            if player.direction = 3
                goto skip_1
            endif
        endif
        if player.direction <> 3 then mirror sprite player.id
        skip_1:
        player.direction = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

"Insert funny coding-related joke here"

Attachments

Login to view attachments

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Oct 2011 01:19 Edited at: 15th Oct 2011 01:42

Link

* I took out a lot of unecessary condition checks.

* I eliminated the need for the skip: labels and their corresponding goto's inside the if conditions.

* The logic condition checks worked out easier by evaluating the opposite condition. So I changed them. This was made possible by breaking up the x and y directions described below.

* I removed player.direction and replaced it with player.directionx and player.directiony.

The reason: The directions had to be separated because the up and down movement would over-write the old left and right direction; which were the directions you needed to have to determinn whether or not to mirror the sprite. That decision needed to be made regardless of what the sprite was doing in the vertical direction.

*(Note): I probably could work out a better scheme to handle the directions, but I think if you compare the old code to the new, you will be able to see what was going on better than if I had completely changed the scheme.

**: I was unsure if the sprite needed to flip vertically for up and down, so I left that alone.

Rem Project: Dark Basic Pro Project
Rem Created: Friday, October 14, 2011

Rem ***** Main Source File *****
rem |---------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem |---------------------|

rem --------
rem | DATA |
rem --------

easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
    attack = troops + seiges
    defence = troops + defences
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
       
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    //load image "media\peasant.png", 2
    //load image "media\Bc.png", 3
    //load image "media\Bg.png", 4
    //load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Friday, October 14, 2011

Rem ***** Main Source File *****
rem |---------------------|
rem |---By Darkzombies----|
rem |---Pre-Alpha-0.2-----|
rem |---------------------|

rem --------
rem | DATA |
rem --------


easy() `Had to add a difficulty because some of your variables like troops are defined here
gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity

return

rem -------------
rem | FUNCTIONS |
rem -------------

function easy() `Just sets up the variables for easy difficulty.
    troops = 7
    maxtroops = 7
    civs = 7
    maxcivs = 7
    houses = 3
    entroops = 5
    maxentroops = 5
    gold = 5000
    seiges = 1
    defences = 1
    attack = troops + seiges
    defence = troops + defences
endfunction

function normal()
    troops = 5
    maxtroops = 5
    civs = 5
    maxcivs = 5
    houses = 2
    entroops = 6
    maxentroops = 6
    gold = 4000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function hard()
    troops = 3
    maxtroops = 3
    civs = 3
    maxcivs = 3
    houses = 1
    entroops = 7
    maxentroops = 7
    gold = 3000
    seiges = 0
    defences = 0
    attack = troops + seiges
    defence = troops + defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
       
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function loadimages()
    player.id = 1
    load image "media\knight.png", 1
    //load image "media\peasant.png", 2
    //load image "media\Bc.png", 3
    //load image "media\Bg.png", 4
    //load image "media\Bd.png", 5
    sprite player.id, 0, 0, 1
endfunction

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 15th Oct 2011 01:40

Link

Much better, I didnt know up/down overrided right/left, oh well it worked, besides one thing, if you initially go right the animation gets screwed up. Ill experiment, I can probally fix pretty easy.

"Insert funny coding-related joke here"

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Oct 2011 01:49

Link

Quote: "I didnt know up/down overrided right/lef"

It was because all directions were updating player.direction. So the sprite mirror problem would happen when you went moved on diagonals or at times if you went up OR down, and then changed the horizontal direction compared to the previous horizontal direction. That's the best I can describe it.

Another possible solution to the issue would have been to create an old_horiz_direction variable and use it to store the last known horizontal direction. Then use that variable to do the checks in the left or right input states. So you could try that if breaking up the directions causes you grief later on.

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 15th Oct 2011 02:29

Link

Ok. So now I added a thing to past trees along the right side of the screen, and as you know by now, I fail at everything.

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    setuptrees()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity
global dim trees(10) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

remstart Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    global attack = troops + seiges
    global defence = troops + defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = troops + seiges
    global defence = troops + defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    global attack = troops + seiges
    global defence = troops + defences
endfunction

remend

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
       
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function setuptrees()
    for num = 1 to 10
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 1 to 10
        trees(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    setuptrees()
    sync
loop

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity
global dim trees(10) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

remstart Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    global attack = troops + seiges
    global defence = troops + defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = troops + seiges
    global defence = troops + defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    global attack = troops + seiges
    global defence = troops + defences
endfunction

remend

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
       
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function setuptrees()
    for num = 1 to 10
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 1 to 10
        trees(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    sprite player.id, 0, 0, 1
endfunction

Oh yeah, and the difficulty's were giving me weird problems like "declaration name '+' is not valid"
so I remmed em out.

"Insert funny coding-related joke here"

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Oct 2011 04:21 Edited at: 15th Oct 2011 17:16

Link

It's the fundamentals that are haunting you.

If you are going to assign a value to a global variable, that value cannot be a mathematical expression like (5 + 7), it must be an immediate value like (12) or a variable that has been set.

This will not compile

+ Code Snippet

global attack = troops + seiges

This will have compile and work

+ Code Snippet

ts= troops + seiges
global attack = ts

This is the safer method

+ Code Snippet

global attack
attack = troops + seiges

(or)

global attack as integer
attack = troops + seiges

I found a lot of methods that will compile but don't initialize the variable as expected... such as:

+ Code Snippet

global attack as integer = troops + seiges

(or)

global attack as integer = 7 + 5

==============

The other issue you had was in duplicating sprite numbers. You can't start trees(x).id at 1, because the player already uses that sprite number. So I added 1 to it

+ Code Snippet

for x = 1 to 10
        trees(x).id = x + 1
next x
player.id = 1

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 15th Oct 2011 04:54 Edited at: 15th Oct 2011 05:08

Link

Oh, ok, well even before you posted I fixed everything but the trees, I didnt think the player counted because it was a different thing (player.id instead of trees(x).id)

But anyways, if I did anything inneficiently, tell me.

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

init()

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    `setuptrees()
    sync
loop

flag = 1
wait 10000
flag = 0

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity
global dim trees(10) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

function init() `Initialize everything!
    rem |-----------|
    rem |-DEBUGGING-|
    rem |-----------|
    player.directionx = 3
    if player.directionx = 3 then mirror sprite player.id
    player.directionx = 2 `Face right
        
    sprite player.id, player.x+50, player.y, 1
    player.x = player.x+player.movespeed

wait 0500
    sprite player.id, screen width()/2-60, screen height()/2-10, 1
    player.x = screen width()/2-60
    player.y = screen height()/2-10
    
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
    
endfunction

rem Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        
        if flag = 1 then mirror sprite player.id
        flag = 0
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function setuptrees()
    for num = 1 to 10
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 1 to 10
        trees(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

init()

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    `setuptrees()
    sync
loop

flag = 1
wait 10000
flag = 0

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity
global dim trees(10) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

function init() `Initialize everything!
    rem |-----------|
    rem |-DEBUGGING-|
    rem |-----------|
    player.directionx = 3
    if player.directionx = 3 then mirror sprite player.id
    player.directionx = 2 `Face right
        
    sprite player.id, player.x+50, player.y, 1
    player.x = player.x+player.movespeed

    wait 0500
    sprite player.id, screen width()/2-60, screen height()/2-10, 1
    player.x = screen width()/2-60
    player.y = screen height()/2-10
    
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
    
endfunction

rem Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        
        if flag = 1 then mirror sprite player.id
        flag = 0
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function setuptrees()
    for num = 1 to 10
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 1 to 10
        trees(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    sprite player.id, 0, 0, 1
endfunction

Im fixing the trees atm.

EDIT: Ok, so theres only 1 tree...

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

init()

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    setuptrees()
    sync
loop

flag = 1
wait 10000
flag = 0

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity
global dim trees(11) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

function init() `Initialize everything!
    
    rem |-----------|
    rem |-DEBUGGING-|
    rem |-----------|
    
    player.directionx = 3
    if player.directionx = 3 then mirror sprite player.id
    player.directionx = 2 `Face right
        
    sprite player.id, player.x+50, player.y, 1
    player.x = player.x+player.movespeed

wait 0500
    sprite player.id, screen width()/2-60, screen height()/2-10, 1
    player.x = screen width()/2-60
    player.y = screen height()/2-10
    
    rem It starts at normal, there will be a menu, but for now this works.
    
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
    
endfunction

rem Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        
        if flag = 1 then mirror sprite player.id
        flag = 0
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function setuptrees()
    for num = 2 to 11
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 2 to 11
        trees(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

init()

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    setuptrees()
    sync
loop

flag = 1
wait 10000
flag = 0

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim civilian(civs) as entity
global dim trees(11) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

function init() `Initialize everything!
    
    rem |-----------|
    rem |-DEBUGGING-|
    rem |-----------|
    
    player.directionx = 3
    if player.directionx = 3 then mirror sprite player.id
    player.directionx = 2 `Face right
        
    sprite player.id, player.x+50, player.y, 1
    player.x = player.x+player.movespeed

    wait 0500
    sprite player.id, screen width()/2-60, screen height()/2-10, 1
    player.x = screen width()/2-60
    player.y = screen height()/2-10
    
    rem It starts at normal, there will be a menu, but for now this works.
    
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
    
endfunction

rem Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
        player.directiony = 1 `Face down.
   
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        
        if flag = 1 then mirror sprite player.id
        flag = 0
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
endfunction player

function setuptrees()
    for num = 2 to 11
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 2 to 11
        trees(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    sprite player.id, 0, 0, 1
endfunction

Also, are there any good AI tutorials out there, I know how to do the actual AI(Randomize timer()/rnd(a #)) just not movement, (Except maybe like back and forth, or move with the player.)
Cause thats most likely what ill be doing next, unless someone wants to do some animations for me lol.

"Insert funny coding-related joke here"

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 15th Oct 2011 05:12 Edited at: 15th Oct 2011 05:16

Link

btw, Actually the decleration issues were less about knowing the fundamentals and more about experience. I'm not sure that I ever came across some of the results I was getting, and some of my trials suprised me. Those types of things I like to call quirks.

Quote: "Also, are there any good AI tutorials out there, I know how to do the actual AI(Randomize timer()/rnd(a #)) just not movement, (Except maybe like back and forth, or move with the player.)
Cause thats most likely what ill be doing next, unless someone wants to do some animations for me lol."

What type of AI are you looking for?

Your signature has been erased by a mod please reduce it to 600 x 120.

Back to top

Profile PM Email

Darkzombies

13

Years of Service

User Offline

Joined: 25th Dec 2010

Location: In multiple tabs, most likely youtube.

Posted: 15th Oct 2011 05:58 Edited at: 15th Oct 2011 19:55

Link

Just wandering around, maybe AI that just hobbles towards you, or smart AI who avoids stuff or anything like that. (Actually all lol)

Ok, also, do I have to increase the value of the .id? Just look at this for me please.

+ Code Snippet

function setupenemies()
    for num = 12 to 16
        sprite entroops(num).id, rnd(600), rnd(400), 1
        entroops(12).amount = entroops(12).amount + 1 `I just use the first one to store the amount.
    next num
endfunction

also this.

+ Code Snippet

    for x = 12 to 16
        entroops(x).id = x
    next x

Also, do you know anyone who can do art for the game?
at lease some simple animations so I can work on my animation?

EDIT: Ok, so I implemented attacking and a little animation, but it freezes when I press the attack key ("j")

Also, enemies are just spawning everywhere constantly, going over theyre array limit, and then deleting other enemies.

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

init()

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    setuptrees()
    setupenemies()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    text 550, 40, "Enemies: " +str$(entroops(12).amount)
    sync
loop

flag = 1
wait 10000
flag = 0

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
    health as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim entroops(16) as entity
global dim civilian(civs) as entity
global dim trees(11) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

function init() `Initialize everything!
    
    rem |-----------|
    rem |-DEBUGGING-|
    rem |-----------|
    
    player.directionx = 3
    if player.directionx = 3 then mirror sprite player.id
    player.directionx = 2 `Face right
        
    sprite player.id, player.x+50, player.y, 1
    player.x = player.x+player.movespeed

wait 0500
    sprite player.id, screen width()/2-60, screen height()/2-10, 1
    player.x = screen width()/2-60
    player.y = screen height()/2-10
    
    rem It starts at normal, there will be a menu, but for now this works.
    
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
    
endfunction

rem Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
    
        if attacking = true then playerinput()
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
    
        if attacking = true then playerinput()
        player.directiony = 1 `Face down.
        
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

endif
    
    if rightkey() = 1
        
        if attacking = true then playerinput()
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        
        if attacking = true then playerinput()
        if flag = 1 then mirror sprite player.id
        flag = 0
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
    
    if scancode() = 36 `Thats the "j" key.
        sprite player.id, player.x, player.y, 7
        attacking = true
        wait 1500
        attacking = false
        sprite player.id, player.x, player.y, 1
    endif
    
endfunction player

function setupenemies()
    for num = 12 to 16
        sprite entroops(num).id, rnd(600), rnd(400), 1
        entroops(12).amount = entroops(12).amount + 1 `I just use the first one to store the amount.
    next num
endfunction

function setuptrees()
    for num = 2 to 11
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 2 to 11
        trees(x).id = x
    next x
    for x = 12 to 16
        entroops(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    load image "media\knightA.png", 7
    sprite player.id, 0, 0, 1
endfunction

+ Code Snippet

rem |---------------------|
rem |---By Darkzombies----|
rem |--------KingX--------|
rem |---Pre-Alpha-0.2-----|
Rem |-Created-Oct-14-2011-|
rem |---------------------|

rem --------
rem | DATA |
rem --------

gosub types

scrwid = screen width()
scrheight = screen height()

loadimages()

player.movespeed = 2 `Change this if you need to.
player.x = scrwid-sprite width(player.id)
player.y = scrheight-sprite height(player.id)

sync on : sync rate 50

init()

#constant true 1
#constant false 0
global savegame$ = ""
global loadgame$ = ""
global savedir1 as string = "saves\save01.dat"
global savedir2 as string = "saves\save02.dat"
global savedir3 as string = "saves\save03.dat"

rem -------------
rem | MAIN LOOP |
rem -------------

do
    PlayerInput()
    setuptrees()
    setupenemies()
    text 550, 10, "Attack: " +str$(attack)
    text 550, 25, "Defence: " +str$(defence)
    text 550, 40, "Enemies: " +str$(entroops(12).amount)
    sync
loop

flag = 1
wait 10000
flag = 0

rem ---------
rem | TYPES |
rem ---------

types:
type entity
    x as integer
    y as integer
    anim as integer
    directionx as integer
    directiony as integer
    att as integer `Inidividual attack/defence level
    def as integer
    movespeed as integer
    id as integer
    amount as integer
    health as integer
endtype

type terrain
    x as integer
    y as integer
    direction as integer
    anim as integer
    id as integer
    amount as integer
endtype

global player as entity
global dim knight(troops) as entity
global dim entroops(16) as entity
global dim civilian(civs) as entity
global dim trees(11) as terrain

return

rem -------------
rem | FUNCTIONS |
rem -------------

function init() `Initialize everything!
    
    rem |-----------|
    rem |-DEBUGGING-|
    rem |-----------|
    
    player.directionx = 3
    if player.directionx = 3 then mirror sprite player.id
    player.directionx = 2 `Face right
        
    sprite player.id, player.x+50, player.y, 1
    player.x = player.x+player.movespeed

    wait 0500
    sprite player.id, screen width()/2-60, screen height()/2-10, 1
    player.x = screen width()/2-60
    player.y = screen height()/2-10
    
    rem It starts at normal, there will be a menu, but for now this works.
    
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
    
endfunction

rem Ignore this for now!
function easy() `Just sets up the variables for easy difficulty.
    global troops = 7
    global maxtroops = 7
    global civs = 7
    global maxcivs = 7
    global houses = 3
    global entroops = 5
    global maxentroops = 5
    global gold = 5000
    global seiges = 1
    global defences = 1
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function normal()
    global troops = 5
    global maxtroops = 5
    global civs = 5
    global maxcivs = 5
    global houses = 2
    global entroops = 6
    global maxentroops = 6
    global gold = 4000
    global seiges = 0
    global defences = 0
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function hard()
    global troops = 3
    global maxtroops = 3
    global civs = 3
    global maxcivs = 3
    global houses = 1
    global entroops = 7
    global maxentroops = 7
    global gold = 3000
    global seiges = 0
    global defences = 0
    wait 0500
    global attack = attack+troops+seiges
    global defence = defence+troops+defences
endfunction

function playerinput() `THESE WILL BE EXECUTED IN THE GAME LOOP, MAYBE A FUNCTION LOOP!
    if upkey() = 1
    
        if attacking = true then playerinput()
        player.directiony = 0 `Face up.
        
        sprite player.id, player.x, player.y+player.movespeed, 1
        player.y = player.y-player.movespeed
        
    endif
    
    if downkey() = 1
    
        if attacking = true then playerinput()
        player.directiony = 1 `Face down.
        
        sprite player.id, player.x, player.y-player.movespeed, 1
        player.y = player.y+player.movespeed

    endif
    
    if rightkey() = 1
        
        if attacking = true then playerinput()
        if player.directionx = 3 then mirror sprite player.id
        player.directionx = 2 `Face right
        
        sprite player.id, player.x+player.movespeed, player.y, 1
        player.x = player.x+player.movespeed
        
    endif
    
    if leftkey() = 1
        
        if attacking = true then playerinput()
        if flag = 1 then mirror sprite player.id
        flag = 0
        if player.directionx = 2 then mirror sprite player.id
        player.directionx = 3 `Face left.
      
        sprite player.id, player.x-player.movespeed, player.y, 1
        player.x = player.x-player.movespeed
      
    endif
    
    if scancode() = 36 `Thats the "j" key.
        sprite player.id, player.x, player.y, 7
        attacking = true
        wait 1500
        attacking = false
        sprite player.id, player.x, player.y, 1
    endif
    
endfunction player

function setupenemies()
    for num = 12 to 16
        sprite entroops(num).id, rnd(600), rnd(400), 1
        entroops(12).amount = entroops(12).amount + 1 `I just use the first one to store the amount.
    next num
endfunction

function setuptrees()
    for num = 2 to 11
        tempy = 50 + 50
        sprite trees(num).id, 600, tempy, 6
    next num
endfunction

function loadimages()
    for x = 2 to 11
        trees(x).id = x
    next x
    for x = 12 to 16
        entroops(x).id = x
    next x
    player.id = 1
    load image "media\knight.png", 1
    load image "media\peasant.png", 2
    load image "media\Bc.png", 3
    load image "media\Bg.png", 4
    load image "media\Bd.png", 5
    load image "media\tree.png", 6
    load image "media\knightA.png", 7
    sprite player.id, 0, 0, 1
endfunction

if yah need the images, one is in a higher post somewhere, and heres the attacking one. (ATTACHED)

Sorry your browser is not supported!

Newcomers DBPro Corner / HELP! (My help thread.)

Attachments

Attachments