SannyBuilder.com Forums

По нажатию F-клавишь, превращаемся, не хватает только дыма и огня...

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 
thread 'REVOLVE' 

:CH
wait 0 
if AND
   Player.Defined($PLAYER_CHAR)
   not Actor.Driving($PLAYER_ACTOR)
jf @CH 

:REVOLVE1
wait 0 
if 
0AB0:   key_pressed 116   //f5
jf @REVOLVE2 

jump @FAM1

:REVOLVE2
wait 0 
if 
0AB0:   key_pressed 117    //f6
jf @REVOLVE3 

jump @FAM2

:REVOLVE3
wait 0 
if 
0AB0:   key_pressed 118    //f7
jf @REVOLVE4 

jump @FAM3

:REVOLVE4
wait 0 
if 
0AB0:   key_pressed 119    //f8
jf @REVOLVE5 

jump @SOM

:REVOLVE5
wait 0 
if 
0AB0:   key_pressed 115    //f4
jf @REVOLVE6 

jump @CJM

:REVOLVE6
wait 0 
if 
0AB0:   key_pressed 120    //f9
jf @REVOLVE7 

jump @MADDOG

:REVOLVE7
wait 0 
if 
0AB0:   key_pressed 121    //f10
jf @REVOLVE1 

jump @WUZI

:FAM1
wait 0
Model.Load(#FAM1)
038B: load_requested_models
:FAM1_1
wait 0 
if 
   Model.Available(#FAM1)
jf @FAM1_1 
09C7: change_player $PLAYER_CHAR model_to #FAM1 
Model.Destroy(#FAM1)
jump @CH   

:FAM2
wait 0
Model.Load(#FAM2)
038B: load_requested_models
:FAM2_1
wait 0 
if 
   Model.Available(#FAM2)
jf @FAM2_1 
09C7: change_player $PLAYER_CHAR model_to #FAM2
Model.Destroy(#FAM2)
jump @CH   

:FAM3
wait 0
Model.Load(#FAM3)
038B: load_requested_models
:FAM3_1
wait 0 
if 
   Model.Available(#FAM3)
jf @FAM3_1 
09C7: change_player $PLAYER_CHAR model_to #FAM3 
Model.Destroy(#FAM3)
jump @CH   

:SOM
wait 0
Model.Load(#SOMYRI)
038B: load_requested_models
:SOM_1
wait 0 
if 
   Model.Available(#SOMYRI)
jf @SOM_1 
09C7: change_player $PLAYER_CHAR model_to #SOMYRI 
player.ClearWantedLevel($PLAYER_CHAR)
Model.Destroy(#SOMYRI)
jump @CH   

:CJM
wait 0
Model.Load(#null)
038B: load_requested_models
:CJM_1
wait 0 
if 
   Model.Available(#null)
jf @CJM_1 
09C7: change_player $PLAYER_CHAR model_to #null 
Model.Destroy(#null)
jump @CH    

:MADDOG 
wait 0  
023c: request_special_actor 'maddogg' as 1 
038b: load requested models 
:MADDOG1 
wait 0  
if 
  023d:  special_actor 1 loaded 
jf @MADDOG1
09C7: change_player $PLAYER_CHAR model_to #special01
0296: unload_special_actor 1 
jump @CH 

:WUZI 
wait 0  
023c: request_special_actor 'wuzimu' as 1
038b: load requested models  
:WUZI1 
wait 0  
if 
  023d:  special_actor 1 loaded 
jf @WUZI1 
09C7: change_player $PLAYER_CHAR model_to #special01
0296: unload_special_actor 1 
jump @CH

Еслиб это работал под MP:..

{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 

:CH
wait 0 
if
   Player.Defined($PLAYER_CHAR)
jf @CH 

:PRESS
wait 0 
if 
   0AB0:   key_pressed 49       // 1
jf @PRESS 

04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 30.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 30.0 0.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset -30.0 0.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 -30.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 25.0 25.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset -25.0 -25.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 25.0 -25.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
wait 100
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset -25.0 25.0 0.0 
0948: create_explosion_at 1@ 2@ 3@ type 6 camera_shake 1
0565: create_soundless_explosion_at 1@ 2@ 3@ type 6
jump @CH

Видимо, чтобы закончить строку в памяти нулевым сиволом - признак конца строки/памяти в С.

Все заработало! Списибо! Это реальный город призрак.

Забавно, что так "легко" сделать маппинг, обычно говорят сложно и виндовс будес запрещать.

В смысле ж\д пути?? А как можно получить их координаты? ;-0

Почему? :-< Есть же GTA 4, хотя там совсем другая модель с опкодами...

А нащет "всего лишь" интерпритаторов: есть такие интерпритируемые языки на основе байт-кода, что дадут фору любым высокоуровневым компиляторам. Чем же игровой язык хуже?

На самом деле при наличие определенного уровня кода переход на новый можно организовать добавив очередной модуль. То есть: раньше код обрабатывал сканер1, парсер1, анализатор1; потом это дело расширяют и уже работает система сканер1, парсер1, анализатор1, анализатор2, препроцессор. Это верно?

У СБ я нашел макросы macroes.txt это даже не макросы!!! :-) Ладно, шучу.

Ааа... В смысле того, что разработчики писали игру на Си++ в хорошем стиле, использовали константу типа FLY_MAX, и сравнивали с ней координаты в выражениях. Но как известно все константы заменеются на численные значения во время компиляции, поэтому выудить константу трудно, а изменить невозможно.

Выходит они использовали переменную?

А я бы так написал:

if (Player.OkFreeWalkig) & (Player.Interier == 0) {
   Around.CreateIcon('red', 2464.905, -1667.774, 13.4724)
   if Player.StayIn(1, 2464.905, -1667.774, 13.4724) {
      Player.Interier = 1
      Player.PutAt(-900.2229, 456.3773, 1346.872)
   }
}

if (Player.OkFreeWalkig) & (Player.Interier == 1) {
   Around.CreateIcon('red', -902.2229, 458.3773, 1346.872)
   if Player.StayIn(1, -902.2229, 458.3773, 1346.872) {
      Player.Interier = 0
      Player.PutAt(2462.905, -1665.774, 13.4724)
   }
}

И всё.

Конечно высокоуровневые if then else и циклы это шаг вперед, но классы и методы... А ещё мощнее - макросы!

Можно сократить код ещё в два раза. Определим функцию:

Teleport(interier1, interier2, x1, y1, z1, x2, y2, z2) {
if (Player.OkFreeWalkig) & (Player.Interier == interier1) {
   Around.CreateIcon('red', x1, y1, z1)
   if Player.StayIn(1, x1, y1, z1) {
      Player.Interier = interier2
      Player.PutAt(x2+2, y2+2, z2)
   }
}
}

И потом просто вызовем её два раза

Teleport(0, 1, 2464.905, -1667.774, 13.4724, -902.2229, 458.3773, 1346.872)
Teleport(1, 0, -902.2229, 458.3773, 1346.872, 2464.905, -1667.774, 13.4724)

Две строчки против того что было вначале.

2 Sw[ee]t

В смысле? Не поделетесь секретом :-)

Метод для нелинивых иногда работает для ленивых.

Скоро (Завтра) положу перевод. Пусть знающие люди разместят где-нибудь.

Прикрепляю файл. Не понял описания одного опкода - switch.

Там речь идет о скриптере для ГТА4, а я толкую об ОБЩЕМ ВЫсокоуровневом языке. Выходит такого пока нет? Что называется находимся в состоянии "ассемблера".