Тема: Скрипты
Показать сообщение отдельно
Старый 09.08.2005, 16:21   #38
Arhong
Младший сержант
 
Регистрация: 14.06.2005
Сообщений: 64
Сказал cпасибо: 0
Поблагодарили 0 раз в 0 сообщениях
Отправить сообщение для Arhong с помощью ICQ
Знач так...поделюсь ка я скриптиками :-)


1) Мининг в пещере

// start in 1506x2850
// Настройки:
//
// Замените Ф2 на вашу кнопку копки
// Замените в строке "set #maxwght 420" 420 на вес, при котором бежать к сундуку
// Замените в процедуре "resource_waydrop" в строке "set #maxwght 45" 45 на вес, при котором можно бежать назад к точке копки
// Замените в процедуре "resource_waydrop" координаты бэкпака (как в скрине мышка: первая цифра - Х, вторая У), друние не трогать
// set #backpx 0
// set #backpy 726
// Замените в процедуре "resource_waydrop" координаты Сундука, куда перетаскивать (из точки перед сундуком!!)
// set #sundx 0
// set #sundy 0


//При достижении этого веса бежать относить
set #maxwght 400

while charposy < 3013
//Главный цикл ходьбы

if wght > #maxwght
call resource_waydrop
end_if
send f12 500
while lastmsg <> there is no ore here to mine
if lastmsg = try mining in rock
break
end_if
wait 4000
send f12 500
end_while

if charposy = 2858 or charposy = 2863 or charposy = 2869 or charposy = 2875 or charposy = 2883 or charposy = 2890 or charposy = 2891 or charposy = 2893 or charposy = 2895 or charposy = 2897 or charposy = 2901 or charposy = 2904 or charposy = 2942 or charposy = 2980 or charposy = 2985 or charposy = 3000
if chardir <> 2
send PageDown 500
end_if
send PageDown 500
if charposy = 2883
send PageDown 500
end_if
end_if


if chardir <> 4
send end 500
end_if
send end 500

if charposy = 2943
if chardir <> 4
send end 500
end_if
send end 500
send end 500
end_if

if charposy = 2945 or charposy = 2947 or charposy = 2963 or charposy = 2968 or charposy = 2973 or charposy = 2975
send home 500
send home 500
end_if

end_while


if charposy = 3013 and charposx <> 1517
while charposx <> 1517
while charposx > 1517
send home 500
end_while
while charposx < 1517
send PageDown 500
end_while
end_while
end_if

while charposy > 2850
// Назад к точке начала
double_right 714, 275
if charposy = 2963
while charposx <> 1523
double_right 697, 548
end_while
end_if
if charposy = 2912
while charposx <> 1519
double_right 457, 247
end_while
end_if
if charposy = 2882
while charposx <> 1510
double_right 457, 247
end_while
end_if
if charposy = 2851
while charposx <> 1506
double_right 457, 247
end_while
end_if
end_while

proc resource_waydrop

// Вес пустого чара, без руды (у сундука ждать пока меньше или равный не станет)
set #maxwght 40

set #backx charposx
set #backy charposy

// Координаты бэкпака (как в скрине мышка: первая цифра - Х, вторая У), друние не трогать

set #backpx 0
set #backpy 707

// Координаты Сундука, куда перетаскивать (из точки перед сундуком!!)

set #sundx 605
set #sundy 374


set #backpmaxx #backpx + 142
set #backpmaxy #backpy + 114

set #InPos 0
set #InPos3 0
set #rock 0

while #InPos <> 1
if charposy = 2883 or charposy = 2889 or charposy = 2891 or charposy = 2893 or charposy = 2952
send PageUp 500
else
break
end_if
end_while

set #InPos 0

while #InPos <> 1
// К сундуку
// double_right 714, 275
if charposy < 3014 and charposy > 2963
while charposx <> 1517
while charposx > 1517
double_right 483, 313
end_while
while charposx < 1517
double_right 734, 496
end_while
end_while
while charposy > 2963
double_right 714, 275
end_while
end_if
if charposy < 2964 and charposy > 2912
while charposx <> 1523
while charposx > 1523
double_right 483, 313
end_while
while charposx < 1523
double_right 734, 496
end_while
end_while
while charposy > 2912
double_right 714, 275
end_while
end_if
if charposy < 2913 and charposy > 2882
if charposy = 2911
while charposy <> 2912
send End 500
end_while
end_if
while charposx <> 1519
while charposx > 1519
double_right 483, 313
end_while
while charposx < 1519
double_right 734, 496
end_while
end_while
while charposy > 2882
double_right 714, 275
end_while
end_if
if charposy < 2883 and charposy > 2851
while charposx <> 1510
while charposx > 1510
double_right 483, 313
end_while
while charposx < 1510
double_right 734, 496
end_while
end_while
while charposy > 2851
double_right 714, 275
end_while
end_if
if charposy = 2851 and charposx = 1510
set #InPos 1
end_if
end_while
MaraneL [EА]: (7:58 PM) //DROP

