Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  fr33 : (17 April 2024 - 11:16) gm pashol v mu igrac
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.

Photo

Nashol Takoj Skript

Started by Alex-, Dec 20 2010 15:59

  • Please log in to reply
17 replies to this topic

#1 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 20 December 2010 - 15:59

Pomagite
:P

#2 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 20 December 2010 - 16:17

Nsahol na forume skript na newbie dungeon 2lvl no on nerabotaet tak kak nado piwet cant get there kogda ubivaet moba minut 20 normaljno potom kogda ubivaet monstra lutit vsjo i stoit nechego ne delaet pomagite plz ja clerikom bju
initevents
set %shmot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL ;4e lutitj
set %corpse YFM
set %name #CHARNAME , : ;Charname:
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
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
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


:P

#3 Gpuxa

Gpuxa

    Expert

  • Members
  • 1153 posts

Posted 20 December 2010 - 16:17

pofiksi nemnogi i zarabotaet !
Mage Zikura - 9lvl

#4 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 20 December 2010 - 16:18

pofiksi nemnogi i zarabotaet !

kak eto ?
:P

#5 nerac

nerac

    Va4A

  • Members
  • 694 posts
  • Gender:Male
  • Location:Рига

Posted 20 December 2010 - 16:59 

set %weapon GFF ; wepon type   KTF=sword; TSF=dagger

set %armor MSH_LSH_ISH_OSH_HSH_NSH_MSK_IMH ; all armor on charcter

set %repairTools BBQPKMD ; ID Repair Tools

set %repairWeap 20; after how many killed bots repair weapon

set %repairArmor 20; after how many killed bots repair all armor

set %minimalHP 60 ; when to drink greater heal

set %criticalHP 40 ; when to drink invis, make campfire

set %loot DCI_UJG_IJG_POF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_GEJ

set %protection #true

set %minimalTerathansHits 172; [exemple: 200 = 100% of hp; 100 = 50% of hp ]





; ****************************************************************





set %bW 0

set %bA 0

set %killed 0

set %looted 0

set %st 0

set %h 0

set %lo 0

set %ignore #false

set #sysmsgcol 64

namespace global looting

set !lootProcess #false

msg $

move 5331 1377 0

gosub hp

move 5331 1364 0





moving:

set %q 1

move 5346 1364 0

gosub scan



set %q 2

move 5348 1348 0

gosub hp

move 5363 1348 0

gosub scan



set %q 3

move 5363 1348 0

gosub hp

move 5348 1348 0

gosub scan



set %q 4

move 5348 1333 0

gosub hp

move 5361 1333 0  ; !

gosub scan		 ; !



set %q 5

move 5348 1333 0

gosub hp

move 5333 1343 0

gosub scan



set %q 6

move 5333 1331 0

gosub hp

move 5316 1331 0

gosub scan



set %q 1

move 5307 1341 0

move 5297 1352 0

move 5315 1356 0

move 5331 1367 0

gosub hp

gosub scan

goto moving



sub scan

ignoreitem reset 1

set %d 0

event exmsg #charid 3 64 scanning sector %q

gosub find

return



sub find

repeat

{

set %d %d + 2

finditem XC_UD_WD_UC_QD_GD_BF G_10

 if #findcnt >= 1

 gosub checking

}

until %d > 14

return



sub checking

 set %x #charposx

 set %y #charposy

 set %bot #findid

 gosub moveToMob

 gosub kill

 repeat

 {

 event pathfind %x %y #charposz 3s

 wait 3s

 move %x %y 0 1s

 gosub hp

 }

 until #charposx = %x && #charposy = %y

 set %d 0

return



sub moveToMob

event exmsg %bot 3 64 moving to..

repeat

{

finditem %bot G

event pathfind #findx #findy #findz

wait 20

gosub hp

}

until #finddist < 2 || #findcnt = 0

set #ltargetid %bot

event macro 27 0

return



sub kill

set #ltargetid %bot

set #lobjectid %bot

event macro 27 0

nextcpos 0 0

repeat

{

finditem %bot G

event pathfind #findx #findy #findz

gosub hp

wait 10

if %lo < #scnt

 {

 event macro 17 0

 set %lo #scnt + 4

 }

}

