31
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
;==========================================================
; Paulonius Cotton Pickin' Stealthy Cotton Picker
;==========================================================
; Position yourself in the middle of a cotton field
; on a toon that can consistently stealth, or that you
; would like to train stealth on. Script will stealth around
; picking cotton. Cotton doesn't spawn very fast, but,
; it doesn't fight back either...
;----------------------------------------------------------
;==========================================================
; Paulonius Textile Sweatshop
;==========================================================
; I recommend getting a bunch of spinning wheels and a loom
; set them all up within reach. Have a secure with a bunch
; of wool in it. The more spinning wheels the better.
; You can really get that turn of the century feel if you
; have five or so spinning wheels within reach and it will
; CRANK out yarn. You only need one loom.
; Set the Value of %Secure in the sub Setup if you don't want
; the script to reset it every time you start.
;==========================================================
;=====================================================================
; Script Name: Bowcraft Skill Trainer from 0 to 120
; Author: Paulonius
; Version: 0.10
; Client Tested with:
; EUO version tested with:
; Shard OSI / FS: OSI
; Initial Release Date: 05/03/2011
; Revision Date: TBD
; Global Variables Used: N/A
; Purpose: Train BC/F
;======================================================================
; TO Do List
; 1. build a skill tracking menu
;
;======================================================================
; Instructions:
; 1. Position yourself with reach of a secured trash barrel
; 2. Be within reach of a secure w/ standard ingots & boards on top level
; 3. Have a tinker kit in your backpack
; 4. Hit Play
Start_CrossHeal:
Set %LoopNumber 0
Repeat
{
Event macro 50 2
Set %loopnumber %loopnumber + 1
}
Until #ltargetid = %1 || %Loopnumber > 4
event sysmessage target is #ltargetid loop number is %Loopnumber
If %loopnumber > 6
Return
event macro 59
;==========================================================
Sub Cut_Logs
event sysmessage In Cut Logs
Finditem %Hatchet C_ , #CharID
If #FindCnt < 1
Finditem %Hatchet C_ , #BackpackID
If #FindCnt < 1
Return
Set %Cutwith #FindID
Finditem ZLK C_ , #BackpackID
event sysmessage Hatchet is %CutWith Logs are #Findtype #findid LtargetID is #LtargetID
For %LogCount 1 #FindCnt
{
Set #Findindex %LogCount
Set #LobjectID %CutWith
Event Macro 17 0
target 20
Set #LtargetID #FindID
event sysmessage Findindex is #Findindex TargetID is #LtargetID
Event Macro 22 0
Wait 20
}
Wait 20
Return
Gosub Parameter_Parser 1 12 123 1234 12345 123456
Halt
Sub Parameter_Parser
Set %TotalParameters %0
Set %ParameterCount 0
Repeat
{
Set %ParameterCount %ParameterCount + 1
Set %CurrentParameter % . %ParameterCount
Set %X . %ParameterCount %CurrentParameter
Display Parameter %ParameterCount of %TotalParameters total is %X . %ParameterCount
}
Until %ParameterCount = %TotalParameters
return