Доработал скрпит для StoreList (также подойдёт для других), суть скрипта: ставит нули в рядах (Зануление для сервера)
Цитата:
FOR($a, $a < 5)
waitms(0)
keyDown(48)
waitms(0)
keyUp(48)
waitms(0)
keyDown(13)
waitms(0)
keyUp(13)
waitms(0)
keyDown(39)
waitms(0)
keyUp(39)
waitms(0)
END_CYC
|
48 - это 0 на клаве
13 - это Enter
39 - стрелка вправо
Для нормальной работы вам нужно нажать мышкой на ячейку где нужно заменить значения во всём ряду и запустить скрипт
Т.к. на серве в StoreList ставится сначала количество предметов, то скрипт, что выше подойдёт, а вот в клиенте сначала стоит Тип предмета, потом его клиент код, то скрипт юзайте, что ниже(Зануление в клиенте):
Цитата:
FOR($a, $a < 9)
waitms(0)
keyDown(48)
waitms(0)
keyUp(48)
waitms(0)
keyDown(13)
waitms(0)
keyUp(13)
waitms(0)
keyDown(39)
waitms(0)
keyUp(39)
waitms(0)
keyDown(48)
waitms(0)
keyUp(48)
waitms(0)
keyDown(48)
waitms(0)
keyUp(48)
waitms(0)
keyDown(48)
waitms(0)
keyUp(48)
waitms(0)
keyDown(48)
waitms(0)
keyUp(48)
waitms(0)
keyDown(13)
waitms(0)
keyUp(13)
waitms(0)
keyDown(39)
waitms(0)
keyUp(39)
END_CYC
|
нужно лишь выделить ячейку в каком ряду нужно заменить значения. Ставит 0 в колонку Тип предмета и 0000 в ID Предмета
Скрипт для серва: пишет в ячейки код предмета
Цитата:
FOR($a, $a < 15)
inc($myvar)
switch($myvar)
case(1)
KEYSTRING("ihawa65")
case(2)
KEYSTRING("iuawa65")
case(3)
KEYSTRING("ilawa65")
case(4)
KEYSTRING("igawa65")
case(5)
KEYSTRING("isawa65")
case(6)
KEYSTRING("ihara65")
case(7)
KEYSTRING("iuara65")
case(8)
KEYSTRING("ilara65")
case(9)
KEYSTRING("igara65")
case(10)
KEYSTRING("isara65")
case(11)
KEYSTRING("ihafa65")
case(12)
KEYSTRING("iuafa65")
case(13)
KEYSTRING("ilafa65")
case(14)
KEYSTRING("igafa65")
case(15)
KEYSTRING("isafa65")
default
KEYSTRING("str")
end_switch
keyDown(13)
waitms(0)
keyUp(13)
waitms(0)
keyDown(39)
waitms(0)
keyUp(39)
waitms(0)
END_CYC
|
Вам нужно в KEYSTRING("isafa65") ,и тому подобных, просто поменять на тот предмет который нужен вам. Если вам нужно вставить меньше или больше 15 предметов, то просто удалите строки с case() и KEYSTRING, но при этом в самом начале $a < 15 поставте значение, которое вам нужно
Скрипт для клиента(ввод даных в клиенте)
Цитата:
SUB(mysub)
keyDown(13)
waitms(0)
keyUp(13)
waitms(0)
keyDown(39)
waitms(0)
keyUp(39)
waitms(0)
END_SUB
FOR($a, $a < 15)
inc($myvar)
switch($myvar)
case(1)
KEYSTRING("5") //Тип предмета
mysub()
KEYSTRING("C0160065") //Предмет
case(2)
KEYSTRING("1")
mysub()
KEYSTRING("C0160065")
case(3)
KEYSTRING("2")
mysub()
KEYSTRING("C0160065")
case(4)
KEYSTRING("3")
mysub()
KEYSTRING("C0160065")
case(5)
KEYSTRING("4")
mysub()
KEYSTRING("C0160065")
case(6)
KEYSTRING("5")
mysub()
KEYSTRING("C0110065")
case(7)
KEYSTRING("1")
mysub()
KEYSTRING("C0110065")
case(8)
KEYSTRING("2")
mysub()
KEYSTRING("C0110065")
case(9)
KEYSTRING("3")
mysub()
KEYSTRING("C0110065")
case(10)
KEYSTRING("4")
mysub()
KEYSTRING("C0110065")
case(11)
KEYSTRING("5")
mysub()
KEYSTRING("C0050065")
case(12)
KEYSTRING("1")
mysub()
KEYSTRING("C0050065")
case(13)
KEYSTRING("2")
mysub()
KEYSTRING("C0050065")
case(14)
KEYSTRING("3")
mysub()
KEYSTRING("C0050065")
case(15)
KEYSTRING("4")
mysub()
KEYSTRING("C0050065")
end_switch
mysub()
END_CYC
|
Коментарии к скриптам отсутствуют т.к. на форуме они пишутся не понятными иероглифами