while wght > #maxwght
set #nowx #backpx
set #nowy #backpy
while #nowx < #backpmaxx
while #nowy < #backpmaxy
if_not wght > #maxwght
break 2
end_if
set lastobjecttype 0
left #nowx, #nowy
if lastobjecttype = 6585 or lastobjecttype = 6583 or lastobjecttype = 6584 or lastobjecttype = 6586
wait 500
drag #nowx, #nowy #sundx, #sundy all
wait 1000
end_if
set #nowy #nowy + 5
end_while
set #nowx #nowx + 5
set #nowy #backpy
if #nowx > #backpmaxx
set #nowx #backpx + 1
set #backpy #backpy + 1
end_if
send Escape
end_while
end_while


//END DROP

while wght > #maxwght
wait 5000
end_while

set #InPos 0
set #InPos2 0
while #InPos <> 1
// К месту

if charposy < 3013 and charposy > 2963
while charposx <> 1517
while charposx > 1517
double_right 483, 313
end_while
while charposx < 1517
double_right 734, 496
end_while
end_while
while #InPos2 <> 1
if charposy > #backy or charposy > 3013 or charposy = #backy
set #inPos2 1
else
double_right 437, 538
end_if
end_while
set #inPos2 0
end_if
if charposy < 2964 and charposy > 2912
while charposy = 2915
send End 500
end_while
while charposx <> 1523
while charposx > 1523
double_right 483, 313
end_while
while charposx < 1523
double_right 734, 496
end_while
end_while
while #InPos2 <> 1
if charposy > #backy or charposy > 2964 or charposy = #backy
set #inPos2 1
else
double_right 437, 538
end_if
end_while
set #inPos2 0
end_if
if charposy < 2913 and charposy > 2881
if charposy = 2883
while charposy <> 2882
send PageUp 500
end_while
end_if
while charposx <> 1519
while charposx > 1519
double_right 483, 313
end_while
while charposx < 1519
double_right 734, 496
end_while
end_while
while #InPos2 <> 1
if charposy > #backy or charposy > 2913 or charposy = #backy
set #inPos2 1
else
double_right 437, 538
end_if
end_while
set #inPos2 0
end_if
if charposy < 2882 and charposy > 2850
if charposy = 2883
while charposy <> 2882
send PageUp 500
end_while
end_if
while charposx <> 1510
while charposx > 1510
double_right 483, 313
end_while
while charposx < 1510
double_right 734, 496
end_while
end_while
while #InPos2 <> 1
if charposy > #backy or charposy > 2882 or charposy = #backy
set #inPos2 1
else
double_right 437, 538
end_if
end_while
set #inPos2 0
end_if


if #backy = charposy
if charposy = 2883 or charposy = 2889 or charposy = 2891 or charposy = 2893 or charposy = 2952
while #rock <> 3
if #prevx = charposx
set #rock #rock + 1
else
set #prevx charposx
end_if
send home 500
end_while
set #rock 1
set #Rocky charposy + 1
set #Rockx charposx - 2
while #InPos3 <> 1
while charposy <> #rocky
while charposy > #rocky
send PageUp 500
end_while
while charposy < #rocky
send End 500
end_while
end_while
while charposx <> #rockx
while charposx > #rockx
send Home 500
end_while
while charposx < #rockx
send PageDown 500
end_while
set #rocky #rocky - 1
end_while
if charposy = #rocky and charposx = #rockx
set #InPos3 1
end_if
end_while
end_if
while #backx <> charposx
double_right 458, 280
end_while
end_if
if #backy = charposy and #backx = charposx
set #InPos 1
else
if charposy < #backy
double_right 461, 515
end_if
if charposy > #backy
double_right 713, 271
end_if
end_if
end_while

end_proc

[ADDED=Arhong]1123590261[/ADDED]



2) Миниг скал!! Эксклюзив, млин =) Писал для Кова :-) Ибо гз =)set #xn 2228
set #yn 1132
set #k 0
set #zapxod 1
while #k = 0
set #zapx #xn
set #zapy #yn
set #prpered 0
set #i 0
while #prpered = 0//pered

set #i #i + 1 //в стороны

if #i = 1
set #i #zapxod //obesp dvigenie v tuge stor
end_if

if #i = 1
if #zapxod <> 5
set #xn #xn - 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 2
if #zapxod <> 5
set #xn #xn +1
end_if
end_if
if #i = 3
if #zapxod <> 7
set #yn #yn - 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 4
if #zapxod <> 7
set #yn #yn + 1
end_if
end_if
if #i = 5
if #zapxod <> 1 // проверка, чтоб не пошел назад
set #xn #xn + 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 6
if #zapxod <> 1
set #x #xn -1
end_if
end_if
if #i = 7
if #zapxod <> 3
set #yn #yn + 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 8
if #zapxod <> 3
set #yn #yn - 1
end_if
end_if

