bs filling bods

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
ersun
Posts: 151

bs filling bods

Post#1 » April 11th, 2018, 11:49 am

hi i need only filling script i want use with non filled book, and filled book,and ingot box only any can help me ?

suiris
Posts: 152

Re: bs filling bods

Post#2 » April 11th, 2018, 2:56 pm

Hi,

This is the one i wrote and use (this is a steam macro), you have to have tinkering to use it and be near to anvil and trash bin.


Code: Select all

if not findalias 'initialize'
  promptalias 'bulksource'
  promptalias 'bulkdestination'
  if not findalias 'Restock'
    promptalias 'Restock'
  endif
  if not listexists 'BScraft'
    createlist 'BScraft'
  endif
  if not listexists 'ingotcolor'
    createlist 'ingotcolor'
  endif
  if not findalias 'trash'
    promptalias 'trash'
  endif
  if not listexists 'BSiteminfo'
    createlist 'BSiteminfo'
    @pushlist 'BSiteminfo' 0x13eb
    @pushlist 'BSiteminfo' 0x13f0
    @pushlist 'BSiteminfo' 0x13ee
    @pushlist 'BSiteminfo' 0x13ec
    @pushlist 'BSiteminfo' 0x13bb
    @pushlist 'BSiteminfo' 0x13be
    @pushlist 'BSiteminfo' 0x13bf
    @pushlist 'BSiteminfo' 0x1410
    @pushlist 'BSiteminfo' 0x1414
    @pushlist 'BSiteminfo' 0x1413
    @pushlist 'BSiteminfo' 0x1411
    @pushlist 'BSiteminfo' 0x1415
    @pushlist 'BSiteminfo' 0x1c04
    @pushlist 'BSiteminfo' 0x140c
    @pushlist 'BSiteminfo' 0x1408
    @pushlist 'BSiteminfo' 0x140a
    @pushlist 'BSiteminfo' 0x140e
    @pushlist 'BSiteminfo' 0x1412
    @pushlist 'BSiteminfo' 0x1b73
    @pushlist 'BSiteminfo' 0x1b72
    @pushlist 'BSiteminfo' 0x1b76
    @pushlist 'BSiteminfo' 0x1b7b
    @pushlist 'BSiteminfo' 0x1b74
    @pushlist 'BSiteminfo' 0x1b79
    @pushlist 'BSiteminfo' 0xf5e
    @pushlist 'BSiteminfo' 0x1441
    @pushlist 'BSiteminfo' 0xf52
    @pushlist 'BSiteminfo' 0x13ff
    @pushlist 'BSiteminfo' 0x1401
    @pushlist 'BSiteminfo' 0xf61
    @pushlist 'BSiteminfo' 0x13b6
    @pushlist 'BSiteminfo' 0x13b9
    @pushlist 'BSiteminfo' 0x13fb
    @pushlist 'BSiteminfo' 0xf4b
    @pushlist 'BSiteminfo' 0xf45
    @pushlist 'BSiteminfo' 0xf47
    @pushlist 'BSiteminfo' 0x1443
    @pushlist 'BSiteminfo' 0x13b0
    @pushlist 'BSiteminfo' 0xf49
    @pushlist 'BSiteminfo' 0xf4d
    @pushlist 'BSiteminfo' 0x143e
    @pushlist 'BSiteminfo' 0x1403
    @pushlist 'BSiteminfo' 0xf62
    @pushlist 'BSiteminfo' 0x1405
    @pushlist 'BSiteminfo' 0x1407
    @pushlist 'BSiteminfo' 0x143d
    @pushlist 'BSiteminfo' 0xf5c
    @pushlist 'BSiteminfo' 0x143b
    @pushlist 'BSiteminfo' 0x1439
  endif
  //=============checking for regular ingots==========
  if counttype 0x1bf2 0 'backpack' < 10
    if @movetype 0x1bf2 'Restock' 'backpack'[(0 0 0)] 0 45
      pause 650
    else
      sysmsg 'Out of ingots!' 25
      @canceltarget
      unsetalias 'initialize'
      unsetalias 'bulksource'
      unsetalias 'bulkdestination'
      stop
    endif
  endif
  //=============crafting tinker tools=============
  while @counttype 0x1eb8 0 'backpack' < 2
    usetype! 0x1eb8
    waitforgump 0x38920abd 2000
    @replygump 0x38920abd 8
    waitforgump 0x38920abd 2000
    @replygump 0x38920abd 23
    waitforgump 0x38920abd 2000
  endwhile
  //============crafting thongs===================
  while @counttype 0xfbb 0 'backpack' < 2
    pause 500
    usetype! 0x1eb8
    waitforgump 0x38920abd 1500
    replygump 0x38920abd 8
    waitforgump 0x38920abd 1500
    replygump 0x38920abd 86
    waitforgump 0x38920abd 1500
  endwhile
  setalias 'initialize' 'self'
endif
//================end of initialize===============
@clearlist 'BScraft'
@clearlist 'ingotcolor'
//========== checking for BODs to fill=======
if @findtype 0x2258 1102 'backpack'
  @setalias 'bod' 'found'
