| SAIFER-23RUS | Дата: Понедельник, 08.10.2012, 16:20 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 6
| Всем привет,это мой 1 урок,сейчас мы будем делать пульсатор!
Итак,начнём!
Сначало я дам весь код!
// 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---------------
thread "PULSE"
0662: NOP "PULSATOR
:PULSE_38
wait 0
if and
0AB0: key_pressed 80
0AB0: key_pressed 49
jf @PULSE_38
wait 0
018C: play_sound 1058 at 0.0 0.0 0.0
00BC: show_text_highpriority GXT 'CHEAT1' time 2000 flag 1 // Cheat activated
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
jump @PULSE_123
:PULSE_123
wait 20
Actor.Health($PLAYER_ACTOR) = 100
Actor.Armour($PLAYER_ACTOR) = 0
wait 0
Actor.Health($PLAYER_ACTOR) = 90
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 80
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 70
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 60
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 50
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 40
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 30
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 20
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 10
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 1
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 10
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 20
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 30
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 40
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 50
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 60
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 70
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 80
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 90
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 100
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
jump @PULSE_512
:PULSE_512
wait 0
if and
0AB0: key_pressed 80
0AB0: key_pressed 49
jf @PULSE_123
jump @PULSE_542
:PULSE_542
wait 0
if and
8AB0: not key_pressed 80
8AB0: not key_pressed 49
jf @PULSE_542
018C: play_sound 1057 at 0.0 0.0 0.0
00BC: show_text_highpriority GXT 'CHEAT8' time 2000 flag 1 // Cheat deactivated
Actor.Health($PLAYER_ACTOR) = 100
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
wait 0
jump @PULSE_38
Разжуем код:
:PULSE_38
wait 0
if and
0AB0: key_pressed 80
0AB0: key_pressed 49
jf @PULSE_38
wait 0
018C: play_sound 1058 at 0.0 0.0 0.0
00BC: show_text_highpriority GXT 'CHEAT1' time 2000 flag 1 // Cheat activated
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
jump @PULSE_123
0AB0: key_pressed 80
0AB0: key_pressed 49
Это мы прописали кнопки.
018C: play_sound 1058 at 0.0 0.0 0.0
Делаем музыку при активации
Actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1)
Это GM игроку
00BC: show_text_highpriority GXT 'CHEAT1' time 2000 flag 1 // Cheat activated
Пишем на экране "Чит активирован"
:PULSE_123
wait 20
Actor.Health($PLAYER_ACTOR) = 100
Actor.Armour($PLAYER_ACTOR) = 0
wait 0
Actor.Health($PLAYER_ACTOR) = 90
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 80
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 70
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 60
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 50
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 40
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 30
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 20
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 10
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 1
Actor.Armour($PLAYER_ACTOR) = 10
wait 0
Actor.Health($PLAYER_ACTOR) = 10
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 20
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 30
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 40
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 50
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 60
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 70
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 80
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 90
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
Actor.Health($PLAYER_ACTOR) = 100
Actor.Armour($PLAYER_ACTOR) = -10
wait 0
jump @PULSE_512
Это естественно сама функция пульсатора.
:PULSE_512
wait 0
if and
0AB0: key_pressed 80
0AB0: key_pressed 49
jf @PULSE_123
jump @PULSE_542
Пока мы не нажмём кнопки 70 и 49 пульсатор будет работать
:PULSE_542
wait 0
if and
8AB0: not key_pressed 80
8AB0: not key_pressed 49
jf @PULSE_542
018C: play_sound 1057 at 0.0 0.0 0.0
00BC: show_text_highpriority GXT 'CHEAT8' time 2000 flag 1 // Cheat deactivated
Actor.Health($PLAYER_ACTOR) = 100
Actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0)
wait 0
jump @PULSE_634
Это деактивация.
Собственно всё!
Добавлено (08.10.2012, 16:20)
---------------------------------------------
Прошу прощения. Не там тему создал. Перенесите в Cleo
|
| |
| |
| ЯРусский | Дата: Суббота, 19.01.2013, 22:36 | Сообщение # 2 |
|
Рядовой
Группа: Проверенные
Сообщений: 12
| Просто вот это все вписать и создать клео?
|
| |
| |
