Приветствую Вас, Гость! Регистрация RSS
Понедельник, 29.04.2024
[ Главная страница · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Моды GTA SA, читы для samp » CLEO программирование » CLEO уроки » Урок №1 Делаем пульсатор.
Урок №1 Делаем пульсатор.
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

Сообщение отредактировал SAIFER-23RUS - Понедельник, 08.10.2012, 16:52
 
ЯРусскийДата: Суббота, 19.01.2013, 22:36 | Сообщение # 2
Рядовой
Группа: Проверенные
Сообщений: 12
Просто вот это все вписать и создать клео?
 
Форум » Моды GTA SA, читы для samp » CLEO программирование » CLEO уроки » Урок №1 Делаем пульсатор.
  • Страница 1 из 1
  • 1
Поиск:

Вверх