else
  if not property 'Deeds In Book: 0' 'BulkSource'
    useobject 'BulkSource'
    waitforgump 0x54f555df 1500
    replygump 0x54f555df 5
    pause 350
    if @findtype 0x2258 1102 'backpack'
      @setalias 'bod' 'found'
    endif
  else
    sysmsg 'No BODs to fill.' 64
    @unsetalias 'BulkSource'
    @unsetalias 'BulkDestination'
    @unsetalias 'initialize'
    stop
  endif
endif
//=============end of check===============
usetype 0xfbb 0 'backpack'
pause 550
useobject 'bod'
waitforgump 0x5afbd742 1500
replygump 0x5afbd742 2
waitforgump 0x5afbd742 1500
usetype 0xfbb 0 'backpack'
//==============setting correct ingot color==========
if @ingump 0x5afbd742 'valorite'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 62
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2219
elseif @ingump 0x5afbd742 'verite'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 55
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2207
elseif @ingump 0x5afbd742 'agapite'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 48
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2425
elseif @ingump 0x5afbd742 'gold'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 41
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2213
elseif @ingump 0x5afbd742 'bronze ingots'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 34
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2418
elseif @ingump 0x5afbd742 'shadow iron'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 20
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2406
elseif @ingump 0x5afbd742 'dull copper'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 13
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2419
elseif @ingump 0x5afbd742 'copper'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 27
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 2413
else
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 7
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 6
  waitforgump 0x38920abd 1500
  @pushlist 'ingotcolor' 0
endif
//================ checking for ingots=========
if counttype 0x1bf2 ingotcolor[0] 'backpack' < 100
  if @movetype 0x1bf2 'Restock' 'backpack' [(0 0 0)] ingotcolor[0] 500
    pause 1500
  else
    sysmsg 'Out of ingots!' 25
    @canceltarget
    unsetalias 'initialize'
    unsetalias 'bulksource'
    unsetalias 'bulkdestination'
    stop
  endif
endif
usetype 0xfbb 0 'backpack'
//============crafting first item=====================
//====================ringmail========================
if @ingump 0x5afbd742 'ringmail gloves'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 1
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13eb
elseif @ingump 0x5afbd742 'ringmail leggings'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 1
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13f0
elseif @ingump 0x5afbd742 'ringmail sleeves'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 1
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13ee
elseif @ingump 0x5afbd742 'ringmail tunic'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 1
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13ec
  //======================Chainmail=====================
elseif @ingump 0x5afbd742 'chainmail coif'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13bb
elseif @ingump 0x5afbd742 'chainmail leggings'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13be
elseif @ingump 0x5afbd742 'chainmail tunic'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13bf
  //=====================Platemail======================
elseif @ingump 0x5afbd742 'platemail arms'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 15
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1410
elseif @ingump 0x5afbd742 'platemail gloves'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 15
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1414
elseif @ingump 0x5afbd742 'platemail gorget'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 15
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1413
elseif @ingump 0x5afbd742 'platemail legs'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 15
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1411
elseif @ingump 0x5afbd742 'platemail tunic'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 15
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 30
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1415
elseif @ingump 0x5afbd742 'female plate'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 15
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 37
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1c04
  //================== Helmets==========================
elseif @ingump 0x5afbd742 'bascinet'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 22
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x140c
elseif @ingump 0x5afbd742 'close helmet'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 22
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1408
elseif @ingump 0x5afbd742 'helmet'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 22
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x140a
elseif @ingump 0x5afbd742 'norse helm'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 22
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x140e
elseif @ingump 0x5afbd742 'plate helm'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 22
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 30
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1412
  //=====================Shields========================
elseif @ingump 0x5afbd742 'buckler'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1b73
elseif @ingump 0x5afbd742 'bronze shield'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1b72
elseif @ingump 0x5afbd742 'heater shield'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1b76
elseif @ingump 0x5afbd742 'metal shield'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1b7b
elseif @ingump 0x5afbd742 'metal kite shield'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 30
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1b74
elseif @ingump 0x5afbd742 'tear kite shield'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 37
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1b79
  //====================== Bladed=======================
elseif @ingump 0x5afbd742 'broadsword'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf5e
elseif @ingump 0x5afbd742 'cutlass'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1441
elseif @ingump 0x5afbd742 'dagger'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 30
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf52
elseif @ingump 0x5afbd742 'katana'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 37
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13ff
elseif @ingump 0x5afbd742 'kryss'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 44
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1401
elseif @ingump 0x5afbd742 'longsword'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 51
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf61
elseif @ingump 0x5afbd742 'scimitar'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 58
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13b6
elseif @ingump 0x5afbd742 'viking sword'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 36
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 65
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13b9
  //====================Axes========================
