#1 22-07-2008 15:38

Yarik
Registered: 22-02-2008
Posts: 173
Website

GTA SA Teleportet CLEO version

Вот написал на досуге
Что типа телепортера
При нажатии "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)

Offline

#2 22-07-2008 16:27

Centrino Duo
Registered: 08-05-2008
Posts: 99

Re: GTA SA Teleportet CLEO version

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

Offline

#3 23-07-2008 01:56

Seemann
Registered: 07-08-2006
Posts: 2,155

Re: GTA SA Teleportet CLEO version

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

Offline

#4 23-07-2008 09:53

Yarik
Registered: 22-02-2008
Posts: 173
Website

Re: GTA SA Teleportet CLEO version

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

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

Offline

#5 26-07-2008 10:04

3Doomer
From: КаZан
Registered: 14-05-2008
Posts: 659
Website

Re: GTA SA Teleportet CLEO version

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

{$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)


GIMS developer

Offline

#6 26-07-2008 10:49

Yarik
Registered: 22-02-2008
Posts: 173
Website

Re: GTA SA Teleportet CLEO version

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

Offline

#7 26-07-2008 17:07

Admiral
Registered: 26-07-2007
Posts: 35

Re: GTA SA Teleportet CLEO version

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


Моды -   вот что украшает игру!

Offline

#8 26-07-2008 17:10

Centrino Duo
Registered: 08-05-2008
Posts: 99

Re: GTA SA Teleportet CLEO version

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

Offline

#9 26-07-2008 17:11

Admiral
Registered: 26-07-2007
Posts: 35

Re: GTA SA Teleportet CLEO version

Vice city release 1992


Моды -   вот что украшает игру!

Offline

#10 26-07-2008 21:11

3Doomer
From: КаZан
Registered: 14-05-2008
Posts: 659
Website

Re: GTA SA Teleportet CLEO version

Yarik wrote:

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

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


GIMS developer

Offline

#11 27-08-2011 12:21

N20
Registered: 27-08-2011
Posts: 1

Re: GTA SA Teleportet CLEO version

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

Offline

#12 27-08-2011 19:30

444andrei444
Registered: 29-03-2011
Posts: 317
Website

Re: GTA SA Teleportet CLEO version

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

Offline

Board footer

Powered by FluxBB