Well, i'm up to 830k points. Haven't claimed anything yet. Just wanted to add TM, you rock, your fisher gets me close to 10k easily a day (yeah, I know that'd be a lvl 11 arti, but I don't have a set up to leave in a dungeon.)  Anyways, I am fishing up some of the SOS. Where my boat is around, I'll keep the SOSs to fish up in the area that doesn't take me half an hour to get to. Also to save time, you can just dump the chest with junk in it on the dude to turn in. Gets tiring to go sell all stuff when you have 12-15 chest easily.

Yeah I've used the fisher to hand in a lot too.  I started looting maps and nets too.  I still keep all colored nets and ASOS's.  I want to stock pile a bunch and when I start to actually play uo again to sit down and just do all the ASOSs and then do all the nets for fun. lol

I should probably script other things to make more money and what not...but the fisher is just a lot simpler to do.  It doesn't require long to set up like my library script.  Also less likely of getting caught.

Welcome to the site poophead!

OMG, if you are indeed interested in Java programming you should check out http://www.javaranch.com.

What I know about the topic could barely fill a thimble compared to someone like TM who does this for a living but what you chose to learn first is really directed by what it is you want to do. Most of the web-based business applications that come into the company I work for are .NET with integrated Java and VBScript. If you are looking to eventually program for a business app dev shop that might be a good place to start. On the other hand, PHP seems to be the WWW choice if you are more interested in maintaining dynamic web environments. Straight out desktop application programming might send you down the C++ or C# route. VBScript is really used mostly for network administration and/or web programming.

So really, where do you want to go today? <---- hehe, I had to say it...

Yeah if you want to do it for a living I'd go w/ .NET first than java.  Those are the main things businesses use these days. 

if you just want syntax stuff okay...You can see my super ugly code that I just use real quick that's mad ghetto to just do what I want to do quickly.

loop:
event macro 13 9

 target 2s
 
 event macro 23 0

gosub cheat
goto loop



sub cheat
{
 msg /add
 key ENTER
 repeat
 wait 1
 until #targcurs = 1
 key esc
 return
}


InitEvents

set %reg REMOVED
set %white REMOVED
set %loom REMOVED
set %amt

yarn:
finditem NLF_PLF_ZPC_UAG_QLF C_ , #backpackid

