Но постоянно обновлять инфу насчет количества, людям в лом.
Так что к вашему вниманию скрипт.
Выставляем в самом верху - напротив названия, цены на логи.
Запускаем скрипт. Кликаем таргет на бокс с логами.
Через минуту скрипт закончит работу.
Там где лежит сам скрипт - появится файл Price1.txt
В этом файле будет готовый подсчет логов с ценами для форума.
П.с. Будет настроение, сделаю на инготы.
Пример что выдает скрипт:
-----------------------------------------------------------------------------------------------------------
DreadLogs In stock: 1 Log. Price to 1 log. = 1000 GP. Price to all Logs. = 1000 GP
ChaoticLogs In stock: 32 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
IceLogs In stock: 22 Log. Price to 1 log. = 200 GP. Price to all Logs. = 4400 GP
ParadiseLogs In stock: 13 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
HolyLogs In stock: 0 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
HamelionLogs In stock: 0 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
FrozenLogs In stock: 0 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
ArianLogs In stock: 1 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
MileniumLogs In stock: 0 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
TeriumLogs In stock: 0 Log. Price to 1 log. = 0 GP. Price to all Logs. = 0 GP
-----------------------------------------------------------------------------------------------------------
Сам Скрипт:
; Vistavlaem ceni na logi
Set %DreadLogsPrice 1000
Set %ChaoticLogsPrice 0
Set %IceLogsPrice 200
Set %ParadiseLogsPrice 0
Set %HolyLogsPrice 0
Set %HamelionLogsPrice 0
Set %FrozenLogsPrice 0
Set %ArianLogsPrice 0
Set %MileniumLogsPrice 0
Set %TeriumLogsPrice 0
;Dalshe nichego ne trogaem
ScriptStart:
set #sysmsgcol 65
Set %bike 0
Set %Suber #False
Set %Zero #False
;colors
Set %DreadLogsColor 45
Set %ChaoticLogsColor 1060
Set %IceLogsPriceColor 1152
Set %ParadiseLogsColor 2178
Set %HolyLogsColor 1090
Set %HamelionColor 1063
Set %FrozenLogsColor 1153
Set %ArianLogsColor 1155
Set %MileniumLogsColor 2199
Set %TeriumLogsColor 1097
;set colors
Set %LogColor1 %DreadLogsColor
Set %LogColor2 %ChaoticLogsColor
Set %LogColor3 %IceLogsPriceColor
Set %LogColor4 %ParadiseLogsColor
Set %LogColor5 %HolyLogsColor
Set %LogColor6 %HamelionColor
Set %LogColor7 %FrozenLogsColor
Set %LogColor8 %ArianLogsColor
Set %LogColor9 %MileniumLogsColor
Set %LogColor10 %TeriumLogsColor
StartFindChest:
msg $
set #targcurs 1
while #targcurs = 1
wait 1
set %Box #ltargetid
wait 2
Finditem %box
if #findcnt <> 0
{
if #Finddist > 3
{
display Box To Far!!!
halt
}
Set #lobjectid %box
set %smarttimer #scnt + 5
repeat
{
event macro 17 0
wait 10
if %smarttimer < #scnt
{
display Are you sure that is Box?
halt
}
}
until #contid = %box
}
set %Bike 1
StartFindLogs:
gosub getcolors
Repeat
{
Finditem ZLK C_ , %box
If #Findcol <> %Color
Ignoreitem #findid
If #Findcol = %Color
{
set %Ammount #Findstack
set %Suber #True
}
}
until %Suber || #Findcnt = 0
If #findcnt = 0
{
set %Suber #True
set %Zero #True
gosub Script
}
If %Suber
gosub Script
Goto StartFindLogs
Sub Script
gosub lognames
gosub setprice
Set %Suber #False
If %Zero
{
Set %Ammount 0
Set %Zero #False
}
WriteLogsAmmount:
If %Skidka
{
set %buga %price / 100
set %puga %buga * %procenti
set %skidon %price - %puga
}
Set %ToAll %Ammount * %Price
execute cmd.exe /c echo >>Price1.txt %Name In stock: %Ammount Log. Price to 1 log. = %Price GP. Price to all Logs. = %ToAll GP
event sysmessage %name Writed
wait 10
If %bike = 10
{
event exmsg #Charid 3 64 All Logs Counted!!!
halt
}
ignoreitem reset
Set %bike %bike + 1
return
sub getcolors
If %Bike = 1
set %Color %LogColor1
If %Bike = 2
Set %Color %LogColor2
If %Bike = 3
Set %Color %LogColor3
If %Bike = 4
Set %Color %LogColor4
If %Bike = 5
Set %Color %LogColor5
If %Bike = 6
Set %Color %LogColor6
If %Bike = 7
Set %Color %LogColor7
If %Bike = 8
Set %Color %LogColor8
If %Bike = 9
Set %Color %LogColor9
If %Bike = 10
Set %Color %LogColor10
return
sub lognames
If %Bike = 1
Set %Name DreadLogs
If %Bike = 2
Set %Name ChaoticLogs
If %Bike = 3
Set %Name IceLogs
If %Bike = 4
Set %Name ParadiseLogs
If %Bike = 5
Set %Name HolyLogs
If %Bike = 6
Set %Name HamelionLogs
If %Bike = 7
Set %Name FrozenLogs
If %Bike = 8
Set %Name ArianLogs
If %Bike = 9
Set %Name MileniumLogs
If %Bike = 10
Set %Name TeriumLogs
return
Sub SetPrice
If %Bike = 1
Set %Price %DreadLogsPrice
If %Bike = 2
Set %Price %ChaoticLogsPrice
If %Bike = 3
Set %Price %IceLogsPrice
If %Bike = 4
Set %Price %ParadiseLogsPrice
If %Bike = 5
Set %Price %HolyLogsPrice
If %Bike = 6
Set %Price %HamelionLogsPrice
If %Bike = 7
Set %Price %FrozenLogsPrice
If %Bike = 8
Set %Price %ArianLogsPrice
If %Bike = 9
Set %Price %MileniumLogsPrice
If %Bike = 10
Set %Price %TeriumLogsPrice
return
