//Name:alchemy=Training=======================================================
//Verision:0.2=beta=test======================================================
//by=Day======================================================================
//Server:UOGames==============================================================
//Date:17.09.2017=============================================================
//============================instructions====================================
//To=script=worked=fine(but=it=is=not=exactly),=auto=learning=skill=alchemy.==
//Please=include='Do not auto interrupt'=and='Loop'=for=normal=work=script.===
//Use=ingredients:=Black Pearl,=Mandrake Root,=Blood Moss,=ulfurous ash.======
//Use=ingredients:=Grave Dust,=Bottle.========================================
//============================end=instructions================================
//============================changelog=======================================
//0.1=alpha=version,=base-functional.=========================================
//0.2=fix=bags.===============================================================
//============================end=changelog===================================
if diffweight 'self' > 50
  if not @findobject 'box'
    pause 1500
    messagebox 'UOSteam' 'Select Reagents Box'
    headmsg 'Select Reagents Box'
    promptalias 'box'
  endif
  if not @findobject 'box1'
    messagebox 'UOSteam' 'Select Complete Potion Box'
    headmsg 'Select Complete Potion Box'
    promptalias 'box1'
  endif
  if skill 'alchemy' < 30
    messagebox 'UOSteam' 'Learn 30 alchemy from NPC'
    stop
  endif
  if skill 'alchemy' > 30 and skill 'alchemy' <= 55 //total refreshment
    @removelist 'regs'
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf7a //black pearl
      pushlist 'regs' 0xf0e //empty bottles
    endif
    usetype 0xe9b
    headmsg 'use 30-55'
    //black pearl
    //empty bottles
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 1
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 10
    waitforgump 0x1220462e 5000
    replygump 0x1220462e 1
    waitforgump 0x38920abd 5000
  endif
  if skill 'alchemy' > 55 and skill 'alchemy' <= 65 //great agility
    @removelist 'regs'
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf7b //blood moss
      pushlist 'regs' 0xf0e //empty bottles
    endif
    usetype 0xe9b
    headmsg 'use 55-65'
    //blood moss
    //empty bottle
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 8
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 10
    waitforgump 0x1220462e 5000
    replygump 0x1220462e 1
    waitforgump 0x38920abd 5000
  endif
  if skill 'alchemy' > 65 and skill 'alchemy' <= 75 //great strength
    @removelist 'regs'
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf86 //mandrake root
      pushlist 'regs' 0xf0e //empty bottles
    endif
    usetype 0xe9b
    headmsg 'use 65-75'
    //mandrake root
    //empty bottles
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 8
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 31
    waitforgump 0x1220462e 5000
    replygump 0x1220462e 1
    waitforgump 0x38920abd 5000
  endif
  if skill 'alchemy' > 75 and skill 'alchemy' <= 93 //great explosion
    @removelist 'regs'
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf8c //sulfurous ash
      pushlist 'regs' 0xf0e //empty bottles
    endif
    usetype 0xe9b
    headmsg 'use 85-93'
    //sulfurous ash
    //empty bottles
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 22
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 17
    waitforgump 0x1220462e 5000
    replygump 0x1220462e 1
    waitforgump 0x38920abd 5000
  endif
  if skill 'alchemy' > 93 and skill 'alchemy' <= 100 //great conflugration
    @removelist 'regs'
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf8f //grave dust
      pushlist 'regs' 0xf0e //empty bottles
    endif
    headmsg 'use 93-100'
    usetype 0xe9b
    //grave dust
    //empty bottles
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 22
    waitforgump 0x38920abd 5000
    replygump 0x38920abd 31
    waitforgump 0x1220462e 5000
    replygump 0x1220462e 1
    waitforgump 0x38920abd 5000
  endif
  if skill 'alchemy' == 100
    messagebox 'UOSteam' 'eeee caef!'
    stop
  endif
  pause 500
  for 0 to 'regs'
    if not @findtype regs[] 'backpack'
      movetype regs[] 'box' 'backpack' 0 0 0 'any' 50
      if not listexists 'doneregs'
        @createlist 'doneregs'
      endif
      pause 500
    endif
  endfor
  if listexists 'doneregs'
    @removelist 'regs'
    @removelist 'doneregs'
  endif
  if @counttype 0xe9b 'any' 'backpack' <= 1
    for 0 to 5
      movetype 0xe9b 'box' 'backpack' 0 0 0 'any' 1
      pause 500
    endfor
  endif
else
  pause 500
  @movetype 0xf0b 'backpack' 'box1' 0 0 0 'any' //total refresh
  pause 500
  @movetype 0xf08 'backpack' 'box1' 0 0 0 'any' //great agility
  pause 500
  @movetype 0xf09 'backpack' 'box1' 0 0 0 'any' //great strength
  pause 500
  @movetype 0xf0d 'backpack' 'box1' 0 0 0 'any' //great explosion
  pause 500
  @movetype 0xf06 'backpack' 'box1' 0 0 0 'any' //great conflugration
  pause 500
  //  if not listexists 'scroll'
  //    createlist 'scroll'
  //    pushlist 'scroll' 0x1f60 //gate travel
  //    pushlist 'scroll' 0x1f55 //dispel
  //    pushlist 'scroll' 0x1f4f //incognito
  //    pushlist 'scroll' 0xe1f4a //lightning
  //    pushlist 'scroll' 0xe1f67 //resurrection
  //  endif
  //  if @counttype scroll[] 'any' 'backpack' <= 1
  //    pause 500
  //    sysmsg '11'
  //    @movetype scroll[] 'backpack' 'box1' 0 0 0 'any' 1
  //    pause 500
  //  endif
endif
if @ingump 0x38920abd 'You do not have'
  if skill 'alchemy' > 30 and skill 'alchemy' <= 55
    @removelist 'regs'
    pause 500
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf7a //black pearl
      pushlist 'regs' 0xf0e //empty bottles
    endif
  endif
  if skill 'alchemy' > 55 and skill 'alchemy' <= 65
    @removelist 'regs'
    pause 500
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf7b //blood moss
      pushlist 'regs' 0xf0e //empty bottles
    endif
  endif
  if skill 'alchemy' > 65 and skill 'alchemy' <= 75
    @removelist 'regs'
    pause 500
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf86 //mandrake root
      pushlist 'regs' 0xf0e //empty bottles
    endif
  endif
  if skill 'alchemy' > 75 and skill 'alchemy' <= 93
    @removelist 'regs'
    pause 500
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf86 //mandrake root
      pushlist 'regs' 0xf0e //empty bottles
    endif
  endif
  if skill 'alchemy' > 93 and skill 'alchemy' <= 100
    @removelist 'regs'
    pause 500
    if not listexists 'regs'
      createlist 'regs'
      pushlist 'regs' 0xf8f //grave dust
      pushlist 'regs' 0xf0e //empty bottles
    endif
  endif
  for 0 to 'regs'
    movetype regs[] 'box' 'backpack' 0 0 0 'any' 50
    if not listexists 'doneregs'
      @createlist 'doneregs'
    endif
  endfor
endif