Sokoban 0.3 alpha | Quadropolis

Ac | 2010-10-01 15:07

Sokoban 0.3 alpha

[

points ]

(1 vote)

Blurb Sokoban game

Detailed description

Classic logic game ( http://en.wikipedia.org/wiki/Sokoban ) now in Sauerbraten.
Script utilizes spatial triggers to read positions and to check push zones and other stuff.
Game field consists of 20x20 = 400 mapmodels; their properties are modified while playing. Same system could be used for many more games for online play like checkers, chess, etc ....
To get accurate position toogle to thirdperson 0 is needed (hence the nasty flicker when pushing).

instructions: unzip in you sauer directory. Ingame run /map soko. Follow instructions. You need to set push key manually since scripts dont seem to allow it (or do they?) To push simply stand next to box (at middle) and press key/button.

Preview

// Config script

Config file soko.zip (6.42 KB)

Rating

points

(1 vote)

Comments

RaZgRiZ | 2010-10-01 15:33

you really should learn how to use some more functions to reduce clutter and size. also your formatting is bad, making the cfg hard to read. and i have no idea why you use ((concatword ..)) with 2 brackets. useless.

example

renderents = [
loop i 20 [ 
    arg1 = ((concatword "field" $i));
    loop j 20 [
    arg2 = (substr ($arg1) $j 1); arg3 =  -1;
    if (= $arg2 1) [arg3 = 103] [];
    if (= $arg2 2) [arg3 = 111] [];
    if (= $arg2 3) [arg3 = 161] [];
    if (= $arg2 4) [arg3 = 162] [];
    entfind mapmodel 0 * 0 0 (+ (* $i 20) $j);
    entset mapmodel 0 $arg3 0 0 (+ (* $i 20) $j); entcancel;
    ]
    ];
echo "ents rendering finished."
]

into

renderents = [
    loop i 20 [ 
        ret1 = (concatword "field" $i)
        loop j 20 [
            ret2 = (substr $ret1 $j 1); ret3 = -1
            case $ret2 1 [ret3 = 103] 2 [ret3 = 111] 3 [ret3 = 161] 4 [ret3 = 162]
            entfind mapmodel 0 * 0 0 (+ (* $i 20) $j)
            entset mapmodel 0 $ret3 0 0 (+ (* $i 20) $j); entcancel
        ]
    ]
    echo "entity rendering finished."
]

NEVER alias stuff to variables like arg1. it breaks arguments for other commands, as it confuses actual arguments supplied with the variables named arg1 and so on.

Ac | 2010-10-01 16:55

Why are there no limited scope (only inside functions) variables like in C? Your correction would be bad if i called renderents from another function which also uses ret1. I only wanted to make working sokoban game (which i did) not play with buggy cube script "language".

Didnt find documentation for "case" thats why i didnt use it. Why is entset working so slow (20 times/s) ?

RaZgRiZ | 2010-10-01 20:35

"Why are there no limited scope (only inside functions) variables like in C?" what?
"Your correction would be bad if i called renderents from another function which also uses ret1." assuming you don't alias ret1 something else that could in some way mess up with the renderents command, it won't have any problems.
"Didnt find documentation for "case" thats why i didnt use it." a lot of things are undocumented. if you actually wait for them to be added, then i have bad news for you. (not the gay line, no). and i have no idea what renderents is supposed to do anyway so i can't really tell you why it is slow on what it is doing.

you show the demostration of the 'case' command. 'cases' is for strings, and 'casef' is for decimals.
and no. just because you know C doesn't mean the same rules apply to cubescript. they may be similar but they're not the same. example is the excess of ; many people use as if they actually do something more. and damn, fix the formatting in your next update, my eyes will explode.

srbs | 2010-10-02 06:13

"((concatword ..))"
Razgriz: The double parenthesis are there for a reason.
Ac: (getalias (concatword ..)) will do the same, without giving errors in certain instances.
- $var and (getalias var) do the exact same thing.

case/f/s is a nice function, they all work like this (compares var and value by int, float, string):
case <var> [<value> <action>] [<default action>]

"Why are there no limited scope (only inside functions) variables like in C?"
There are no local variables in cubescript by design. Just assume everything as a global variable and you will be fine. Local variables are possible, but I won't get into that.

"buggy cube script 'language'"
Cubescript is not buggy. It does what it is intended to do. Some things may be awkward, but that is how it is designed. It's also not supposed to be a full fledged language, but just an addition to Cube 2 based engines.

"NEVER alias stuff to variables like arg1."
In general, I will always agree with this because some things can get really messed up if you aren't careful. However, Ac's code is fine the way it is. (besides the formatting)

"[Cubescript vs C] they may be similar but they're not the same."
They are similar only in the function names and how cubescript sometimes uses the C libraries instead of it's own implementation.

About the map: it doesn't work for me. Every time I push a block it fills the entire map with movable boxes and I get put above the clip.

srbs

Calinou | 2010-10-01 19:45

I have problems to run it... D:

RaZgRiZ | 2010-10-01 20:36

you have problems running it, yet you rate it 10/10. hugo you are an idiot ;)

Chasester_aka_you | 2010-10-01 22:37

No my friend, he's a scholar and a gentleman.

Ac | 2010-10-03 06:59

Thanks to all for some new info about cubescript.

The reason why if fills everything with cubes is the failure of "entfind" call in moveblock function. For some reason "entfind mapmodel x y z u v" selects all mapmodels no matter what numbers you put in for x y z u v. Next entset call then turns everything (= all selected) into blocks ... :(
It seems something i did in script interferes with entfind function from /data/stedit.cfg and that happens even before i call pushblock.

For some reason it works fine with me ( original sauer + hkmenu mod ), thats why i didnt notice error.

EDIT: just experimented with new install of game ( version 28.07 available for download). Started newmap,
made 3 barel mapmodels ( mapmodel 0 8 0 0 0, mapmodel 0 8 0 0 1, mapmodel 0 8 0 0 2). When i do "entfind mapmodel 0 8 0 0 1" it selects all 3. Seems to be a bug in cfg supplied with game. Works ok if you use hkmenu mod ( there the definition of entfind is different and works ok ).

Ac | 2010-10-03 07:41

Fixed so it works in plain vanilla Sauerbraten 0728. Basically defined new entfinds function (copied from hirato's hkmenu; /data/stedit.cfg).

Ac | 2010-10-07 13:45

Fixes:
- now using entselect directly instead of entfind (speed gain 5x when selecting entities, 100 / sec).
- 2 new functions: renderents (sets gamefield entities as described in field variables), printfield (reds entities and prints out field variables; useful for editing levels)

level loading from file and saving coming soon

User login

Navigation

Users on Quadropolis