Yoko

Code: Select all

sub lj()
	while NOT UO.Dead()
		lj1()
		lj2()
		lj3()
	wend
end sub


sub lj1()
	VAR ct=1,StepCount
	DIM dbX[6],deX[6],dbY[6],deY[6],Dir[6]

;----- InitTrack-----
	dbX[1]=2078
	deX[1]=2078
	dbY[1]=2082
	deY[1]=2139
	Dir[1]=1

	dbX[2]=2086
	deX[2]=2086
	dbY[2]=2130
	deY[2]=2087
	Dir[2]=-1
	
	dbX[3]=2094
	deX[3]=2094
	dbY[3]=2073
	deY[3]=2133
	Dir[3]=1
	
	dbX[4]=2102
	deX[4]=2102
	dbY[4]=2130
	deY[4]=2096
	Dir[4]=-1

	dbX[5]=2102
	dbY[5]=2096

;--------------------
	UO.Recall('0x401AB44A','23')
	wait(4500)
	repeat
		wait(500)
	until UO.GetX()==dbX[1] AND UO.GetY()==dbY[1]

	for ct=1 to 4
		repeat
			tohide()
			chopit(278,171,6)
			chopit(362,253,2)
			StepCount=1
			while UO.GetY()<>deY[ct] AND StepCount<=3
				walk(0,1*Dir[ct],0)
				StepCount=StepCount+1
			wend
		until UO.GetY()==deY[ct]
		walk(dbX[ct+1]-deX[ct],dbY[ct+1]-deY[ct],0)
	next


	UO.Recall('0x401AB44A','17')
	wait(4500)
	logunload()
end sub


sub lj2()
	VAR ct=1,StepCount
	DIM dbX[6],deX[6],dbY[6],deY[6],Dir[6]

;----- InitTrack-----
	dbX[1]=3382
	deX[1]=3382
	dbY[1]=426
	deY[1]=474
	Dir[1]=1

	dbX[2]=3374
	deX[2]=3374
	dbY[2]=474
	deY[2]=502
	Dir[2]=1
	
	dbX[3]=3366
	deX[3]=3366
	dbY[3]=516
	deY[3]=484
	Dir[3]=-1
	
	dbX[4]=3358
	deX[4]=3358
	dbY[4]=510
	deY[4]=432
	Dir[4]=-1

	dbX[5]=3358
	dbY[5]=432

;--------------------

	UO.Recall('0x401AB44A','29')
	wait(4500)
	repeat
		wait(500)
	until UO.GetX()==dbX[1] AND UO.GetY()==dbY[1]

	for ct=1 to 4
		repeat
			tohide()
			chopit(278,171,6)
			chopit(362,253,2)
			StepCount=1
			while UO.GetY()<>deY[ct] AND StepCount<=3
				walk(0,1*Dir[ct],0)
				StepCount=StepCount+1
			wend
		until UO.GetY()==deY[ct]
		walk(dbX[ct+1]-deX[ct],dbY[ct+1]-deY[ct],0)
	next

	UO.Recall('0x401AB44A','17')
	wait(4500)
	logunload()
end sub


sub lj3()
	VAR ct=1,StepCount
	DIM dbX[6],deX[6],dbY[6],deY[6],Dir[6]

;----- InitTrack-----
	dbX[1]=3266
	deX[1]=3266
	dbY[1]=261
	deY[1]=326
	Dir[1]=1

	dbX[2]=3258
	deX[2]=3258
	dbY[2]=378
	deY[2]=250
	Dir[2]=-1
	
	dbX[3]=3246
	deX[3]=3246
	dbY[3]=219
	deY[3]=310
	Dir[3]=1
	
	dbX[4]=3238
	deX[4]=3238
	dbY[4]=315
	deY[4]=348
	Dir[4]=1

	dbX[5]=3238
	dbY[5]=348

;--------------------
	UO.Recall('0x401AB44A','35')
	wait(4500)
	repeat
		wait(500)
	until UO.GetX()==dbX[1] AND UO.GetY()==dbY[1]

	for ct=1 to 4
		repeat
			tohide()
			chopit(278,171,6)
			chopit(362,253,2)
			StepCount=1
			while UO.GetY()<>deY[ct] AND StepCount<=3
				walk(0,1*Dir[ct],0)
				StepCount=StepCount+1
			wend
		until UO.GetY()==deY[ct]
		walk(dbX[ct+1]-deX[ct],dbY[ct+1]-deY[ct],0)
	next

	UO.Recall('0x401AB44A','17')
	wait(4500)
	logunload()
end sub


sub chopit(ChopX,ChopY,Dir)
	VAR LastTimer,WaitTime=90, Last=0, Exit
	VAR MaxWeight=420
	VAR ChopCount, MaxChopCount=45

	if UO.Weight>MaxWeight then
		unload()
	endif
	
	ChopCount=0
	repeat 
		Exit=0
		CheckLag()
		If Last then
			UO.WaitTargetTile('lasttile')
			UO.UseType('0x0F43') ; hatchet
		Else
			UO.UseType('0x0F43') ; hatchet
			wait(400)
			UO.LClick(ChopX,ChopY)
			Last=1
		endif
		
		wait(1000)
		
		If UO.GetDir()==Dir Then
			LastTimer=UO.Timer()
			while NOT UO.InJournal("You put") AND NOT UO.InJournal("0xA30F") AND NOT UO.InJournal("0xA30D") AND NOT UO.InJournal("0xA2DE") AND NOT LastTimer+WaitTime<UO.Timer()
				wait(100)
			wend
		
			If LastTimer+WaitTime<UO.Timer() Then
				Exit=1
			Endif
		
			if UO.InJournal("0xA30F") then
				repeat
					wait(100)
				until UO.InJournal("You put") OR LastTimer+WaitTime<UO.Timer()
			endif
			ChopCount=ChopCount+1
		Else
			Exit=1
		Endif
		
	until UO.InJournal("0xA30D") OR UO.InJournal("0xA2DE") OR ChopCount>=MaxChopCount OR Exit==1
end sub


sub unload()
	VAR TempRune=0x401C9697
markrune:
	CheckLag()
	UO.WaitTargetObject(TempRune)
	UO.Cast('Mark')
	wait(4000)
	If UO.InJournal("0xA1A6") then
		goto markrune
	endif	
	UO.Recall('0x401AB44A','17')
	wait(4500)
	logunload()
	mrecal(TempRune)
end sub


sub logunload()
	ToHide()
	UO.Say('BANK BANK')
	wait(500)
	UO.SetReceivingContainer('0x4024EFAD')
	wait(500)
begin:
	UO.FindType('0x1BD7') ; logs
	if UO.GetQuantity('finditem')>0 then
		UO.Grab('0','finditem')
		wait(800)
		goto begin
	endif
	UO.UnSetReceivingContainer()
	
	UO.Recall('0x40100DF7','1')
	wait(3000)

end sub


sub mrecal(rune)
markrune:
		CheckLag()
		UO.WaitTargetObject(rune)
		UO.Cast('Mark')
		wait(4000)
	If UO.InJournal("0xAB68") then
		goto markrune
	endif
end sub