Show Posts

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.


Topics - Tana

Pages: [1]
1
Hey guys Wrote a script to get my taming from 90 - 120 using nothing but the Animal Taming masterys!
Code: [Select]

;=============================================================================
;-- Script Name:Legendary Taming Trainer
;-- Author: Tana
;-- Version: 1.0
;-- Client Tested with: 7.0.50.0
;-- EUO version tested with: 1.5.1.300
;-- Shard: OSI
;-- Revision Date: 6/9/16
;-- Public Release: 6/6/16
;-- Copyright: 2016
;=============================================================================
;--------------------Purpose--------------------------------------------------
;Trains Animal Taming frorm 90 to 120 using Masterys
;=============================================================================
;-------------------Instructions----------------------------------------------
;REQUIRES Taming Mastery (Any LvL) and Book of Masterys set to taming.
;Get a pet and press play!
;For fastest training wear as much Mana Regen as possible
;Meditation is recomended this script will attempt to med.
;Enjoy!
;=============================================================================
;Special Thanks to TM! For his med sub, The Ghost! for his debug help, and to Endless Night! for clearing up a buff problem!
;Also want to thank the SUO community without whom i would never have started scripting!
;=============================================================================

2
Script Debug / ENs buff bar help!
« on: June 06, 2016, 12:43:35 AM »
Hey guys ive been messing with a script that trys to med when mana is low however im trying to use ens buff bar to see if my char is meditating but its not working properly. not sure what to do to fix the sub can someone give it a look?

Code: [Select]
Sub mana
if #mana < 30
 {
  medloop:
  event macro 13 46
  wait 11s
  call ScanBuffBar
  wait 10
  if  _Meditation_ in %BuffBarIconNames
   {
   gosub wait
   }
  if #mana < #maxmana
   {
   goto medloop
   }
 }
return

sub wait
Repeat
  wait 1
until #mana = #maxmana
return

not sure what im doing wrong but it ignores the buff and keeps casting med over and over instead of repeating the wait.

3
Scripting Chat / Opinions on taming scripts
« on: May 26, 2016, 02:56:27 PM »
Hey guys was wondering what your opinions on the taming scripts over at easyuo any recomendations would be helpful :)

4
Scripting Chat / Training on a horse while mounted
« on: May 24, 2016, 09:05:00 PM »
Hey guys ive been running some spellweaving and magery scripts the last couple of days and if your casting on a horse or something while guilded it will kill it. well by mistake today i starrted my script forgot i was guilded and quickly mounted my horse so i didn kill it. and to my suprise the script was still going!! So if your guilded with alot of VvV gold or something dont drop it to train your casting skills just target the horse then mount!!!

PS. This is on OSI no idea if this works on free shards.

5
Hey guys i wrote this to train disco past 90 since ive read that the masterys are a simple way to do it would love for your guys imput!

Code: [Select]
;=============================================================================
;-- Script Name:Bard Mastery Trainer
;-- Author: Tana
;-- Version: 1.0
;-- Client Tested with: 7.0.49.2
;-- EUO version tested with: 1.5.1.297
;-- Shard OSI
;-- Revision Date:4/15/16
;-- Public Release: 4/15/16
;-- Purpose: Trains Bard skills from 90-120 using masterys
;-- Copyright: 2016
;=============================================================================
;-----------------------------Instructions------------------------------------
;Must have completed mastery quest for whatever skill your training to gain
;this script has only been tested with 2/4 casting if you have less it may
;need adjusted
;a TON! of insterments in the top of your pack (lute Drum harp Tamb.)
;we recomened as much Mana Mana Regen and Lower Mana Cost as possible
;=============================================================================

6
Script Debug / Very Rare but random crashes
« on: April 03, 2016, 04:23:13 PM »
I finished my script its kinda ugly the travel subs are sad but i dont know how to use the better ones yet so theyll have to do. anyway my problem is that the client will randomly crash. its only happened twice so far once when dropping the maps in the trash can and once when recalling back to  the room

