База модов для игр — Обзор комментариев , страница 1697

Неудачный скрипт переделанной телепортации из недоделанного мода, который забраковал. Также хотел включить в него телепортацию к ещё одному пропильону:

;Автор первоначального скрипта: Неизвестен

;Автор дополнения и русификации: hzhzhz

;Этот скрипт был создан для моментальных путешествий в ключевые точки в Морровинде. Но я(hzhzhz) полностью его переработал дабы, улучшить плагин Единая метка пропильона, а также чтобы сделать свою версию этого плагина.

;Разрешены только 10 кнопок, включая кнопку перехода в головной список,

;так что у вас остаётся только 9 потенциальных кнопок для работы с,

;в общем с 64 разными локациями. Задействованы лишь 4 категории.

;в этой версии скрипта.

;Координаты перечислены в X, Y, Z порядке, зависящем от положения стрелки

;компаса. Команды TDT консоли дадут вам информацию о положении,

;если вы измените или добавите другие локации.

;Для телепортации в Трибунале нужны другие команды "positioncell"

;вместе с постоянными координатами, следующими за названием точки назначения.

begin PSScript_UltimateTeleporter

short OnPCEquip

short button

short state

if ( OnPCEquip == 1 )

Set state to 1

Set OnPCEquip to 0

endif

if ( state == 0 )

return

endif

if ( state == 1 )

MessageBox "Выбор пропильона по алфавиту:" "Отмена" "А-Ф" "Ф-Х"

Set state to 2

endif

if ( state == 2 )

Set button to GetButtonPressed

if ( button == 0 )

; Cancel

Set state to 0

endif

if ( button == 1 )

; А-Х

MessageBox "Выберите место назначения:" "Назад" "Андасрет" "Берандас" "Валенварион" "Индоранион" "Марандус" "Ротеран" "Теласеро" "Фаласмарион"

Set state to 3

endif

if ( button == 2 )

; Ф-Х

MessageBox "Выберите место назначения:" "Назад" "Фаленсарано" "Хлормарен" "К Фолмсу Мирелю"

Set state to 4

endif

endif

; А-Х

if ( state == 3 )

Set button to GetButtonPressed

if ( button == 0 )

; Back

Set state to 1

endif

if ( button == 1 )

; Андасрет

MessageBox "Телепортация в Андасрет..."

Player->PositionCell, 540, 630, -368, 270, "Andasreth, Propylon Chamber"

Set state to 0

endif

if ( button == 2 )

; Берандас

MessageBox "Телепортация в Берандас..."

Player->PositionCell, 540, 1024, -608, 270, "Berandas, Propylon Chamber"

Set state to 0

endif

if ( button == 3 )

; Валенварион

MessageBox "Телепортация в Валенварион..."

Player->PositionCell, 306, 747, -496, 270, "Valenvaryon, Propylon Chamber"

Set state to 0

endif

if ( button == 4 )

; Индоранион

MessageBox "Телепортация в Индоранион..."

Player->PositionCell, 489 766 -368 270, "Indoranyon, Propylon Chamber"

Set state to 0

endif

if ( button == 5 )

; Марандус

MessageBox "Телепортация в Марандус..."

Player->PositionCell, 244 888 -368 270, "Marandus, Propylon Chamber"

Set state to 0

endif

if ( button == 6 )

; Ротеран

MessageBox "Телепортация в Ротеран..."

Player->PositionCell, 427 637 -368 270, "Rotheran, Propylon Chamber"

Set state to 0

endif

if ( button == 7 )

; Теласеро

MessageBox "Телепортация в Теласеро..."

Player->PositionCell, 408 767 -484 270, "Telasero, Propylon Chamber"

Set state to 0

endif

if ( button == 8 )

; Фаласмарион

MessageBox "Телепортация в Фаласмарион..."

Player->PositionCell, 302, 504, -368, 270, "Falasmaryon, Propylon Chamber"

Set state to 0

endif

endif

; Ф-Х

if ( state == 4 )

Set button to GetButtonPressed

if ( button == 0 )

; Back

Set state to 1

endif

if ( button == 1 )

; Фаленсарано

MessageBox "Телепортация в Фаленсарано..."

Player->PositionCell, 410 898 -496 270, "Falensarano, Propylon Chamber"

Set state to 0

endif

if ( button == 2 )

; Хлормарен

MessageBox "Телепортация в Хлормарен..."

Player->PositionCell, 4097, 3898, 12758, 180, "Hlormaren, Propylon Chamber"

Set state to 0

endif

if ( button == 3 )

; К Фолмсу Мирелю

MessageBox "Телепортация в Гильдию магов Кальдеры..."

Player->PositionCell, 763, 702, 412, 60, "Caldera, Guild of Mages"

Set state to 0

endif

endif

end