UOG: Demise

Code: Select all

@setalias 'AppleBag' //<< Enter restock bag Serial here
if not listexists 'AppleCount'
  createlist 'AppleCount'
  pushlist 'AppleCount' 200 //Can Change this to whatever BUT make sure you wont be over weight, apples and potions are 1 stone each     respectivly and your tools + ingots keep that in mind
endif
for 0 to 'AppleCount'
  //Checks for resources
  if counttype 0x9d0 0 'AppleBag' < AppleCount[] and counttype 0x9d0 1160 'backpack' == 0
    sysmsg 'GET MORE APPLES AND POTIONS' '34'
    stop
  endif
  //Moves apples to bag
  if counttype 0x9d0 0 'backpack' == 0
    movetype 0x9d0 'AppleBag' 'backpack' [(0 0 0)] 0 AppleCount[]
    pause 1000
  endif
  //Moves potions to bag
  if counttype 0xf0c 0 'backpack' == 0
    movetype 0xf0c 'AppleBag' 'backpack' [(0 0 0)] 0 AppleCount[]
    pause 1000
  endif
  while counttype 0x9d0 0 'backpack' > 0 and counttype 0x9d0 1160 'backpack' < AppleCount[]
    //Checks ingots and moves
    if counttype 0x1bf2 0 'backpack' < 3
      movetype 0x1bf2 'AppleBag' 'backpack' [(0 0 0)] 0 50
    endif
    //Check and make tink kits
    if counttype 0x1eb8 0 'backpack' < 2
      for 4
        usetype 0x1eb8 0 'backpack'
        waitforgump 0x38920abd 5000
        replygump 0x38920abd 8
        waitforgump 0x38920abd 5000
        replygump 0x38920abd 24
        waitforgump 0x1220462e 5000
        replygump 0x1220462e 1
        waitforgump 0x38920abd 5000
        pause 500
      endfor
    endif
    //Chekc and make Cooking tools
    if counttype 0x103e 0 'backpack' == 0
      for 5
        usetype 0x1eb8 0 'backpack'
        waitforgump 0x38920abd 5000
        replygump 0x38920abd 8
        waitforgump 0x38920abd 5000
        replygump 0x38920abd 136
        waitforgump 0x1220462e 5000
        replygump 0x1220462e 1
        waitforgump 0x38920abd 5000
        pause 500
      endfor
    endif
    //Makes Enchanted apples
    usetype 0x103e 0 'backpack'
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 29
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 10
    waitforgump 0x1220462e 5000
    replygump 0x1220462e 1
    waitforgump 0x38920abd 5000
  endwhile
  //Move enchanted apples
  if counttype 0x9d0 1160 'backpack' == AppleCount[]
    movetype 0x9d0 'backpack' 'AppleBag' [(0 0 0)] 1160 'any'
    pause 1000
    replay //If you run into problems with the replay delete this
    stop //and this and check loop
  endif
endfor