Мой пвп скрипт
Code: ################################## #######Берём реги для пвп######### ################################## 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
Собственно вот както так...если есть какието предложения по стабильности хайдинга и кастов пишите, буду очень признателен...
|