initevents set %shmot FZH_CUD_POF_UJG_IJG_SJG_FWL_DCI_NZH_RVH;4e lutitj set %corpse YFM set %name #CHARNAME TeHb , :;imja: set %keyheal 2 set %sumka #BACKPACKID set %sumka1 #BACKPACKID set %sumka2 #BACKPACKID ;______________________________________________ ; ______________ banki _____________ set %invis PGJ set %hits1 SGJ ;malenjkaja set %hits2 LHJ ;boljwaja set %ref SET %STAM #MAXSTAM - 10 set %H1 170; ziznj kada le4itsa nada set %H2 70 ;ziznj kada nada nikatsa set %puxa joh_POH_GFF set %arm set %mobs UC_GD_WD_UD_AB_XC_BF_QD_Z ;_____________________________________________________ ;___________rabo4ii peremenie_______________________ ;______________________________________________________ set %r 2; Radius poiska set %s 0 ;s4et4ik dlja le4ilki set %sn 0;s4et4ik dlja nikalki set %rept 1 set %nespratalsa 0 ;0 = spratalsa; 1 = nespratalsa set %Tim #SCNT + 600 set %celX #CHARPOSX set %celY #CHARPOSy set %zmob 0 ;________________________________________________________ ;| infa ;________________________________________________________ ; goto moveto - peredvizenie ; sub movetomob - presledovanie moba ; %mobID - id blizajwego moba ; sub LOOTING - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; sub zonamoba - opredelitj zonu moba repeat ;GLAVNOE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! gosub poiskmoba if %poisk > 0;ne nawol gosub moveto if %poisk = 0;nawol gosub movetomob until #CHARNAME = 1111 sub movetomob repeat { if #hits < %H2 gosub nikalka } if #hits < %H1 3 set %s %s + 1 if %s > 20 gosub le4ilka finditem %mobID gosub mob4ek set #LTARGETID %mobID event macro 27 0 event pathfind #findx #findy 1 if #CHARPOSX < 2000 halt } until #findcnt = 0 gosub Sr gosub LOOTING return sub poiskmoba poisk: if #CHARPOSX < 2000 halt finditem %mobs G_ , %r if #FINDKIND = 1;nawol { set %poisk 0 set %mobID #FINDID goto vixod } if #FINDKIND = -1;nenawol { set %r %r + 2 if %r > 14 { set %r 2 set %poisk 1 goto vixod } goto poisk vixod: return sub le4ilka set %s 0 event macro 8 7 finditem %hits1 C_ , #BACKPACKID set #LOBJECTID #findid event macro 17 0 msg .camp heal $ wait 3 return sub nikalka ignoreitem reset set %nespratalsa 0 event macro 6 0 event macro 6 0 event macro 6 0 event macro 6 0 finditem %invis C_ , #BACKPACKID set #LOBJECTID #findid event macro 17 0 le4enie1: msg .camp $ finditem %hits2 C_ , #BACKPACKID set #LOBJECTID #findid event macro 17 0 finditem %hits1 C_ , #BACKPACKID set #LOBJECTID #findid event macro 17 0 msg .camp $ set %tn #SCNT + 6 scanj: scanjournal if %name in #JOURNAL 2 set %nespratalsa 1 goto EndOFnikalka if %tn < #SCNT goto le4enie1 if #hits = #MAXHITS 3 set %nespratalsa 0 set %sn 0 goto EndOFnikalka goto scanj EndOFnikalka: return Sub LOOTING startlooot: finditem %corpse G_3 ignoreItem #findid 1 if #findkind = -1 goto endlooot move #FINDX #FINDy 1 if #findkind = 1 set #lobjectid #findid event macro 17 0 wait 15 IF #contid = #CHARID goto endlooot IF #contid = #BACKPACKID goto endlooot repeat { finditem %shmot C_ , #contid if #findcnt > 0 { exevent drag #findid #findstack wait 10 exevent dropc %sumka wait 1s } } until #findkind = -1 goto startlooot endlooot: return sub SR event macro 8 7 event macro 8 1 if %Tim < #SCNT gosub REP FINDITEM %invis C_ , #BACKPACKID IF #FINDKIND <> 0 GOSUB end FINDITEM %hits1 C_ , #BACKPACKID IF #FINDKIND <> 0 GOSUB end FINDITEM RMK C_ , #BACKPACKID IF #FINDKIND <> 0 GOSUB end IF #STAMINA < %STAM 3 FINDITEM RGJ C_ , #BACKPACKID set #LOBJECTID #findid event macro 17 0 return sub end return ignoreitem reset set %nespratalsa 0 event macro 6 0 event macro 6 0 event macro 6 0 event macro 6 0 finditem %invis C_ , #BACKPACKID set #LOBJECTID #findid event macro 17 0 key f4 alt return sub rep FINDITEM VDJ C_ , #BACKPACKID IF #FINDKIND <> 0 GOSUB end set %reptools #FINDID FINDITEM %puxa C_ , #CHARID IF #FINDKIND <> 0 GOSUB end set %reppuxa #FINDID repeat { finditem %reppuxa exevent Drag %reppuxa wait 20 exevenT Dropc #BACKPACKID wait 10 } until #FINDBAGID = #BACKPACKID repeat { scanjournal set #LOBJECTID %reptools set #LTARGETID %reppuxa event macro 17 0 wait 20 event macro 22 0 wait 2 if is_fully_repaired in #SYSMSG set %rept 0 } until %rept = 0 set %rept 1 finditem GND C_ , #BACKPACKID IF #FINDKIND <> 0 GOSUB end set #LOBJECTID #FINDID event macro 17 0 msg .ARM $ wait 2 msg .ARM $ set %Tim #SCNT + 600 return ;______________________________________________ ; __________rabo4ii peremenie__________________ ; %zona4ara - mesto naxozdenie chara ; %zonamoba - mesto naxozdenie moba ; %celX - kogo iskatj moba/4ara (izna4alna 4ara) sub mob4ek if #findx > 5287 && #findx < 5304 && #findy < 1330 move 5298 1357 if #findx > 5327 && #findx < 5336 && #findy > 1375 2 move 5333 1364 move 5346 1364 if #findy < 1320 ignoreitem #findid return sub moveto set %celX #CHARPOSX set %celY #CHARPOSy GOSUB gde if %zona = 13 move 5314 1365 10s if %zona = 12 move 5316 1352 10s if %zona = 22 move 5296 1358 10s if %zona = 21 move 5299 1340 10s if %zona = 31 move 5299 1340 10s if %zona = 41 move 5315 1339 10s if %zona = 42 move 5332 1328 10s if %zona = 43 2 move 5332 1345 10s move 5346 1331 10s if %zona = 33 move 5346 1331 10s if %zona = 44 move 5360 1330 10s if %zona = 45 2 move 5347 1336 10s move 5350 1349 10s if %zona = 34 move 5365 1346 10s if %zona = 35 move 5364 1367 10s if %zona = 25 move 5364 1367 10s if %zona = 15 3 move 5364 1345 10s move 5346 1346 10s move 5349 1367 10s if %zona = 24 move 5349 1367 10s if %zona = 14 move 5331 1365 10s set %zona x return sub zonamoba ;ANALIZZZ NAXOZDENIJA MOBA I 4ARA!!!!!!! set %celX #FINDX set %celY #FINDy GOSUB gde; de MOB set %zonamoba %zona set %celX #CHARPOSX set %celY #CHARPOSy GOSUB gde; De 4AR set %zona4ara %zona if %zonamoba > 49 2 set %zmob 1 goto vixodPMOB vixodPMOB: return sub gde; delet mapu na zoni 4tobi znatj de naxoditsa personaz ili mob if %celY < 1376 && %celY > 1359 set %y 1 if %celY < 1360 && %celY > 1351 set %y 2 if %celY < 1352 && %celY > 1343 set %y 3 if %celY < 1344 && %celY > 1321 set %y 4 if %celY < 1319; opasnaja zona!!!!! set %y 5 if %celX > 5287 && %celX < 5304 set %x 1 if %celX > 5303 && %celX < 5320 set %x 2 if %celX > 5319 && %celX < 5336 set %x 3 if %celX > 5335 && %celX < 5352 set %x 4 if %celX > 5352 && %celX < 5368 set %x 5 set %zona %y , %x return