Yoko
http://forum.yoko.com.ua/

Smelting Script
http://forum.yoko.com.ua/viewtopic.php?f=3&t=714		 Page 1 of 1
Author:  ozcaN [ 2004-06-28 17:42:51 ]
Post subject:  Smelting Script
The smelting script in the scripts section is giving me some problems.
http://yoko.calpha.com/en_index.html
When i run it, I get the message:
Items Fond 0:
Items Fond 0:
Items Fond 0:
Items Fond 0:
No more ores for semlt.....
Can anyone tell me why? Do i need to configure it first?
Author:  Yoko [ 2004-06-28 20:07:19 ]
Post subject: 
at truth i thought calpha.com is dead :)
write script here
Author:  ozcaN [ 2004-06-29 03:57:30 ]
Post subject: 
O sorry it was this :

Code:
#####################################################################
; Training of Mining, ver 1.03, (c) Edred
sub Smelt()
VAR Ruda1 = '0x19B9'            ; Тип руды
VAR Ruda2 = '0x19B8'            ; Тип руды - 3 шт.
VAR Ruda3 = '0x19BA'            ; Тип руды - 2 шт.
VAR Ruda4 = '0x19B7'            ; Тип руды - 1 шт.
VAR Ing1 = '0x1BEF'               ; Тип ингов металлов
VAR Ing2 = '0x1BF2'               ; Тип ингов строймата
VAR MaxVes = 500               ; Максимальный вес пака
repeat   
   UO.Findtype( Ruda1, -1, 1 )      ; Ищем руду на земле
   If UO.Findcount() == 0 Then
      UO.Findtype( Ruda2, -1, 1 )
      If UO.Findcount() == 0 Then
         UO.Findtype( Ruda3, -1, 1 )
         If UO.Findcount() == 0 Then
            UO.Findtype( Ruda4, -1, 1 )
            If UO.Findcount() == 0 Then
               UO.Print( "No more ore for smelt..." )
               Return
            Endif
         Endif
      Endif
   Endif
   UO.Exec( "moveitem finditem 1" )   ; Тащим 1 в пак
   Wait( 1000 )
   UO.Useobject( 'finditem' )      ; переплавляем
   Wait( 1000 )
   If UO.Weight > MaxVes Then
      ; Максимальный вес пака превышен - разгружаемся
      UO.Findtype( Ing1, -1, -1 )
      If UO.Findcount() > 0 Then
         UO.Drophere( 'finditem' )
         Wait( 1000 )
      Endif
      UO.Findtype( Ing2, -1, -1 )
      If UO.Findcount() > 0 Then
         UO.Drophere( 'finditem' )
         Wait( 1000 )
      Endif
   Endif
until NOT Uo.CountGround( Ruda1 ) AND NOT UO.CountGround( Ruda2 ) AND NOT UO.CountGround( Ruda3 ) AND NOT UO.CountGround( Ruda4 )
UO.Print( "No more ore for smelt..." )
endsub
Author:  Edred [ 2004-06-29 11:59:39 ]
Post subject: 
check types of ore:
Ruda1 is type of many ore
Ruda2 is type of 3 ore
Ruda3 is type of 2 ore
Ruda4 is type of one ore
Also check types of:
Ing1 is type of iron (any metal) ingots
Ing2 is type of plaster ingots

MaxVes is maximum weight of your char

You need in stand about forge and place any ore to GROUND (no backpack!). Script will get one ore and smelt it to ingot. If weight of char greater MaxVes - all ingots will drop to ground.

Sorry for my bad english
Author:  ozcaN [ 2004-06-29 18:43:08 ]
Post subject: 
Ok works thankyou didnt know they must be on floor
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/