Может найдётся добрый человек, который поделился бы пвм скриптом в данный данж ?
Toggle shoutbox Chat
|
Newbie Dungeon Lvl 2
Started by Cmapk, Jan 13 2021 23:14
5 replies to this topic
#1
Posted 13 January 2021 - 23:14
#2
Posted 14 January 2021 - 12:34
Видать на сервере остались одни жлобы, жаль что так ;]
#3
Posted 14 January 2021 - 13:13
Ja nedumaju shto komu ta estj takoj. Tam zhe bez pvp disabled... malo lji script laganjot tibja ubjot i vsjo..
#4
Posted 14 January 2021 - 14:26
Может найдётся добрый человек, который поделился бы пвм скриптом в данный данж ?
initevents
set %shmot FZH_CUD_POF_UJG_IJG_SJG_FWL_DCI_NZH_RVH_GEJ ;4e lutitj
set %corpse YFM
set %name #Charname ; lancelot :
set %keyheal 1
set %sumka #BACKPACKID
set %sumka1 #BACKPACKID
set %sumka2 #BACKPACKID
;______________________________________________
; ______________ banki _____________
set %invis PGJ
set %hits1 SGJ ;malenjkaja
set %hits2 SGJ ;boljwaja
set %ref
SET %STAM #MAXSTAM - 10
set %H1 130 ; ziznj kada le4itsa nada
set %H2 80 ;ziznj kada nada nikatsa
set %puxa TSF
set %arm CQH_PPH_QPH_AQH_ZPH
set %mobs UC_GD_WD_UD_XC_BF_QD_Z_Q
;_____________________________________________________
;___________rabo4ii peremenie_______________________
;______________________________________________________
set %r 10 ; 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 + 100
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 = 1
sub movetomob
repeat
{
if #hits < %H2
gosub nikalka
}
if #hits < %H1 3
set %s %s + 1
if %s > 20
gosub le4ilka
sub macropause
finditem %mobID
gosub mob4ek
set #LTARGETID %mobID
event macro 27 0
event pathfind #findx #findy 3
if #CHARPOSX < 2
halt
}
until #findcnt = 0
gosub Sr
gosub LOOTING
return
GoSub MacroPause
If #contkind = UCHB && #Contsize = 240_165 && #contname = generic_gump
{
sound
wait 7
sound
wait 7
sound
wait 7
sound
wait 7
sound
}
set %kill #Scnt + 16
If Frozen in #sysmsg
{
pause
display Antimacros!!!
set %Kill %Scnt + 32
}
;terminate uo
return
sub poiskmoba
poisk:
if #CHARPOSX < 2
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
msg $,exec waroff $
msg $.drink invis$
wait 10
If %K < #scnt
{
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:
mSG ,EXEC LOOTPVM $
wait 1
return
sub SR
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 1
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 + 800
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
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
#5
Posted 14 January 2021 - 15:08
initeventsset %shmot FZH_CUD_POF_UJG_IJG_SJG_FWL_DCI_NZH_RVH_GEJ ;4e lutitjset %corpse YFMset %name #Charname ; lancelot :set %keyheal 1set %sumka #BACKPACKIDset %sumka1 #BACKPACKIDset %sumka2 #BACKPACKID;______________________________________________; ______________ banki _____________set %invis PGJset %hits1 SGJ ;malenjkajaset %hits2 SGJ ;boljwajaset %refSET %STAM #MAXSTAM - 10set %H1 130 ; ziznj kada le4itsa nadaset %H2 80 ;ziznj kada nada nikatsaset %puxa TSFset %arm CQH_PPH_QPH_AQH_ZPHset %mobs UC_GD_WD_UD_XC_BF_QD_Z_Q;_____________________________________________________;___________rabo4ii peremenie_______________________;______________________________________________________set %r 10 ; Radius poiskaset %s 0 ;s4et4ik dlja le4ilkiset %sn 0 ;s4et4ik dlja nikalkiset %rept 1set %nespratalsa 0 ;0 = spratalsa; 1 = nespratalsaset %Tim #SCNT + 100set %celX #CHARPOSXset %celY #CHARPOSyset %zmob 0;________________________________________________________;| infa;________________________________________________________; goto moveto - peredvizenie; sub movetomob - presledovanie moba; %mobID - id blizajwego moba; sub LOOTING - !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!; sub zonamoba - opredelitj zonu mobarepeat ;GLAVNOE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!gosub poiskmobaif %poisk > 0 ;ne nawolgosub movetoif %poisk = 0 ;nawolgosub movetomobuntil #CHARNAME = 1sub movetomobrepeat{if #hits < %H2gosub nikalka}if #hits < %H1 3set %s %s + 1if %s > 20gosub le4ilkasub macropausefinditem %mobIDgosub mob4ekset #LTARGETID %mobIDevent macro 27 0event pathfind #findx #findy 3if #CHARPOSX < 2halt}until #findcnt = 0gosub Srgosub LOOTINGreturnGoSub MacroPauseIf #contkind = UCHB && #Contsize = 240_165 && #contname = generic_gump{soundwait 7soundwait 7soundwait 7soundwait 7sound}set %kill #Scnt + 16If Frozen in #sysmsg{pausedisplay Antimacros!!!set %Kill %Scnt + 32};terminate uoreturnsub poiskmobapoisk:if #CHARPOSX < 2haltfinditem %mobs G_ , %rif #FINDKIND = 1 ;nawol{set %poisk 0set %mobID #FINDIDgoto vixod}if #FINDKIND = -1 ;nenawol{set %r %r + 2if %r > 14{set %r 2set %poisk 1goto vixod}goto poiskvixod:returnsub le4ilkaset %s 0event macro 8 7finditem %hits1 C_ , #BACKPACKIDset #LOBJECTID #findidevent macro 17 0msg .camp heal $wait 3returnsub nikalkamsg $,exec waroff $msg $.drink invis$wait 10If %K < #scnt{msg $.camp $finditem %hits2 C_ , #BACKPACKIDset #LOBJECTID #findidevent macro 17 0finditem %hits1 C_ , #BACKPACKIDset #LOBJECTID #findidevent macro 17 0msg .camp $set %tn #SCNT + 6scanj:scanjournalif %name in #JOURNAL 2set %nespratalsa 1goto EndOFnikalkaif %tn < #SCNTgoto le4enie1if #hits = #MAXHITS 3set %nespratalsa 0set %sn 0goto EndOFnikalkagoto scanjEndOFnikalka:returnSub LOOTINGstartlooot:mSG ,EXEC LOOTPVM $wait 1returnsub SRif %Tim < #SCNTgosub REPFINDITEM %invis C_ , #BACKPACKIDIF #FINDKIND <> 0GOSUB endFINDITEM %hits1 C_ , #BACKPACKIDIF #FINDKIND <> 0GOSUB endFINDITEM RMK C_ , #BACKPACKIDIF #FINDKIND <> 0GOSUB endIF #STAMINA < %STAM 3FINDITEM RGJ C_ , #BACKPACKIDset #LOBJECTID #findidevent macro 17 0returnsub endreturnignoreitem resetset %nespratalsa 0event macro 6 0event macro 6 0event macro 6 0event macro 6 0finditem %invis C_ , #BACKPACKIDset #LOBJECTID #findidevent macro 17 0key f4 altreturnsub repFINDITEM VDJ C_ , #BACKPACKIDIF #FINDKIND <> 0GOSUB endset %reptools #FINDIDFINDITEM %puxa C_ , #CHARIDIF #FINDKIND <> 0GOSUB endset %reppuxa #FINDIDrepeat{finditem %reppuxaexevent Drag %reppuxawait 1exevenT Dropc #BACKPACKIDwait 10}until #FINDBAGID = #BACKPACKIDrepeat{scanjournalset #LOBJECTID %reptoolsset #LTARGETID %reppuxaevent macro 17 0wait 20event macro 22 0wait 2if is_fully_repaired in #SYSMSGset %rept 0}until %rept = 0set %rept 1finditem GND C_ , #BACKPACKIDIF #FINDKIND <> 0GOSUB endset #LOBJECTID #FINDIDevent macro 17 0msg .ARM $wait 2msg .ARM $set %Tim #SCNT + 800return;______________________________________________; __________rabo4ii peremenie__________________; %zona4ara - mesto naxozdenie chara; %zonamoba - mesto naxozdenie moba; %celX - kogo iskatj moba/4ara (izna4alna 4ara)sub mob4ekif #findx > 5287 && #findx < 5304 && #findy < 1330move 5298 1357if #findx > 5327 && #findx < 5336 && #findy > 1375 2move 5333 1364move 5346 1364if #findy < 1320ignoreitem #findidreturnsub movetoset %celX #CHARPOSXset %celY #CHARPOSyGOSUB gdeif %zona = 13move 5314 1365 10sif %zona = 12move 5316 1352 10sif %zona = 22move 5296 1358 10sif %zona = 21move 5299 1340 10sif %zona = 31move 5299 1340 10sif %zona = 41move 5315 1339 10sif %zona = 42move 5332 1328 10sif %zona = 43 2move 5332 1345 10smove 5346 1331 10sif %zona = 33move 5346 1331 10sif %zona = 44move 5360 1330 10sif %zona = 45 2move 5347 1336 10smove 5350 1349 10sif %zona = 34move 5365 1346 10sif %zona = 35move 5364 1367 10sif %zona = 25move 5364 1367 10sif %zona = 15 3move 5364 1345 10smove 5346 1346 10smove 5349 1367 10sif %zona = 24move 5349 1367 10sif %zona = 14move 5331 1365 10sset %zona xreturnsub zonamoba ;ANALIZZZ NAXOZDENIJA MOBA I 4ARA!!!!!!!set %celX #FINDXset %celY #FINDyGOSUB gde ; de MOBset %zonamoba %zonaset %celX #CHARPOSXset %celY #CHARPOSyGOSUB gde ; De 4ARset %zona4ara %zonaif %zonamoba > 49 2set %zmob 1goto vixodPMOBvixodPMOB:returnsub gdeif %celY < 1376 && %celY > 1359set %y 1if %celY < 1360 && %celY > 1351set %y 2if %celY < 1352 && %celY > 1343set %y 3if %celY < 1344 && %celY > 1321set %y 4if %celY < 1319 ; opasnaja zona!!!!!set %y 5if %celX > 5287 && %celX < 5304set %x 1if %celX > 5303 && %celX < 5320set %x 2if %celX > 5319 && %celX < 5336set %x 3if %celX > 5335 && %celX < 5352set %x 4if %celX > 5352 && %celX < 5368set %x 5set %zona %y , %xreturn
не работает...
#6
Posted 14 January 2021 - 16:31
или же если не жалко, кто нибудь дайте скрипт на олдп данж который не крашит ... а то мой сцп постоянно
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users