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