Can anyone help me please?

[CoXinHa xD]

Hi! i've been got some problems when i run my Auto-Craft-Plates and the AutoFishing script.
i got that Error


that is the plate script:

Code: Select all

sub fazerplate()
Var ingot = '0x1BEF'
VAR Plate = 0
Var n
DIM ID[6]
ID[1] = '0x1410'
ID[2] = '0x1411'
ID[3] = '0x1412'
ID[4] = '0x1413'
ID[5] = '0x1414'
ID[6] = '0x1415'
Uo.print("PlateBuilder v1.0 by Kalyl Lamarck - Editado por CoXiNhA xD")
wait(2000)
Uo.print('Deixe os ingots que ira usar em sua bag e alguns no Container')
wait(2000)
UO.print('Selecione o CONTAINER aonde quer que guarde as Plates e onde ficaram o restante dos ingots')
UO.exec('addobject CONTAINER')
while UO.targeting()
wait(100)
wend
recomeco:
Plate = Plate + 1
Chest:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Chest'")
wait(8000)
if (UO.InJournal('Platemail Chest')) then
goto Gorget
else
goto Chest
end if
Gorget:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Gorget'")
wait(8000)
if (UO.InJournal('Platemail Gorget')) then
goto Gloves
else
goto Gorget
end if
Gloves:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Gloves'")
wait(8000)
if (UO.InJournal('Platemail Gloves')) then
goto Helmet
else
goto Gloves
end if
Helmet:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Helmet'")
wait(8000)
if (UO.InJournal('Platemail Helmet')) then
goto Legs
else
goto Helmet
end if
Legs:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Legs'")
wait(8000)
if (UO.InJournal('Platemail Legs')) then
goto Arms
else
goto Legs
end if
Arms:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Arms'")
wait(8000)
if (UO.InJournal('Platemail Arms')) then
goto guardar
else
goto Arms
guardar:
  UO.Msg('Guardando a Plate completa...')
  For n=1 To 6
   repeat
    uo.findtype(ID[n],-1,'backpack')
    UO.MoveItem('finditem',1,'CONTAINER')
    Wait(1000)
   Until UO.Count(ID[n]) < 1
  Next
else
UO.FindType(ingot,-1,'CONTAINER')
   If UO.GetQuantity('finditem') > 175 then
    UO.SetReceivingContainer('backpack')
    UO.Msg('Puxando 1000 Ingots!')
    wait(1200)
    UO.Grab('1000','finditem')
    wait(1000)
   end if
goto recomeco
else
if uo.count("ingot") < 35 then
uo.print("Voce nao possui ingots necessarios para finalizar a plate o macro foi encerrado.")
uo.print("O Macro fez " + STR(Plate) + " Plates.")
goto es
end if
es:
end sub

If anyone know how to solve it please answer me!
Thanks!

Ps: Only in english please =]

[Destruction]

You have some condition without end...

Copy-paste u script here: http://ultimasoft.ru/tools/codesweeper.php and press the button.

Sorry for russian page

[CoXinHa xD]

This will solve the problem or just organize the script for me, and then i can find the condition without end?
because i did what you said and didn't solve the problem...

[CoXinHa xD]

by the way... i send the script for a friend, and the script runs normaly without any errors... so the problem is my inject? or some script on my autoload is doing this?

[Destruction]

Oh, try this, i was marked added code:

sub fazerplate()
Var ingot = '0x1BEF'
VAR Plate = 0
Var n
DIM ID[6]
ID[1] = '0x1410'
ID[2] = '0x1411'
ID[3] = '0x1412'
ID[4] = '0x1413'
ID[5] = '0x1414'
ID[6] = '0x1415'
Uo.print("PlateBuilder v1.0 by Kalyl Lamarck - Editado por CoXiNhA xD")
wait(2000)
Uo.print('Deixe os ingots que ira usar em sua bag e alguns no Container')
wait(2000)
UO.print('Selecione o CONTAINER aonde quer que guarde as Plates e onde ficaram o restante dos ingots')
UO.exec('addobject CONTAINER')
while UO.targeting()
wait(100)
wend
recomeco:
Plate = Plate + 1
Chest:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Chest'")
wait(8000)
if (UO.InJournal('Platemail Chest')) then
goto Gorget
else
goto Chest
end if
Gorget:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Gorget'")
wait(8000)
if (UO.InJournal('Platemail Gorget')) then
goto Gloves
else
goto Gorget
end if
Gloves:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Gloves'")
wait(8000)
if (UO.InJournal('Platemail Gloves')) then
goto Helmet
else
goto Gloves
end if
Helmet:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Helmet'")
wait(8000)
if (UO.InJournal('Platemail Helmet')) then
goto Legs
else
goto Helmet
end if
Legs:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Legs'")
wait(8000)
if (UO.InJournal('Platemail Legs')) then
goto Arms
else
goto Legs
end if
Arms:
uo.exec("usetype 'ingot'")
uo.exec("waitmenu 'Blacksmithing' 'Armadura de' 'Armadura de' 'Platemail Arms'")
wait(8000)
if (UO.InJournal('Platemail Arms')) then
goto guardar
else
goto Arms
guardar:
UO.Msg('Guardando a Plate completa...')
For n=1 To 6
repeat
uo.findtype(ID[n],-1,'backpack')
UO.MoveItem('finditem',1,'CONTAINER')
Wait(1000)
Until UO.Count(ID[n]) < 1
Next
endif
if true then
else
UO.FindType(ingot,-1,'CONTAINER')
If UO.GetQuantity('finditem') > 175 then
UO.SetReceivingContainer('backpack')
UO.Msg('Puxando 1000 Ingots!')
wait(1200)
UO.Grab('1000','finditem')
wait(1000)
end if
goto recomeco
endif
if true then
else
if uo.count("ingot") < 35 then
uo.print("Voce nao possui ingots necessarios para finalizar a plate o macro foi encerrado.")
uo.print("O Macro fez " + STR(Plate) + " Plates.")
goto es
end if
es:
endif
end sub

But i'm doesnt know whats are u need and was added really stupid code, but more correct..

[CoXinHa xD]

Nice thanks! now it works.. but on another computer...
on this one, i still got that message:

but now in all macros.. what can i do?

Edit:
I'll try reinstall de inject.. see if this will solve problem..
thanks a lot!