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
}