;====================================================== 
; Script Name: JEBBITS Ingot Commodity Filler 
; Author: Jebbit 
; Version: 1.3 
; Client Tested with: 4.0.0q 
; EUO version tested with: 1.4 (005b) 
; Shard OSI / FS: 
; Revision Date:12-23-03 
; Public Release:11-30-03 
; Purpose:Commodity deed filler/organizer/and counter. Has 4 different choices to choose from 
;you can fill/organize/count or you can organize and count or simply count to see what deeds 
;you have left. Move deeds from one bag to another. 
;====================================================== 

initevents 
    set %delay 20 
    set %bank n/a 
    set %mark 0 
DISPLAY YESNO Do you wish to move deeds from one bag to another 
if #dispres = yes 2 
     set %mark 4 
     goSUB IDD 
display yesnocancel If you wish to make deeds click yes. If you wish to just count and organize your deeds click no. If you wish to just get a count on your deeds press cancel. 
if #dispres = yes 2 
     set %mark 0 
     goto setup 
if #dispres = no 2 
set %mark 1 
     goto ID 
if #dispres = cancel 3 
     SET %DELAY 10 
     set %mark 2 
     goto ID 

setup: 
menu clear 
menu button n/a 
menu window size 240 85 
      menu window color BLACK 
      menu font bgcolor BLACK 
menu window title Bod Counter 
menu font align center 
      menu font style 
   menu font color red 
   menu font size 9 
menu edit amount 170 5 50 100 
menu font style 
   menu font color red 
   menu font size 9 
menu edit Total 170 25 50 10 
menu font style 
   menu font color red 
   menu font size 9 
menu text msg 13 8 Ingots per commodity deed 
menu font style 
   menu font color red 
   menu font size 9 
menu text msg 10 28 Amount of deeds to maintain 
menu font color red 
   menu font size 9 
menu button enter 95 55 50 25 OK 
menu show 280 200 

loop: 
if #menubutton <> enter 
     goto loop 
     menu hide 
     MENU GET amount 
wait 5 
     set %amount #menures 
wait 5 
     MENU GET total 
wait 5 
     set %total #menures 


key p alt 
msg bank $ 
     WAIT 20 
SET %BANK #CONTID 
display msg Click ok target your pack with ingots. This must be in the bank 
     wait 10 
     set #targcurs 1 
     wait 5 
aaa: 
if #targcurs = 1 
     goto aaa 
     set %bankPACK #ltargetid 
     wait 20 


ID: 
display msg Click ok and target the pack you wish to put filled deeds into. 
      set #targcurs 1 
      wait 5 
aa: 
if #targcurs = 1 
     goto aa 
     SET %DEEDPACK #ltargetid 
     gosub organize 

continue: 
     Event macro 8 1 
      wait 1s 
      contpos 650 0 
      event macro 8 7 
      wait 1s 
set %backpackid #contid 

event macro 8 2 
     wait %pause1 
      contpos 200 200 
     wait 1S 
     CLICK 596 358 

event macro 8 7 
    wait 20 
      contpos 615 330 
      wait 10 

     WAIT 20 
msg bank $ 
wait 10 
set #LOBJECTID %bank 
      WAIT 10 
      CONTPOS 32 48 
FINDITEM %BANKPACK C_ , %bank 
wait 10 
     set #LOBJECTID %bankpack 
      set #findmod 0_0 
      set #NEXTCPOSX 10 
      set #NEXTCPOSY 300 
      event macro 17 0 
wait 20 
contpos 10 300 

start: 
gosub ingot 
gosub deed 
gosub combine 
gosub bagit 
goto start 

sub ingot 
     set #property n/a 
ingot: 
     finditem enk c_ , %BANKPACK 
     wait 10 
if #FINDID = X 
     GOTO FILL 
     event property #findid 
     wait 20 
If %d < %total 
     { 
     if DULL IN #PROPERTY 2 
      set %d %d + 1 
       GOTO FILL 
        } 
If %s < %total 
     { 
     if shadow IN #PROPERTY 2 
      set %s %s + 1 
       GOTO FILL 
        } 
If %c < %total 
     { 
      if copper IN #PROPERTY && DULL NOTIN #PROPERTY 2 
       set %c %c + 1 
        GOTO FILL 
         } 
If %b < %total 
     { 
     if Bronze IN #PROPERTY 2 
     set %b %b + 1 
       GOTO FILL 
        } 
If %g < %total 
     { 
     if Gold IN #PROPERTY 2 
      set %g %g + 1 
       GOTO FILL 
        } 
