3706
General UO Chat / Re: Pacific Shard Players
« on: May 08, 2009, 07:27:28 PM »
Pacific Shard here... although im now actually physically located on the East coast.. ow well...
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.
set %JINDEX #JINDEX + 1
event macro 15 10
gosub JournalTimer 3
sub JournalTimer
set %OldLPC #LPC
set #LPC 100
set %InternalTimer #scnt + %1
While #TARGCURS <> 1
{
IF %jindex <= #Jindex
{
ScanJournal %JINDEX
set %JINDEX %JINDEX + 1
if ruining_thy_spell in #Journal || %InternalTimer < #scnt
{
set #LPC %OldLPC
Return #True
}
}
ELSE
{
wait 1
}
}
return #False
;==================================
; Script Name: AutoTarget
; Author: JosephAJ
; Version: V1.0
; Client Tested with: 5.0.5a
; EUO version tested with: 1.5 (TV95)
; Shard OSI / FS: OSI
; Revision Date: 11.1.06
; Public Release: 11/2/06
; Purpose:
; Auto Target MOB and open health bar.
; Retarget when MOB Dead/gone.
; Requirments:
; Targeting system On
;==================================
; (C) 2006 All Rights Reserved JosephAJ
;==================================
;===========================================
; Script Name: Rose Of Trinsic Petal Picker
; Author: JosephAJ
; Version: V1.0
; Client Tested with: 5.0.??
; EUO version tested with: 1.5 (TV102)
; Shard OSI / FS: OSI
; Revision Date: 1.17.07
; Public Release: 1/17/07
; Purpose: Picks ALL Rose Of Trinsic Petals
; within 3 tiles of character.
; Requirments: None
;===========================================
; (C) 2007 All Rights Reserved JosephAJ
;===========================================
FindItem FHN G_3
set %Petals 0
If #findCnt > 0
{
set #findindex 0
Repeat
Set #Findindex #Findindex + 1
Gosub PickPetal #Findid
Until #Findindex = #Findcnt
}
Display ok Collected %Petals Petals
Halt
Sub PickPetal %1
set #lObjectID %1
Event Property %1
str Right #Property 3
str left #strres 2
If #Strres < 0
Set #Strres 0
event ExMsg #charID 3 0 #findindex , /
+ #findcnt , : #Strres Petals
Set %Petals %Petals + #Strres
If #Strres > 0
For %count 1 #Strres
{
event Macro 17 0 ; 5
wait 20
}
Return