Transport Tycoon Forums

Code: Select all

//pseudo 
varaction 2 to check callbacks
  if callback ID is 00 (think 00 is the production callback ID??)
    varaction 2 to store value(s) in registers according to my criteria xyz
  action 2 that is production callback (also terminates action 2 chain)   

Code: Select all

   -1 * 0       02 04 03 81
                            7E 11 20 FF // subroutine: check northern tile
                         0A 1A    20 04 // shift 2 bits left (*4)
                         0E 1A    20 00 // store in reg 0
                         0F 7E 12 20 FF // subroutine: check southern tile
                         0C 7D 00 20 FF // OR with reg 0
                         0E 1A    20 00 // store in reg 0
                         0F 67 00 20 0F // get slope data (var67, bits 0..3)
                         0A 1A    20 10 // shift 4 bits left (*16)
                         0C 7D 00 00 FF // OR with reg 0
                         ...

Code: Select all

Var Action 2 
  Check distance to nearest industry of type n (using var 64)
    If in range 0-10:
      Store 64 00 in register 100h
    Else:
      Store 32 00 in register 100h
  Return ID of CB of production callback
[...]
Action 2 for Production Callback 
  Uses values in register 100h

Code: Select all

if (something) {
    foo();
} else {
    foo();
}

Code: Select all

accu = var64[...]; // Load var 64
accu = (accu < 10 ? 0 : (accu == 10 ? 1 : 2)); // Compare it with 10 and store 0 for "<", 1 for "==" and 2 for ">"
accu >>= 1; // Turn 0 and 1 into 0, and 2 into 1. I.e. 0 if var64 <= 10, and 1 if > 10
accu *= 32; // Multiply with 32
accu += 32; // Add 32
register[...] = accu; // store in some register for following production callback

Code: Select all

    9 * 35	 02 0A 0E 81 // store production values in registers
      64 01 00 FF // check variable 64, with industry type in first byte after variable 
       01 // check one range
          0A 1A 20 64 00
          0E 1A 20 00 01 // store 64 in register 01...
          0A 00 00 05 // ...if distance is in range 0 - 5 (use a byte for each end of range)
        0A 1A 20 32 00 
        0E 1A 20 00 01 // store 32 in register 01...
        0A 00  // ...otherwise

Code: Select all

(Pseudo)
Define production callback A using 32 as production amount
Define production callback B using 64 as production amount
Check var 64
  If in range 0..10, return production CB ID B 
  Else return production CB ID A

Code: Select all

Action2 ID 00: Production callback, return production of register 0x99

Action2 ID 01: Store 30 in register 0x99, chain to ID 00

Action2 ID 02: Store 60 in register 0x99, chain to ID 00

Action2 ID 03: Test var 64, and chain to ID 01 or 02

Code: Select all

//!!Warning (86): Offset 8: Testing nonexistant variable 0E.
//!!Warning (42): Length does not match nvar of 00. (Expected 14 bytes)
//!!Error (55): 01 0F is neither callback nor cargo ID.
    9 * 24	 02 0A 0E // store production values in registers
      81
       1A 20 64 00
       0E 1A 20 00 01 // store 64 in register 01 (!! I'm working out how to change this to register 0x99 !!)
       0F 
       1C 00 FF // checking variable 1C because I can't use nvar=0 and therefore need to check something (right?) 
       01 // check one range
        0A 00 00 00 // return CB 0A if variable is in range 0
      0A 00  // otherwise return CB 0A (yes it looks redundant, but it's needed)

Code: Select all

Pseudo
cargo waiting: 0
amount to subtract from cargo waiting: 0
cargo produced: 64

Code: Select all

    8 * 15	 02 0A 0A // setup production callback
      00  // callback version
      00 00 // amount to subtract from first accepted cargo
      00 00 // ...second accepted cargo
      00 00 // ...third accepted cargo
      01 00 // amount to add to first produced cargo
      00 00 // ...second produced cargo
      00