If %a < %total 
     { 
     if agapite IN #PROPERTY 2 
      set %a %a + 1 
       GOTO FILL 
        } 
If %VE < %total 
     { 
     if Verite IN #PROPERTY 2 
      set %ve %ve + 1 
       GOTO FILL 
        } 
If %Va < %total 
     { 
     if valorite IN #PROPERTY 2 
      set %va %va + 1 
       GOTO FILL 
        } 
if %i < %total 
     { 
     if dull notIN #PROPERTY && shadow notIN #PROPERTY && copper notIN #PROPERTY && 
      + bronze notIN #PROPERTY && gold notIN #PROPERTY && agapite notIN #PROPERTY && 
       + verite notIN #PROPERTY && valorite notIN #PROPERTY && INGITS IN #PROPERTY 2 ;regular 
       set %i %i + 1 
         GOTO FILL 
          } 
ignoreitem #findid 
GOTO INGOT 

fill: 
if #FINDID = X 
      { 
     display yesno Out of ingots would you like to organize your filled deeds now? 
if #dispres = yes 2 
     set %mark 1 
     gosub organize 
if #dispres = no 
     halt 
     } 
if #FINDSTACK < %AMOUNT 2 
      ignoreitem #findid 
      goto ingot 
     event drag #findID 
     wait 10 
     msg %amount $ 
     WAIT 20 
     CLICK 141 123 P 
     WAIT 30 
     finditem enk c_ , %BANK 
IF #FINDID = X 
     GOTO INGOT 
     SET %ORE #FINDID 
return 

sub deed 
DEED: 
; find an unused commodity deed 
     findItem EWH C_ , %backpackID 
if #findKind = -1 
     findItem EWH C_ , %BANKPACK 
      if #findKind = -1  
       { 
      DISPLAY YESNO Out of deeds would you like to organize your filled deeds now? 
       if #dispres = yes 2 
SET %MARK 1 
     gosub organize 
    if #dispres = no 
  halt 
} 
     WAIT 20 
     set %deed #findID 
     event drag %deed 
     wait 20 
     click 106 129 P 
     WAIT 20 
     finditem EWH c_ , %BANK 
IF #FINDID = X 
     GOTO DEED 
     return 


sub combine 
COMBINE: 
findItem %DEED C_ , %BANK 
     wait 10 
if #findid = x 3 
     click 789 221 p 
gosub deed 
goto combine 
     set #lOBJECTID #findID 
       event Macro 17 
        WAIT 30 
         SET #LTARGETID %ORE 
          event Macro 22 
           wait 30 
finditem %ore 
if #findid <> x 
    goto combine 
return 

sub bagit 
bagit: 
if #findKind = 0 
{ 
   event drag %deed 
    wait 20 
      finditem %DEEDPACK 
        set #findmod 20_10 
           click #findx #findy 
            WAIT 20 
              FINDITEM %DEED C_ , %BANK 
IF #FINDID <> X 
goto bagit 
return 

sub organize 
set %i 0 
set %d 0 
set %s 0 
set %c 0 
set %b 0 
set %g 0 
set %a 0 
set %ve 0 
set %va 0 
     set #LOBJECTID %deedpack 
event macro 17 0 
wait 35 
set #lobjectid #findid 
      contpos 600 323 
     WAIT 20 
     IGNOREITEM #LOBJECTID 
MORE: 
SET %SSS %D + %S + %C + %B + %G + %A + %VE + %VA + %I 
menu clear 
      menu window size 150 50 
      menu window color BLACK 
      menu font bgcolor BLACK 
menu window title Bod counter 
menu font align center 
      menu font style 
   menu font color red 
   menu font size 8 
menu text stat 20 0 PLEASE WAIT... %SSS 
     menu show 640 296 
     FINDITEM EWH C_ , %DEEDPACK 
IF #FINDID = X 2 
     gosub menu 
return 
      set #lobjectid #findid 
       IGNOREITEM #LOBJECTID 
        EVENT PROPERTY #findid 
IF %MARK = 1 
       EVENT DRAG #LOBJECTID 
       WAIT %delay 
if DULL IN #PROPERTY 4  ;Dull Copper 
     set %d %d + 1 
if %mark = 1 
     click 652 380 p 
     GOTO MORE 
if SHADOW IN #PROPERTY 4  ;Shadow 
     set %s %s + 1 
     if %mark = 1 
     click 702 386 p 
GOTO MORE  
if COPPER IN #PROPERTY 4  ;Copper 
     set %c %c + 1 
if %mark = 1 
     click 732 360 p 
     GOTO MORE 
if BRONZE IN #PROPERTY 4   ;Bronze 
     set %b %b + 1 
if %mark = 1 
     click 770 371 p 
     GOTO MORE 
if GOLD IN #PROPERTY 4  ;Golden 
     set %g %g + 1 
if %mark = 1 
     click 656 466 p 
     GOTO MORE 
if AGAPITE IN #PROPERTY 4  ;Agapite  
     set %a %a + 1 
if %mark = 1 
     click 702 470 p 
     GOTO MORE 
if VERITE IN #PROPERTY 4  ;Verite 
     set %ve %ve + 1 
if %mark = 1 
     click 735 471  p 
     GOTO MORE 
if VALORITE IN #PROPERTY 4   ;Valorite 
     set %va %va + 1 
if %mark = 1 
     click 777 469 p 
     GOTO MORE 
if dull notIN #PROPERTY && shadow notIN #PROPERTY && copper notIN #PROPERTY && 
     + bronze notIN #PROPERTY && gold notIN #PROPERTY && agapite notIN #PROPERTY && 
     + verite notIN #PROPERTY && valorite notIN #PROPERTY 4   ;regular  
     set %i %i + 1 
if %mark = 1 
     click 650 430 p 
     GOTO MORE 
if unfilled IN #PROPERTY 4  ;none 
     set %uf %uf + 1 
if %mark = 1 
     click 718 436 p 
     GOTO MORE 
if Repair in #property 3 
     set %rd %rd + 1 
if %mark = 1 
     click 690 437 p 
     goto more 
return 

sub menu 
MENU HIDE 
if %mark = 0 
return 
menu clear 
      menu window size 100 295 
      menu window color BLACK 
      menu font bgcolor BLACK 
menu window title Bod counter 
menu font align center 
      menu font style 
   menu font color red 
   menu font size 11 
menu text stat 18 0 Total Deeds 
      menu font align center 
      menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 25 Iron 
   menu font size 11 
   menu font style 
   menu font color green 
menu text stat 5 50  Dull 
   menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 75 Shadow 
   menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 100 Copper 
   menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 125 Bronze 
   menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 150 Gold 
   menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 175 Agapite 
   menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 200 Vetite 
menu font style 
   menu font color green 
   menu font size 11 
menu text stat 5 225 Valorite 
menu font align center 
   menu font color green 
   menu font size 11 
menu text stat 5 250 Unfilled 
menu font color green 
   menu font size 11 
menu text stat 5 275 Repair 
      menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 25 %i 
   menu font size 11 
   menu font style B 
   menu font color RED 
menu text stat 70 50 %d 
   menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 75 %s 
   menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 100 %c 
   menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 125 %b 
   menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 150 %g 
   menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 175 %a 
   menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 200 %ve 
menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 225 %va 
menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 250 %uf 
menu font style B 
   menu font color RED 
   menu font size 11 
menu text stat 70 275 %rd 
set #menubutton N/A 
   menu show 
if %mark = 1 || %mark = 2 
halt 
return 

SUB IDD 
event macro 8 7 
      wait 1s 
     set %backpackid #contid 
display msg Click ok and target pack with Deeds to move. 
      set #targcurs 1 
wait 5 
aaaa: 
if #targcurs = 1 
   goto aaaa 
wait 20 
     set %bankPACK #ltargetid 
display msg Click ok and target the pack you wish to put deeds into. 
     set #targcurs 1 
wait 5 
aaaaa: 
if #targcurs = 1 
   goto aaaaa 
wait 20 
     SET %DEEDPACK #ltargetid 
     FINDITEM %bankPACK C_ , %BACKPACKID 
     wait 20 
      set #LOBJECTID %bankPACK 
      set #findmod 0_0 
      set #NEXTCPOSX 10 
      set #NEXTCPOSY 300 
      event macro 17 0 
     wait 20 
loopit: 
      finditem EWH c_ , %bankPACK 
      wait 5 
     ignoreitem #findid 
IF #FINDID = X 4 
     DISPLAY YESNO Do you wish to organize your deeds now? 
if #dispres = yes 2 
SET %MARK 1 
     gosub organize 
      halt 
if #findKind = 0 
{ 
   event drag #findid 
    wait 10 
      finditem %DEEDPACK 
        set #findmod 20_10 
           click #findx #findy 
            WAIT 5 
goto loopit 
return