MSFD Скрипт тестилка параметров игрока.
Скрипт тестилка параметров игрока.
Т.е. все что можно узнать, через ГЕТ впихнуто в один скрипт.
Begin 0000_TESTINFO
;скрипт тестилка выводящий инфу по игроку. может быть полезен при тесте скриптов добавляющих скрытые спеллы и др.
;***************************************************************
short Next
;***************************************************************
float health
float health2
float magicka
float fatigue
float DefendBonus
float ARMOR
float resistmagicka
float speed
float athletics
float strength
float willpower
float intelligence
float agility
float endurance
float luck
float CurrentHealth
float CurrentMagicka
float CurrentFatigue
;*************************
float SCL
float mx
float my
float mz
;*************************
float SwmSpd
float RPrl
float RPsn
float RBgt
float RCrps
float RDss
float RFrst
float RFr
float RSk
float AckBns
float HArmr
float Unrmr
float SprJ
float Brthg
float HndTHnd
float RNWps
float VsnBns
float Chml
float WtrW
float Invis
float Blck
float Armrr
float MdmArmr
float BlntWpn
float LngBld
float Ax
float Spr
float Athltc
float Ench
float Dstrt
float Alt
float Ills
float Cnjion
float Mstc
float Rstor
float Alch
float Scty
float Snk
float Acrob
float LArmr
float ShrtBld
float Mrks
float Mrcnt
float Speech
float Gold
;*************************
float Lvl
float Crime
float Weather
float WaterLvl
float Wind
;*************************
float minimumProfit
float Profit
;*************************
float personality
float CommonDisease
float BlightDisease
;***************************************************************
;***************************************************************
;*************************************************************** общее состояние.
set health to ( player->Gethealth )
set magicka to ( player->Getmagicka )
set fatigue to ( player->Getfatigue )
set health2 to ( player->GetHealthGetRatio )
set CurrentMagicka to ( player->CurrentMagicka )
set CurrentFatigue to ( player->Currentfatigue )
;************************************************* скилы базовые.
set strength to ( player->GetStrength )
set willpower to ( player->GetWillpower )
set intelligence to ( player->GetIntelligence )
set agility to ( player->GetAgility )
set endurance to ( player->GetEndurance )
set speed to ( player->GetSpeed )
set luck to ( player->GetLuck )
;************************************************* болезни
set CommonDisease to ( player->GetCommonDisease )
set BlightDisease to ( player->GetBlightDisease )
;************************************************* скалирование и позиция
Set Scl to ( player->getScale )
set mx to ( player->GetPos x )
set my to ( player->GetPos y )
set mz to ( player->GetPos z )
;************************************************* сопротивления.
set resistmagicka to ( player->GetResistMagicka )
set RPrl to ( player->GetResistParalysis )
set RPsn to ( player->GetResistPoison )
set RBgt to ( player->GetResistBlight )
set RCrps to ( player->GetResistCorprus )
set RDss to ( player->GetResistDisease )
set RFrst to ( player->GetResistFrost )
set RFr to ( player->GetResistFire )
set RSk to ( player->GetResistShock )
set RNWps to ( player->GetResistNormalWeapons )
;************************************************* бонусы
set AckBns to ( player->GetAttackBonus )
set Armor to ( player->getArmorBonus )
set DefendBonus to ( player->GetDefendBonus )
;************************************************* скорости плавания и яркость зрения
set SprJ to ( player->GetSuperJump )
set Brthg to ( player->GetWaterBreathing )
set WtrW to ( player->GetWaterWalking )
set SwmSpd to ( player->GetSwimSpeed )
set VsnBns to ( player->GetPCVisionBonus )
;************************************************* невидимости
set Chml to ( player->GetChameleon )
set Invis to ( player->GetInvisible )
;************************************************* скилы боевые и магические
set Athltc to ( player->GetAthletics )
set Ench to ( player->GetEnchant )
set Dstrt to ( player->GetDestruction )
set Alt to ( player->GetAlteration )
set Ills to ( player->GetIllusion )
set Cnjion to ( player->GetConjuration )
set Mstc to ( player->GetMysticism )
set Rstor to ( player->GetRestoration )
set Alch to ( player->GetAlchemy )
;************************************************* акробатика
set Snk to ( player->GetSneak )
set Acrob to ( player->GetAcrobatics )
set Scty to ( player->GetSecurity )
;************************************************* оружие и защита
set Blck to ( player->GetBlock )
set Armrr to ( player->GetArmorer )
set MdmArmr to ( player->GetMediumArmor )
set HArmr to ( player->GetHeavyArmor )
set LArmr to ( player->GetLightArmor )
set Unrmr to ( player->GetUnarmored )
set ShrtBld to ( player->GetShortBlade )
set LngBld to ( player->GetLongBlade )
set BlntWpn to ( player->GetBluntWeapon )
set HndTHnd to ( player->GetHandToHand )
set Ax to ( player->GetAxe )
set Spr to ( player->GetSpear )
set Mrks to ( player->GetMarksman )
set Mrcnt to ( player->GetMercantile )
set Speech to ( player->GetSpeechcraft )
;****************************** уровни
set Lvl to ( player->GetLevel )
set Crime to ( player->GetPCCrimeLevel )
set GOLD to ( Player->GetItemCount Gold_001 )
set Profit to ( player->minimumProfit )
;****************************** погода и вода
set Weather to ( player->GetCurrentWeather )
set WaterLvl to ( player->GetWaterLevel )
set Wind to ( GetWindSpeed )
;***************************************************************
if ( MenuMode == 1 )
return
endif
;***************************************************************
if ( Next == 17 )
Set NEXT to 0
StopScript "0000_TESTINFO"
return
endif
if ( Next == 16 )
Set NEXT to 17
messagebox "На этом все!" "Завершить тест."
return
endif
if ( Next == 15 )
;messagebox "Состояние Здоровья: %2f. Здоровье: %g. Магия: %2f. Запаса сил: %2f." health2, health, magicka, fatigue, "Далее!"
messagebox "Состояние Здоровья: %2f. Здоровье: %g. Магия: %2f. Магия Базовое: %2f. Запаса сил: %2f. Запаса сил Базовое: %2f." health2, health, magicka, CurrentMagicka, fatigue, CurrentFatigue "Далее!"
Set NEXT to 16
endif
if ( Next == 14 )
messagebox "Сила: %g. Сила Воли: %g. Интелект: %g. Ловкость: %g. Выносливость: %g. Скорость: %g. Удача: %g."strength, willpower, intelligence, agility, endurance, speed, luck "Далее!"
Set NEXT to 15
endif
if ( Next == 13 )
messagebox "Защита от Корпруса: %g. Мора: %g. Обычных: %g. И наличие болезней - oбычных: %g. Моровых: %g." RCrps, RBgt, RDss, CommonDisease, BlightDisease "Далее!"
Set NEXT to 14
endif
if ( Next == 12 )
messagebox "Размер *скалирование*: %2f. X: %g. Y: %g. Z: %g." Scl, mx, my, mz "Далее!"
Set NEXT to 13
endif
if ( Next == 11 )
messagebox "Защита от магии: %g. Паралича: %g. Яда: %g. Холода: %g. Огня: %g. Молнии: %g. Меча: %g." resistmagicka, RPrl, RPsn, RFrst, RFr, RSk, RNWps "Далее!"
Set NEXT to 12
endif
if ( Next == 10 )
messagebox "Атлетика: %g. Бонус к атакам: %g. Защите: %g. Уклонению: %g." Athltc AckBns, Armor, DefendBonus "Далее!"
Set NEXT to 11
endif
if ( Next == 9 )
messagebox "Бонус к прыжку: %g. Водное дыхание: %g. Хождение по воде: %g. Скорость плавания: %g. Зрение в темноте: %g." SprJ Brthg WtrW SwmSpd VsnBns "Далее!"
Set NEXT to 10
endif
if ( Next == 8 )
messagebox "Хамелеон: %g. Невидимость: %g." Chml Invis "Далее!"
Set NEXT to 9
endif
if ( Next == 7 )
messagebox "Зачарование: %g. Разрушение: %g. Изменения: %g. Илюзии: %g. Колдовство: %g. Мистицизм: %g. Восстановление: %g. Алхимия: %g." Ench Dstrt Alt Ills Cnjion Mstc Rstor Alch "Далее!"
Set NEXT to 8
endif
if ( Next == 6 )
messagebox "Скрытность: %g. Акробатика: %g. Безопасность: %g." Snk Acrob Scty "Далее!"
Set NEXT to 7
endif
if ( Next == 5 )
messagebox "Защита: %g. Кузнец: %g. Средняя: %g. Тяжелая: %g. Легкая броня: %g. Бездоспешный: %g. Короткие: %g. Длинные клинки: %g. Дубины: %g." Blck Armrr MdmArmr HArmr LArmr Unrmr ShrtBld LngBld BlntWpn "Далее!"
Set NEXT to 6
endif
if ( Next == 4 )
messagebox "Кулаки: %g. Секиры: %g. Копья: %g. Луки: %g. Торговля: %g. Болтовня: %g." HndTHnd Ax Spr Mrks Mrcnt Speech "Далее!"
Set NEXT to 5
endif
if ( Next == 3 )
;messagebox "Ваш текущий уровень: %g. Сумма штрафа за преступления: %f. Золота всего: %f." Lvl Crime GOLD "Далее!"
messagebox "Ваш текущий уровень: %g. Сумма штрафа за преступления: %f. Достаток: %f. Золота: %f." Lvl Crime Profit GOLD "Далее!"
Set NEXT to 4
endif
if ( Next == 2 )
messagebox "Погода: %g. ***0-ясно. 1-облака. 2-туман. 3-пасмурно. 4-дождь. 5-гроза. 6-пепел. 7-МОР!* Уровень Воды: %g. Скорость Ветра: %f." Weather WaterLvl Wind "Далее!"
Set NEXT to 3
endif
if ( Next == 1 )
messagebox "Ваше текущее имя ^PCName, вы пока что ^PCClass, этой расы ^PCRace, состоите в фракции ^Faction, в чине ^PCRank, следующим будет ^NextPCRank. Вы стоите в ^Cell и сейчас ^GameHour часов." "Далее!"
Set NEXT to 2
return
endif
;*****************************************************************
if ( Next == 0 )
messagebox "Это выводит сообщение о состоянии игрока, статсах, резистах, размере и прочем. Может быть полезно для теста скриптов в динамике." "Поехали!"
Set NEXT to 1
return
endif
end
