Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  No face : (Yesterday, 23:24) NIL или Djuk, как на счёт квеста на 31.10? Вроде как Хэллоуин, хотелось бы увидеть интересный квест, на данную тему.
@  GA GA GA : (Yesterday, 15:36) Tak na loste nichego ne pomenjalos,tak uzhe 100 let,krome DMG u maga...
@  Gogogo : (Yesterday, 15:19) snemu video kaknitj posmotrish shan kak lexko magam na loste
@  Gogogo : (Yesterday, 15:18) pizdabolam izvanajusja za virazhenija
@  Gogogo : (Yesterday, 15:17) nada zapretitj igratj na oldparadisexl
@  fr33 : (Yesterday, 14:16) надо запретить магам кастовать магию, а то они афигели совсем, бегают кидаются огнем и молнией
@  GA GA GA : (Yesterday, 13:42) Ne nado nichego na loste ubirat,vam i tak dmg povisili,flam kal desi po 80-90 kogda po tebe bjut po 20-30
@  Gogogo : (Yesterday, 13:31) igratj protiv clerav i magav eta psc tebe cleri kalima kidajut magik arow a magi galima bezproblem bombjat tebja cor porami !
@  Gogogo : (Yesterday, 13:30) cleri smogut sbevatj magiju des mani kogda u nih eta ne vsegda budet poluchaca !a ne begatj vesj wop magik arow
@  Gogogo : (Yesterday, 13:28) cleram ubratj strelki,na loste ubratj knigi ,ili ostavitj knigi s protektami str i blesadom !
@  Gogogo : (Yesterday, 13:27) da ne eta bred
@  GA GA GA : (Yesterday, 13:12) mOzgov pishetsa,hotja tebe otkuda znat u tebja ih nikogda nebylo
@  Buldozer : (Yesterday, 12:56) Мазгов много,ето-точна) И нил у нас ешё в суппорте на форуме бред)
@  GA GA GA : (Yesterday, 11:57) Tuborgu 4erez 3 minuty WOPa pridetsa knopku perebindivat :D
@  GA GA GA : (Yesterday, 11:56) @Nil,horoshaja ideja!!! 50 strelok bez profa/75 s profom ... kak s polimorfom!!!
@  NIL : (Yesterday, 11:13) Да надо просто ограничение поставить на In por ylem в сутки, к примеру - 50 стрелок в сутки ;)
@  beatiful : (Yesterday, 09:32) buy 50 rp
@  Gogogo : (Yesterday, 01:51) Shan uberi kniki s losta uzhe nervi neviderzhivajut kogda tebe wari po 20 hp an mani kidaju magik arow po 5 hp ,ili zdelaj tam knigi toka s protektami i s kastami na str !
@  GA GA GA : (17 October 2018 - 23:24) ish ty,sravnil tozhe :D
@  Riality : (17 October 2018 - 22:27) Глухо как-то... Тихо... Не то что в 2000ных... ��

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