Четверг-Turdas
24.08.2017 00:26

Летописи Тамриэля

TESmagic


В жизни нет ничего лучше собственного опыта. Вальтер Скотт

Приветствую Вас Путешественник | RSS Главная | Каталог статей | Регистрация | Вход |

Путеводитель

Новостной Архив
Работа со скриптами [3]

Наш опрос
А ты за кого?
Всего ответов: 262

Поиск

Главная » Статьи » Oblivion Tes 4 Construction Set » Работа со скриптами

Простые скрипты
Результирующие скрипты в диалогах:

Добавление заклинания игроку (или НПС, если заменить Player на ID НПСа)
Player.addspell aaaSelPriziv

Удаление заклинания  у игрока (или НПС, если заменить Player на ID НПСа)
Player.removespell aaaSelPriziv

Перевести игрока во фракцию кого-то с рангом 1 ( в данном случае это позволит игроку стать другом НПС)
Player.SetFactionRank aaaSelena, 1

Удалить из инвентаря игрока вещь  aaaSelBook в количестве 1
Player.RemoveItem aaaSelBook 1

ДОбавить  игроку вещь  aaaSelBook в количестве 1
Player.AddItem aaaSelBook 1

Старт квеста  и переход на другую стадию квеста (в данном случае  на 10)
startquest aaaSelQuest1
SetStage aaaSelQuest1 10

Проверка суммы денег у игрока ( в данном случае, чтоб было не меньше 100 золотых, тогда деньги у игрока изымаются, а предмет купленный добавляется в инвентарь)
if ( Player.GetGold <100 )
Messagebox "У Вас нет таких денег"
else
Player.RemoveItem gold001 100
Player.AddItem aaaSelBook 1
endif

Заставляет НПС напасть на игрока
startcombat player

Проверка текущего местонахождения НПС и добавление, в зависимости от этого, AI пакета ( в данном случае - НПС будет есть в тавернах городов)
RemoveScriptPackage
if ( GetInCell Bruma == 1 )
AddScriptPackage aaaSelEatBruma
else
if ( GetInCell Bravil == 1 )
AddScriptPackage aaaSelEatBravil
else
if ( GetInCell Anvil == 1 )
AddScriptPackage aaaSelEatAnvil
else
if ( GetInCell Cheydinhal == 1 )
AddScriptPackage aaaSelEatCheyd
else
if ( GetInCell Chorrol == 1 )
AddScriptPackage aaaSelEatCor
else
if ( GetInCell IC == 1 )
AddScriptPackage aaaSelEatIC
else
if ( GetInCell Leyawiin == 1 )
AddScriptPackage aaaSelEatLeyav
else
if ( GetInCell Skingrad == 1 )
AddScriptPackage aaaSelEatSk
else
AddScriptPackage aaaSelEat11
endif
endif
endif
endif
endif
endif
endif
endif

Восстановление здоровья игроку
Player.ResetHealth

Скрипты, которые "вешаются на предметы или квесты

Переход на следующую стадию квеста при добавлении вещи в инвентарь игрока (навешивается на предмет, добавляемый в инвентарь)
ScriptName aaaSelQuest2Scr
Begin OnAdd
if ( GetStage aaaSelQuest2 == 10 )
SetStage aaaSelQuest2 20
endif
End

Переход на следующую стадию квеста после смерти некоего НПС
ScriptName aaaDrem1
Begin OnDeath
if ( GetStage aaaDom == 10 )
SetStage aaaDom 20
endif
End

Скрипт на покупку замка (продавец НЕ НПС)
scn aaaZamokProv
Short button
Short activated
begin onActivate
If ( activated == 0 )
MessageBox "Желаешь купить замок за 500000 септимов?","Да","Нет"
Set activated to 1
elseif ( activated > 1)
MessageBox "Замок уже твой."
EndIf
End
Begin GameMode
If ( activated == 1 )
Set button to GetButtonPressed
If ( button == 1 )
MessageBox "Твое дело. Но посмотри, от чего ты отказываешься! Если передумаешь, приходи."
Set activated to 0
elseif ( button == 0 )
if ( Player.GetGold <500000 )
Messagebox "У тебя нет таких денег. Иди подзаработай и приходи позже."
Set activated to 0
else
Messagebox "Поздравляю! Замок твой! Держи ключ!"
Player.RemoveItem gold001 500000
Player.AddItem aaaKey1 1
Set activated to 2
endif
endif
endif
endif
end

