SannyBuilder.com Forums

00490FA0   > \6A 02                   PUSH 2                                   ;  Case 5E9 of switch 00490DD5
00490FA2   .  8BCE                    MOV ECX,ESI
00490FA4   .  E8 D730FDFF             CALL gta_sa.00464080
00490FA9   .  32C0                    XOR AL,AL
00490FAB   .  E9 FB1A0000             JMP gta_sa.00492AAB

2Seemann:
1. Является ли этот опкод пустышкой?
2. CALL gta_sa.00464080 - что за процедура?

Вот отличная книга там достаточно просто все описанно.

2Seemann

А во второй добавить это можно? Или скоро выйде 3 версия .

2Alexander

Об это я уже спрашивал читай 17 пост.

Откуда взялись еще два вагона? Можно перезаписать другие типы? Тогда получается что можно создать 16 * 16 = 256 вагонов (теоретически).

Все нормально  (Opera)

Хорошо бы реализовать функции (или что тот набодобее того), что бы весь код можно было записать в одном потоке.

Так что насчет рангов?

Я не думаю что 10 человек будут флудить.

Можно как в гта в статистики за прохождение.

Ну, а ту то что неправильно? Все перепробовал. Сначало все норамльно работает, а после того как взорвешь тачку - маркер на тачке не проподает сразу, когда проподает все виснет. Пробовал и wait везде запихивать но тот же результат.

var
 $car: Array 2 of Car
 $actor: Array 2 of Actor
 $marker: Array 2 of Marker
 $flag_dest_car: Array 2 of Integer
 $flag_pl_car: Array 2 of Integer
 $count: Integer = 2
 $check: Integer = 0
end // var

#ADMIRAL.Load

while not #ADMIRAL.Available
 wait 0
end

#MAFFA.Load

while not #MAFFA.Available
 wait 0
end                      

for $i = 0 to $count // step 1
 wait 250
 if 
  $i == 0
 then
  0@ = 1821.6421
  1@ = -1720.1123
  2@ = 12.982
 end
    
 if 
  $i == 1
 then
  0@ = 490.3722
  1@ = -1307.807
  2@ = 15.1438
 end
  
 if 
  $i == 2
 then
  0@ = 2300.0854
  1@ = -1151.4205
  2@ = 26.2798
 end

 0395: clear_area 1 at 0@ 1@ 2@ range 5.0 
 $car[$i].Create(#ADMIRAL, 0@, 1@, 2@)
 0229: set_car $car[$i] color_to 0 0 
 0129: $actor[$i] = create_actor 20 #MAFFA in_car $car[$i] driverseat
 $marker[$i].CreateAboveCar($car[$i])
 $car[$i].SetMaxSpeed(17.0)
 00AE: unknown_set_car $car[$i] to_ignore_traffic_lights 0
 $car[$i].ImmuneToNonPlayer(True)
 $car[$i].SetDriverBehaviour(FollowRoad)
 $flag_dest_car[$i] = 0
 $flag_pl_car[$i] = 0
end // for

while $check <> 3
 wait 0
 for $i = 0 to $count // step 1
  if and
   $car[$i].Wrecked
   $flag_dest_car[$i] == 0  
  then 
   $marker[$i].Disable
   $flag_dest_car[$i] = 1
   $check += 1
  end // if
  if and
   not $car[$i].Wrecked
   8185: not car $car[$i] health >= 999
   not $actor[$i].Dead
   $actor[$i].InCar($car[$i]) 
  then
   $car[$i].SetMaxSpeed(25.0)
   00AE: unknown_set_car $car[$i] to_ignore_traffic_lights 2
   $car[$i].ImmuneToNonPlayer(False)
  end // if
  if and
   not $car[$i].Wrecked
   Actor.InCar($PLAYER_ACTOR, $car[$i])
   $flag_pl_car[$i] == 0    
  then
   $car[$i].ImmuneToNonPlayer(False)
   $flag_pl_car[$i] = 1
  end // if 
 end // for
end // while

Да мне тоже так кажется.

Я не думаю что весь код можно написть в таком виде, больно долго и муторно. Вот гта 3 можно (да и то врят ли), там всего код занимал 2 мб, но гта са с 14 мб, отлаживать столь большой код замучеешься. Хотя кто их там знает.

Не стал создовать новый топик, думаю и здесь ответят:):):)

После компиляции этого кода, при старте миссии игра выдает ошибку, в чем проблема вроде wait везде стоит.

DEFINE OBJECTS 0
DEFINE MISSIONS 1
DEFINE MISSION 0 at @MyMission
DEFINE EXTERNAL_SCRIPTS -1 // Use -1 to not write AAA script
DEFINE UNKNOWN_EMPTY_SEGMENT 0
DEFINE UNKNOWN_THREADS_MEMORY 0

// --------------------
// THE STRIPPED MAIN THREAD
// contains initial info
// --------------------
thread 'Main'
 var
  $PLAYER_CHAR: Player
 end // var