if #findid <> X
{
     if ( ( #findcol = 1153 ) || ( #findcol = 1258 ) )
     {
          set %white #findid
          set %amt #findstack
          ignoreitem #findid
          goto yarn
     }
     else
     {
          set %reg #findid
          ignoreitem #findid
          goto yarn
     }
}




for %i 1 %amt
{
set #ltargetid %loom

set #lobjectid %reg

event macro 17 0
wait 10
event macro 22 0

wait 20

event macro 17 0
wait 10
event macro 22 0

wait 20

event macro 17 0
wait 10
event macro 22 0

wait 20

event macro 17 0
wait 10
event macro 22 0

wait 20

set #lobjectid %white

event macro 17 0
wait 10
event macro 22 0

wait 20
}

finditem ZZF C_ , #backpackid

for %i 1 #findcnt
{
 event drag #findid
 click 953 503 p
 wait 20
 set #findindex #findindex + 1
}

halt


set %bank_bag  REMOVED
set %bankId REMOVED

set %returnBool #false
set %personToBuyFrom the , #spc , reagent , #spc , vendor
set %vendorId NA
set %amtToBuy NA
set %itemsToShopFor JUF_KUF_SZF_RZF_JZF_WZF_KZF_MZF
set %itemWeight 10
set %maxGold 0

loop:
gosub findVendor

if ( %returnBool )
{
 ignoreitem reset
 goto loop
}

gosub openShop

gosub shopForItem

if ( #weight > 300 )
{
gosub bankregs
}

goto loop







sub bankregs
{

wait 15
wait 5
finditem JUF_KUF_SZF_RZF_JZF_WZF_KZF_MZF C_ , #backpackId ;-<<<<<<<<<<<< Your backpack id
if #findkind = -1 2
   return

event drag #findid
wait 15

     msg $
finditem %bank_bag
set #findmod 22_10
click #findx #findy p

gosub bankregs
return
}



sub getGold
{

wait 15
wait 5

finditem POF C_ , %bankId ;-<<<<<<<<<<<< Your backpack id
if #findkind = -1 2
{
   return
   halt
   }
event drag #findid
wait 15

msg 2300
key enter

wait 20

;event macro 8 1

;set %x #contposx + 142
;set %y #contposy + 218


click 1122 406 p
return
}















sub shopForItem
{
if ( %vendorId = NA )
{
set %returnBool #true
return
}

wait 5
getShopInfo

if ( #shopCnt = 0 )
{
ignoreitem %vendorId
gosub findVendor

if ( %returnBool )
{
         ignoreitem reset
         goto loop
}

gosub openShop
gosub shopForItem
return
}

set %wamt %amtToBuy

if ( %amtToBuy = NA )
{
set %wamt ( #maxWeight - #weight ) * %itemWeight
}



if ( %wamt > #shopItemMax )
{
set %wamt #shopItemMax
}

set %maxGold ( %wamt * #shopItemPrice ) - #gold

if ( %wamt * #shopItemPrice > #gold && %wamt * #shopItemPrice < 2300 )
{
gosub getGold
}

getShopInfo

set %clickx #contPosX - 41
set %clicky #contPosY - 125
click %clickx %clicky f
click %clickx %clicky f

setShopItem #shopItemID %wamt


set %clickx #contPosX + 49
set %clicky #contPosY + 207
click %clickx %clicky

return
}

sub findVendor
{
set %returnBool #false

finditem HS_IS G_10

if #FINDKIND = -1
{
set %vendorId NA
set %returnBool #true
return
}

set %vendorId #findid

event property %vendorId

if ( %personToBuyFrom notIn #property )
{
ignoreitem %vendorId
gosub findVendor
}
return
}

sub openShop
{
exevent popup %vendorId
wait 10
click 31 41 f
wait 20
if ( #contKind <> UQCD )
{
;gosub openShop
gosub findVendor
}
return
}


repeat
{
 onhotkey f7
 {
  gosub a
 }
}
until #false

sub a
{
finditem LQF C_ , #backpackid

set #lobjectid #findid
event macro 17 0

event macro 13 9

 repeat
 wait 1
 until #targcurs = 1

 event macro 23 0

gosub cheat
return
}



sub cheat
{
 msg /add
 key ENTER
wait 5
 key esc
 return
}


;HARDYZHARDYZHARDYZHARDYZHARDYZHARDYZ
;A Hardyz String Comparison Sub     H
;R    So you know I pwnz            A
;D         PWNZ HARD                R
;Y  I just like displaying my name  D
;Z                                  Y
;HARDYZHARDYZHARDYZHARDYZHARDYZHARDYZ

set %letterA 1
set %letterB 2
set %letterC 3
set %letterD 4
set %letterE 5
set %letterF 6
set %letterG 7
set %letterH 8
set %letterI 9
set %letterJ 10
set %letterK 11
set %letterL 12
set %letterM 13
set %letterN 14
set %letterO 15
set %letterP 16
set %letterQ 17
set %letterR 18
set %letterS 19
set %letterT 20
set %letterU 21
set %letterV 22
set %letterW 23
set %letterX 24
set %letterY 25
set %letterZ 26
set %remainOne
set %remainTwo
set %emptyOne
set %emptyTwo
set %letterOne
set %letterTwo
set %valueOne
set %valueTwo
set %newOne
set %newTwo

; This sub takes two arguements that are strings
; It will then tell you which String comes first
; It returns -1 if the first parameter comes first
; It returns 1 if the second paramter comes first
; It returns 0 if they are the same string
sub compareString
{
 str Len %1
 set %remainOne #strRes
 str Len %2
 set %remainTwo #strRes
 set %emptyOne ( %remainOne = 0 )
 set %emptyTwo ( %remainTwo = 0 )
 
 ;display %emptyOne
 ;Base cases
 if ( %emptyOne || %emptyTwo )
 {
   if ( %emptyOne && %emptyTwo )
   {
    return 0
   }
   if ( %emptyOne )
   {
    return -1
   }
   else
   {
    return 1
   }
 }

  str Left %1 1
  set %letterOne #strRes
 
  str Left %2 1
  set %letterTwo #strRes
 
  set %valueOne %letter . %letterOne
  set %valueTwo %letter . %letterTwo
 
  if ( %valueOne < %valueTwo )
  {
   return -1
  }
  if ( %valueOne > %valueTwo )
  {
   return 1
  }
 
  str Del %1 1 1
  set %newOne #strRes
 
  str Del %2 1 1
  set %newTwo #strRes
 
  gosub compareString %newOne %newTwo
  return #result
}


finditem EWH G
set #ltargetid #findid
msg i wish to lock this down $
event macro 22 0
ignoreitem #findid

wait 100


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;Hardyz Ghetto Scroll Buyer (in luna) ;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set %bag XXXXXX ; CHANGE ME
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

set %vendorId NA
set %personToBuyFrom Holy , #spc , Mage
set %itemsToShopFor DPF

loop:

gosub findVendor
buy:
gosub shopForItem

finditem %itemsToShopFor C_ , #backpackid

if ( #findkind = -1 )
{
  finditem %itemsToShopFor G_3
  if ( #findkind = -1 )
  {
   goto buy
  }
}

if ( #result )
{
goto loop
}

moves:
gosub moveScrolls

finditem %itemsToShopFor C_ , #backpackid
if ( #findkind <> -1 )
{
   goto moves
}

finditem %itemsToShopFor G_3
if ( #findkind <> -1 )
{
   goto moves
}

goto loop


sub openShop
{
exevent popup %vendorId
wait 10
click 31 41 f
wait 20
if ( #contKind <> UQCD )
{
;gosub openShop
gosub findVendor
}
return #false
}

sub findVendor
{
finditem HS_IS G_10

if #FINDKIND = -1
{
       ignoreitem reset 1
       gosub findVendor
return #result
}

set %vendorId #findid

event property %vendorId

if ( %personToBuyFrom notIn #property )
{
ignoreitem %vendorId 1
gosub findVendor
return #result
}
return #false
}

sub scrollShop
{
getShopInfo
while ( #shopItemType notin %itemsToShopFor && #shopCurPos <> #shopCnt )
{
set %clickx #contPosX + 74
set %clicky #contPosY - 16
click %clickx %clicky f

getShopInfo
}

if ( #shopItemType notin %itemsToShopFor )
{
return #true
}
return #shopItemType
}

sub moveScrolls
{
finditem %itemsToShopFor G_3
if #findkind = -1
{
   finditem %itemsToShopFor C_ , #backpackid
   if #findkind = -1
   {
      return
   }
}

event drag #findid
wait 15

msg $
finditem %bag
set #findmod 22_10
click #findx #findy p
return
}


sub shopForItem
{
    gosub openShop
gosub scrollShop

if ( #result )
{
ignoreitem %vendorId 1
gosub findVendor

if ( #result )
{
return #result
}
gosub shopForItem
return #result
}


set %amtToBuy #shopItemMax

      ignoreitem %vendorId 1
}

set %newMax  %amtToBuy * #shopItemPrice

if ( %newMax > #gold  && %newMax < 2300 )
{
gosub withdrawGold %newMax
gosub shopForItem
return #result
}

getShopInfo

set %clickx #contPosX - 41
set %clicky #contPosY - 125
click %clickx %clicky f
click %clickx %clicky f

setShopItem #shopItemID %amtToBuy


set %clickx #contPosX + 49
set %clicky #contPosY + 207
click %clickx %clicky

return #false
}


sub withdrawGold
{
set %goldneeded %1 - #gold

msg withdraw %goldneeded $
return #false
}


set %food PRD_RQD_QQD_PQD_YRD_HND_SQD_BND_AQD_FUD
set %charName REMOVED
set %cotton NFF
set %cottonId removed
set %xpack 1165
set %ypack 222

if ( %charName = #charName )
{
loop:
 gosub floor
    finditem %cotton C_ , #backpackid

wait 20
   
   repeat
   {
 event drag %cottonId
 }
 until #conttype = %cotton
 wait 10
 msg $
 wait 10
 event macro 15 1
    finditem %food C_ , #backpackid

   repeat
   finditem %food C_ , #backpackid
   until #findkind <> -1
 click %xpack %ypack p
 wait 10
 finditem %food C_ , #backpackid
 event drag #findid
 wait 5
 click 380 318 p
 gosub floor

finditem %cotton C_ , #backpackid
 repeat
   finditem %cotton C_ , #backpackid
   until #findcol <> 1258 && #findkind <> -1
 event drag %cottonId
 
 msg $
 wait 10
 click 418 333 p
 wait 2s
}

sub floor
{
 event drag %cottonId
 wait 10
 msg $
 click %xpack %ypack p
 exevent popup #charid
 wait 10
 click 80 130
 finditem %cotton C_ , #backpackid
 repeat
   finditem %cotton C_ , #backpackid
   until #findkind <> -1
 set #ltargetid %cottonId
 event macro 22 0
 return
 }



I heart databases

lol

Welcome!

I'm such a Newb.  I'm hitting the next button and it kept going to different threads and I'm like wow my introduction thread is soooo long! lol   I know not one of my greatest moments.  I love how under my name it says Elite Newbie lol