{$CLEO}
{$VERSION 3.0.1000}         // Deji's GTAG Opcode Database definitions (SA)
//{$VERSION 2.0.1000}         // Deji's GTAG Opcode Database definitions (VC)
//{$VERSION 1.0.1000}         // Deji's GTAG Opcode Database definitions (III)
CONST
    magic_key = 84  // T
    scplayer  = $PLAYER_ACTOR
    v0        = 0@
    v1        = 1@
    v2        = 2@
    v3        = 3@
    v4        = 4@
    s5        = 5@v
    v10       = 10@
    v11       = 11@
    v15       = 15@
    IS_SAN    = 9@
END

// Test script name
SCRIPT_NAME 'SCNAME'

IS_SAN = FALSE
v10 = 10
v11 = 11
v15 = 15

WHILE TRUE
    WAIT 0
    
    // Test string collection
    PRINT_NOW 'AMBUL_M' 1000 0
    
    GOSUB @SUB_SET
    
    // Test float collection
    v0 = 1.0
    GENERATE_RANDOM_FLOAT_IN_RANGE v0 100.0 v1

    IF IS_SAN == TRUE
    THEN    
        // Test array
        v0 = 0.0
        v1 = 10.0
        v2 = 0
        v3 = 1
        GENERATE_RANDOM_FLOAT_IN_RANGE 0@(v2,1f) 0@(v3,1i) v1
    END
    
    GOSUB @SUB_SET
        
    // Test integer collection
    v0 = 1
    GENERATE_RANDOM_INT_IN_RANGE v0 10 v1
      
    // Test float storing
    GET_CHAR_COORDINATES scplayer v0 v1 v2
    
    // Test integer storing  
    GET_TIME_OF_DAY v0 v1

    // Test if
    GOSUB @TEST_IF
    
    GOSUB @SUB_SET            

    // Crash?        
    IF IS_KEY_PRESSED magic_key
    THEN
        GOTO @CRASH      
    END    
END

:TEST_IF
v0 = 0
IF
v0 == 0
GOTO_IF_FALSE @TEST_JF_1

IF OR
v0 == 0
v0 == 1
GOTO_IF_FALSE @TEST_JF_1

IF AND
v0 <> 0
v0 <> 1
GOTO_IF_FALSE @TEST_JF_1

:TEST_JF_1

RETURN

:SUB_SET
v0 = 7
v1 = 8
0085: v1 = v0
0087: v0 = v1
0085: v0 = v0
v0 = -1
0085: $PLAYER_ACTOR = $PLAYER_ACTOR
RETURN


:CRASH
HEX
    FF FF FF FF FF FF FF FF FF
    FF FF FF FF FF FF FF FF FF
    FF FF FF FF FF FF FF FF FF
END