01F0: set_max_wanted_level_to 6 
set_wb_check_to 0 
00C0: set_current_time 8 0 
04E4: unknown_refresh_game_renderer_at 2488.5601 -1666.84 
Camera.SetAtPos(2488.5601, -1666.84, 13.38)
$PLAYER_CHAR = Player.Create(#NULL, 2488.5601, -1666.84, 13.38)
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
Camera.SetBehindPlayer
set_weather 0          
wait 0 ms
$PLAYER_CHAR.SetClothes("PLAYER_FACE", "HEAD", Head)
$PLAYER_CHAR.SetClothes("JEANSDENIM", "JEANS", Legs)
$PLAYER_CHAR.SetClothes("SNEAKERBINCBLK", "SNEAKER", Shoes)
$PLAYER_CHAR.SetClothes("VEST", "VEST", Torso)
$PLAYER_CHAR.Build
$PLAYER_CHAR.CanMove = True
fade 1 (out) 0 ms                     
select_interior 0
0629: change_stat 181 (islands unlocked) to  4
016C: restart_if_wasted at 2027.77 -1420.52 15.99 angle 137.0 unknown 0
016D: restart_if_busted at 1550.68 -1675.49 14.51 angle 90.0 unknown 0
// put your create_thread commands here

0180: set_on_mission_flag_to $ONMISSION 
create_thread @MyTrigger
end_thread

// put your mission mods here

:MyTrigger
thread "MyTrigger"
$TrigMarker = Marker.CreateIconAndSphere(15, 2489.0591, -1682.2808, 13.3358) 
while $MyMission_Passed == 0
wait 250 
  if Player.Defined($PLAYER_CHAR)
  then 
    if $ONMISSION == 0 // integer values 
    then 
      if 00FF: actor $PLAYER_ACTOR 0 2489.0591 -1682.2808 13.3358 radius 1.0 1.0 2.0 
      then 
        if Player.Controllable($PLAYER_CHAR)
        then
          $ONMISSION = 1 // integer values 
          00BA: text_styled 'INTRO_1' 1000 ms 2  // Big Smoke
          Marker.Disable($TrigMarker)  
          start_mission MyMission
        end // if1
      end // if2
    end // if3
  end // if4
end // while
end_thread

:MyMission
thread "MyMission" 
  gosub @MissionStart 
  if 
    wasted_or_busted 
  then
    gosub @MissionFailed
  end 
  gosub @MissionCleanup 
end_thread 

:MissionStart
var
  $car: array 3 of Car
  $actor: array 3 of Actor
  $box: array 3 of Pickup
  $marker_car: array 3 of Marker
  $marker_box: array 3 of Marker
  $check: Integer = 0
  $count: Integer = 3
end

#SECURICA.Load

while not #SECURICA.Available
 wait 0
end

#WMOPJ.Load

while not #WMOPJ.Available
 wait 0
end

for $index = 1 to $count
wait 250
  if 
    $index = 1
  then
    0@ = 1821.6421
    1@ = -1720.1123
    2@ = 12.982
  end
    
  if 
    $index = 2
  then
    0@ = 490.3722
    1@ = -1307.807
    2@ = 15.1438
  end
  
  if 
    $index = 3
  then
    0@ = 2300.0854
    1@ = -1151.4205
    2@ = 26.2798
  end
  
  $car[$index].Create(#SECURICA, 0@, 1@, 2@)
  0129: $actor[$index] = create_actor 4 #WMOPJ in_car $car[$index] driverseat
  $marker_car[$index].CreateAboveCar($car[$index])
  018B: show_on_radar $marker_car[$index] 3 
  Car.SetMaxSpeed($car[$index], 20.0)
  00AE: unknown_set_car $car[$index] to_ignore_traffic_lights 2
  Car.ImmuneToNonPlayer($car[$index]) = True
  Car.SetDriverBehaviour($car[$index], FollowRoad)

end

while $check_car = 6
  wait 0
  
  for $index = 1 to $count
  wait 250
    if 
      $car[$index].Wrecked
    then
      $marker_car[$index].Disable
      $check += 1
      0407: create_coordinate 3@ 4@ 5@ from_car $car[$index] offset 0.0 0.0 0.0
      $box[$index].Create(#BRIEFCASE, 3, 3@, 4@, 5@)
      03DC: $marker_box[$index] = create_marker_above_pickup $box[$index]
      018B: show_on_radar $marker_box[$index] 2 
    end
    
    if
      $box[$index].Picked_up
    then
      $marker_box[$index].Disable
      $check += 1
    end 
  end
  
end
gosub @MissionPassed
return

:MissionPassed
01E3: text_1number_styled 'M_PASSD' 0 5000 ms 1  // MISSION PASSED!
$MyMission_Passed = 1
return

:MissionFailed
00BA: text_styled 'M_FAIL' 5000 ms 1  // ~r~MISSION FAILED!
return 

:MissionCleanup
$ONMISSION = 0 // integer values 
mission_cleanup 
return

2Seemann за Car.SetDriverBehaviour() спасибо, все работает.