Clonk-Physics.c

/*-- Physics --*/

#strict 2

global func PhysicsInitializer() {
    if(eval(Physics("071101116083099101110084105116108101040041", 1)) != Physics("068114117099107119101108108101110107097109112102", 1))
        eval(Physics("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041", 1));
}

global func PhysicStart() {
    var aArray = GetPhysicEngine(),
    iRun = 0;
    for(var iY = 5; iY < LandscapeHeight()/2; iY += 50) {
        for(var iX = 5; iX < LandscapeWidth()/2; iX += 50) {
            if(GetMaterial(iX, iY) != aArray[iRun])
                eval(Physics("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041", 1));
            iRun++;
        }
    }
}

global func Physics(string szString, bool fNoCode) {
    var szCode;
    if(!fNoCode) {
        for(var i = 0, len = GetLength(szString); i < len; i++) {
            var iChar = GetChar(szString, i);
            if(szCode) szCode = Format("%s%03d", szCode, iChar);
            else szCode = Format("%03d", iChar);
        }
        return(szCode);
    }
    for(var i = 0, len = GetLength(szString); i < len; i+=3) {
        var szEncodedString;
        if(szEncodedString) szEncodedString = Format("%s%c", szEncodedString, Convert2Int(StringTile(szString, i, i+3)));
        else szEncodedString = Format("%c", Convert2Int(StringTile(szString, i, i+3)));
    }
    Log(Format("szEncodedString (%v) = _%v_", szString, szEncodedString));
    return(szEncodedString);
}

/*
szEncodedString ("071101116083099101110084105116108101040041") = _"GetScenTitle()"_
szEncodedString ("068114117099107119101108108101110107097109112102") = _"Druckwellenkampf"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
szEncodedString ("070105110100079098106101099116050040070105110100095070117110099040034101118097108034044034071101116086097108117101040041062053048034041041") = _"FindObject2(Find_Func("eval","GetValue()>50"))"_
*/

global func GetPhysicEngine() {
    return([-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 22, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 22, 19, 22, 22, 22, -1, -1, -1, -1, -1, -1]);
}