Мой пвп скрипт

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Мой пвп скрипт

Post by MorbidAngel »

Мой пвп скрипт :lol:

Code: Select all

##################################
#######Берём реги для пвп#########
##################################
var container = 0x403363CF ;Айди сумки где реги лежат
sub grabregs()
UO.Setreceivingcontainer(container)
dim regi[7]
regi[0]="0x0f7a"   #BP 
regi[1]="0x0f7b"   #BM 
regi[2]=0x0f84   #Garlic 
regi[3]=0x0f85   #Ginseng 
regi[4]=0x0f86   #Mandrake 
regi[5]=0x0f88   #Nightshade 
regi[6]=0x0f8c   #SA 
regi[7]=0x0f8d   #SS 
var i 
for i=0 to 7 
While UO.Count(regi[i]) == 0 
UO.FindType(regi[i], "0x0000", 0x4048C41A) 
Uo.Grab('50', 'finditem') 
Wait(1000) 
Wend 
next
Uo.Unsetreceivingcontainer()
end sub

###########################################################
#####Мод гма чтоб плееров нормально насквозь проходить#####
###########################################################
sub GMmode()
uo.morph('0x03db')
UO.Warmode(0)
end sub

############################################################
########Попытка написания хайдинга с авто остановкой########
############################################################
sub hide()
uo.useskill('Hiding')
while 1==1
if uo.hidden() then
uo.moveoff()
uo.print('STOP')
wait(500)
uo.moveon()
uo.Exec('terminate hide')
end if
wait(1)
wend
end sub

####################
#######Лутилка######
####################
sub loot()
var i,n
UO.Setreceivingcontainer(container)
Dim A[33]
A[33] = 0x1BFB ; Bolts
A[32] = 0x14EB ; Map
A[31] = 0x1f1c ; Seed
A[30] = 0x0F7B ; BM
A[29] = 0x0F7A ; BP
A[28] = 0x0F84 ; GA
A[27] = 0x0F85 ; GI
A[26] = 0x0F86 ; MR
A[25] = 0x0F88 ; NS
A[24] = 0x0F8D ; SS 
A[23] = 0x1515 ;plach
A[22] = 0x0F3F ;arrows
A[21] = 0x0e76 ;sumka
A[20] = 0x0e75 ;sumka1
A[19] = 0x0f0e ;invis
A[18] = 0x0F8C ; SA
A[17] = 0x0f09 ;manka
A[16] = 0x1b76 ;shit
A[15] = 0x1406 ;durba
A[14] = 0x13fa ;topor
A[13] = 0x0eed ;gold
A[12] = 0x13bb ;chain
A[11] = 0x13eb ;chain
A[10] = 0x13ee ;chain
A[9] = 0x13be ;chain
A[8] = 0x13bf ;chain
A[7] = 0x1413 ;gorgetka
A[6] = 0x1414 ;perchi
A[5] = 0x1412 ;shlem
A[4] = 0x1410 ;plechi
A[3] = 0x1411 ;nogi
A[2] = 0x1415 ;chest
A[1] = 0x13b1 ;hren
i = 400
FOR n=1 TO 33
uo.findtype(A[n],"-1","lastcontainer")
if uo.findcount() > 0 then
wait (i)
UO.grab(0,"finditem")
; uo.print("Found "+str(uo.findcount()))
end if
NEXT
wait (i)
Uo.Unsetreceivingcontainer()
end sub

########################################
####Обкастовка и касты для лечения######
########################################
sub unparalize()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=6 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Magic Arrow','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate unparalize')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Heal()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=6 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Heal','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Heal')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Cunning()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=11 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Cunning','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Cunning')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Bless()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=16 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Bless','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Bless')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Protection()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=11 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Protection','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Protection')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Strength()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=11 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Strength','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Strength')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Agility()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=11 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Agility','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Agility')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub GHeal()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=21 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Greater Heal','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate GHeal')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub MReflect()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=21 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Magic Reflect','self')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate MReflect')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

