Page 1 of 1
tithing point(Chivalry)
Posted: 17.05.2011 7:39
by MuDaCk
Существует ли команда для узнавания кол-ва поинтов?
Posted: 17.05.2011 7:42
by Vizit0r
Tithing_points : Cardinal; //Tithing points (Paladin Books)
не это?
Posted: 17.05.2011 13:54
by MuDaCk
хм... кардинал? а почему не интежер? ведь там только числа(без букв или значков $);
Откуда у вас это? в хелпе этого нет.
Posted: 17.05.2011 14:15
by Vizit0r
я не выдавал это функцией - никто не интересовался

почитай разницу между например Integer и Cardinal...
какое название функции дать?
Posted: 17.05.2011 14:59
by MuDaCk
Code: Select all
Cardinal Основной тип целого числа без знака
Code: Select all
Integer Основной тип целого числа
Теперь буду знать)
Posted: 17.05.2011 16:29
by Vizit0r
там куча синонимов, есть, но все сводится к 4 основным типам, по кол-ву занимаемой памяти:
1) 1 байт, знак есть и знака нет
2) 2 байта, знак есть и знака нет
3) 4 байта, знак есть и знака нет
4) 8 байт, знак есть и знака нет (из ПС доступно с некоторыми ограничениями).
от того, что Signed Int обзывается Cardinal или DWord или UINT - суть никак не меняется.
Re:
Posted: 03.03.2013 23:29
by Gauhar
Vizit0r wrote:Tithing_points : Cardinal; //Tithing points (Paladin Books)
Извиняюсь, что поднял старую тему, но у меня выдает ошибку: Unknown identifier 'Tithing_points'
Stealth 4.3.6.
Re: tithing point(Chivalry)
Posted: 04.03.2013 9:05
by Vizit0r
должно работать.
исходники 4.3.6 мне лень вытаскивать из хранилища, но в текущей версии поле в записи так и зовется.
ты же как поле из записи берешь, а не как отдельную функцию, да?
Re: tithing point(Chivalry)
Posted: 04.03.2013 20:31
by Gauhar
Оопс, мой косяк. Я действительно использовал как отдельную функцию. Просто эта тема на форуме по данному вопросу одна, и я поленился поискать на сайте с описанием функций.
Если кто будет искать, то решение здесь:
http://stealth.od.ua/Doc:Api/ExtendedInfo
И для примера:
var
TP: Cardinal:
begin
TP := ExtendedInfo.Tithing_points;
AddToSystemJournal(IntToStr(TP));
end.
Re: tithing point(Chivalry)
Posted: 21.05.2016 17:05
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.