if #i = 9
if #zapxod <> 5
set #xn #xn - 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 10
if #zapxod <> 5
set #xn #xn +1
end_if
end_if
if #i = 11
if #zapxod <> 7
set #yn #yn - 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 12
if #zapxod <> 7
set #yn #yn + 1
end_if
end_if
if #i = 13
if #zapxod <> 1 // проверка, чтоб не пошел назад
set #xn #xn + 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 14
if #zapxod <>1
set #x #xn -1
end_if
end_if
if #i = 15
if #zapxod <> 3
set #yn #yn + 1
else
set #i #i + 1
goto 1
end_if
end_if
if #i = 16
if #zapxod <> 3
set #yn #yn - 1
end_if
end_if


//проблемные точки

//

set #prd 0
while #prd = 0
set #stena 0
set #prkoord 0
if #xn <> charposx
while #prkoord = 0
set #stena #stena + 1
send Home

say aaa //ustoich k lagu
set #prlag 0
while #prlag = 0
if lastmsg aaa
set #prlag 1
end_if
end_while
say bbb

wait 1000
if #stena > 10
goto 1
set #prkoord 1
end_if
if charposx <= #xn
set #prkoord 1
end_if
end_while
end_if

if #xn <> charposx
wait 1000
set #stena 0
set #prkoord 0
while #prkoord = 0
send PageDown
set #stena #stena + 1
say aaa //ustoich k lagu
set #prlag 0
while #prlag = 0
if lastmsg aaa
set #prlag 1
end_if
end_while
say bbb

if #stena > 10
goto 1
set #prkoord 1
end_if
wait 1000
if charposx >= #xn
set #prkoord 1
end_if
end_while
end_if

if #yn <> charposy
set #stena 0
set #prkoord 0
while #prkoord = 0
send End
set #stena #stena + 1
say aaa //ustoich k lagu
set #prlag 0
while #prlag = 0
if lastmsg aaa
set #prlag 1
end_if
end_while
say bbb

if #stena > 10
goto 1
set #prkoord 1
end_if
wait 1000
if charposy >= #yn
set #prkoord 1
end_if
end_while
end_if

if #yn <> charposy
set #stena 0
set #prkoord 0
while #prkoord = 0
send PageUp
set #stena #stena + 1
say aaa //ustoich k lagu
set #prlag 0
while #prlag = 0
if lastmsg aaa
set #prlag 1
end_if
end_while
say bbb

if #stena > 10
goto 1
set #prkoord 1
end_if
wait 1000
if charposy <= #yn
set #prkoord 1
end_if
end_while
end_if

//prov na tochku
if charposx = #xn
if charposy = #yn
set #prd 1
end_if
end_if
end_while
//kogda obratno xod
say #i
if #i = 2
goto 1
end_if
if #i = 4
goto 1
end_if
if #i = 6
goto 1
end_if
if #i = 8
goto 1
end_if
set #b 0
set #c 0
while #b < 3
set #b #b + 1
set #c 0
while #c < 3
set #c #c +1
Set lasttargetx #xn - 2 + #c
Set lasttargety #yn -2 + #b
send F9
waitfortarget
send F11
wait 2000
if lastmsg Try mining
else
if lastmsg where do you
else
if #i <> 2
if #i <> 4
if #i <> 6
if #i <> 8
set #prpered 1
set #lastx lasttargetx
set #lasty lasttargety
goto 1
end_if
end_if
end_if
end_if
end_if
end_if
end_while
end_while
:1
end_while
set #zapxod #i
set lasttargetx #lastx
set lasttargety #lasty
set #pr 0 //копание
send Escape
wait 8000
while #pr = 0
if lastmsg There is no ore
set #pr 1
end_if
send F9
waitfortarget
send F11

wait 1500
if lastmsg There is no ore
set #pr 1
end_if
set #prr 0
while #prr = 0
if lastmsg your skill
set #prr 1
end_if
if lastmsg There is no ore
set #prr 1
end_if

if lastmsg you put
set #prr 1
end_if
if lastmsg you loosen
set #prr 1
end_if
end_while
end_while //копание

end_while

\з.ы. Идет по скале, если нет разрывов, если есть- нуна дописать пару строк(место указано)

[ADDED=Arhong]1123590674[/ADDED]
3) Тайлоринг. (с набором ресов, прилоченных в ам дома+ шитье+ продажа+ цикл Присильных лагах сбивается!!)


