RO-fan

Код: Выделить всё

##########################################
########  REFINE ARMOR  ##################
##########################################
automacro {
  console /Inventory Item '(.*)' is equipped./
  call {
    log unequip number $.lastMatch1
    do storage close
    pause 2
    do uneq $.lastMatch1
    pause 2
    do c $command
    $resumestorage = yes
    call refine
  }
}

macro refine {
  if ($resumestorage = yes) goto storadd
  $resumestorage = no
do conf autoTalkCont 0
[
  $pos = prt_in 63 55
  $maxrefine = 8
  $itemname = Tights [1]
  $posnpc = 63 60
  $talkresps = c r1 c r0 c c
  $command = @storage
  $material = Elunium
  log 1
]
  do c @warp $pos
  pause 2
[
  $currentrefine = 0
  log 2
]
  while ($currentrefine < $maxrefine) as refiner
    log 3
    if ($currentrefine > 0) goto reff
      $temp = $itemname
      $newtemp = +@eval($currentrefine + 1) $itemname
      log 4
      goto refine
    :reff
    log 5 reff
      $temp = +$currentrefine $itemname
      $newtemp = +@eval($currentrefine + 1) $itemname
    :refine
[
    log 6 refine
    log $temp = @invamount($temp)
    if (@invamount($temp) = 0) goto getfromstorage
    log 7
    if (@invamount($material) = 0) goto getfromstorage
    log 8
]
    do eq @inventory ($temp)
    pause 1
    if ($currentrefine > 3 ) goto talk1
    do talknpc $posnpc $talkresps
    goto talk2
    :talk1
    do talknpc $posnpc $talkresps r0 c c c
    :talk2
    pause 1
[
    log 9
    goto refine
    :getfromstorage
    log 10
]
    do c $command
    pause 5
[
    if (@invamount($material) >= @invamount($temp)) goto storecheck
    if (@storamount($material) = 0) goto materialfails
]
    do storage get $material @eval( @invamount($temp) - @invamount($material))
    pause 2
    do storage close
    pause 1
[
    goto refine
    :storecheck
    if (@storamount($temp) = 0) goto nextrefine
    log 11
    :storadd
    log 12
]
    while (@invamount($newtemp) > 1) as addtostorage
      log 13
      do storage add @inventory($newtemp)
    end addtostorage
 [
    log 14
    :storget
    log 15
    $store = @storamount($temp)
]
    while ($store > 0) as getfromstore
[
      log 16
      $store = @storamount($temp)
      if (Owg 90% ~ $.status) goto storget1
      if (@invamount($temp) > 80) goto storget1
      log 17
]
      do storage get $temp
[
      $store = @storamount($temp)
      log 18
      goto storget2
      :storget1
      log 19
      $store = 0
      goto storget4
      :storget2
      log 20
      if (@invamount($material) >= @invamount($temp)) goto storget4
      if (@storamount($material) = 0) goto storget3
      ]
      do storage get $material @eval( @invamount($temp) - @invamount($material))
      [
      log 21
      goto storget4
      :storget3
      log 22
      $store = 0
      :storget4
      log 23
      ]
      pause 1
    end getfromstore
 [
    log 24
 ]
    do storage close
    pause 3
[
    if (@invamount($temp) > 0) goto refine
    log 25
    if (@invamount($material) = 0) goto materialfails
    log 26
    :nextrefine
    log 27
]
    do storage close
[
    log NextRefine
    $currentrefine++
    log 28
    goto next
    :materialfails
    log 29
    log MATERIAL ENDS
    log MATERIAL ENDS
    log MATERIAL ENDS
    log MATERIAL ENDS
    log MATERIAL ENDS
    log MATERIAL ENDS
    ]
    $currentrefine = 999
    :next
    log 30
  end refiner
  log 31

[
  log Finished!
  log Finished!
  log Finished!
  ]


    do eval Utils::Win32::playSound('sounds\alarm.wav')
    do eval Utils::Win32::playSound('sounds\moroz.wav')
    pause 20
    do quit
}