You are not logged in.
- Topics: Active | Unanswered
Pages: 1
#1 11-06-2016 13:06
- Crash_Bandicoot
- Registered: 11-06-2016
- Posts: 1
Проблемы с циклом
Привет у меня проблема!
Короче.Создал скрипт для телепорта в 2 места по координатам. Нажимаю комбинацию клавиш меня телепортирует сперва в 1 место после во 2 место и т.д по координатам, пока не кончатся которые я записывал.После того когда кончается список координат наступает конец!.Я хочу сделать так чтобы нажал и он телепортировался по этим местам бесконечно пока я не нажму деактивацию и да скрипт есть его надо до делать. Пожалуйста помогите деактивацию сможете сделать тоже на эту комбинацию кнопок?
Мое творение:
{$CLEO .cs}
//-------------MAIN---------------
wait 0
:NONAME_4
wait 0
if
not Player.Defined($PLAYER_CHAR)
else_jump @NONAME_31
jump @NONAME_243
:NONAME_31
if and
key_down 191
key_down 17
else_jump @NONAME_243
Actor.PutAt($PLAYER_ACTOR, -749.7701, -119.9488, 65.4657)
wait 30
Actor.PutAt($PLAYER_ACTOR, -742.6406, -141.898, 65.5279)
wait 30
Actor.PutAt($PLAYER_ACTOR, -697.4964, -111.1267, 65.9383)
wait 30
Actor.PutAt($PLAYER_ACTOR, -773.5197, -155.6587, 64.365)
wait 30
Actor.PutAt($PLAYER_ACTOR, -691.0007, -176.5703, 61.9154)
wait 30
Actor.PutAt($PLAYER_ACTOR, -714.5201, -121.1912, 67.842)
wait 30
Actor.PutAt($PLAYER_ACTOR, -805.331, -157.6385, 63.0214)
wait 30
Actor.PutAt($PLAYER_ACTOR, -749.7701, -119.9488, 65.4657)
wait 30
:NONAME_243
jump @NONAME_4
Offline
#2 12-06-2016 10:38
Re: Проблемы с циклом
один из способов
{$CLEO .cs}
//-------------MAIN---------------
0@ = -1 // флаг для активации/деактивации
:NONAME_4
wait 0
if
Player.Defined($PLAYER_CHAR)
else_jump @NONAME_4
0@ == 1
else_jump @NONAME_243
Actor.PutAt($PLAYER_ACTOR, -749.7701, -119.9488, 65.4657)
wait 30
Actor.PutAt($PLAYER_ACTOR, -742.6406, -141.898, 65.5279)
wait 30
Actor.PutAt($PLAYER_ACTOR, -697.4964, -111.1267, 65.9383)
wait 30
Actor.PutAt($PLAYER_ACTOR, -773.5197, -155.6587, 64.365)
wait 30
Actor.PutAt($PLAYER_ACTOR, -691.0007, -176.5703, 61.9154)
wait 30
Actor.PutAt($PLAYER_ACTOR, -714.5201, -121.1912, 67.842)
wait 30
Actor.PutAt($PLAYER_ACTOR, -805.331, -157.6385, 63.0214)
wait 30
Actor.PutAt($PLAYER_ACTOR, -749.7701, -119.9488, 65.4657)
wait 30
:NONAME_243
if and
key_down 191
key_down 17
jf @NONAME_4
0@ *= -1
:NONAME_2 // что бы скрипт не "залипал" на нажатии клавиш
wait 0
if and
key_down 191
key_down 17
jf @NONAME_4
jump @NONAME_2
Last edited by Goldfish (12-06-2016 10:42)
Offline
#3 12-06-2016 18:20
Re: Проблемы с циклом
Привет у меня проблема!
Короче.Создал скрипт для телепорта в 2 места по координатам. Нажимаю комбинацию клавиш меня телепортирует сперва в 1 место после во 2 место и т.д по координатам, пока не кончатся которые я записывал.После того когда кончается список координат наступает конец!.Я хочу сделать так чтобы нажал и он телепортировался по этим местам бесконечно пока я не нажму деактивацию и да скрипт есть его надо до делать. Пожалуйста помогите деактивацию сможете сделать тоже на эту комбинацию кнопок?
Вот:
{$CLEO}
1@ = -749.7701
9@ = -119.9488
17@ = 65.4657
2@ = -742.6406
10@ = -141.898
18@ = 65.5279
3@ = -697.4964
11@ = -111.1267
19@ = 65.9383
4@ = -773.5197
12@ = -155.6587
20@ = 64.365
5@ = -691.0007
13@ = -176.5703
21@ = 61.9154
6@ = -714.5201
14@ = -121.1912
22@ = 67.842
7@ = -805.331
15@ = -157.6385
23@ = 63.0214
8@ = -749.7701
16@ = -119.9488
24@ = 65.4657
//-------------------------------------------------------
25@ = -1
while true
wait 0
if and
0AB0: key_pressed 191
0AB0: key_pressed 17
then
25@ *= -1
wait 100
end
if
25@ == 1
then
for 0@ = 1 to 8
00A1: put_actor $PLAYER_ACTOR at 1@(0@,8f) 9@(0@,8f) 17@(0@,8f)
wait 30
end
end
end
Offline
#4 13-06-2016 17:06
Re: Проблемы с циклом
Crash_Bandicoot wrote:Привет у меня проблема!
Короче.Создал скрипт для телепорта в 2 места по координатам. Нажимаю комбинацию клавиш меня телепортирует сперва в 1 место после во 2 место и т.д по координатам, пока не кончатся которые я записывал.После того когда кончается список координат наступает конец!.Я хочу сделать так чтобы нажал и он телепортировался по этим местам бесконечно пока я не нажму деактивацию и да скрипт есть его надо до делать. Пожалуйста помогите деактивацию сможете сделать тоже на эту комбинацию кнопок?Вот:
{$CLEO} 1@ = -749.7701 9@ = -119.9488 17@ = 65.4657 2@ = -742.6406 10@ = -141.898 18@ = 65.5279 3@ = -697.4964 11@ = -111.1267 19@ = 65.9383 4@ = -773.5197 12@ = -155.6587 20@ = 64.365 5@ = -691.0007 13@ = -176.5703 21@ = 61.9154 6@ = -714.5201 14@ = -121.1912 22@ = 67.842 7@ = -805.331 15@ = -157.6385 23@ = 63.0214 8@ = -749.7701 16@ = -119.9488 24@ = 65.4657 //------------------------------------------------------- 25@ = -1 while true wait 0 if and 0AB0: key_pressed 191 0AB0: key_pressed 17 then 25@ *= -1 wait 100 end if 25@ == 1 then for 0@ = 1 to 8 00A1: put_actor $PLAYER_ACTOR at 1@(0@,8f) 9@(0@,8f) 17@(0@,8f) wait 30 end end end
Это с глобальными массивами хорошо выглядило бы 
Last edited by Goldfish (13-06-2016 17:06)
Offline
#6 19-06-2016 11:12
Re: Проблемы с циклом
Это с глобальными массивами хорошо выглядило бы
Это работает и с локальными массивами
много локалок сжирается 
Offline
#8 20-06-2016 22:58
Re: Проблемы с циклом
Goldfish wrote:много локалок сжирается
SCM-функции помогут с этим справится, если знать как правильно использовать их
хех
Offline
Pages: 1