; Location Of EN - Sub Files:
set %EN_SubScriptPath C:\EASYUO\EUO , #spc , Scripts\ENs-Script , #spc , Library
set %EN_SubScriptPath C:\Documents , #spc , and , #spc , Settings\Me\desktop\ensubs
Call #curpath , ENs-Settings.txt ; Sets up pathing for ENs Scripts
call %EN_SubScriptPath , \ENs-Subs-Standard.txt ENs_InitializeENsScriptingEnviroment
; Sample Code (Attach subs to end)
; Scans around you and places health bars of upto 9 people onscreen
; Then Displays message containing the Health % Of the 9 people
; Try running it at the bank
set #lpc 500
; Find People
ignoreitem #charid 1
finditem XU_IS_AV_HS_ZU G_10
set %totalBars #findcnt
if %totalBars >= 9
set %totalBars 9
for #Findindex 1 %totalBars
Set %ID . #findindex #findid
; Add the 9 People as targets.
set %yPos 0
For %Count 1 %totalBars
{
gosub HealthBar ADDID %ID . %Count 25 %ypos
set %yPos %ypos + 60
}
Get the Targers Health.
gosub HealthBar STATUSALL
set %x
For %Count 1 %totalBars
set %x %x , #spc , : , #spc , %HealthBarHits . %Count
display ok Health Percentages: %x
halt
[/spoiler]
; Initialize Pathing and Create the table
set #lpc 9000
set %ENs_Subs_Tables C:\easyuo/EUO , #spc , Scripts\ENs-Scripts\ENs-Subs-Tables.Txt
call %ENs_Subs_Tables EN_Table_Create Equipped id Property Color ; Create table
; populate table with equipment worn information
finditem * C_, #charid
if #findcnt > 0
{
set !s #scnt
for #findindex 1 #findcnt
{
event property #findid
; Method 1
Call %ENs_Subs_Tables EN_Table_Append #findid #property #findcol
; Method 2
; set %Equipped_id #findid
; set %Equipped_Property #property
; set %Equipped_Color #findcol
; Call %ENs_Subs_Tables EN_Table_Append
}
set !t #scnt - !s
display ok Saved %Equipped_RecordCnt Records in !t seconds
}
display ok Scrolling Thu Table By Record Number $$
for !RecNo 1 %Equipped_RecordCnt
{
CAll %ENs_Subs_Tables EN_Table_Goto !RecNo
display ok TableOn: %EN_TableOn RecordOn: %Equipped_RecordOn Deleted: %Equipped_Deleted $ $ ID= %Equipped_ID Property= %Equipped_Property $$ %Equipped_RecordOn : prior= %Equipped_Prior Next= %Equipped_Next ; at bottom
}
display ok Scrolling Thu Table via TOP Next
call %ENs_Subs_Tables EN_Table_Top
repeat
display ok TableOn: %EN_TableOn RecordOn: %Equipped_RecordOn Deleted: %Equipped_Deleted $ $ ID= %Equipped_ID Property= %Equipped_Property $$ %Equipped_RecordOn : prior= %Equipped_Prior Next= %Equipped_Next ; at bottom
call %ENs_Subs_Tables EN_Table_Next
Until #result = #false ; at bottom
display ok Scroll Thu Table Backwards via Bottom Prior
call %ENs_Subs_Tables EN_Table_Bottom
repeat
display ok TableOn: %EN_TableOn RecordOn: %Equipped_RecordOn Deleted: %Equipped_Deleted $ $ ID= %Equipped_ID Property= %Equipped_Property $$ %Equipped_RecordOn : prior= %Equipped_Prior Next= %Equipped_Next ; at bottom
call %ENs_Subs_Tables EN_Table_Prior
Until #result = #false ; at bottom
; Create tables and assign Data.
call %ENs_Subs_Tables EN_Table Create Food Catagory Discription ; Create table 'Food' with 2 fields
call %ENs_Subs_Tables EN_Table Create FoodTypes Catagory Name
call %ENs_Subs_Tables EN_Table Use Food ; set active table
call %ENs_Subs_Tables EN_Table Add Cheese Cheese
call %ENs_Subs_Tables EN_Table Use FoodTypes ; set active table
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Provolone
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Swiss
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Cheddar
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Feta
call %ENs_Subs_Tables EN_Table Use Food ; set active table
call %ENs_Subs_Tables EN_Table Add Milk Milk
call %ENs_Subs_Tables EN_Table Use FoodTypes
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Soy
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Haznut
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Non-Fat
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Low-Fat
call %ENs_Subs_Tables EN_Table Add %Food_Catagory Whole
; Get a Subset of data by setting a filter from one table to another
call %ENs_Subs_Tables EN_Table Use FoodTypes ; set active table
call %ENs_Subs_Tables EN_Table SetFilter Catagory = %Food_Catagory
C:\Program Files\EUO\EN's-Script Library
; Standard En Framework Settings: Location Of EN - Sub Files - EDIT THIS LINE OR ENTERLINE in ENs-Settings.txt
set %EN_SubScriptPath C:\Program , #spc , Files\EUO\EN's-Script , #spc , Library
ARgH! I hate Vista!
My filepath is here:Code: [Select]C:\Program Files\EUO\EN's-Script Library
My code looks like this:Code: [Select]; Standard En Framework Settings: Location Of EN - Sub Files - EDIT THIS LINE OR ENTERLINE in ENs-Settings.txt
set %EN_SubScriptPath C:\Program , #spc , Files\EUO\EN's-Script , #spc , Library
I'm 'running as administrator'...and yet the script I'm trying to use just stops when I hit play.
Do I need to drop everything into C: again? I really hate that...
I'm an idiot. Disregard.
Call #curpath , ENs-Settings.txt
Call %EN_SubScriptPath , \ENs-Subs-BodsAndNPCs.txt ENs_sellItem
Call %ENs-Subs-BodsAndNPCs SellItem abc123 John Talk ENK 5 6 End
I am attempting to learn how to call your scripts. IF I wanted to call your ENs-Subs-BodsAndNPCs, I would do the following?Code: [Select]Call #curpath , ENs-Settings.txt
Call %EN_SubScriptPath , \ENs-Subs-BodsAndNPCs.txt ENs_sellItem
then to useCode: [Select]Call %ENs-Subs-BodsAndNPCs SellItem abc123 John Talk ENK 5 6 End
I believe the parameters are as follows:
abc123 - vendorid
John - name
ENK - item to sell
5 - Quantity
6 - minimal price
end - end resume
Is this correct? :-\
I am attempting to learn how to call your scripts. IF I wanted to call your ENs-Subs-BodsAndNPCs, I would do the following?Code: [Select]Call #curpath , ENs-Settings.txt
Call %EN_SubScriptPath , \ENs-Subs-BodsAndNPCs.txt ENs_sellItem
then to useCode: [Select]Call %ENs-Subs-BodsAndNPCs SellItem abc123 John Talk ENK 5 6 End
I believe the parameters are as follows:
abc123 - vendorid
John - name
ENK - item to sell
5 - Quantity
6 - minimal price
end - end resume
Is this correct? :-\
Been a long time.. so did it work ??? It should be extremely simple to get running...
set #curpath , ENs-Settings.txt
set %EN_SubScriptPath%EN_SubScriptPath , \ENs-Subs-BodsAndNPCs.txt ENs_sellItem
start:
Call %ENs-Subs-BodsAndNPCs SellItem YYJVQ Neztam Talk WZF 10 1 End
halt
call #curpath , ENs-Settings.txt
set %ENs-Subs-BodsAndNPCs %EN_SubScriptPath , \ENs-Subs-BodsAndNPCs.txt
Call %ENs-Subs-BodsAndNPCs SellItem YYJVQ Neztam Talk WZF 10 1 End
halt
call #curpath , ENs-Settings.txt
call %EN_SubScriptPath , \ENs-Subs-BodsAndNPCs.txt SellItem YYJVQ Neztam Talk WZF 10 1 End
set %EN_ScriptName The-Ghost-Menu-Experiement
call #curpath , ENs-Settings.txt ; Put your custom pathing information inside here.
call %EN_SubScriptPath , \ENs-Subs-Standard.txt ENs_SetupSubNamesAndPaths ; see this sub for all pathing vars to subs that get set
set %EN_Script_MenuDefinition _ControlBar_Status_HeartBeat_Location
call %ENs_Subs_Menus SetProgressBox %EN_ScriptName - #CharName ; initalize menu
set !Count 1
Repeat
call %ENs_Subs_Menus CheckProgressMenu noghost ; if dont add noghost option checks if you are a ghost.
; do something
set !Count !Count + 1
call %ENs_Subs_Menus GLOBALSetStatus Status Line - My Count: !count
wait 1
until %DontStop = #false
Halt
Good day EN's
Does your EN's - Health Bars can be use to heal and cure pet. I'm trying to find a way to scan my pet health bar to see if he is poison.