Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

tithing point(Chivalry)

тут можно задать вопрос по скриптингу
Post Reply
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

tithing point(Chivalry)

Post by MuDaCk »

Существует ли команда для узнавания кол-ва поинтов?
My name is Игорёшка Image
Пишу скрипты за едуImage
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

Tithing_points : Cardinal; //Tithing points (Paladin Books)

не это?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

Post by MuDaCk »

хм... кардинал? а почему не интежер? ведь там только числа(без букв или значков $);
Откуда у вас это? в хелпе этого нет.
My name is Игорёшка Image
Пишу скрипты за едуImage
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

я не выдавал это функцией - никто не интересовался :)
почитай разницу между например Integer и Cardinal...
какое название функции дать?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

Post by MuDaCk »

Code: Select all

	Cardinal 	 	Основной тип целого числа без знака

Code: Select all

 	Integer 	 	Основной тип целого числа
Теперь буду знать)
My name is Игорёшка Image
Пишу скрипты за едуImage
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

там куча синонимов, есть, но все сводится к 4 основным типам, по кол-ву занимаемой памяти:
1) 1 байт, знак есть и знака нет
2) 2 байта, знак есть и знака нет
3) 4 байта, знак есть и знака нет
4) 8 байт, знак есть и знака нет (из ПС доступно с некоторыми ограничениями).

от того, что Signed Int обзывается Cardinal или DWord или UINT - суть никак не меняется.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Gauhar
Novice
Novice
Posts: 87
Joined: 08.07.2008 17:40

Re:

Post by Gauhar »

Vizit0r wrote:Tithing_points : Cardinal; //Tithing points (Paladin Books)
Извиняюсь, что поднял старую тему, но у меня выдает ошибку: Unknown identifier 'Tithing_points'
Stealth 4.3.6.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: tithing point(Chivalry)

Post by Vizit0r »

должно работать.
исходники 4.3.6 мне лень вытаскивать из хранилища, но в текущей версии поле в записи так и зовется.


ты же как поле из записи берешь, а не как отдельную функцию, да?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Gauhar
Novice
Novice
Posts: 87
Joined: 08.07.2008 17:40

Re: tithing point(Chivalry)

Post by Gauhar »

Оопс, мой косяк. Я действительно использовал как отдельную функцию. Просто эта тема на форуме по данному вопросу одна, и я поленился поискать на сайте с описанием функций.
Если кто будет искать, то решение здесь:
http://stealth.od.ua/Doc:Api/ExtendedInfo
И для примера:
var
TP: Cardinal:
begin
TP := ExtendedInfo.Tithing_points;
AddToSystemJournal(IntToStr(TP));
end.
MuDaCk
Apprentice
Apprentice
Posts: 393
Joined: 10.10.2006 0:03
Contact:

Re: tithing point(Chivalry)

Post by MuDaCk »

Code: Select all

program new;

procedure deep;
var
TP: Cardinal;
begin
 TP := ExtendedInfo.Tithing_points;
 AddToSystemJournal(IntToStr(TP));
end;

Begin
deep;
AddToSystemJournal('Tithing points'+IntToStr(ExtendedInfo.Tithing_points));
AddToSystemJournal('FCR'+IntToStr(ExtendedInfo.Faster_Cast_Recovery));
AddToSystemJournal('FC'+IntToStr(ExtendedInfo.Faster_Casting));
AddToSystemJournal('LMC'+IntToStr(ExtendedInfo.Lower_Mana_Cost));
AddToSystemJournal('LRC'+IntToStr(ExtendedInfo.Lower_Reagent_Cost));
end.
работает только с Tithing_points.
My name is Игорёшка Image
Пишу скрипты за едуImage
Post Reply