Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  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% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Photo

Может кто написать скрипт =)


  • Please log in to reply
9 replies to this topic

#1 arsenic

arsenic

    Newbie

  • Members
  • 19 posts

Posted 24 January 2007 - 16:54

Напишите пожалуйста скрипт на плавление метала по одному :arrow: Спосиб

#2 BoBKa

BoBKa

    Master

  • Members
  • 832 posts
  • Gender:Male
  • Location:Riga

Posted 24 January 2007 - 17:16

na eazy gdeto byl vylozen na sajte, poi6i!

#3 Duplomat

Duplomat

    еGames prizedenc

  • Members
  • 788 posts
  • Gender:Male
  • Location:Лиепая

Posted 24 January 2007 - 18:08

Напишите пожалуйста скрипт на плавление метала по одному  :arrow:  Спосиб


Tebe na inju?
Pozhalujsta piwyte russkimi bykvami
Posted Image
Posted Image

#4 Duplomat

Duplomat

    еGames prizedenc

  • Members
  • 788 posts
  • Gender:Male
  • Location:Лиепая

Posted 24 January 2007 - 18:18

sub smelt_ground() 



var r 



var i,k=0 



var max =((UO.Str*4)+30) #Calculating of max weight based on character strenght 



DIM ore[4] 



ore[1]=0x19B8 



ore[2]=0x19B9 



ore[3]=0x19BA 



ore[4]=0x19B7 



while k==0 



r=0 



If UO.Weight>=max-30 then 



clean() 



endif 







for i=1 to 4 



UO.FindType(ore[i],-1,'ground') 



   If UO.FindCount()>0 then 



      r=0 



      UO.Exec('moveitem finditem 5') 



            repeat 



               wait(50) 



          until Uo.ContainerOf('finditem')==UO.Getserial('backpack') 



          UO.Useobject('finditem') 



   else 



   #UO.Print('Not Found') 



   r=r+1 



   endif 



next 



if r==4 then 



k=1 



Uo.Print('No ore to smelt') 



endif 



wend 



endsub 



#############Ingots dropping sub 



sub Clean() 



var i,t,l,col 



DIM type[5] 



type[1]=0x1BEF 



type[2]=0x1BF5 



type[3]=0x1BE3 



type[4]=0x1BE9 



UO.Print('Overload. Cleaning') 



col=0 



repeat 



col=0 



for t=1 to 4 



Uo.FindType(type[t],'-1','backpack') 



   If UO.FindCount()>0 then 



   UO.Print('Found') 



   l=0 



      Uo.Exec('drophere finditem') 



         repeat 



         wait(100) 



         until Uo.ContainerOf('finditem')<>Uo.GetSerial('backpack') 



   else 



   col=col+1 



   endif 



next 



until col>=4 



UO.Print('Cleaned....') 



end sub

Попробуй этот для инжи!
Pozhalujsta piwyte russkimi bykvami
Posted Image
Posted Image

#5 arsenic

arsenic

    Newbie

  • Members
  • 19 posts

Posted 24 January 2007 - 19:38

Спосиб =)

#6 arsenic

arsenic

    Newbie

  • Members
  • 19 posts

Posted 24 January 2007 - 19:41

чтото не работает пишит No ore to smel

#7 Duplomat

Duplomat

    еGames prizedenc

  • Members
  • 788 posts
  • Gender:Male
  • Location:Лиепая

Posted 24 January 2007 - 23:15

Пропиши типы
Pozhalujsta piwyte russkimi bykvami
Posted Image
Posted Image

#8 arsenic

arsenic

    Newbie

  • Members
  • 19 posts

Posted 24 January 2007 - 23:48

там такиеже как и указаны =(

#9 teror

teror

    Высшая сила

  • Members
  • 2229 posts
  • Gender:Male
  • Location:Латвия

Posted 25 January 2007 - 14:16

sub SmeltMarg() 



VAR SourceContainer='0x4000EEAC' 



VAR Exit=0 



UO.SetCatchBag(SourceContainer) 



While Exit<>1 



UO.FindType('0x19B9',-1,SourceContainer) 



If UO.GetQuantity('finditem')>0 Then 



UO.MoveItem('finditem','1','ground') 



wait(600) 



UO.UseObject('finditem') 



wait(600) 



UO.FindType('0x1BEF',-1,'ground') 



wait(600) 



Else 



Exit=1 



Endif 



Wend 



UO.UnSetCatchBag() 



end sub
poprobuj etot variant. zaglenul bi na yoko forum tam mnozestva variantov, a mi bi uze pomogli razobratsa tebe. i polzujsa poiskom ! http://www.oldp.net/...highlight=smelt

#10 texxxx

texxxx

    Newbie

  • Members
  • 6 posts

Posted 08 December 2015 - 07:29

скрипт работает не коректно , сначало плпвит 1 инг, а потомо сразу всю кучу (






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users