Black MoneyMaker

[CristalBall]

era da un po ke lo volevo postare
questo script consente di fare money away con black
x mia scelta io faccio plate female
ma lo script e' altamente modificabile

Mettete ingots in banca(contenitore principale)
fate in modo (sell agent di razor) di vendere in automatico le female plate
mettete worker(black+thinker) vicino alla forgia a luna con almeno 1 tool kit
premete play su razor

unico neo
ogni tanto fa dei barrel hoops
1 ogni morte di papa
nn ho avuto voglia di risolvere il problema xk lo spreco e infinitesimale
eventualmente fateci keg e rivendeteli

se in futuro vedo ke la nuova patch da problemi risolvero la cosa

;================================== 
; Script Name: Black MoneyMaker 
; Author: Sorrow 
; Version: 1.0 
; Client Tested with: xxxxx 
; EUO version tested with: 1.42 (0098) 
; Shard OSI / FS: OSI 
;================================== 
initevents

set %BackPackID #BACKPACKID
gosub OpenBackPack
;gosub pathFind 974 511 -50
gosub pathFind 976 511 -50

main:
;check peso
	if ( #MAXWEIGHT - 200 ) < #WEIGHT
	{
		EVENT MACRO 4 0 vendor sell
		wait 1s
		if ( #MAXWEIGHT - 70 ) < #WEIGHT
		{

			gosub OpenBackPack
			gosub GotoBank
			gosub PutGoldBank
		}
	}
	else
	{
	;Check linghi
		finditem ENK C_ , %BackPackID
		set %nCnt #findCnt
		set %NumeroLinghi 0
		for %i 1 %nCnt
		{
			finditem ENK %i
			set %NumeroLinghi #FINDSTACK + %NumeroLinghi
		}

		if %NumeroLinghi <  32
		{
			gosub OpenBackPack
			gosub GotoBank
			gosub PutGoldBank
			wait 1s
			finditem ENK C_ , %bankID
			if #findkind <> -1
			{
				event drag #findid
				wait 2s
				msg 1000$
				wait 2s
droppaore:
				wait 1s
				click 710 710 p
				if #CONTNAME = drag_gump
				{
					gosub OpenBackPack
					goto droppaore
				}
			}
			if #CHARPOSX <> 976 && #CHARPOSY <> 511
				gosub GotoAnvil
		}
	;cerco i thinker tools
		finditem KTL C_ , %BackPackID
	 	if #FINDCNT <  3
		{
			gosub CreaThinkerTool
		}
		if #findkind =  -1
		{
			halt
		}

	;cerco i tongs tools
		finditem TBG C_ , %BackPackID
	 	if #findkind =  -1
		{
			gosub CreaTongs
		}
	;crea chain coffin
		finditem TBG C_ , %BackPackID
		if #findkind <>  -1
		{
;			finditem LIK C_ , %backPack
			finditem MSK C_ , %BackPackID

			set %nCnt #findCnt
			if %nCnt > 10
				EVENT MACRO 1 0 vendor sell
			if #CHARPOSX <> 976 && #CHARPOSY <> 511
				gosub GotoAnvil
			gosub CreaPlateNailFemale
		}
	}
goto main

sub CreaThinkerTool
	finditem KTL C_ , %BackPackID
	SET #LOBJECTID #FINDID
	EVENT MACRO 17 0
	wait 1s
	contpos 40 40
	wait 1s
	click 80  160
	wait 1s
	contpos 40 40
	wait 1s
	click 275 170
return

sub CreaTongs
	finditem KTL C_ , %BackPackID
	SET #LOBJECTID #FINDID
	EVENT MACRO 17 0
	wait 2s
	contpos 40 40
	wait 2s
;	click 80 160
	click 70 150
	wait 1s
	contpos 40 40
	wait 1s
	click 420 310
	wait 1s
	contpos 40 40
	wait 1s
	click 270 150
return

sub CreaChainCoffin
	finditem TBG C_ , %BackPackID
	SET #LOBJECTID #FINDID
	EVENT MACRO 17 0
	wait 1s
	contpos 40 40
	wait 1s
	click 70 209
	wait 1s
	contpos 40 40
	wait 1s
	click 270 211
	wait 2s
	click 270 211 r
;	EVENT MACRO 31 0
	wait 1s
return


sub pathFind
	set %DestCharPosX %1
	set %DestCharPosY %2
	set %DestCharPosZ %3
	for %LOOP 1 100
	{
		finditem FJC_VNC_XNC_ZNC_BOC_NQC G_1 ;find door
		if #findkind <> -1
  			event Macro 12 0 ;open door

		if ( #charPosX <> %DestCharPosX || #charPosY <> %DestCharPosY )
		{
			event PathFind %DestCharPosX %DestCharPosY %DestCharPosZ
		}
		else
		{
			return
		}
	}
return

sub GotoBank
	gosub pathFind 978 514 -50
	gosub pathFind 978 516 -50
	event macro 5 5
	gosub pathFind 978 518 -50
	gosub pathFind 981 519 -50
	gosub pathFind 988 520 -50
	gosub OpenBank
;	wait 2s
;	set %BankId #CONTID
;	wait 2s
;	contpos 50 90
return

sub GotoAnvil
	gosub pathFind 984 520 -50
	gosub pathFind 978 518 -50
	event macro 5 1
	gosub pathFind 977 513 -50
	gosub pathFind 976 511 -50
;	gosub pathFind 976 511 -50
return


;sub OpenBackPack
;	event Macro 8 7
;;	wait 2s
;	wait 20
;	contpos 645 620
;return


sub OpenBank
	OpenBankLoop:
	msg OLEEEEEEEEEEEE!$
	msg S BANK$
	gosub waitForVar ContSize = 180_240 2
	if ! #result
		goto OpenBankLoop
	contpos 50 90
	set %bankID #contID
return

sub OpenBackPack
	OpenBackPackLoop:
	event macro 8 7
	gosub waitForVar ContSize = 230_204 2
	if ! #result && #CharGhost = NO
	{
		goto OpenBackPackLoop
	}
	set %BackPackID #contID
	contpos 645 620
return


sub waitForVar
	set %timeout #time + 5
	if  %0 > 3
		set %timeout #time + %4
	waitForVarLoop:
	if # . %1 %2 %3
		return #true
	if #time >= %timeout
		return #false
	goto waitForVarLoop
return

sub PutGoldBank
	;Cerco soldi
			finditem POF C_ , %BackPackID
			if #findkind <> -1
			{
				event drag #findid
				wait 2
				msg $
				wait 2

droppagold:
				click 110 240
				if #CONTNAME = drag_gump
				{
					gosub GotoBank
					goto droppagold
				}
				wait 2s
				EVENT MACRO 1 0 check 30000
				wait 1s
				if #CHARPOSX <> 974 && #CHARPOSY <> 511
					gosub GotoAnvil
			}


return


sub CreaPlateNailFemale
	finditem TBG C_ , %BackPackID
	SET #LOBJECTID #FINDID
	EVENT MACRO 17 0
	wait 1s
	contpos 40 40
	wait 1s
	click 70 170
	wait 1s
	click 273 211
	wait 2s
	click 270 211 r
	wait 1s
return

[Sanders]

Credo che con un nuovo fix per poter far funzionare "vendor sell" sia necessario stare entro un tile dal vendor.
Per il resto basta un fabbro con 100 si skill?

Grazie mille

[woodstock530]

i miei complimenti... nn lo voleva dare nessuno questo script veramente grazie!

[CristalBall]

scusate ho sbagliato a postare
l'ho aggiunto nel thread script easyuo

rispondero a tutte le domande li
cmq lo sto usando ora e sembra funzionare