Скрипт на активацию бани, появление пара и восстановление здоровья игрока
scn aaaBanya
Short button
Short activated
begin onActivate
If ( activated == 0 )
MessageBox "Попаримся?","Да","Нет"
Set activated to 1
elseif ( activated >= 2)
MessageBox "С легким паром!"
AAALunaMistRef.Disable
EndIf
End
Begin GameMode
If ( activated == 1 )
Set button to GetButtonPressed
If ( button == 1 )
AAALunaMistRef.Disable
MessageBox "Передумаешь, поддай парку."
Set activated to 0
elseif ( button == 0 )
Messagebox "Легкого пара! Сейчас ты будешь, как новенький."
AAALunaMistRef.Enable
Player.ResetHealth
Set activated to 2
endif
endif
endif
end

Скрипт для заклинания телепортации
1) телепортация после кастования заклинания (тип Magic, вешается на заклинание)

ScriptName 17
Begin ScriptEffectStart
Player.MoveTo 155245555
End

2) добавление заклинания телепортации игроку после прочтения книги

scn aaaBashna
short read
Begin OnActivate
if(read == 0)
set read to 1
Player.AddSpell 154422222
endif
activate
end

Открывание двери при наличии необходимых вещей в инвентаре игрока
scn aaaLuk
Begin OnActivate
if ( player.getitemcount 458796 > 0 )&&( player.getitemcount 45896547 > 0 )&&( player.getitemcount 458878 > 0 )
SetStage aaaPodval 20
endif
if ( GetStage aaaPodval< 20 )
MessageBox "Вы не можете открыть этот люк. У Вас нет всех необходимых вещей"
return
elseif ( GetStage aaaPodval >= 20 )
Activate
endif
End

Скрипт, который заставляет  НПС атаковать игрока, если квест находится на определенной стадии
scn aaaDremSCRIPT
begin gamemode
if ( GetStage aaaDom >= 10 )
StartCombat player
endif
endif
end

Скрипт на общение с домашними животными (шуточный)
scn aaaDreug
short button
short doonce
begin onactivate player
if ( doonce == 0 )
StopCombat player
messagebox "Что собираетесь делать?"  "Кормить" "Снова кормить" "Гладить"
set doonce to 1
endif
end
begin gamemode
if ( doonce == 1 )
set button to getbuttonpressed
if ( button == 0 )
if ( player.getitemcount HumanHeart > 0 )
player.removeitem HumanHeart 1
elseif ( player.getitemcount HumanHeart <= 0 )
messagebox "Вам нечем кормить дреуга"
endif
set doonce to 0
elseif ( button == 1 )
messagebox "Осторожно! Дреуг уже поел и его может стошнить."
set doonce to 0
elseif ( button == 2 )
messagebox "Вы уверены? Надеюсь, у Вас хороший личный хирург."
StartCombat player
set doonce to 0
endif
endif
end

Ну вот пока все))) Попозже добавлю другие скрипты, в том числе, с использованием ОБСЕ

Продолжение тут
Категория: Работа со скриптами | Добавил: Luna (21.09.2013)
Просмотров: 2322 | Теги: примеры скриптов для обливион, составление скриптов для ТЕС4 | Рейтинг: 5.0/2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Статистика








Яндекс.Метрика







Rambler's Top100



Онлайн всего: 2
Гостей: 2
Пользователей: 0


Форма входа
Логин:
Пароль:


Наш баннер:
http://imperialcity.ucoz.net/

   

Друзья сайта



Сайт команды Города Ночи

Фан-сайт TES 4: Квагмир - мир снов







TES-game Oblivion and Morrowind

The Elder Scrolls: ФРПГ

Фан-сайт игр серии Gothic

TES-Empire - Информационный ресурс по The Elder Scrolls







Русскоязычный портал фэнов Дома Тельвани



TES World -- все для игр вселенной The Elder Scrolls


Silicium TES4:Oblivion Craft -- фан-сайт игры TES4:Oblivion

RPG игры серии Gothic, The Elder Scrolls, Risen, The Witcher



Фан-сайт игры Dragon Age: Начало и Dragon age:2


Copyright ImperialCity ©2009-2017 При копировании материалов - ссылка на сайт  обязательна!

free counters Rambler's Top100