Page 2 of 3
Re: Нужен хел по гампу
Posted: 03.03.2014 16:30
by Sorme.it
Code: Select all
скрипт драбадана
procedure GumpWorkOut;
var
gi :TGumpInfo;
code1 : Cardinal;
code2 : Cardinal;
i : Integer;
//released_id : Cardinal;
begin
//UOSay('tyt');
GetGumpInfo(GetGumpsCount-1, gi);
code1 := gi.GumpButtons[0].released_id; // код картинки первой кнопки
code2 := gi.GumpButtons[1].released_id; // код картинки второй кнопки
// цикл по оставшимся кнопкам
for i := 2 to GetArrayLength(gi.GumpButtons)-1 do
begin
if gi.GumpButtons[i].released_id = code1 then // если код картинки совпадает, то...
begin
NumGumpButton(GetGumpsCount-1, gi.GumpButtons[i].return_value); // нажимаем эту кнопку
break; // и заканчиваем цикл
end;
end;
Wait(1000);
GetGumpInfo(GetGumpsCount-1, gi);
for i := 2 to GetArrayLength(gi.GumpButtons)-1 do
begin
if gi.GumpButtons[i].released_id = code2 then
begin
NumGumpButton(GetGumpsCount-1, gi.GumpButtons[i].return_value);
break;
end;
end;
end;
Вопрос - почему иногда не вводит правильные значения ? Как переделать .?
Re: Нужен хел по гампу
Posted: 03.03.2014 20:50
by drabadan
Sorme.it wrote:
Вопрос - почему иногда не вводит правильные значения ? Как переделать .?
Гампинфо в студию!
Кстати, я на тот момент не умел еще такое писать и скопипастил чужие труды!
Re: Нужен хел по гампу
Posted: 04.03.2014 19:02
by Sorme.it
Это когда вылетела табличка ( без введенных значений )
Code: Select all
Serial: 188549
GumpID: 00B3
X: 0000
Y: 0000
Pages: 1
Gump Options:
GumpPics: X Y ID Hue Page ElemNum
GumpPic: 265 243 2226 0 0 1
GumpPic: 325 224 2229 0 0 2
GumpPic: 280 234 2226 0 0 3
GumpPic: 305 230 2228 0 0 4
GumpPic: 278 238 2231 0 0 18
GumpPic: 324 221 2227 0 0 19
ResizePics: X Y ID Width Height Page ElemNum
0 ResizePic: 220 170 5170 240 240 0 7
GumpTexts: X Y Color Text_ID Page ElemNum
0 GumpText: 275 172 152 0 0 8
1 GumpText: 250 195 0 1 0 9
2 GumpText: 250 253 0 2 0 20
3 GumpText: 250 265 0 3 0 21
4 GumpText: 360 265 0 4 0 22
Text Lines:
Antimacros System
Choose this protection code
----------------------
Entering code:
0
GumpButtons: X Y Released_ID Pressed_ID Quit Page_ID Return_value Page ElemNum
0 GumpButton: 240 175 2231 2231 1 1 1 0 5
1 GumpButton: 420 175 2227 2227 1 1 2 0 6
2 GumpButton: 400 300 2228 2228 1 1 9 0 10
3 GumpButton: 276 307 2225 2225 1 1 10 0 11
4 GumpButton: 312 307 2226 2226 1 1 3 0 12
5 GumpButton: 347 304 2227 2227 1 1 4 0 13
6 GumpButton: 315 347 2230 2230 1 1 5 0 14
7 GumpButton: 402 351 2232 2232 1 1 6 0 15
8 GumpButton: 277 354 2229 2229 1 1 7 0 16
9 GumpButton: 349 356 2231 2231 1 1 8 0 17
Previous gump reply:
Button id: 9
Serial: 188549
GumpID: 00B3
X: 0000
Y: 0000
Pages: 1
Gump Options:
GumpPics: X Y ID Hue Page ElemNum
GumpPic: 208 388 2226 0 0 1
GumpPic: 243 381 2226 0 0 2
GumpPic: 207 379 2230 0 0 3
GumpPic: 231 384 2231 0 0 4
GumpPic: 204 392 2227 0 0 18
GumpPic: 240 389 2232 0 0 19
ResizePics: X Y ID Width Height Page ElemNum
0 ResizePic: 140 320 5170 240 240 0 7
GumpTexts: X Y Color Text_ID Page ElemNum
0 GumpText: 195 322 152 0 0 8
1 GumpText: 170 345 0 1 0 9
2 GumpText: 170 403 0 2 0 20
3 GumpText: 170 415 0 3 0 21
4 GumpText: 280 415 0 4 0 22
Text Lines:
Antimacros System
Choose this protection code
----------------------
Entering code:
0
GumpButtons: X Y Released_ID Pressed_ID Quit Page_ID Return_value Page ElemNum
0 GumpButton: 160 325 2227 2227 1 1 1 0 5
1 GumpButton: 340 325 2232 2232 1 1 2 0 6
2 GumpButton: 306 457 2228 2228 1 1 9 0 10
3 GumpButton: 204 474 2225 2225 1 1 10 0 11
4 GumpButton: 226 457 2226 2226 1 1 3 0 12
5 GumpButton: 268 455 2227 2227 1 1 4 0 13
6 GumpButton: 243 498 2230 2230 1 1 5 0 14
7 GumpButton: 327 492 2232 2232 1 1 6 0 15
8 GumpButton: 206 491 2229 2229 1 1 7 0 16
9 GumpButton: 285 490 2231 2231 1 1 8 0 17
Previous gump reply:
Button id: 0
Serial: 188549
GumpID: 00B3
X: 0000
Y: 0000
Pages: 1
Gump Options:
GumpPics: X Y ID Hue Page ElemNum
GumpPic: 208 388 2226 0 0 1
GumpPic: 243 381 2226 0 0 2
GumpPic: 207 379 2230 0 0 3
GumpPic: 231 384 2231 0 0 4
GumpPic: 204 392 2227 0 0 18
GumpPic: 240 389 2232 0 0 19
ResizePics: X Y ID Width Height Page ElemNum
0 ResizePic: 140 320 5170 240 240 0 7
GumpTexts: X Y Color Text_ID Page ElemNum
0 GumpText: 195 322 152 0 0 8
1 GumpText: 170 345 0 1 0 9
2 GumpText: 170 403 0 2 0 20
3 GumpText: 170 415 0 3 0 21
4 GumpText: 280 415 0 4 0 22
Text Lines:
Antimacros System
Choose this protection code
----------------------
Entering code:
0
GumpButtons: X Y Released_ID Pressed_ID Quit Page_ID Return_value Page ElemNum
0 GumpButton: 160 325 2227 2227 1 1 1 0 5
1 GumpButton: 340 325 2232 2232 1 1 2 0 6
2 GumpButton: 306 457 2228 2228 1 1 9 0 10
3 GumpButton: 204 474 2225 2225 1 1 10 0 11
4 GumpButton: 226 457 2226 2226 1 1 3 0 12
5 GumpButton: 268 455 2227 2227 1 1 4 0 13
6 GumpButton: 243 498 2230 2230 1 1 5 0 14
7 GumpButton: 327 492 2232 2232 1 1 6 0 15
8 GumpButton: 206 491 2229 2229 1 1 7 0 16
9 GumpButton: 285 490 2231 2231 1 1 8 0 17
Previous gump reply:
Button id: 0
Re: Нужен хел по гампу
Posted: 05.03.2014 9:47
by drabadan
в идеале, конечно, еще бы и картинку! Я тут подумал, я сейчас дрюкался с ОЦРами, скинь картинку попробуем судьбу обмануть и сделать все без гампа!
Хрен там, тогда же клиент нужен...
Шли картинку, короче.
Re: Нужен хел по гампу
Posted: 05.03.2014 12:48
by Sorme.it
Re: Нужен хел по гампу
Posted: 05.03.2014 13:08
by drabadan
а гампинфо к етой картинке?
Re: Нужен хел по гампу
Posted: 05.03.2014 13:11
by Sorme.it
к ней не снял , к аналогичной в верхнем моем сообщении
Re: Нужен хел по гампу
Posted: 05.03.2014 13:21
by Sorme.it
Обновлено
Code: Select all
Serial: 188549
GumpID: 00B3
X: 0000
Y: 0000
Pages: 1
Gump Options:
GumpPics: X Y ID Hue Page ElemNum
GumpPic: 150 362 2232 0 0 1
GumpPic: 191 340 2231 0 0 2
GumpPic: 168 355 2231 0 0 3
GumpPic: 196 356 2231 0 0 4
GumpPic: 166 356 2225 0 0 18
GumpPic: 207 340 2231 0 0 19
ResizePics: X Y ID Width Height Page ElemNum
0 ResizePic: 100 290 5170 240 240 0 7
GumpTexts: X Y Color Text_ID Page ElemNum
0 GumpText: 155 292 152 0 0 8
1 GumpText: 130 315 0 1 0 9
2 GumpText: 130 373 0 2 0 20
3 GumpText: 130 385 0 3 0 21
4 GumpText: 240 385 0 4 0 22
Text Lines:
Antimacros System
Choose this protection code
----------------------
Entering code:
0
GumpButtons: X Y Released_ID Pressed_ID Quit Page_ID Return_value Page ElemNum
0 GumpButton: 120 295 2225 2225 1 1 1 0 5
1 GumpButton: 300 295 2231 2231 1 1 2 0 6
2 GumpButton: 283 427 2228 2228 1 1 9 0 10
3 GumpButton: 157 421 2225 2225 1 1 10 0 11
4 GumpButton: 202 423 2226 2226 1 1 3 0 12
5 GumpButton: 243 427 2227 2227 1 1 4 0 13
6 GumpButton: 202 471 2230 2230 1 1 5 0 14
7 GumpButton: 276 472 2232 2232 1 1 6 0 15
8 GumpButton: 160 466 2229 2229 1 1 7 0 16
9 GumpButton: 246 483 2231 2231 1 1 8 0 17
Previous gump reply:
Button id: 4
Re: Нужен хел по гампу
Posted: 05.03.2014 14:28
by Vizit0r
тема про такие гампы уже была, и скрипт был написал. Сходу по поиску не нашелся, видимо гампинфо в виде приложения был.
Re: Нужен хел по гампу
Posted: 05.03.2014 15:26
by drabadan
Vizit0r wrote:тема про такие гампы уже была, и скрипт был написал. Сходу по поиску не нашелся, видимо гампинфо в виде приложения был.
я оттуда и скопипастил!
Code: Select all
procedure AntimacroGump;
var
i : Integer;
gi : TGumpInfo;
begin
for i := 0 to GetGumpsCount-1 do
if GetGumpId(i) = $00B3 then
begin
GetGumpInfo(i, gi);
NumGumpButton(i, gi.GumpButtons[0].return_value);
Wait(50);
NumGumpButton(i, gi.GumpButtons[1].return_value);
break;
end;
end;
новые потуги, не знаю если работает.
Re: Нужен хел по гампу
Posted: 05.03.2014 17:01
by Sorme.it
не заводиться , ругается на GumpInfo
Re: Нужен хел по гампу
Posted: 05.03.2014 18:27
by drabadan
Sorme.it wrote:не заводиться , ругается на GumpInfo
сорри, Бандеровцы фашисты националистические детоеды геи помешали!
Re: Нужен хел по гампу
Posted: 06.03.2014 4:28
by Sorme.it
Завелся , теперь гамп просто висит , ничего не вводиться.
Re: Нужен хел по гампу
Posted: 06.03.2014 9:37
by drabadan
Code: Select all
procedure AntimacroGump;
var
//i : Integer;
gi : TGumpInfo;
begin
if GetGumpСount > 0 then
begin
GetGumpInfo(GetGumpsCount-1, gi);
NumGumpButton(GetGumpsCount-1, gi.GumpButtons[0].return_value);
Wait(50);
NumGumpButton(GetGumpsCount-1, gi.GumpButtons[1].return_value);
end;
end;
Re: Нужен хел по гампу
Posted: 06.03.2014 14:08
by Vizit0r
драбадан - неправильно.
надо жать не на верхние кнопки, а на нижние.
Т.е. надо искать в списке кнопок еще одну кнопку, у которой Released_ID будет таким же, как у gi.GumpButtons[0] и жать именно ее, потом то же самое с gi.GumpButtons[1]