Code: [Select]
;=============================================================================
;-- Script Name:Dark Guardian Farm
;-- Author: Tana
;-- Version: 1.0
;-- Client Tested with: 7.0.49.2
;-- EUO version tested with: 1.5.1.297
;-- Shard OSI
;-- Revision Date:4/3/16
;-- Public Release:
;-- Purpose: Faming TMAPS for clean up points
;-- Copyright: 2016
;=============================================================================
;--------------------Purpose--------------------------------------------------
;Kills Dark Guardians in Doom and loots the TMaps to throw away for Clean Up
;points
;=============================================================================
;-------------------Instructions----------------------------------------------
;WARNING this script does not check for Broken Gear
;This script requires that you have less then 13 items in your pack including
;your lootbag and Bag of Sending if your using it
;This Script assumes your a Sampire Using a double axe or other weapon with
;secondary ability being Whirlwind Attack
;Start script near your trash can
;Mark your trash can rune within 2 tiles of your trash can
;Mark your rune to the room outside of the dark guardian room at least 5 tiles
;west of the door
;If your using followers make sure they can survive in the rooom i use a swampy
;=============================================================================
;----------------Coming Soon--------------------------------------------------
;Better Travel Subs once I figure out how they work
;Better movement once I figure out a cleaner way for doing it Rails maybe?
;TM CLAw support once I figure out how to use it lol
;=============================================================================
;Special Thanks to The Ghost for dealing with my scripting questions
;Special Thanks to DXrom I borrowed a bit of his LAME script to set WW
;Special Thanks to TM for his BOS sub
;Special Thanks to the SUO community for being the great people that you are
;=============================================================================

;=============================================================================
;-------------Variables-------------------------------------------------------
;------------DO NOT EDIT------------------------------------------------------
;=============================================================================
;
SET %creature WD ;Dark Guardian
SET %loot XVH   ;TMAPS
SET %trashcan CBQPOQD ;trashcan
SET %backpack #backpackid
SET %CORPSE YFM
set %safety 4 ;DO NOT EDIT
set %spellTimer #scnt2 ;DO NOT EDIT
set %attacking #false
set %looting #false
set %noloot #true
SET %setup #true

;=============================================================================
;-----------------MAINLOOP----------------------------------------------------
;=============================================================================

main:
 if #charghost = yes
  {
  halt
  }
 if %setup = #true
  {
gosub FirstSetup
}
gosub weightcheck
gosub attack
goto main

;=============================================================================
;-----------------MAINSUBS----------------------------------------------------
;=============================================================================

;-----------------------------------------------------------------------------
sub weightcheck
if %useBOS = #true
  {
   GOSUB BOS
  }
finditem * c_ , %mapbag
IF #findcnt > 110
   {
   gosub gohome
   }
   return
;-----------------------------------------------------------------------------


