12 replies to this topic

[Olorin]

Нужен скрипт на карпентри, чтобы брал сам из сундука логи и делал мишени, потом их выкидывал. ПЛИЗ ПОМОГИТЕ СИЛЬНО НАДО

[imja1]

Na easyuo jest' takoj scp - pravdo hren jego znajetsa - pashet li on.
Na inject pohodu pisat' nekomu ... razve 4to za otdel'nuju platu.

[Olorin]

Na easyuo jest' takoj scp - pravdo hren jego znajetsa - pashet li on.
Na inject pohodu pisat' nekomu ... razve 4to za otdel'nuju platu.

))) и сколько хочешь???

[Blaze]

http://www.oldp.net/...opic.php?t=3478

A et ne on?!

[imja1]

To Olorin: Ja napisal bi besplatno - jesli umel i jesli bilo uo na kompe.
Posprasivaj v IRCe, na kanale sharda, mozet kto podelitsa ili napishet.

Blaze - etot smatrju jes4o daze ostalsa :] Pravdo shard za eto vremja izmenilsa.

[artjom]

Blin psc eto pisatj 10 min,zalj 4to ja toka shas posmotrel v etu temu

[imja1]

napishi, vilozi v razdele skripti ... Kstati v posledneje vremja malo kto vikladivajet svojo tvor4estvo ... zmotjatsa, naoborot takoje dobro nado vikladivat' na obozrenije i komentarii.

[artjom]

ok ve4erom potruzusj tok blin u menja nety ar4era 4tob uzanatj type etih bordov mozet kto skazet

[artjom]

Berjom sumku v nejo lozim 20 trapedov,propisivaem ih ID

sub bs()



var counter,z,ingcount,gCount,p,CurCOnt,flag=0



dim container[19] 



container[0]=0x400F4D01 # ID trapeda no 1 i t.d.



container[1]=0x400F4C96



container[2]=0x400F4CFE



container[3]=0x400F4D1B



container[4]=0x400F4D1D



container[5]=0x400F4D6D



container[6]=0x400F4D75



container[7]=0x400F4D02



container[8]=0x400F4D21



container[9]=0x400F4D6E



container[10]=0x400F4C9C



container[11]=0x400F4CFF



container[12]=0x400F4D1E



container[13]=0x400F4D74



container[14]=0x400F4CA6



container[15]=0x400F4D6F



container[16]=0x400F4CA4



container[17]=0x400F4C99



container[18]=0x400F4CFC



container[19]=0x400F4D20 #ID poslednego trapeda



Start:



        UO.Print("Taking logs, until weight 100")



  wait(500)



  UO.Findtype( 0x1BEF, 0x0601, 0x4006394B) #Type color i C logov



  UO.Exec( "moveitem finditem 10" ) #skoka logov budet bratj



  while UO.Weight>100 # vplotj do kakova vesa nabiratj logi



  wait(500) 



  UO.DeleteJournal()



  wait(500)



  UO.UseType("0x1EBC") #type predmeta 4em delaem dart bordi ili 4to hotite,neznaju 4to u ar4era pila tam ili 4to :)



  wait(500) 



  UO.LClick(490,453) # klik sobsna nastroen na make last



  counter=0



  UO.DeleteJournal()



      while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60



 	 wait(500)



 	 counter=counter+1	



  wend	



  UO.FindType("0x1005" ) # type vashego izdelija	



  



  UO.moveitem ('finditem' ,1, container[flag])	



if flag==19 then 



flag=0 



endif 



if flag==18 then 



flag=19 



endif 



if flag==17 then 



flag=18 



endif 



if flag==16 then 



flag=17 



endif 



if flag==15 then 



flag=16 



endif 



if flag==14 then 



flag=15 



endif 



if flag==13 then 



flag=14 



endif 



if flag==12 then 



flag=13 



endif 



if flag==11 then 



flag=12 



endif 



if flag==10 then 



flag=11 



endif 



if flag==9 then 



flag=10 



endif 



if flag==8 then 



flag=9 



endif 



if flag==7 then 



flag=8 



endif 



if flag==6 then 



flag=7 



endif 



if flag==5 then 



flag=6 



endif 



if flag==4 then 



flag=5 



endif 



if flag==3 then 



flag=4 



endif 



if flag==2 then 



flag=3 



endif 



if flag==1 then 



flag=2 



endif 



if flag==0 then 



flag=1 



endif 



  endif



	wend



	goto start



end sub

skript mozno peredelatj pod luboj craft skill udoben dlja bsa, i tinkeringa,vob6em vot

[artjom]

UPPPP.Nu hotj ktoto skopirujte sebe 4tob potom ne prosili :/

[Redman]

da nam nenado

p.s. sam pisal?

[artjom]

net peredelal

[AiroK]

если у вас нет бана на форуме ДК, то юзайте там поиск я там выкладывал скрипты на все крафты разных видов с обьяснением.. (типа с сундуком и без итд) :wink: