UOG: Demise

Code: Select all

//Set these as your 2 bod books
@setalias 'SmithResets' 0x40d65868
@setalias 'FilledSmith' 0x40d65ad0
if not listexists 'SmithCrap'
  createlist 'SmithCrap'
  pushlist 'SmithCrap' 0xf39
  pushlist 'SmithCrap' 0xe86
  pushlist 'SmithCrap' 0x13c6
endif
if @injournal 'The world will save in 10 seconds.' 'system'
  while not @injournal 'world save complete'
  endwhile
  clearjournal
endif
//Check for bod in pack and remove from book 1
if not @findtype 0x2258 1102 'backpack' 'any'
  useobject 'SmithResets'
  waitforgump 0x54f555df 15000
  replygump 0x54f555df 5
  waitforgump 0x54f555df 15000
  pause 500
  //Move bod to betty
  if @findtype 0x2258 1102 'backpack' 1
    @movetype 0x2258 'backpack' 0x4102e [(0 0 0)] 1102 1
    pause 500
  endif
  //Grab new bod
  waitforcontext 0x4102e 1 5000
  waitforgump 'any' 5000
  replygump 'any' 1
  pause 500
  //Move new bod to book 2
  if @findtype 0x2258 1102 'backpack' 1
    @movetype 0x2258 'backpack' 'FilledSmith' [(0 0 0)] 1102 1
    pause 500
  endif
  //Throw away shit
  for 0 to 'SmithCrap'
    while @findtype SmithCrap[] 'any' 'backpack' 'any'
      movetype SmithCrap[] 'backpack' 0x4040a418 [(0 0 0)] 'any' 'any'
    endwhile
  endfor
  pause 10000
  @unsetalias 'SmithResets'
  @unsetalias 'FilledSmith'
endif