Prosta togda ion neperedivait skill vesi jesli oni vmeste
Toggle shoutbox Chat
|
Scripts Mining Lumber Fishing
#21
Posted 23 June 2008 - 12:14
Prosta togda ion neperedivait skill vesi jesli oni vmeste
#22
Posted 23 June 2008 - 18:57
#23
Posted 24 June 2008 - 08:40
sub follow&kill repeat { ; <----- finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s } until #findcnt = 0 wait 2 msg .camp Heal $ return
#24
Posted 24 June 2008 - 23:25
#25
Posted 24 June 2008 - 23:48
set %corpse YFM
Sub LOOTING
finditem %corpse G_2
ignoreItem #findid 1
if #findkind = 1
set #lobjectid #findid
event macro 17 0
wait 10
repeat
{
finditem POF_CUD C_ , #contid
if #findcnt > 0
{
exevent drag #findid #findstack
wait 10
exevent dropc #backpackid
wait 1s
}
}
until #findkind = -1
return
после чего это поставить что бы работало?
#26
Posted 25 June 2008 - 15:06
если ты не видишь, там 3-4 скрита и я е*у в котором надо это поставить, а также и скажи свой game class.после чего это поставить что бы работало?
#27
Posted 25 June 2008 - 15:53
если ты не видишь, там 3-4 скрита и я е*у в котором надо это поставить, а также и скажи свой game class.
set %ljtool NPF_QPF; set your ljtool here x y title set %Roba KKKLLMD; Skill Roba set %Roba2 MMTGLMD; roba set %Cloack QRVVLMD; Skill Cloack set %Cloack2 KPTMLMD; cloaks set %Mask QIUSKMD; Skill Mask set %Mask2 MJKXJMD; maska start: GOSUB LJING 2 goto start sub ljing move %1 %2 1 finditem %ljtool set #lobjectid #findid event macro 17 0 target 14s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 8 set %overtime #scnt + 25 gosub bp10 return gosub bp10 sub bp10 if #weight > 650 gosub hz450 sub scan scan: scanjournal %cnt if #hits = 0 halt if #hits < #maxhits { msg .arm$ wait 1s if #hits < #maxhits msg .drink heal$ wait 5 Finditem %Roba2 c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 5 Finditem %Cloack2 c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 5 Finditem %Mask2 c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 1 finditem #enemyid if #findcnt >= 1 { gosub follow } wait 2 Finditem %Roba c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 10 Finditem %Cloack c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 10 Finditem %Mask c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 10 return } if if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg return if You_stop_Mining in #sysmsg return if Try_mining_elsewhere in #sysmsg return if You_stop_Mining in #sysmsg return if YOu_CAN'T_REACH_THIS in #sysmsg return if You_have_no_line_of_sight_to_that_location in #sysmsg return if You_fail_to_do_that in #sysmsg return if You_have_spent_many in #sysmsg return if You_can`t_use_the_ return if #scnt >= %overtime return goto scan sub hz450 move gosub moveItems sub moveItems { set !dragTimeout 7;1/10 s set !dragTimer #scnt2 set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_ if %0 < 2 set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_ set !from #BackpackID set !to UMDIMMD; <-- ID sunduka finditem !items C_ , !from for #findindex 1 #findcnt { if #findkind = 0 { set !amt 1 if #findstack > 1 set !amt #findstack while #scnt2 < !dragTimer wait 0 exevent drag #findid !amt exevent dropc !to set !dragTimer #scnt2 + !dragTimeout } } namespace clear } return ################################### sub follow repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s } until #findcnt = 0 wait 5 returnпрости ))) я думал вы поймёте
#28
Posted 25 June 2008 - 16:00
set %ljtool NPF_QPF; set your ljtool here x y title set %Roba KKKLLMD; Skill Roba set %Roba2 MMTGLMD; roba set %Cloack QRVVLMD; Skill Cloack set %Cloack2 KPTMLMD; cloaks set %Mask QIUSKMD; Skill Mask set %Mask2 MJKXJMD; maska start: GOSUB LJING 2 goto start sub ljing move %1 %2 1 finditem %ljtool set #lobjectid #findid event macro 17 0 target 14s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 8 set %overtime #scnt + 25 gosub bp10 return gosub bp10 sub bp10 if #weight > 650 gosub hz450 sub scan scan: scanjournal %cnt if #hits = 0 halt if #hits < #maxhits { msg .arm$ wait 1s if #hits < #maxhits msg .drink heal$ wait 5 Finditem %Roba2 c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 5 Finditem %Cloack2 c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 5 Finditem %Mask2 c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 1 finditem #enemyid if #findcnt >= 1 { gosub follow } wait 2 Finditem %Roba c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 10 Finditem %Cloack c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 10 Finditem %Mask c_ , #backpackid set #lobjectID #findid event macro 17 0 wait 10 return } if if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg return if You_stop_Mining in #sysmsg return if Try_mining_elsewhere in #sysmsg return if You_stop_Mining in #sysmsg return if YOu_CAN'T_REACH_THIS in #sysmsg return if You_have_no_line_of_sight_to_that_location in #sysmsg return if You_fail_to_do_that in #sysmsg return if You_have_spent_many in #sysmsg return if You_can`t_use_the_ return if #scnt >= %overtime return goto scan sub hz450 move gosub moveItems sub moveItems { set !dragTimeout 7;1/10 s set !dragTimer #scnt2 set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_ if %0 < 2 set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_ set !from #BackpackID set !to UMDIMMD; <-- ID sunduka finditem !items C_ , !from for #findindex 1 #findcnt { if #findkind = 0 { set !amt 1 if #findstack > 1 set !amt #findstack while #scnt2 < !dragTimer wait 0 exevent drag #findid !amt exevent dropc !to set !dragTimer #scnt2 + !dragTimeout } } namespace clear } return ;################################### sub follow repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s } until #findcnt = 0 wait 5 gosub LOOTING return Sub LOOTING finditem YFM G_2 if #findcnt > 0 { set #lobjectid #findid event macro 17 0 wait 10 repeat { finditem POF_CUD C_ , #contid if #findcnt > 0 { exevent drag #findid #findstack wait 10 exevent dropc #backpackid wait 1s } } until #findkind = -1 ignoreItem #contid 1 } return
#29
Posted 26 June 2008 - 02:08
#30
Posted 26 June 2008 - 10:59
#31
Posted 26 June 2008 - 12:20
#32
Posted 27 June 2008 - 06:43
durak nakapi hrenovuju rudu prileti dvumja personazhami ubej adnavo nasuvaj hrenovuju rudu ili ignoti v sumku trupa resni i leti prodovatj k npc dostanesh nemala denushek...! kstate s logami eto delo luche (bolshe navara)...NI U KAVO NETU SKRIPTA 4TOB HRENOVUJU RUDU NA POL SKIDIVAL KOGDA KOPAET?
#33
Posted 27 June 2008 - 21:21
Что нужно убрать в первои скрипте на мининг чтоб он не мешал 2 на передевания ?*
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users