Yoko

Code: Select all

sub lumberjack()
	while true
		getNextTree()
		chopTree()
	wend
endsub

sub bowcraft()
	while true
		getPlanks(7)
		createBow()
	wend
endsub

Code: Select all

var timerAction = 0

sub lumberjack()
	while true
		getNextTree()
		registerAction(timerAction,500)
		chopTree()
	wend
endsub

sub bowcraft()
	while true
		getPlanks(7)
		registerAction(timerAction,500)
		createBow()
	wend
endsub

Code: Select all

sub startThreads()
     var i
     for i=0 to 5
          UO.Exec('exec testRegisterAction')
     next
endsub

Sub testRegisterAction()
	var id = UO.Random(10000)
	while true
		registerAction(0,500)
		UO.Print("Hello from thread "+str(id))
	wend
endsub

Code: Select all

### REGISTER ACTION FUNCTION
Sub registerAction(id,time)
	var lockID = str(id) + str(UO.Random(1024 * 1024))
	var lockVarId = id*2+0
	var lockEndsId = id*2+1
	var oldLockID
	var waitTime = 0

	while true
		oldLockID = getInstanceVar( lockVarId )
		#If this action is already locked, wait till it gets unlocked
		repeat
			wait(50)
		until (val( getInstanceVar( lockEndsId ) ) <= uo.Timer())
		#If time went up, but action is owned by same lockid, we can unlock it
		if ( getInstanceVar( lockVarId ) == oldLockID ) then
			#And relock to ourselves
			setInstanceVar( lockVarId , lockID)
			#Setting timer is required in case some new thread comes to the beginning of this whole function and bypass all the checks
			setInstanceVar( lockEndsId , str(UO.Timer() + 1) )
			
			#Now we wait for some time, and check if we are still the owners of this lock. If several processes come to this spot - only one will be alive at the end
			wait(50) #!!!WARNING IF YOU HAVE A SLOW COMPUTER OR MANY UO INSTANCES - SET THIS TO HIGHER VALUE			
			if ( getInstanceVar( lockVarId ) == lockID ) then
				#Now set our normal timer
				setInstanceVar( lockEndsId , str(UO.Timer() + (time/100)) )
				return lockID
			endif
		endif
		#It could take some time for other thread to initialize it's mutex, so lets wait a little
		wait(100)
	wend
endsub

Sub unregisterAction(id)	
	var lockEndsId = id*2+1
	setInstanceVar( lockEndsId, str(0))
endsub

Sub reregisterAction(id, time)	
	var lockEndsId = id*2+1
	setInstanceVar( lockEndsId, str(UO.Timer() + (time/100)))
endsub

Sub isRegisteredAction(id)	
	var lockEndsId = id*2+1
	
	if (val( getInstanceVar( lockEndsId ) ) > uo.Timer() ) then
		return true
	else
		return false
	endif
endsub

### INSTANCE HANDLING
Sub getInstanceKey()
	return UO.Hex2Int(UO.GetSerial())
endsub

Sub setInstanceVar(id,value)
	UO.SetEasyUO(getInstanceKey()*1000+id,value)
endsub

Sub getInstanceVar(id)
	return UO.GetEasyUO(getInstanceKey()*1000+id)
endsub