GTA SA Teleportet CLEO version

Yarik · 22-07-2008 15:38

Вот написал на досуге
Что типа телепортера
При нажатии "Home" выводиться карта СА и с помощью стрелок двигаем указатель по карте. "Пробел" - выбрать точку и телепортироваться туда "Enter" - отменить и забрать карту

// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007

{$VERSION 3.1.0027}
{$CLEO .CS}

//-------------MAIN---------------
0000: NOP 
wait 3000 

:NONAME_7
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @NONAME_7 
0AB0:   key_pressed 36 
else_jump @NONAME_7 
0391: release_txd_dictionary 
0390: load_txd_dictionary "MAP" 
038F: load_texture "MAP" as 1 // Load dictionary with 0390 first 
038F: load_texture "MARKER" as 2 // Load dictionary with 0390 first 
15@ = 250 
1@ = 320.0 
2@ = 224.0 
3@ = 10.0 
4@ = 7.0 
038D: draw_texture 1 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 15@ 
038D: draw_texture 2 position 1@ 2@ size 10.0 7.0 RGBA 255 255 255 15@ 

:NONAME_205
wait 0 
if and
0AB0:   key_pressed 38 
  2@ > 0.0 
else_jump @NONAME_314 
0063: 2@ -= 4@ // (float) 
03F0: enable_text_draw 0 
038D: draw_texture 1 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 15@ 
038D: draw_texture 2 position 1@ 2@ size 10.0 7.0 RGBA 255 255 255 15@ 

:NONAME_314
wait 0 
if and
0AB0:   key_pressed 40 
  448.0 > 2@ 
else_jump @NONAME_423 
005B: 2@ += 4@ // (float) 
03F0: enable_text_draw 0 
038D: draw_texture 1 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 15@ 
038D: draw_texture 2 position 1@ 2@ size 10.0 7.0 RGBA 255 255 255 15@ 

:NONAME_423
wait 0 
if and
0AB0:   key_pressed 37 
  1@ > 0.0 
else_jump @NONAME_532 
0063: 1@ -= 3@ // (float) 
03F0: enable_text_draw 0 
038D: draw_texture 1 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 15@ 
038D: draw_texture 2 position 1@ 2@ size 10.0 7.0 RGBA 255 255 255 15@ 

:NONAME_532
wait 0 
if and
  640.0 > 1@ 
0AB0:   key_pressed 39 
else_jump @NONAME_641 
005B: 1@ += 3@ // (float) 
03F0: enable_text_draw 0 
038D: draw_texture 1 position 320.0 224.0 size 640.0 448.0 RGBA 255 255 255 15@ 
038D: draw_texture 2 position 1@ 2@ size 10.0 7.0 RGBA 255 255 255 15@ 

:NONAME_641
wait 0 
0AB0:   key_pressed 32 
else_jump @NONAME_1054 
  1@ >= 320.0 
else_jump @NONAME_718 
1@ -= 320.0 
11@ = 3000.0 
11@ /= 320.0 
0013: 1@ *= 11@  // Note: the incorrect math opcode was used here
jump @NONAME_784 

:NONAME_718
wait 0 
  320.0 > 1@ 
else_jump @NONAME_1054 
1@ -= 320.0 
11@ = 3000.0 
11@ /= 320.0 
0013: 1@ *= 11@  // Note: the incorrect math opcode was used here
jump @NONAME_784 

:NONAME_784
wait 0 
  2@ >= 224.0 
else_jump @NONAME_860 
2@ -= 224.0 
12@ = 3000.0 
12@ /= 224.0 
0013: 2@ *= 12@  // Note: the incorrect math opcode was used here
2@ *= -1.0 
jump @NONAME_936 

:NONAME_860
wait 0 
  224.0 > 2@ 
else_jump @NONAME_1054 
2@ -= 224.0 
12@ = 3000.0 
12@ /= 224.0 
0013: 2@ *= 12@  // Note: the incorrect math opcode was used here
2@ *= -1.0 
jump @NONAME_936 

