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

BS Help

Only working scripts
Post Reply
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

BS Help

Post by Ache »

помагите соскриптом нужно убрать киллобжект и добавить инструмент для переплавки тип впишу сам этот инструмент служит для переплавки вещей тоесть юзаем инструмент(Tongs) и нажимаем на веши которые только что сковали,после переплавки скидует рудуна пол (стакает) и наченает всё сначало,помагите пожалуйста.

Code: Select all

program BS;


{$Include 'all.inc'}

var i:integer;


const
ingots     = $1BF2; 
spear      = $23AB; // тип предмета который клепаем
Edager     = $23AB; // тип эксептового предмета который клепаем
HammerType = $13E3;




Procedure make_item;
Begin
CancelMenu;
UseObject(FindType(HammerType,Self));
findtype(Ingots,ground);
WaitTargetObject(finditem);
wait(500);
WaitMenu('What would you like to make?', 'Weapons');   // настройки меню предмета который клепаем
WaitMenu('What kind of weapon?', 'Swords');   // настройки меню предмета который клепаем
wait(500);
WaitMenu('What would you like to make?', 'Shashqa');   // настройки меню предмета который клепаем
if TargetPresent then CancelTarget;                                                    
end;




Begin 
waitconnection(1000);
while not dead do
begin

for i :=1 to 20 do
begin
checksave;
make_item;
Wait(10000);
end;

UOSay('.killobject');
Wait(1000);
WaitTargetType(Spear);
UOSay('.killobject');
Wait(1000);
WaitTargetType(Spear);
Wait(1000);
Hungry(1,backpack);
Wait(1000);
checksave;
WaitGump('0001');
end;
end.
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: BS Help

Post by Ache »

будет ли так правельно и как бы зделать чтобы руду с бекпака стакал наполу с рудой?

Code: Select all

program BS;


{$Include 'all.inc'}

var i:integer;


const
ingots     = $1BF2;
spear      = $23AB; // тип предмета который клепаем
Edager     = $23AB; // тип эксептового предмета который клепаем
TongsType   = $0FBB; // для плавки итемов
HammerType = $13E3;




Procedure make_item;
Begin
CancelMenu;
UseObject(FindType(HammerType,Self));
findtype(Ingots,ground);
WaitTargetObject(finditem);
wait(500);
WaitMenu('What would you like to make?', 'Weapons');   // настройки меню предмета который клепаем
WaitMenu('What kind of weapon?', 'Swords');   // настройки меню предмета который клепаем
wait(500);
WaitMenu('What would you like to make?', 'Shashqa');   // настройки меню предмета который клепаем
if TargetPresent then CancelTarget;                                                   
end;




Begin
waitconnection(1000);
while not dead do
begin

for i :=1 to 20 do
begin
checksave;
make_item;
Wait(10000);
end;

UseObject(FindType(TongsType);
Wait(1000);
WaitTargetType(Spear);
UseObject(FindType(TongsType);
Wait(1000);
WaitTargetType(Spear);
Wait(1000);
Hungry(1,backpack);
Wait(1000);
checksave;
WaitGump('0001');
end;
end.
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: BS Help

Post by Ache »

Compiler: [Error] (BS2.sc at 48:30): Invalid number of parameters
Compiling failed
Script BS2.sc stopped successfuly
Ache
Neophyte
Neophyte
Posts: 23
Joined: 05.06.2015 15:52
Location: Одесса(Поскот)
Contact:

Re: BS Help

Post by Ache »

поможет кто-то нет?
drabadan
Expert
Expert
Posts: 730
Joined: 13.12.2012 17:35
Contact:

Re: BS Help

Post by drabadan »

Ache wrote:поможет кто-то нет?

Code: Select all

ошибку компиляции перепроверь в гугл транслейте, ну или сам переведи. Там будет написано, о количестве параметров. 
UseObject(FindType(TongsType);

Для того, чтобы ошибку исправить необходимо ввести правильные параметры в функцию.
корректный синтаксис:
function FindType(ObjType: Word; Container: Cardinal) : Cardinal
в твоем случае:
UseObject(FindType(TongsType, Backpack));

Post Reply