Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Search found 17 matches
- 30.08.2012 16:14
- Forum: Помощь по скриптам
- Topic: можно ли сократить?
- Replies: 8
- Views: 8753
Re: можно ли сократить?
в первой половине - уже массив ti есть, к нему сделать массив из chest'ов, и тогда for i := 0 to 5 if (bodid = ti[i]) then begin moveto(tchest[i]) break; end; for i := 6 to 10 зачем в таком варианте делать массив для сундуков? почему не сделать moveto(tshchest) // сундук с Обувью или moveto(tcchest...
- 29.08.2012 15:32
- Forum: Помощь по скриптам
- Topic: можно ли сократить?
- Replies: 8
- Views: 8753
Re: можно ли сократить?
теперь понял. спс большое
- 29.08.2012 12:34
- Forum: Помощь по скриптам
- Topic: можно ли сократить?
- Replies: 8
- Views: 8753
Re: можно ли сократить?
в первой половине - уже массив ti есть, к нему сделать массив из chest'ов, и тогда for i := 0 to 5 if (bodid = ti[i]) then begin moveto(tchest[i]) break; end; for i := 6 to 10 но в этом случае неинтересно. вот только case работает только для констант, поэтому увы. P.S. попробуй if (bodid in [ti[0]....
- 28.08.2012 23:49
- Forum: Помощь по скриптам
- Topic: можно ли сократить?
- Replies: 8
- Views: 8753
Re: можно ли сократить?
for i := 0 to 5 if (bodid = ti[i]) then а еще есть варианты? вод код чтоб было понятнее begin inittibsi; bobfilter(findtype($2259,backpack),'all','all','tailoring','all'); terminate := false; while terminate = false do begin save; bodid := getgi; if count($2258) > 0 then if (bodid = ti[0]) or (bodi...
- 28.08.2012 16:48
- Forum: Помощь по скриптам
- Topic: можно ли сократить?
- Replies: 8
- Views: 8753
можно ли сократить?
подскажите пожалуйста можно ли как-то сократить данную строку?
Code: Select all
if (bodid = ti[0]) or (bodid = ti[1]) or (bodid = ti[2]) or (bodid = ti[3]) or (bodid = ti[4]) or (bodid = ti[5]) then- 18.08.2012 13:13
- Forum: Помощь по скриптам
- Topic: правильно или нет?
- Replies: 11
- Views: 11851
Re: правильно или нет?
я понял. странный подход, ну да дело хозяйское. case material of ///// 'blacksmithing' : numgumpbutton(getgumpscount-1,6); ///// 'iron' : numgumpbutton(getgumpscount-1,10); ///// ... это работает? P.S. Ух ты, работает. А в дэльфах так нельзя, к сожалению :( Тогда ничего странного в подходе, а очень...
- 18.08.2012 10:21
- Forum: Помощь по скриптам
- Topic: правильно или нет?
- Replies: 11
- Views: 11851
Re: правильно или нет?
я не совсем понимаю вопрос. я же скинул "скрипт" от начала и до конца, я ввожу их самостоятельно.Vizit0r wrote:я понимаю что берется из входящих параметров. а передает их параметрами в функцию кто?
- 17.08.2012 23:43
- Forum: Помощь по скриптам
- Topic: правильно или нет?
- Replies: 11
- Views: 11851
Re: правильно или нет?
вот от сюда брались bobfilter('large','exceptional','tailoring','all'); я переделал так: Program New; ///////////////////////////////////////////////////////////////////////////////// ///// процедура устанавливает фильтр в открытом Bulk Order Book ///////////////// //////////////////////////////////...
- 17.08.2012 21:31
- Forum: Помощь по скриптам
- Topic: правильно или нет?
- Replies: 11
- Views: 11851
Re: правильно или нет?
спс. подскажите еще, такая процедура не будет напрягать что-то в компе из-за большого кол-ва условий? procedure bobfilter(size,quality,material,amount : string); begin if size = 'all' then numgumpbutton(getgumpscount-1,4) else if size = 'small' then numgumpbutton(getgumpscount-1,8) else if size = 'l...
- 17.08.2012 20:44
- Forum: Помощь по скриптам
- Topic: правильно или нет?
- Replies: 11
- Views: 11851
правильно или нет?
какой вариант правельный? if size = 'all' then numgumpbutton(getgumpscount-1,0) else if size = 'small' then numgumpbutton(getgumpscount-1,0) else if size = 'large' then numgumpbutton(getgumpscount-1,0); или if size = 'all' then begin numgumpbutton(getgumpscount-1,0); end else begin if size = 'small'...
- 28.05.2012 17:55
- Forum: Помощь по скриптам
- Topic: таргей
- Replies: 13
- Views: 14139
Re: таргей
я выкрутился так: Program New; var TArray : array [0..3] of integer; i,a,b : integer; begin TArray[0] := 3283; TArray[1] := 3288; TArray[2] := 3293; TArray[3] := 3302; for i := 0 to 3 do begin if i = 0 then begin a := -2 b := 1 end; if i = 1 then begin a := -2 b := -2 end; if i = 2 then begin a := 2...
- 28.05.2012 14:36
- Forum: Помощь по скриптам
- Topic: таргей
- Replies: 13
- Views: 14139
Re: таргей
вот инфотайл деревьев и места где я стою
Code: Select all
Tile: 3283 X: 2092 Y: 2115 Z: 0 - дерево1
Tile: 3392 X: 2092 Y: 2113 Z: 0 - дерево2
Tile: 3280 X: 2096 Y: 2112 Z: 0 - дерево3
Tile: 3299 X: 2096 Y: 2115 Z: 0 - дерево4
Tile: 605 X: 2094 Y: 2114 Z: 0 - я- 28.05.2012 14:21
- Forum: Помощь по скриптам
- Topic: таргей
- Replies: 13
- Views: 14139
Re: таргей
вот такой скрипт для теста сделал: Program New; var x,y,z : Integer; begin x := getx(self); y := gety(self); z := getz(self); useobject($40CDB8F1) wait(500) TargetToXYZ(x-2,y+1,z); wait(2000) useobject($40CDB8F1) wait(500) TargetToXYZ(x-2,y-2,z); wait(2000) useobject($40CDB8F1) wait(500) TargetToXYZ...
- 28.05.2012 14:01
- Forum: Помощь по скриптам
- Topic: таргей
- Replies: 13
- Views: 14139
Re: таргей
что такое относительные координаты? ну в разоре есть такое. допустим чар это (0,0), а точка (4,4) это +4 по (х) и +4 по (y) тайл относительно чара. я делаю скрипт на ламбер с реколом. руны у меня замарчены в места, где вокруг чара 4 дерева которые он может рубить с точки рекола. я пытался сделать ч...
- 28.05.2012 12:51
- Forum: Помощь по скриптам
- Topic: таргей
- Replies: 13
- Views: 14139
таргей
можно ли как-то кликнуть таргетом по относительным координатам?