:NONAME_936
02CE: 23@ = ground_z_at 1@ 2@ 0.0 
23@ *= -1.0 
23@ += 10 
03F0: enable_text_draw 0 
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, -500.0)
jump @NONAME_7 

:NONAME_1054
wait 0 
0AB0:   key_pressed 13 
else_jump @NONAME_205 
03F0: enable_text_draw 0 
0000: NOP 
jump @NONAME_7

+ текстурки

Last edited by Yarik (23-07-2008 09:58)

Centrino Duo · 22-07-2008 16:27

Интересо smile ша протестим

Seemann · 23-07-2008 01:56

Хмм, а причем здесь скрипт пассажира? Не вижу никакой карты)

Yarik · 23-07-2008 09:53

blush упсьььь ... чтото я того немного... исправил smile

Last edited by Yarik (23-07-2008 18:19)

3Doomer · 26-07-2008 10:04

Уау тут флуд почистили)) Вот более простой вариант телепорта:

{$VERSION 3.1.0027}
{$CLEO .cs}

0000: NOP 
thread 'PLRTLPT' 
wait 1000 

:def
wait 10 
if
   Player.Defined($PLAYER_CHAR)
jf @def 
if
0AB0:  key_pressed 0x74
jf @def
if
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET
jf @def
2@ += 1000.0
02CE: 2@ = ground_z_at 0@ 1@ 2@ 
00A1: put_actor $PLAYER_ACTOR at 0@ 1@ 2@ 
01B4: set_player $PLAYER_CHAR can_move 0 
04D7: set_actor $PLAYER_ACTOR locked 1 
wait 1000
04D7: set_actor $PLAYER_ACTOR locked 0 
01B4: set_player $PLAYER_CHAR can_move 1 
wait 500
jump @def

Last edited by 3Doomer (26-07-2008 10:05)

Yarik · 26-07-2008 10:49

grin ну да конечно
просто у меня другая чуь задумка с этим smile
Я хочу дальше доделать, чтобы игрок мог взять такси и выбрать куда его довезти

Admiral · 26-07-2008 17:07

Да я помню такой мод был в вайс-сити

Centrino Duo · 26-07-2008 17:10

New Vice City 2005 если не ошибась

Admiral · 26-07-2008 17:11

Vice city release 1992

3Doomer · 26-07-2008 21:11

Yarik wrote:

ну да конечно
просто у меня другая чуь задумка с этим
Я хочу дальше доделать, чтобы игрок мог взять такси и выбрать куда его довезти

Мой код для этого проще подходит, в нём же есть координаты точки
Но впринципе делай как хош

N20 · 27-08-2011 12:21

Скажите а можете сделать телепорт как у Nightcrawler а из людей икс....заранее спасибо..а вот видео http://www.youtube.com/watch?v=IgWKU1RhfGA

444andrei444 · 27-08-2011 19:30

легче простого. телепортируй игрока вперед на 0.1 в цикле

SannyBuilder.com Forums

#1 22-07-2008 15:38

GTA SA Teleportet CLEO version

#2 22-07-2008 16:27

Re: GTA SA Teleportet CLEO version

#3 23-07-2008 01:56

Re: GTA SA Teleportet CLEO version

#4 23-07-2008 09:53

Re: GTA SA Teleportet CLEO version

#5 26-07-2008 10:04

Re: GTA SA Teleportet CLEO version

#6 26-07-2008 10:49

Re: GTA SA Teleportet CLEO version

#7 26-07-2008 17:07

Re: GTA SA Teleportet CLEO version

#8 26-07-2008 17:10

Re: GTA SA Teleportet CLEO version

#9 26-07-2008 17:11

Re: GTA SA Teleportet CLEO version

#10 26-07-2008 21:11

Re: GTA SA Teleportet CLEO version

#11 27-08-2011 12:21

Re: GTA SA Teleportet CLEO version

#12 27-08-2011 19:30

Re: GTA SA Teleportet CLEO version

Board footer