elseif @ingump 0x5afbd742 'large battle axe'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 30
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13fb
elseif @ingump 0x5afbd742 'double axe'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf4b
elseif @ingump 0x5afbd742 "executioner's axe"
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf45
elseif @ingump 0x5afbd742 'battle axe'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf47
elseif @ingump 0x5afbd742 'two handed axe'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 37
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1443
elseif @ingump 0x5afbd742 'war axe'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 44
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x13b0
elseif @ingump 0x5afbd742 'axe'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf49
  //==================Polearms=================
elseif @ingump 0x5afbd742 'bardiche'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 50
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf4d
elseif @ingump 0x5afbd742 'halberd'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 50
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 23
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x143e
elseif @ingump 0x5afbd742 'short spear'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 50
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 44
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1403
elseif @ingump 0x5afbd742 'spear'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 50
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 58
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf62
elseif @ingump 0x5afbd742 'war fork'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 50
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 65
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1405
  //====================Bashing=================
elseif @ingump 0x5afbd742 'war mace'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 57
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 30
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1407
elseif @ingump 0x5afbd742 'hammer pick'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 57
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 2
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x143d
elseif @ingump 0x5afbd742 'mace'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 57
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0xf5c
elseif @ingump 0x5afbd742 'maul'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 57
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x143b
elseif @ingump 0x5afbd742 'war hammer'
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 57
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 37
  waitforgump 0x38920abd 1500
  @pushlist 'BScraft' 0x1439
endif
findtype BScraft[0]
target 'found'
waitfortarget 1500
//==============crafting and combining=========
//==============using make last================
while targetexists 'server'
  //================ checking for ingots=========
  if counttype 0x1bf2 ingotcolor[0] 'backpack' < 100
    if @movetype 0x1bf2 'Restock' 'backpack' [(0 0 0)] ingotcolor[0] 500
      pause 1500
    else
      sysmsg 'Out of ingots!' 25
      @canceltarget
      unsetalias 'initialize'
      unsetalias 'bulksource'
      unsetalias 'bulkdestination'
      stop
    endif
  endif
  //=============checking for regular ingots==========
  if counttype 0x1bf2 0 'backpack' < 10
    if @movetype 0x1bf2 'Restock' 'backpack'[(0 0 0)] 0 45
      pause 650
    else
      sysmsg 'Out of ingots!' 25
      @canceltarget
      unsetalias 'initialize'
      unsetalias 'bulksource'
      unsetalias 'bulkdestination'
      stop
    endif
  endif
  //=============crafting tinker tools=================
  while @counttype 0x1eb8 0 'backpack' < 2
    usetype 0x1eb8
    waitforgump 0x38920abd 2000
    @replygump 0x38920abd 8
    waitforgump 0x38920abd 2000
    @replygump 0x38920abd 23
    waitforgump 0x38920abd 2000
    @replygump 0x38920abd 0
  endwhile
  //============crafting thongs===================
  while @counttype 0xfbb 0 'backpack' < 2
    pause 500
    usetype 0x1eb8
    waitforgump 0x38920abd 1500
    replygump 0x38920abd 8
    waitforgump 0x38920abd 1500
    replygump 0x38920abd 86
    waitforgump 0x38920abd 1500
    @replygump 0x38920abd 0
  endwhile
  waitforgump 0x38920abd 1500
  if not gumpexists 0x38920abd
    usetype 0xfbb 0 'backpack'
  endif
  replygump 0x38920abd 21
  pause 250
  @findtype BScraft[0]
  target 'found'
  waitfortarget 1500
  ignoreobject 'found'
  if @property 'Contents' 'backpack' > 123
    clearignorelist
    pause 500
    //=======recycle excess items==========
    for 0 to 'BSiteminfo'
      while @findtype BSiteminfo[] 'any' 'backpack'
        usetype 0xfbb 0 'backpack'
        waitforgump 0x38920abd 1500
        replygump 0x38920abd 14
        waitfortarget 1000
        pause 300
        target 'found'
        pause 400
      endwhile
    endfor
    break
  endif
  if not injournal 'The item has been combined'
    sysmsg 'breaking' 23
    pause 1000
    break
  endif
  clearjournal
endwhile
useobject 'bod'
waitforgump 0x5afbd742 1500
replygump 0x5afbd742 2
waitforgump 0x5afbd742 1500
if @injournal 'items have already' 'system'
  moveitem 'bod' 'BulkDestination'
  pause 650
  replygump 0x54f555df 0
  clearjournal
  clearignorelist
  //=======recycle excess items==========
  for 0 to 'BSiteminfo'
    while @findtype BSiteminfo[] 'any' 'backpack'
      usetype 0xfbb 0 'backpack'
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 14
      target 'found'
      pause 400
    endwhile
  endfor
  canceltarget
  while @counttype 0x1bf2 'any' 'backpack' > 0
    @movetype 0x1bf2 'backpack' 'Restock' 0 0 0 'any' 'any'
    pause 500
  endwhile
endif

Anthropomorphist likes this.
Top

ersun
Posts: 151

Re: bs filling bods

Post#3 » April 12th, 2018, 2:02 am

ty

Return to “Cartographer and Scribe”

Who is online

Users browsing this forum: No registered users and 5 guests