Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  bazss : (Yesterday, 20:41) pampam pam
@  regi : (Yesterday, 17:54) beatiful ti kuda svoj cerep sujosh so svim video :D
@  sonyplayer : (Yesterday, 16:40) @Imobilaizer е*анат =))))))) ты мне угрожаешь? ;DD Пикселями? :DD
@  beatiful : (Yesterday, 15:00)
@  regi : (Yesterday, 13:37) vot vi narkomani :D
@  Imobilaizer : (Yesterday, 13:12) @sonyplayer podgatovj kargo seti i doleko ot gz ne begai. Ignore
@  Imobilaizer : (Yesterday, 12:50) @sonyplayer ti palcem delanij ? Zacem duman etot chat ? Mne ego licno naiti i sprosit zacem on eto delaet ? Kakoe tvojo delo sidi na svoej zhope i ne dorgaisa.
@  sonyplayer : (Yesterday, 11:59) @Imobilaizer Вот пойди ему и выскажи че ты на форум полез плакса безграмотная? Тебе задали вопрос касательно ПРИКОЛА ,ты даже на него не можешь ответить
@  beatiful : (Yesterday, 11:41) Ti tut svoj cherep sujos kuda????? ne nado!!!!! :DDDDDDDDDD AHAHAHAH CHEREP SUJOSH blaaaaaaaa
@  Imobilaizer : (Yesterday, 09:32) @sonyplayer ti pocitaj svoju blevotinu. Ti tut svoj cherep sujos kuda ne nado. On tebja vesj wop pilkak ? Eto mojo delo esle on menja pulkaet nonstope ja viskszivsju svoi misli pro eto a ti sujos nos svoj suda tak kak esle eto ne ti i on tebja ne izbesil to s hrens ti suda zalez ?
@  sonyplayer : (Yesterday, 08:23) @Imobilaizer Подбирай выражения, или вам молчанки не выдают?
Тебя задела правда за душу и ты решил перейти на оскорбления?
@  Imobilaizer : (18 February 2019 - 21:46) @sonyplayer ti realno epanutij na golovu?
@  sonyplayer : (18 February 2019 - 18:59) @Imobilaizer У меня с этим все в порядке, просто ты суешь свой нос не в свое дело... У когото прикол дурь курить, у когото алкашка, а у когото 12947159 стрелок кинуть. Ведь твое мнение не спрашивали верно?
@  Imobilaizer : (18 February 2019 - 18:09) @sonyplayer a tebe tolko bi ljapnut cota. Nedostatok vnimanie ?
@  sonyplayer : (18 February 2019 - 11:54) @Imobilaizer тебя забыл он спросить в чем заключается прикол...
@  Imobilaizer : (17 February 2019 - 23:07) dzo-natans vesj server perestrelal? parenj 2h nonstop im por ylem :D gde prikol...
@  Grund1k_ : (17 February 2019 - 19:18) Buy Rp
@  maloypowerone : (17 February 2019 - 16:13) SELL 220K FAME
@  Grund1k_ : (16 February 2019 - 00:11) Buy 200rp
@  E-D-I : (15 February 2019 - 01:16) @Shan сделай чтоб можно было и бижу в берёзке продать,а то хрень падает типо ожерелья зачем они нужны

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