// This file was decompiled using SASCM.INI published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread 'JPR'

0AB1: call_scm_func @getAdditionalVarsLabelPointedIndex 2 label @AdditionalVariables divider 4 store_index_to 31@

:JPR_11
wait 0


// now you can use:
// 0@(31@, 1i)
// 1@(31@, 1i)

if
   Player.Defined($PLAYER_CHAR)
jf @JPR_11
if and
0AB0:   key_pressed 18
0AB0:   key_pressed 50
jf @JPR_11
Model.Load(#WMYBOUN)
Model.Load(#NITESTICK)

:JPR_69
wait 0
if
   Model.Available(#WMYBOUN)
jf @JPR_69
if
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 5.0 0.0
1@ = Actor.Create(Gang3, #WMYBOUN, 11@, 12@, 13@)
Actor.Angle(1@) = 2@
Actor.GiveWeaponAndAmmo(1@, Nightstick, 2000)
Actor.Health(1@) = 1000
Actor.AddArmour(1@, 100)
Actor.WeaponAccuracy(1@) = 100
07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
0630: put_actor $PLAYER_ACTOR in_group $PLAYER_GROUP as_leader
0631: put_actor 1@ in_group $PLAYER_GROUP
jf @JPR_11

:getAdditionalVarsLabelPointedIndex
{
Description:
   Calculates array index pointing to label
Type: SET

Parameters:
  Passed:
   0@ - label
   1@ - divider

  Result:
    3@ - index, movement

Example:
 0AB1: call_scm_func @getAdditionalVarsLabelPointedIndex 2 label @AdditionalVariables divider 4 store_index_to 31@

 :AddtionalVariables
  hex
  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  // alignment
  00 00 00 00                                      // 0@
  00 00 00 00                                      // 1@
  end

  Usage in code:
  0@(31@,1i); 1@(31@,1i) and so on
}
0A9F: 2@ = current_thread_pointer
2@ += 60    // 0@ adress

0A9F: 3@ = current_thread_pointer
3@ += 0x10
0A8D: 3@ = read_memory 3@ size 4 virtual_protect 0
0062: 3@ -= 0@  // (int)    @label adress

0062: 3@ -= 2@  // (int)   0@ pointer - @label pointer
3@ /= 16

3@ += 1
3@ *= 16
0072: 3@ /= 1@ // (int)
0AB2: ret 1 3@

:AddtionalVariables
hex
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  // alignment
00 00 00 00                                      // 0@
00 00 00 00                                      // 1@
end