#########################################
###############Боевые касты##############
#########################################
sub MArrow()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=6 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Magic Arrow','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate MArrow')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Paralyze()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=12 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Paralyze','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Paralyze')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Poison()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=21 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Poison','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Poison')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Lightning()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=21 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Lightning','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Lightning')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub MDrain()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=21 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Mana Drain','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate MDrain')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub EBolt()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=41 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Energy Bolt','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate EBolt')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Curse()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=21 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Curse','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Curse')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub

sub Feeblemind()
var mana
mana=uo.mana
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=11 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Feeblemind','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate Feeblemind')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end sub
####################################
#######Касты иногда подвисают#######
####################################
sub otmena()
uo.setglobal ('ccast', '0')
wait(100)
uo.Exec('terminate all')
end sub

Собственно вот както так...если есть какието предложения по стабильности хайдинга и кастов пишите, буду очень признателен... :roll:
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

хз.. ничего экстраординарного не заметил. Все эти скрипты (ну или подобные) уже были по многу раз на форуме.

А хотя нет.. заметил - ты мою конструкцию украл ))

Code: Select all

...
if not uo.getglobal ('ccast') == '1' then 
uo.setglobal ('ccast', '1')
...
Но я не в обиде ) берите что хотите.
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Post by MorbidAngel »

Rivory wrote:хз.. ничего экстраординарного не заметил. Все эти скрипты (ну или подобные) уже были по многу раз на форуме.

А хотя нет.. заметил - ты мою конструкцию украл ))

Code: Select all

...
if not uo.getglobal ('ccast') == '1' then 
uo.setglobal ('ccast', '1')
...
Но я не в обиде ) берите что хотите.

Не думаю что тебе было бы приятнее чтобы я тупо поменял название переменно и сказал что я нахх всё придумал :D Яж написал в своем топике про то как я скрипты пишу :) Вот кстати у меня тут проблема...если инет подлагнет а противник вне зоны действия заклятья то скрипт подвисает...точнее кастовать не дает...как обойти можно? чек лаг не хочется ставить....я вот подумал, может проще поставить перед каждым кастом большёй и жирный иф?
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

перед кастом просто проверяй, можешь ли кастануть или нет.. и всё.
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Post by MorbidAngel »

Rivory wrote:перед кастом просто проверяй, можешь ли кастануть или нет.. и всё.

Code: Select all

sub MArrow()
var mana
mana=uo.mana
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
else
if UO.GA>0 AND UO.bm>0 AND UO.bp>0 AND UO.ga>0 AND UO.gs>0 AND UO.mr>0 AND UO.ns>0 AND UO.sa>0 AND UO.ss then
if uo.mana>=6 then
if not uo.getglobal ('ccast') == '1' then
uo.setglobal ('ccast', '1')
uo.cast ('Magic Arrow','laststatus')
wait(100)
if uo.InJournal('Target is not in line of sight') then
uo.DeleteJournal()
uo.setglobal ('ccast', '0')
uo.Exec('terminate MArrow')
end if
While uo.mana>=mana
wait(5)
wend
uo.setglobal ('ccast', '0')
else
UO.Exec("concolor 0x001c")
uo.print ('Already casting')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('######NO MANA######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
else
UO.Exec("concolor 0x001c")
uo.print('##################')
uo.print('#####NO REGS#######')
uo.print('##################')
UO.Exec("concolor 0x0000")
end if
end if
end sub

так?
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

Ну да... так работает ?
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Post by MorbidAngel »

Rivory wrote:Ну да... так работает ?

Ага, только приходится два раза на кнопку жать чтобы каст пошел...первый раз устанавливается переменная и журнал трется, а второй уже каст идёт...теоретически знаю как можно сделать, но там один каст будет в строчек 40...а у меня уже комп тормозит если я много раз тыкну на кнопку каста....кстати, написал этот скрипт и сразу в ПВП руки какбудто не из жопы =) по скорости каста хрен кто посастязается...привыкнуть осталось вовремя табиться...а то противник зеркало накидывает, мнебы пульку в него а пишет что чтото кастится уже...вот и ловлю обратно своиже касты =) (у нас зеркало имеет именно заркальную функцию...)
Top
Post Reply

Return to “Scripting Ore”