until #findcnt = 0

gosub loot

return



sub hp

if #hits =< %minimalHP && %h < #scnt

{

msg $.drink heal$

msg $.userestoration$

set %h #scnt + 3

}

if #hits =< %criticalHP

{

event macro 6 0

event macro 6 0

msg $.drink invis$

event macro 6 0

event macro 6 0

wait 10

msg $.camp$

while #hits < #maxhits && H in #charstatus

wait 1

set #ltargetid #findid

event macro 27 0

}

if #stamina < 5 && %st < #scnt

{

msg .drink refresh$

set %st #scnt + 5

}

return



sub loot

event macro 6 0

event macro 6 0

event macro 13 21

wait 1s

set %lootOverTime #scnt + 15

finditem YFM G_3

if #findcnt >= 1

{

 set %body #findid

 set #lobjectid %body

 event macro 17 0

 if for_looting in #sysmsg

   {

  set %killed %killed + 1

  event sysmessage %killed terathans killed, %looted terathans looted.

  return

  }

 while #contkind <> ASEB && #contsize <> 144_212 && %lootOverTime > #scnt

 wait 1

 wait 20

  if %lootOverTime <= #scnt

  {

  set %killed %killed + 1

  event sysmessage %killed terathans killed, %looted terathans looted.

  return

  }

 repeat

  {

   finditem %loot C_ , %body

   if #findcnt >= 1  && ! !lootProcess

   {

	set !lootProcess #true

	exevent drag #findid #findstack

	exevent dropc #backpackid

	wait 25

	set !lootProcess #false

   }

  }

until #findcnt = 0 || %lootOverTime < #scnt

set %looted %looted + 1

}

ignoreitem %body 2

set %killed %killed + 1

event sysmessage %killed terathans killed, %looted terathans looted.

set %bW %bW + 1

set %bA %bA + 1

 if %bW = %repairWeap || %bA = %repairArmor

 gosub repair

return



sub repair

event macro 6 0

msg .drink invis$

event macro 6 0

event exmsg #charid 3 64 repairing..

if %bW = %repairWeap

{

gosub take&repair %repairTools %weapon

set %bW 0

}

if %bA = %repairArmor

{

gosub take&repair %repairTools %armor

set %bA 0

}

return



sub take&repair

if %bW = %repairWeap

{

repeat

{

finditem %2 C_ , #charid

exevent drag #findid #findstack

exevent dropc #backpackid

wait 20

finditem %2 C

}

until #findbagid = #backpackid

}

repeat

{

finditem %2 C_ , #charid

exevent drag #findid #findstack

exevent dropc #backpackid

wait 20

finditem %2 C_ , #charid

}

until #findcnt = 0

repeat

{

finditem %2 C_ , #backpackid

_repairing:

set #lobjectid %1

set #ltargetid #findid

set #ltargetkind 1

set %lag #scnt + 10

event macro 17 0

target

while #targcurs <> 1 && #scnt < %lag

wait 1

event macro 22 0

if #scnt >= %lag

goto _repairing

wait 10

if #findtype = CIK

ignoreitem #findid 1

finditem #findid

set #lobjectid #findid

event macro 17 0

wait 20

finditem %2 C_ , #backpackid

}

until #findcnt = 0

ignoreitem reset 1

msg .arm$

wait 10

msg .arm$

set %killed 0

return



sub ignore

 set %ignore #true

 ignoreitem #findid 1

return

Рабочий скрипт на нюби данжен 2 лвл

#6 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 20 December 2010 - 17:21

etot katorij ja nawol on lutwe prosto kogda mnogo trupov on lutaet pandorki u menja v sumke i stoit kak eto ispravit
:P

#7 Gpuxa

Gpuxa

    Expert

  • Members
  • 1153 posts

Posted 20 December 2010 - 17:44

set %sumka #BACKPACKID
set %sumka1 #BACKPACKID
set %sumka2 #BACKPACKID
Mage Zikura - 9lvl

#8 nerac

nerac

    Va4A

  • Members
  • 694 posts
  • Gender:Male
  • Location:Рига