set #idkit 1098056842 // id прибора для шитья
set #nx 3529 //координаты где дома стоим
set #ny 2410// координаты куда реколимся продавать
set #idkey 1076526235 // id key от дома
//nabor resov все на земле валяется залоченное
:1
set LastObjectID #idkey
send F9 // last object
waitfortarget
left 357, 284 //cloth
set #k 0
set #pr1 0
while #pr1 = 0
wait 500
set #k #k +1
if lastmsg folded cloth has been un-locked
set #pr1 1
end_if
if #k > 30
goto 1
end_if
end_while


send F9 // last object
waitfortarget
left 382, 274 //nitki
set #k 0
set #pr1 0
while #pr1 = 0
wait 500
set #k #k +1
if lastmsg spools of thread has been un-locked
set #pr1 1
end_if
if #k > 30
goto 1
end_if
end_while

set #prves2 0
while #prves2 = 0
drag 356, 289 911, 921, 32 //32 tkani каласть в ОТДЕЛЬНЫЙ мешок(это для роб)
wait 400
drag 382, 272 912, 225 2 //2 nitki v mewok
wait 400 // в зависимости от связи задержка
if wght > 590 // забит мешок
set #prves2 1
end_if
end_while

:2
set LastObjectID #idkey
send F9 // last object
waitfortarget
left 357, 284 //cloth
set #k 0
set #pr1 0
while #pr1 = 0
wait 500
set #k #k +1
if lastmsg folded cloth has been locked
set #pr1 1
end_if
if #k > 30
goto 2
end_if
end_while


send F9 // last object
waitfortarget
left 382, 274 //nitki
set #k 0
set #pr1 0
while #pr1 = 0
wait 500
set #k #k +1
if lastmsg spools of thread has been locked
set #pr1 1
end_if
if #k > 30
goto 2
end_if
end_while

//шитье
:2
set LastObjectID #idkit
send F9
waitfortarget
move 880, 424 /na tkan'
wait 50
left 880, 424
move 880, 424
wait 1000
if 251, 20 10849420
else
goto 2
end_if

set #lo lastobjectid
set #lt lasttargetid


set #prves 0
while #prves = 0
set #zv1 0
while #zv1 = 0
if 182, 65 1052688 //menu 1
set #zv1 1
end_if
end_while
double_left 182, 65 //vibor v menu

set #zv2 = 0
while #zv2 0
if 182, 65 1052688
set #zv2 1
end_if
end_while
double_left 182, 65 //vibor v menu

set lasttargetid #lt
set lastobjectid #lo
send F1 //last object waitfortarget last target

if 911, 921 8356496 // закончилось полотно, цвет мешка в координатах
else
set #prves 1
end_if

end_while



set #idrunatailor 1089520007
set #idrunahome 1074082635
:3
send F10 //recall
waitfortarget
set lasttargetid #idrunatailor
send F7 //last target
wait 4000
if charposY = 1214 //сами вбиваете что надо
else
goto 3
end_if

set #probmen 0
while #probmen = 0
say Kane sell
wait 1000
if 347, 16 9223646 //poiv menu
set #probmen 1
end_if
end_while

set #prkol 0
set #k 0
while #prkol = 0
set #k #k + 1
double_left 222, 86
left 345, 200
left 345, 200
left 346, 56
if #k > 70 // в зависимости от того, что шьете
set #prkol 1
end_if
end_while

left 314, 421
wait 1000
set #step 0
set #prpr 0
while #pr = 0
if lstmsg Too far away
set #step #step + 1
end_if
if #step > 6
set #step 0
end_if

if #step = 1 // сами выставляеем координаты
set #x 2226 // эт основные точки, с которых
set #y 1213 // вендора достать можно
end_if

if #step = 2
set #x 2226
set #y 1217
end_if

if #step = 3
set #x 2226
set #y 1213
end_if

if #step = 4
set #x 2230
set #y 1213
end_if

if #step = 5
set #x 2230
set #y 1217
end_if

if #step = 6
set #x 2230
set #y 1213
end_if

if lastmsg Kane: Here you are
set #prpr 1
end_if

set #prpozx 0
while #prpozx = 0
if charposx = #x // Сначало идет движение по X
set #prpozx 1 //Учитывайте при выборе
end_if // места для продажи
if charpozx < #x // иль перепишите тут
send PageDown
else
send Home
end_if
wait 1000
end_while

set #prpozy 0
while #prpozy = 0
if charposy = #y
set #prpozy 1
end_if
if charpozy < #x
send End
else
send PageUp
end_if
wait 1000
end_while

end_while


:4
send F10 //recall домой
waitfortarget
set lasttargetid #idrunahome
send F7 //last target
wait 4000
if charposY = 2410 //тут тож прваим
else
goto 4
end_if


Если нужны еще скрипты- обращайтесь, есть почти на все случаи жизни :-) по вопросам сюды- 234214516

Последний раз редактировалось Arhong; 09.08.2005 в 16:34.
Arhong вне форума   Ответить с цитированием