sub attack
FINDITEM %creature G_6
  if ( #findkind = -1 )
   {
   gosub loot
   }
  if ( #findkind = -1 ) && ( %noloot = #TRUE )
   {
   event pathfind 362 15
   wait 20
event pathfind 365 15
wait 20
   }
  if #findkind <> -1
   {
attackloop:
set %attacking #TRUE
  if #findcnt > 0 && ( %spellTimer < #scnt2 )
gosub execSec
if #FINDKIND = -1 4
finditem %creature
set %attack #findid
set #LTARGETID %attack
event macro 27 0
if #findid <> %attack
  {
set %attack #findid
set #LTARGETID %attack
event macro 27 0
goto attackloop
}
  }
  set %attacking #false
return
;-----------------------------------------------------------------------------

sub loot
;gosub get claw to start looting
;wait 90s for claw to finish and respawn time to pass
FINDITEM %CORPSE G_3
if ( #FINDKIND > -1 ) && ( %attacking = #false ) && ( %looting = #false )
   {
   set %noloot #false
   goto lootloop
   }
if #findkind = -1
   {
   set %noloot #true
   }

lootloop:
set %newcorpse #findID
set #LOBJECTID %newcorpse
if #CONTTYPE = %CORPSE
{
  set %opencorpse #CONTID
}
nextCPos 25 450
wait 20
EVENT MACRO 17
wait 20
FINDITEM %loot C_ , %opencorpse
if #findcnt > 0
 {
  set %looting #true
   exevent drag #findID
   wait 10
   EXEVENT DROPC %mapbag
   wait 10
 }
if #findcnt < 1
 {
 set %looting #false
 }
if %USEBOS = #true  ;<------Got stuck when looting after the BOS ran out of charges changed this to fix it
{
FINDITEM POF C_ , %opencorpse
if  #findcnt > 0
 {
   exevent drag #findID #findstack
   wait 10
   EXEVENT DROPC #BACKPACKID
   wait 10
 }
}
ignoreitem %newcorpse 1
return

;-----------------------------------------------------------------------------

sub dropoff
FINDITEM %loot C_ , %mapbag
if #FINDKIND > -1
{
goto droploop
}

droploop:
FINDITEM %loot C_ , %mapbag
set %trashmap #findid
EXEVENT DRAG %trashmap
wait 10
EXEVENT DROPC %trashcan
wait 10
ignoreitem %trashmap 2
if #findkind > -1
{
goto droploop
}
if #findkind = -1
{
gosub godemons
}
return
;-----------------------------------------------------------------------------

sub execSec
    cmppix 3 f
       {
       event macro 36 0
       wait 5
       }
return
;-----------------------------------------------------------------------------

SUB BOS
finditem %BOS C_ , #BACKPACKID
 if #FINDKIND <> -1
      {
          event property %BOS
          str pos #PROPERTY Charges:
          set #STRRES #STRRES + 9
          str mid #PROPERTY #STRRES 1
        if #STRRES = 0   ; as in zero charges
          {
           set %useBOS #false
           return
          }
         if ( #weight > #maxweight ) && ( %useBOS = #true )
           {
            wait 10
            set #LOBJECTID %BOS
            EVENT MACRO 17
            wait 10
            FINDITEM POF C_ , %backpack
            set %sendme #findid
            SET #LTARGETID %sendme
            EVENT MACRO 22
            wait 10
           }
      }
  if #FINDKIND = -1
   {
    SET %useBOS #false
   }
return
;-----------------------------------------------------------------------------

;=============================================================================
;--------------TRAVEL SUBS----------------------------------------------------
;=============================================================================


sub gohome
if %followers = #true
{
event macro 1 0 all , #spc , follow , #spc , me
}
  wait 20
EVENT pathfind 356 14
wait 40
EVENT MACRO 12 0
wait 40
EVENT pathfind 352 14
wait 20
SET #LTARGETID %homebook
EVENT MACRO 15 210
wait 60
EVENT MACRO 22 0
wait 5s
  set #LOBJECTID %mapbag
EVENT MACRO 17
  wait 20
gosub dropoff
return

;-----------------------------------------------------------------------------

sub godemons
SET #LTARGETID %doombook
EVENT MACRO 15 210
wait 60
EVENT MACRO 22 0
wait 5s
set #LOBJECTID %mapbag
EVENT MACRO 17
wait 60
if %followers = #true
   {
   EVENT MACRO 1 0 all , #spc , follow , #spc , me
   }
EVENT pathfind 355 15
wait 60
EVENT MACRO 12 0
wait 20
EVENT pathfind 356 15
if %followers = #true
{
EVENT MACRO 1 0 all , #SPC , follow , #SPC , me
wait 15s
  }
  WAIT 10
EVENT pathfind 356 11
wait 40
if %followers = #true
{
  EVENT MACRO 1 0 all , #SPC , follow , #SPC , me
  }
wait 40
if %followers = #true
{
EVENT MACRO 1 0 All , #SPC , Stay
  wair 5
  }
EVENT pathfind 365 15
  Return
;-----------------------------------------------------------------------------

;=============================================================================
;----------------SetUP Subs---------------------------------------------------
;=============================================================================


sub FirstSetup
display First we need to adjust the script for you.
wait 3
gosub opengumps
gosub setbos
gosub setmapbag
gosub settrash
gosub sethomebook
gosub setdoombook
gosub usefollowers
gosub setpixel-secondary
gosub traveltodoom
set %setup #false
return

sub setpixel-secondary
    event macro 36 0
    display Move the mouse to the BOTTOM LEFT CORNER of the secondary Weapon Move button. You have 2 seconds
    wait 2s
    savePix #CURSORX #CURSORY 3
    wait 5
    event macro 36 0
    display Everything is set!
return

sub setbos
    display yesno Do you want to use a Bag of Sending?
    if #dispRes = yes
    {
    set %useBOS #true
    display Please select your Bag Of Sending
    set #targCurs 1
     target
     repeat
     wait 1
     until #targCurs = 0
     set %BOS #LTARGETID
    }
    if #dispRes = no
    {
    set %useBOS #false
    }
Return

sub setmapbag
     display Please Select Your Map Bag.
     set #targCurs 1
     target
     repeat
     wait 1
     until #targCurs = 0
     set %mapbag #LTARGETID
     set #LOBJECTID %mapbag
     nextCpos 25 852
     event macro 17
return

sub settrash
     display Please Select Your Trash Can.
     set #targCurs 1
     target
     repeat
     wait 1
     until #targCurs = 0
     set %trashcan #LTARGETID
return

sub sethomebook
     display Please Select Your runebook with your trash can rune set as default.
     set #targCurs 1
     target
     repeat
     wait 1
     until #targCurs = 0
     set %homebook #LTARGETID
return

sub setdoombook
     display Please Select Your runebook with a rune outside of dark guardians room as default.
     set #targCurs 1
     target
     repeat
     wait 1
     until #targCurs = 0
     set %doombook #LTARGETID
return

sub usefollowers
    display yesno Do you want to use followers to spawn more Guardians?
    if #dispRes = yes
    {
    set %followers #true
    }
    if  #dispRes = no
    {
    set %followers #false
    }
return

sub  traveltodoom
     display Please Travel to the Dark guarding room resume script once inside
     pause
     set #LOBJECTID %mapbag
     nextCpos 25 852
     event macro 17
return

sub opengumps
 EVENT MACRO 8 1
 wait 10
 EVENT MACRO 8 2
 wait 10
 EVENT MACRO 8 7
return

EDIT: Fixed part of the loot sub got stuck trying to loot gold when  %useBOS changed to FALSE

7
Script Debug / check to see if container is open if not go to open it
« on: April 01, 2016, 11:18:31 PM »
im trying to figure out how to make sure a bag gump is open. the way im checking for weight is item count in a bad and it only works if the bag is open so i want it to check to amke sure the bad is open every time
id imagine id look a little something like this


Code: [Select]
FINDITEM %containerid
 if FINDKIND <> -1
{
gosub opencontainer
}

return
 

8
Script Debug / Script doesnt leave attack sub
« on: March 31, 2016, 12:08:55 PM »
Hey guys ive been working on this script to farm TMAPS for turn in points at the dark guardians in doom. the spawn and attack parts of the script work great (thanks DXrom i used some snipits of his LAME script) but i cant figure out how to get the script to stop and loot the maps.. i thought i had everything done right but im sure ive failed. would love it if someone could look it over and tell me how much oh a dunce i am lol


Thanks Tana


Code: [Select]
;-----------------Variables-------------------
;
;
SET %creature WD ;Dark Guardian
SET %loot XVH ;gold TMAPS ect
SET %homebook OXGABND
SET %doombook UWVWWQD
SET %secure ;trashcan
SET %backpack CJSXQOD
SET %CORPSE YFM
set %safety 4 ;DO NOT EDIT
set %spellTimer #scnt2 ;DO NOT EDIT


;-----------------MAINLOOP------------------------
main:
if %setupWW = #TURE
{
gosub pixelFirst
}
gosub weightcheck
FINDITEM %CORPSE G_3
if findkind <> -1
{
gosub loot
}
gosub attack
goto main
;============================================================================
;-----------------MAINSUBS------------------------
;===========================================================================

;-----------------------------------------------------------------------------
sub weightcheck
finditem * c_ %backpack
IF #weight > 400 || #findcnt > 120
   {
   gosub gohome
   }
   return
;------------------------------------------------------


sub attack
FINDITEM %creature G_6
if #findkind = -1
{
  event pathfind 362 15
wait 20
event pathfind 365 15
wait 20
 }
if #findkind <> -1
{
if #findcnt > 0 && ( %spellTimer < #scnt2 )
gosub execSec
}
if #FINDKIND = -1 4
finditem %creature
set %attack #findid
set #LTARGETID %attack
event macro 27 0
if #findid <> %attack
{
set %attack #findid
set #LTARGETID %attack
event macro 27 0
}
return
;------------------------------------------------

sub loot
;gosub get claw to start looting
;wait 90s for claw to finish and respawn time to pass
FINDITEM %CORPSE
WHILE #FINDKIND <> -1
{
set %opencorps #findID
set #LTARGETID %opencorpse
EVENT MACRO 22
FINDITEM C_%opencorpse %loot
if #FINDKIND > -1
{
exevent drag #findID
wait 10
EVENT DROPC %lootbag
}
ignoreitem %opencorpse 1
}
}
return
;------------------------------------------------

sub execSec
    cmppix 3 f
       {
       event macro 36 0
       wait 5
       }
return

;------------------------------------------------

9
Script Debug / First script, Doesnt work
« on: February 05, 2016, 11:25:58 PM »
Hey guys i spent all night trying to research what i was doing and i apparently got it wrong >.< can someone look it over and tell me what i did that was bad? its not finished i dont have the loot or drop off subs written but as bad as ive done i dont think theyd work anyway
Code: [Select]
;------------------------------------
;-- Script Name:Dark Guardian Farm
;-- Author: Tana
;-- Version: 1.0
;-- Client Tested with: 7.0.6.5 (Patch 95)
;-- EUO version tested with:
;-- Shard OSI
;-- Revision Date:
;-- Public Release:
;-- Purpose: Faming TMAPS for clean up/Deamon bones for golden skulls
;-- Copyright: 2016
;-----------------Variables-------------------
;
;
SET %creature WD ;WD
SET %loot POF_XVH
SET %homebook OXGABND
SET %doombook UWVWWQD
SET %secure
SET %backpack CJSXQOD
;-----------------MAINLOOP------------------------
main:
gosub weightcheck
gosub spawn
gosub attack
gosub loot
repeat
;-----------------MAINSUBS------------------------

sub weightcheck
finditem * c_ %backpack
IF #weight > 400 || #findcnt > 120
   {
   gosub gohome
   }
   else
   {
   return
   }
;------------------------------------------------------

sub spawn
FINDITEM %creature G_, 10
IF #FINDKIND = -1
{
event pathfind 366 15
wait 100
event pathfind 362 15
}
else
{
return
}

;----------------------------------------

sub attack
FINDITEM %creature G_, 10
SET #LTARGETID #FINDID
SET %enemy #FINDID
EVENT macro 27
FINDITEM !_enemy G_
IF #FINDKIND <> -1
{
repeat
}
else
{
return
}
;------------------------------------------------

sub loot
wait 200
return
;------------------------------------------------

;--------------TRAVEL SUBS-----------------------

sub gohome
EVENT pathfind 356 14
wait 5
EVENT MACRO 22 0
wait 5
EVENT pathfind 352 14
SET #LTARGETID %homebook
EVENT MACRO 15 210
wait 5
EVENT MACRO 12 0
wait 5
gosub dropoff
;---------------------------------------------------

sub dropoff
    gosub godemons

;---------------------------------------------------
sub godemons
SET #LTARGETID %doombook
EVENT MACRO 15 210
wait 5
EVENT MACRO 22 0
wait 10
EVENT pathfind 355 15
EVENT MACRO 12 0
EVENT pathfind 356 14
  goto main:
;----------------------------------------------------

10
Script Debug / Scripts causing game to crash
« on: February 04, 2016, 02:02:39 PM »
hey guys im using 3 scripts to attempt to farm T maps in doom for clean up turn ins, the way i have this going it works great! i Use CLAw to loot the maps and a script to spawn the guardians and a script to attack the guardians. for some reason the game will crash at various points. i think the problem is in the spawning script im using. can someone look over these and maybe fix the spawning script? i didn write any of these scripts slightly edited the spawning script to skip the looting cause it was a demon bone farming script thanks in advance



;=========================================
; Script Name: Raziel's Attack Script
; Author: Raziel, Tecmo
; Version: 1.20a
; Client Tested with: 5.0.1a
; EUO version tested with: 1.50.0060
; Shard OSI / FS: OSI and FS (Alexandria Tested Only)
; Revision Date: 2005-Nov-22
; Public Release: 2003-Aug-19
; Global Variables Used: None
; Purpose: Makes your warrior's hunting life all that much easier
; by Auto attacking preset creature when nearby.
;=========================================
 
;USER VARIABLES
;Set !_creature to the type of creatures you wish to auto attack
 
SET !_creature WD
SET !_AutoMoveToTarget #true ;#TRUE or #FALSE
SET !_lowHits 55
SET !_maxRange 10
; =====================================
IGNOREITEM reset
 
enemyloop:
FOR !_range 1 !_maxrange
{
   FINDITEM !_creature G_ , !_range
   IF #FINDKIND <> -1
   {
     SET #LTARGETID #FINDID
     SET !_enemy #FINDID
     GOSUB attack
   }
   WAIT 10
}
SET !_range 0
goto enemyLoop
 
; ================
SUB attack
attack_loop:
Event macro 36                         ;i added this so it would WW if its messing something up lemme know
EVENT macro 27
FINDITEM !_enemy G_
IF #FINDKIND = 1
{
   IF #HITS > !_lowHits && !_AutoMoveToTarget = #TRUE && #FINDDIST > 1
      MOVE #FINDX #FINDY a
   WAIT 20
         GOTO attack_loop
}
RETURN
; ================

that is the attack scrpit it works fine i beileve if i spawn them myself everything goes smooth


;Dark Guardian Farmer .2 Alpha by PetKiller 4/22/09
;RuneBook 1 called homebook have house rune as default location
;Runebook 2 called guardianbook have rune marked right infront of the door to guardian room.
;secure should be box/bag/ on your front porch next to where you recall to.
;Only pulls gold and bones still working on items using the loot eval.
;script is made for a dexer/mage    follow comments to change for chiv
;Have to set your own secure/homebook/guardianbook
;Lootbag not installed yet
;running about 3000-3300 bones per hour for me with demon sumoner spell.
;my char has hp regen 14 all 70s and 108 fencing and I use protection
;attack macros need work if you using pure dexor
;will auto leave room and wait bout 6 mins if someone else shows up.
;Don't restock bandies atm.

set %HumanTypes XU_AV_HS_IS
set %corpseid YFM_FEX_QEX
set %monsters WD           ;dark guardians
set %secure XXXXXXX        ;Id to your secure box at hour   YOU edit
set %homebook XXXXXXX      ;rune book with house rune as default location   YOU edit
set %guardianbook XXXXXXX  ;rune book with rune right in front of the door as default YOU edit
set %bandies ZLF           ;item id for bandaids
set %doors PJC             ;Item ID for doors at dark guardian room
set %flagwait 100
set %weapons YPO_BNF_CPH_INF_FSF_OSF_ASF_HNF_FMH_CNF_LSF_NSF_ISF_SMH_RMH_CSF_ZRF_MPH_LPH_MSF_BSF_KPO_GUO_KTF_JTF_BPH_EPH_ZSF_ATF_JPH_SOH_POH_NMH_OMH_LPO_ZTO_XTH_YTH_HSF_KSF_NPO_XPO_FUO_JPO_QPF_NPF_KPH_FYG_RHM_SFR_
    +SRH_AQF_PPF_TSF_WSF_BUO_VPO_WPO_WRH_VRH_XRH_YRH_LTF_MTF_OPO_CUO_
    +OLH_JOH_URH_EMH_WTH_DMH_QMH_CFF_BFF_PMH_GMH_ZPF_CQF_FFF_RPF_TRH_YSF_XSF_FBG_VTH_AUH_ZTH_UOH_VOH_AUO_MPO_BUH_CUH_DMH_GFF_QOH_HFF_TLH_GBG_
    +WOH_TOH_QPO_SPO_WOH_TOH_JSF_USF_LMH_MMH_QPO_SPO_PPO_RPO_JSF_USF_LMH_MMH_PPO_RPO_JSF_CWL_LWL_UJG_IJG_
set %weapons2 MMH_QPO_SPO_PPO_RPO_JSF_USF_LMH_MMH_PPO_RPO_JSF_CWL_LWL_UJG_IJG_

start:
set %loopers = 0
gosub ToonCheck
gosub weightcheck
gosub walkinside
gosub triggerspawn
gosub targets

sub gohome
set #lobjectid %homebook
set #ltargetid %homebook
set #ltargetkind 1
event macro 15 210        ;for chiv change to 15 210
target
wait 20
event macro 22 0
wait 40
return

sub gotoguardians
set #lobjectid %guardianbook
set #ltargetid %guardianbook
set #ltargetkind 1
event macro 15 210         ;chiv change to 15 210
target
wait 30
event macro 22 0
wait 40
if #charPosY = 14 || #charPosy = 15 ;make sure your guardian rune is marked on Y 14 or 15
     {
     return
     }
wait 120
gosub gotoguardians

sub opendoor
wait 20
finditem %monsters G_12 ;Don't try to open door is spawn still in there
if #findkind >= 1
     {
     gosub heal
     wait 50
     gosub heal
     wait 50
     gosub opendoor
     }
finditem %doors
set #lobjectid #findid
event macro 17
wait 10
return

sub walkinside                   ;the wait between subs works for my laggy connection
wait 20
gosub opendoor
wait 25
event pathfind 356 14
wait 25
return

sub walkoutside
event pathfind 356 14
msg all stay $
wait 110
event pathfind 354 14
gosub opendoor
wait 20
event pathfind 354 14
return

sub triggerspawn              ;could use a lot of work on this but works for now
set %loop = 0
event pathfind 366 15
gosub heal
gosub loot
wait 70
findItem %monsters G_12
if #findKind = -1
     {
     wait 70
     event pathfind 363 15
     wait 70
     }
gosub weightcheck
gosub targets
event pathfind 363 15
gosub targets
return

sub Targets                          ;more work needed here too
gosub heal
;set %loop = %loop +1
;if %loop >= 3
;     {
;     gosub triggerspawn
;     }
event pathfind 366 15
wait 50
event pathfind 363 15
gosub heal
gosub weightcheck
finditem %monsters G_12
if findKind = -1
     {
     wait 20
     gosub Targets
     }
;gosub triggerspawn
set %target #findID
set #ltargetID #findID
set #ltargetKind 1
set %flagwait ( #sCnt + 30 )
;repeat
event macro 27 0                        ;tried to have it keep attacking but would get stuck
;until #enemyid = n/a                   ;guardians will auto attack you anyway
wait 20
event macro 27 0
wait 140                                ;might have to lower this
gosub demon                             ;summon a demon to help fight and get more spawn
finditem %monsters G_12
set %target #findID
set #ltargetID #findID
set #ltargetKind 1
gosub weightcheck
gosub heal
set %loop = 0
gosub ToonCheck                          ;leave if someone shows up
gosub loot
wait 5                                  ;
gosub heal
gosub loot
wait 5
gosub heal
gosub weightcheck
gosub loot
wait 5
gosub heal
gosub loot
gosub Targets

gosub heal
goto demons:

sub weightcheck                              ;should add a bless or remove curse here maybe
if #weight > 395 || #weight > #maxweight     ;I have 130 str on elf adjust for being cursed
     {
     gosub walkoutside                       ;for chiv could put in a remove curse for overweight
     wait 80                                 ;tricky timer here
     gosub gohome
     wait 30
     gosub lootdrop
     wait 20
     goto start:
     }
wait 10
return

gosub weaponscheck
ignoreItem %corpseCondID
ignoreItem %corpse 1
ignoreItem %corpseContID
;set %loop +1
;wait 5;if %loop >= 4
return
;wait 40
;gosub loot
;return

sub weaponscheck
weapondamage
finditem %weapons , %corpseContID
if #findkind = -1
     {
     ignoreItem %corpseContID
     ignoreItem %corpse 1
     return
     }
;event property #findid
;if Poison in #property && Damage in #property && 100% in #property  ;pulling poison resist atm
;     {
;     exevent drag #findid 1
;     wait 20
;     exevent dropc #backpackid
;     wait 10
;     goto weapondamage
;     }
call BMItemEval.euo #findid
       wait 30
       if #result >= 22 ;(25 will only pull like 2 items per hour)
        {
        exevent drag #findid 1
        wait 10
        exevent dropc #backpackid
        goto weapondamage
        }
ignoreitem #findid
goto weapondamage
return

sub heal     ;uses magery to cast cure and heal and bandies
if C in #charstatus
{
wait 10
event macro 15 24  ;for chiv 15 201
target 60
event macro 23 0
wait 40
}
set %biotch2 #maxhits - 35
if #hits < %biotch2
    {
    event macro 15 28      ;for chiv 15 202
    target 60
    event macro 23
    wait 50
    }
if C in #charstatus
{
wait 10
event macro 15 10  ;for chiv 15 201
target 60
event macro 23 0
wait 20
}
set %biotch #maxhits - 15
if #hits < %biotch
    {
    finditem ZLF C_ , #backpackid
   ;if #findkind <> -1
    set #lobjectId #findId
    event macro 17
    target 5s
    event macro 23
    wait 20
    event macro 15 3   ;for chiv 15 202
    target 60
    event macro 23
    }
wait 5
return

sub lootdrop
;gosub backpack
wait 40                        ;set high for my laggy house
finditem %secure
if #findcnt = 1
     {
     finditem %resources C_ , #backpackid         ;have to use backpack sub if you get in a loop here
     if #findcnt < 1
     {
     goto start:
     }
     exevent drag #findid #findstack
     wait 10
     exevent dropc %secure
     wait 10
     finditem %weapons  C_ , #backpackid
     exevent drag #findid #findstack
     wait 20
     exevent dropc %secure
     wait 20
     finditem %weapons C_ , #backpackid
     exevent drag #findid 1
     wait 10
     exevent dropc %secure
     wait 30
     set %loopers = %loopers + 1
     if %loopers >= 5                 ;reopen backpack cause something is screwed
     goto backpack
     gosub lootdrop
     }
gosub weightcheck

sub ToonCheck
set %HumanTypes HS_IS_XU_AV                 ;keeps people from watching the script run
ToonCheck
Finditem %HumanTypes G_10
if #findcnt > 1
     {
     sound tada.wav
     gosub walkoutside                       ;
     wait 80                                 ;tricky timer here
     gosub gohome
     wait 60
     event pathfind XXXX XXXX               ;to walk onto my porch
     wait 200
     event macro 13 21                      ;hide
     wait 200
     if H notIn #charStatus
     event macro 13 21
     wait 289s                               ;wait 3 mins
     event macro 13 21
     wait 289s                               ;wait 3 more mins
     goto start:                             ;restart
     }   
return


backpack:                                 ;sub to reopen backpack if you get phantom items in backpack
event macro 9 7
wait 40
event macro 8 7
contpos 700 525
wait 40
return

 this is the demon bone farming script i grabbed to make the guardians spawn

11
Scripting Chat / Need help with making a script.
« on: February 04, 2016, 05:49:16 AM »
Hello community! I'm trying to make a script to farm dark guardians ask not for the bones but for the tmaps! My questions are how do you make it check if your container has too many item? Like {if #items > 120 go sub drop off} else {gosub spawn} sorry still new to writing scripts

12
Scripting Chat / Adding a recall to safe and halt when finding a PK
« on: June 10, 2014, 10:56:51 AM »
Hello i was just wondering if it was possible to add something like this into a script and how i would do it? i do alot of mining in fel and recently got PKed while doing it. Didn loose anything other then some ore of course but i would like to be able to attempt to get away. EX. I recalled into a mining spot (Using Neos Kung Fu Miner) and there was another RED miner already in my cave, me being across the room didn notice in time to save myself. i find my self dead and not able to res and switch chars in time to get my stuff back. So in short i was wondering if this has been done? or if i could write it and add it in as a sub? anything on the subject would be helpful

Scripting Noob
Tana

13
New member introductions / why hello there
« on: May 29, 2014, 02:26:29 AM »
Hello just been browsing the site a little bit figured id tell you why im here. Im a 12 year UO vet and just dont have the time  to do the tedious things in the game mainly resource gathering so i figured id learn to write scripts! I don't reallu wanna use public scripts well because there public lol. So im trying out your program to creat my own. Im extremely new to scripting so i might be annoying at times with questions lol. But i will try to refrence thhe forums as much as possible.

Sincerely
Tana

Pages: [1]