Posted 20 December 2010 - 17:59

etot katorij ja nawol on lutwe prosto kogda mnogo trupov on lutaet pandorki u menja v sumke i stoit kak eto ispravit

Используй лутер на инжекте, не будет проблем

#9 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 22 December 2010 - 17:10

set %sumka #BACKPACKID
set %sumka1 #BACKPACKID
set %sumka2 #BACKPACKID

i tut nado vpisatj id sumki ?
v etix 3 mestax ?
:P

#10 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 24 December 2010 - 00:37

Mne ktoto pomowet kak predotvratit etu problemu ?
:P

#11 Fonarj

Fonarj

    Player

  • Members
  • 296 posts

Posted 24 December 2010 - 01:24

да там вписать ид сумки, если играеш через инжект напиши ,info и на сумку ! Потом вписывай это в скрипт

#12 ExTjUtY

ExTjUtY

    *Riebīgais

  • Members
  • 3928 posts
  • Gender:Male
  • Location:Miami

Posted 24 December 2010 - 01:38

да там вписать ид сумки, если играеш через инжект напиши ,info и на сумку ! Потом вписывай это в скрипт

Ti idiot!Cherez inject nekak neza uznatj easy uo ID.I nenado tam nekakoj ID vpisavatj!
P.S Avtoru ja tak i neponil shto tam tebe nerabotajit?
Posted Image
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.

#13 Fonarj

Fonarj

    Player

  • Members
  • 296 posts

Posted 24 December 2010 - 02:11

Ti idiot!Cherez inject nekak neza uznatj easy uo ID.I nenado tam nekakoj ID vpisavatj!
P.S Avtoru ja tak i neponil shto tam tebe nerabotajit?


ты дебил !? можно узнать ид через инжект баран !

#14 nerac

nerac

    Va4A

  • Members
  • 694 posts
  • Gender:Male
  • Location:Рига

Posted 24 December 2010 - 02:22

ты дебил !? можно узнать ид через инжект баран !

Сними видео как ты через инжект узнаешь ид для Изиуо и я дам тебе 1кк

#15 EnFlame

EnFlame

    Thief of Horses

  • Members
  • 2041 posts
  • Gender:Male
  • Location:Беломорканал
  • Interests:A bit of this &amp; a bit of that.

Posted 24 December 2010 - 10:49

Сними видео как ты через инжект узнаешь ид для Изиуо и я дам тебе 1кк


,info :

ID=0x4006BE3A Type=0x1F99 CINQKMD Name=
Quantity: 1 Colour: 0x0000 Layer: 0 Has: 1
X=57 Y=88 Z=0 C=0x40129ACD F=0x00

euo ID. тайп тоже можно узнать, но чуть подругому. Так, кто там что теперь должен? :roll:

#16 Fonarj

Fonarj

    Player

  • Members
  • 296 posts

Posted 24 December 2010 - 11:27

Сними видео как ты через инжект узнаешь ид для Изиуо и я дам тебе 1кк


отс*сал ?

P.S Avtoru ja tak i neponil shto tam tebe nerabotajit?


непоймёш :( (дебил)

#17 Alex-

Alex-

    Novice Player

  • Members
  • 102 posts
  • Gender:Male
  • Location:Sprosi
  • Interests::Dsad

Posted 05 January 2011 - 20:24

отс*сал ?



непоймёш :( (дебил)

ti sam debil ! i eti skripti v chetverg zapretjat i ja vsjo ponel prosto ne otvechal ! (MUDAK)
:P

#18 LNT

LNT

    Senior Player

  • Members
  • 498 posts

Posted 05 January 2011 - 21:19

ti sam debil ! i eti skripti v chetverg zapretjat i ja vsjo ponel prosto ne otvechal ! (MUDAK)

ты просто ребёнок =)
Кто способен вовремя остановить свой собственный удар, тот наверняка сумеет в нужный момент ударить с полной силой, сокрушающей горы.
Back to Скрипты


0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Old Paradise Forums
  2. → Игровые сервера
  3. → Ultima Online
  4. → Скрипты
  5. Privacy Policy