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 - Coragin

Pages: 1 ... 5 6 [7] 8 9 10
91
Inactive Submissions / Smithing 100-120
« on: November 24, 2009, 02:20:57 AM »
EDIT: Made changes to the craft waitgump loop to attempt to use the tool again instead of pausing.
        Added a skill check, currently set to 115, to set to 120 change this line...

Code: [Select]
set %skill 1150

to

set %skill 1200

Whipped this up based on the topic of making boomerangs.

Wait for cursor and wait for gump from Mass's Relic Machine.

Makes boomerangs using ingots tongs and tinker tools in a resource bag.  Make sure only iron is in there.

Does not do a skill check to stop as of yet, cause I dont know how.

Enjoy.  Any feedback/suggestions HOW TO make it stop at 120 would be great.

92
Inactive Submissions / Coragin's FindID & Color on Hotkey.
« on: November 24, 2009, 01:16:10 AM »
I was turned on to a script that opened a cursor to find id of any item you wanted.  But you had to continously press play to get another item.  What if you wanted to get all kinds of item types?  Pain to keep going back to EUO to press play right?  So I re-wrote it, it wil now return the itemid and color code for the item you are targeting when you press the hotkey (Set to F7).  Click "ok" and its ready to go again.  Hope this little tool will help some of you out there.

To change the hotkey find this line and change it.

Code: [Select]
set %hotkey F7

93
General UO Chat / Update UOAM Map files.
« on: November 18, 2009, 02:23:00 AM »
I know UOAM is not updated anymore and has not been in YEARS.  But there has to be a way to edit the .map files to show new lands.  I mean it hasent been updated since before the SE expansion and those lands are there.  Can anyone think of a way to update the map files to show new lands?

94
Scripting Chat / Anyone open to script requests?
« on: November 17, 2009, 11:39:12 PM »
Trying to keep up with the guild, do my toons, real life, my daughter, my girlfriend, and my own stuff has left me no time especially being ill right now.  So....

Is there nay of you scripting Gods open to some script requests?  Need some mods done to one if someone else dont wanna take on the job.  Then there is a few other ideas I have that should be simple.

This is not a life or death thing, I dont need things done like right now, although asap would be nice.  So if you got the time to make a script let me know via pm, I will let you know what I got in mind.  If you then decide you dont really want to do it, let me know, no biggie, like I said, its not life or death or anything that is needed and will leave me in dire straits.  Just some small ideas and helpful things I could use. 

So, if anyone is up for it, just drop me a line.

PS Guildies, this will help the guild as a whole, so maybe that will give our guildies some extra incentive lol

95
Off Topic / So who is Coragin? Have a look see...
« on: November 14, 2009, 10:42:01 AM »
Or how big of a dork am I?

Or how much of a gamer am I?

Here is my setup:

Got my PC (one of them)
AMD Phenom II 940
8gb ram
2.5 TB
GeForce 9800+
ect ect, fast machine...blah blah.

In the below pics you will see my desk from a view from my bed, along with my Bedroom TV. 

37" Vizio
Sony Receiver 5.1 DDSS, AM/FM Optical ect ect
PS3 w/500gb HD (Lots of movies on there)
X-Box 360
Dish Network Receiver
Yes all this on my desk, as well as my 10" Powered Sub next to my desk.

In some others I took you will see my love of Dragons as I have many statues ect.  You will also see my PSP in one of them sitting on my dresser.  I threw in a pic of our peacock and one of me. 

For those who notice and ask, the machine with the hose on my dresser is called a "CPAP" (Continuous, Positive, Airway, Pressure) it is for people with sleep apnea, which I have.  And for those of you who dont know the reason all this is in my room at 35yrs old is I am disabled for the time being and with the bad economy, this is the best place to be for me and my daughter, who is 4.

Heres the pics.  (And all this stuff was bought before I was disabled, minus the PC, which was paid for from a flood in our basement)


96
General UO Chat / Make an imbued weapon BEYOND 30% SSI
« on: November 13, 2009, 11:45:25 AM »
This is fairly simple.

Make any wooden weapon of your choice, imbue your mods on it.  Then enhance with...

ASH you will always get 10% SSI.  So if you did 30% SSI imbue, or even 25% on successful enhance you will have 35-40% SSI.

On a more random way of getting higher mods than normal on wooden imbues...

Enhance wit Heartwood:  Random Property

Luck 40, Durability 50%, Lower Requirements 20%, Swing Speed Increase 10%, Lower Weight 75%, Hit Chance Increase 5%, Hit Life Leech (variable), Luck 10

Now, lets say you imbued your weapon with 50% HLL, if you are lucky you will get the extra added on!  Or an extra 5% HCI, or more durability!

I found all this out by imbuing woodland armor and then enhancing with heartwood.  So then I checked all other wood and wow you can add some nice mods.

97
General UO Chat / Imbue an AWESOME shield with SELF REPAIR!!
« on: November 13, 2009, 11:39:31 AM »
Well, so EA thinks they got us on imbuing huh?  Cant use POF?  Well, imbue yourself a shield then enhance it!

Heartwood gives the following properties on shields when enhanced!

Shield - Dexterity Bonus 2, Strength Bonus 2, Physical Resist 5%, Reflect Physical Damage 5%, Self Repair 2, Cold Resist 3%, Spell Channeling

Plus the following resists!!

Physical: 2
Fire: 3
Cold: 2
Poison: 7
Energy: 2

Now lets look at this further....

MAke a wooden shield.  Then use pof if you like (but were going for self repair here), then imbue...

Spell Channeling
Faster Cast
Defense Chance Increase 15% or 13% if you dont wanna waste 3rd
Reflect Physical Damage 15% or 13% if you dont wanna waste 3rd

Then when its done, enhance it with Heartwood.  You will wind up with one of the following.

Wooden Shield
Spell Channeling
Faster Cast
Defense Chance Increase 15% or 13% if you dont wanna waste 3rd
Reflect Physical Damage 15% or 13% if you dont wanna waste 3rd
Physical: 2
Fire: 3
Cold: 2
Poison: 7
Energy: 2
and one of the following properties...

 Dexterity Bonus 2, Strength Bonus 2, Physical Resist 5%, Reflect Physical Damage 5%, Self Repair 2, Cold Resist 3%, Spell Channeling

Since you already added Spell Channeling, it wont be considered as an option.  I dont know if the Physical Resist will factor in or reflect physical.  But the above properties, IMBUED with self repair 2 is great!  Heck if you did 15% Refect and got the extra 5% that would rock!

I Am going to test my findings later tonight, I am sure this will work well for all of you who use a shield.

98
Well I know I am a victim of being hasty and making that nice weapon or armor and then forgetting to use powder of fortification on it before imbuing.  Well here is a way to add durability to it after imbuing it.  Although you always risk the chance to destroy it, but hey...

For weapons Enhance with:

Dull Copper + 50% Durability on Armor, +100% on weapons.
Shadow: +100% on Armor, +50% on weapons + 20% Cold for weapons.
Valorite: Armor +50% Durability.

I know this dont bring it up to 255, but its better than a 50-60 durability.  Hope this helps and you will love the next one...

99
General UO Chat / Enhancing a weapon with valorite....damage?
« on: November 13, 2009, 11:22:12 AM »
Okay so I am reading enhancing with valorite adds all 4 elements.  Here is my question....

When using a weapon with all 4 elemental types, against something that has a 0 against one of them, say cold like fire lementals.  Will you get the full dmg as if you were using a 100% fire weapon?  Or just 20% of the damage will be full?  Can anyone explain to me in detail how this works?  Does it take the resists on the weapon the creature is most vullnderable to?  Or does it use ALL damage types even if the target is immune?

100
General UO Chat / Making 80-90% elemental damage 100%
« on: November 13, 2009, 11:15:52 AM »
I remember there used to be a way to make a 80-90% poison weapon to 100% by enhancing it through smithing.  Can anyone refresh my memory on how this is done?  Can can it be done with other elements?

101
Script Debug / Full Auto BOD filler, Runic Farmer.
« on: November 07, 2009, 10:49:17 AM »
FULL AUTO BOD

Right now it only does smithing!

The project will start at home with a secure, have two bags inside.  Secure will hold ingots, tinker tools and tongs.  Two bags, one for rewards, one for lbods to store in.

This script will full auto do bods, fill them, turn them in, get new ones and repeat.  Store runics and rewards from turning in ect.  Will know what kind of bod it is and check materials.  If it gets a lbod, it will store it and grab a small from secure to keep going if any are available and if the option is enabled.

This is going to be a big script, lots of code, I will need help.  I have a lot of it completed, but could use suggestions on condensing subs and such.

If TM adds it to a special project, that would be great.  For now it remains here, if you are working on it let me know so you can be added to the list for credits.

If you are interested, let me know with a yes or no.  I will probably get a lot of pm's on this, so please keep it short and simple, suggestions and code are 100% welcome to get this into testing phase. 

If you are gonna work on it with me, please please please, post what part of the code or sub you are currently working on so we dont have 3 or 4 people writing the same thing. 

Thanks guys!

Currently Working on:
Coragin - Weapon and armor set ID's

Code: [Select]
;===================================================================================================
; SUO's Fully functional BOD runner.
; Version: 1.0 Alpha
; Setup: Smithing Only!
;
; Purpose: Fully functional BOD runner.Will recall to runes you select for blacksmiths, identify
; the Bulk Order Deed and fill it.  Then turn it in and get another and repeat.  NOT setup for large
; BOD's as of yet, Only single's.  Will store ALL Powder, Runic, PS in a runic secure at home setup.
;
; TODO: Add support for LBOD's
;       Add support for getting Small BOD's from home secure if NPC gives you a LArge to keep going.
;       Add Tailoring Support.
;
;
; ALPHA STAGE MEANS STILL WRITING!
;
;
;
;===================================================================================================
;
;===================================================User Setup======================================
set %Homerune 1
set %ShopRune 2
set %Runebook
;===================================================End User Setup==================================
gosub setup
Mainloop:
gosub GetBod
gosub MakeBod
gosub TurninBod
gosub StoreRunic
goto Mainloop

Sub Setup ;=========================================Variable Setup==================================
gosub setupsecure
gosub setupsmithingmenu
gosub EUOMenu
set %smithNPC Blacksmith$
set %tinkertools
set %tongs
set %runic
set %powder
set %powerscroll
set %anvildeed
set %shovel
set %gargpickaxe
set %prospect
set %ingots
set %bod
set %dullcopper Dull , #SPC , Copper
set %ironcolor                                  ;====Begin Ingot Color
set %dullcoppercolor
set %shadowcolor
set %coppercolor
set %bronzecolor
set %goldcolor
set %vertitecolor
set %apagitecolor
set %valoritecolor
set %chainmailtunic                             ;====Begin Armor Sets
set %chainmaillegs
set %chainmailcoif
set %platemailgorget
set %platemailarms
set %platemaillegs
set %platemailgloves
set %platemailchest
set %femaleplate
set %ringmailgloves
set %ringmailtunic
set %ringmaillegs
set %ringmailarms
set %platmailhelm
set %closehelm                                ;====Begin Helms
set %basinet
set %norsehelm
set %dagger
set %kryss
set %katana
set %crescentblade
set %

Sub SetupSecure ;=======================================Secure Setup===============================
display yesno press yes to use small bods from secure $or no to halt on Large?
set %swapbods #true
if #dispres = no
  {
  set %swapbods #false
  }
Display Ok Select your Home Secure.
  set #targcurs 1
      while #targcurs = 1
         wait 1
         set %ResourceBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 100
      set #nextcposy 0
      event macro 17
      wait 20
Display Ok Select your RUNIC Bag in SECURE Container.
  set #targcurs 1
      while #targcurs = 1
         wait 1
      set %RunicBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 300
      set #nextcposy 0
      event macro 17
      wait 20
Display Ok Select your LARGE BOD Bag in SECURE Container.
  set #targcurs 1
      while #targcurs = 1
         wait 1
      set %LBodBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 500
      set #nextcposy 0
      event macro 17
      wait 20
Return

Sub EUOMenu ;=========================================EUO Menu======================================
Return

Sub GetBod ;==========================================Get Bod=======================================
gosub TM_TravelFromNamedRunebook RE %ShopRune %ShopRune %RuneBook      ;Travel to Shop
gosub TM_TravelFromNamedRunebook RE %HomeRune %HomeRune %RuneBook      ;travel Home
Return

Sub GetBod2 ;=========================================Get BOD After Turnin of Filled BOD============
Return

Sub MakeBod ;========================================Make Bod=======================================
gosub IdentifyBod                                                      ;Color, Quantity, Quality
gosub IdentifyType                                                     ;Armor or Weapons

Return

Sub TurninBod ;====================================Turnin Bod=======================================
gosub TM_TravelFromNamedRunebook RE %ShopRune %ShopRune %RuneBook      ;Travel to Shop
gosub GetBod2                                                          ; Get BOD After Turnin of FILLED BOD
gosub TM_TravelFromNamedRunebook RE %HomeRune %HomeRune %RuneBook      ;Travel Home
Return

Sub StoreRunic ;==================================Store Runic=======================================
Return

Sub SetupSmithingMenu ;===========================Setup Smithing Clicks=============================
;=================================================Weapon Selection Menus (Left Pane)================
set %menu1x 80
set %menu1y 140
set %menu2x 80
set %menu2y 160
set %menu3x 80
set %menu3y 180
set %menu4x 80
set %menu4y 200
set %menu5x 80
set %menu5y 200
set %menu6x 80
set %menu6y 220
set %menu7x 80
set %menu7y 240
set %menu8x 80
set %menu8y 260
set %menu9x 80
set %menu9y 280
set %menu10x 80
set %menu10y 300
set %menu11x 80
set %menu11y 320
;==================================================Make Menus (Right Pane)=========================
set %wmenu1x 285
set %wmenu1y 120
set %wmenu2x 285
set %wmenu2y 140
set %wmenu3x 285
set %wmenu3y 160
set %wmenu4x 285
set %wmenu4y 180
set %wmenu5x 285
set %wmenu5y 200
set %wmenu6x 285
set %wmenu6y 220
set %wmenu7x 285
set %wmenu7y 240
set %wmenu8x 285
set %wmenu8y 260
set %wmenu9x 285
set %wmenu9y 280
set %wmenu10x 285
set %wmenu10y 300
;===============================================Next Page X/Y=======================================
set %nextpagex 435
set %nextpagey 320
;===============================================Change Wood X/Y=====================================
set %changewoodx 80
set %changewoody 420
;===============================================Smelt X/Y===========================================
set %smeltx 80
set %smelty 400
;===============================================Make Last X/Y=======================================
set %makelastx 330
set %makelasty 500
;===============================================Exit Craft Gump X/Y=================================
set %exitx 80
set %exity 500
return

Sub IdentifyBod ;=================================Identify Bod======================================
identifyloop:
    finditem %bod C_ , #backpackid
      if #findcnt < 1
         {
         finditem %bod C_ , %ResourceBag
         if #findkind = -1
            {
            gosub GetSmall
            goto identifyloop
            }
         goto identifysize
         }
finditem %bod C_ , #backpackid
  if #findkind <> -1
  {
  event property #findid
  if Large in #property
     {
     gosub LargeBod
     goto identifyloop
     }
  Goto identify
  }
identify:
finditem %bod C_ , #backpackid
  if #findkind <> -1
  {
  event property #findid
  if 10 in #property
     set %quantity 10
  if 15 in #property
     set %quantity 15
  if 20 in #property
     set %quantity 20
  if exceptional in #property
     set %exceptional = #true
  if exceptional notin #property
     set %exceptional = #false
  if iron in #property
     set %bodcolor = %ironcolor
  if %dullcopper in #property
     set %bodcolor = %dullcoppercolor
  if shadow in #property
     set %bodcolor = %shadowcolor
  if copper in #property && dull notin #property
     set %bodcolor = %coppercolor
  if bronze in #property
     set %bodcolor = %bronzecolor
  if gold in #property
     set %bodcolor = %goldcolor
  if apagite in #property
     set %bodcolor = %apagitecolor
  if vertite in #property
     set %bodcolor = %vertitecolor
  if valorite in #property
     set %bodcolor = %valoritecolor
  }
gosub IdentifyType
Return

Sub IdentifyType ;================================Identify Type of Bod Armor/Weapon=================

Sub LargeBod ;====================================Large Bod=========================================
    finditem %bod C_ , #backpackid
    exevent #findid 1
    wait 10
    exevent dropc %LBodBag
    wait 10
return

sub GetSmall ;====================================Get Small Bod From Secure=========================
if %swapbods = #false
   {
   Display All done!
   Halt
   }
    finditem %bod C_ , %resourcebag
      if #findcnt < 1
      {
      Display All Out of Bod's in resource
      Halt
      }
    exevent #findid 1
    wait 10
    exevent dropc #backpackid
    wait 10
    }
Return

102
Scripting Chat / Can Easy UO output journal events?
« on: November 06, 2009, 09:44:15 AM »
New script idea, but need to know if it can be done...

Can easyuo in real time or close to, output what is seen in the journal to a window it creates? 

I am thinking of a chat system script.  One where you can keep your journal minimized and it will read it and put specific things to specific widnows you decide to have it create.

Example, script opens three windows:

Window1 Guild: All journal entries with the string "Guild:" or "Alliance:" will be put to this window.

Window2 YouSee: All Journal entries that start with the string "You see" will go to this window.

Window3 Rest: Everything not defined in the above two examples will goto this window.

This purpose of this program is to be able to separate chat and or remove certain strings of chat, such as words of power keeping them from the journal you are readign for say guild chat ect.  This would also I assume help other scripts run if it utilizes this script and searches these windows for the strings it is looking for.  I know some scripts totally screw up if you are runnign a casting trainer on another toon in the same house in the same room where the words of power come up.

103
Inactive Submissions / SUO AIO Weapon Crafting Tool v1.5 WORKING IN FULL
« on: November 04, 2009, 04:30:21 PM »
Introducing the SUO AIO (All in ONE) Weapon Crafting Tool!

CURRENT PROBLEMS:
NONE

Current Version v1.6 (Paulonious Update)

Update Notes:

1. The script doesn't have a failsafe if the weapon you make doesn't have a high enough intensity to allow you to unravel it.  As written it drops into an endless loop if you make one. I added in a journal check for the message and have it trashing the item if this happens.

2. I modded your trash sub to find the trash barrel so that it won't require setup.

3. The Item ID for composite bow was wrong. I corrected it.

4. I substituted the straight clicks in the make item sub for gump clicks.

5. I added in hard-coded property checks for 100 luck weapons and bows with both channeling and balance.  Comment these out if you don't care for them, I didn't add them to your menu setup.

Please Test!

Purpose & Features:
  • Creates Weapons you choose from a menu with runic tools
  • Supports Fletching, Blacksmithing and Carpentry
  • Will look for Super Slayer properties YOU specify and store them
  • Will look for 100% Elemental Damage (Fire, Cold, Energy, Poison) and store if the option is checked.
  • Will look for Weapon properties with ALL Elemental Damage but not 100% of any type and store them. (Excluding Physical Completely)
  • Knows what runic and tools to use as well as materials based on your weapon choice.
  • Gives you the option in Unravel, Smelt, Throw Away or destroy via Hatchet and Tongs.

This script setup is simple:
  • Have a secure container with a bag inside to store weapons that you decide to keep
  • Have all resources in the TOP LEVEL of your secure, Wood, Ingots, Runics
  • If you are using DESTROY method, you MUST have a HATCHET in your backpack
  • If you are using the TRASH option, you MUST have a TRASH BARREL Near you/
  • If you are using the UNRAVEL option, you MUST have a SOULFORGE near you
  • If you are crafting with SMITHING RUNICS you MUST have an ANVIL and FORGE near you.
  • Click Play, choose your weapon and options, follow the setup prompts based on your choices and watch your crafter make your weapons.

THIS SCRIPT WILL USE ALL INGOTS, WOOD AND RUNICS ON THE TOP LEVEL OF YOUR SECURE!  SO DO NOT WALK AWAY AFTER SETTING IT UP UNLESS YOU WANT TO USE ALL THE RESOURCES IN YOUR SECURE! YOU HAVE BEEN WARNED AND INFORMED!

THIS SCRIPT NEEDS GOOD TESTING!

TODO List:
  • Add More Weapons (If there is any you would like added, please post)
  • Add more mod options

Special Thanks and Credits: Twinkle McNugget && Endless Night for all their help.  TM for his help and patience. Mass for his waitforgump sub (if it was someone else correct me).  Everyone who worked on the Relic Machine code as that is what truly helped me learn a TON!  The SUO Guild Members for having the patience with me while I learn scripting and am not devoting time to guild right now.  And ALL the people helping test.

104
Inactive Submissions / SUO Elemental Weapon Maker! V1.0
« on: November 04, 2009, 01:25:31 AM »
Thanks to EN and TM for their help with the subs for checking weapon damage.  Thanks to Mass for his gump wait subs and make item sub (Which I can totally do on my own now!  Woot!)

The Purpose of this script is to make weapons with different properties and save them for later use of enhancing or imbuing.  Read on to find out more!

This script will make weapons using the MAKE LAST button, scan the weapon for elemental damage and store it if there is no physical damage attached to it.  It will scan for Resist to make sure it dont get confused and will also store weapons that have multiple damage types that are NOT physical.  It will save super slayers like demon, undead, repond, elemental ect.  It will save weapons with SSI on them.

Weapons that it dont need it will UNRAVEL THEM, you dont need any imbuing to do this, but make sure there is a SOULFORGE in your house.

Also if you use blacksmithing instead of carpentry dont forget your Forge and Anvil

As of right now it is only setup to do Bokuto's, you can change this easily by finding the following lines and changing them as needed.

Code: [Select]
set %weapon KDP  [color=red];Change to your weapon type you will be making[/color]

If you are not using wood, but rather ingots, you will need to change this line....

Code: [Select]
set %wood TLK      [color=red];Change this to ingots[/color]

Finally for runic type, find this line and change it to the type of runic you are using...

Code: [Select]
set %runic ZFG_    [color=red];Change this to the type of runic tool that will be used.[/color]

To Setup:
FIRST make SURE you make the weapon you are running this for at least once!  IT ONLY USES THE MAKE LAST BUTTON!
You will need a Soulforge
You will need an Anvil and Forge (If you plan to use blacksmithing)
You will need a secure container in your house with your runics, wood, ingots INSIDE on the TOP and not in a container within.
You will need a container inside your secure to store the weapons.
Hit play and follow the two prompts to setup.

Remember this will use all the resources it has in the secure, so dont put all your runics in there and walk away unless you plan to use them all!

Will save all of the following:
  • Super Slayers (Reptile, Elemental, Repond, Undead and Demon)
  • Any weapon with 100% Elemental Damage (Fire Cold Poison Energy)
  • Any weapon with ALL Elemental Damage of ALL types
  • Any weapon with Swing Speed Increase 25% - 30%

TO DO LIST:
Make a Menu with a drop down that you can choose weapon type.
Make a menu with a drop down to choose runic type (which will also choose wood or ingots)
Find a way to condense the weapon check subs and make them more accurate.  (Any help here would be great)
Remove having to make last before starting the script.

Known bugs so far...

Sometimes it will save a weapon with only 10% SSI on it, this is due to other properties with 25% or 30%
It will from time to time save a weapon that is totally useless, idk why.

So far it keeps running, does a good job, I have had it running this whole time writing this and about 20 minutes before and no problems besides the above bugs.

Code: [Select]
Event Macro 8 7
Display Ok Select the Resource Container.
  set #targcurs 1
      while #targcurs = 1
         wait 1
         set %ResourceBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 600
      set #nextcposy 0
      event macro 17
      wait 20
Display Ok Select your storage Bag in Resource Container.
  set #targcurs 1
      while #targcurs = 1
         wait 1
      set %StorageBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 800
      set #nextcposy 0
      event macro 17
      wait 20

set %fire Fire Damage
set %cold Cold Damage
set %poison Poison Damage
set %energy Energy Damage
set %reptile Reptile
set %undead Undead
set %demon Demon
set %arachnid Arachnid
set %repond Repond
set %elemental Elemental
set %damagepercent 100%
set %swingpercent30 30%
set %swingpercent25 25%
set %swingspeed Swing Speed Increase
set %residue TKR_WKR
set %weapon KDP
set %Wood TLK
set %runic ZFG_
set #nextcposx 0
set #nextcposy 0
set %imain 520_250           ; Imbuing Main menu size
set %isec 520_440            ; Imbuing secondary menus for properties and value
set %cwin 530_507            ; Crafting window size
set %gumpwait 1 ; Increase number to slow down clicks on menus.  20 = 1 second.

MainLoop:
Gosub GetTools
Gosub MakeWeapon
Gosub CheckWeapon1
Goto MainLoop

sub GetTools
    finditem %runic C_ , #backpackid
      if #findcnt < 1
         {
         finditem %runic C_ , %ResourceBag
         if #findkind = -1
            {
            display You are out of runics.
            halt
            }
         exevent drag #findid 1
         wait 10
         exevent dropc #backpackid
         wait 20
         }
    finditem %Wood C_ , #backpackid
         if #findstack < 15
         {
         set %quantityinpack 50 - #findstack
         finditem %Wood C_ , %ResourceBag
         if #findstack < %quantityinpack
            {
            display You need more wood.
            halt
            }
         else
            {
            exevent drag #findid %quantityinpack
            wait 10
            exevent dropc #backpackid
            wait 20
            }
         }
         Return

Sub MakeWeapon
    finditem %Weapon C_ , #BackPackid
    If #findcnt = 1
       {
       set %MadeWeapon #findid
       gosub CheckWeapon1
       Return
       }
    finditem %runic C_ , #BackPackid
    set #lobjectid #findid
    event macro 17
    gosub waitforgump %cwin
    Click 335 500 f    ;Make Last
    wait 20
    ;Click 77 505 f    ;exit
    wait 20
    finditem %Weapon C_ , #BackPackID
    set %MadeWeapon #findid
Return

sub CheckWeapon1
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if ( %energy in #property || %poison in #property || %fire in #property || %cold in #property ) && ( Resist notin #property && Physical notin #property )
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %swingspeed in #property && %swingpercent30 in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %swingspeed in #property && %swingpercent25 in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %energy in #property && %damagepercent in #property && Resist notin #property && Physical notin #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %poison in #property && %damagepercent in #property && Resist notin #property && Physical notin #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %cold in #property && %damagepercent in #property && Resist notin #property && Physical notin #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %fire in #property && %damagepercent in #property && Resist notin #property && Physical notin #property && Elemental notin #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %demon in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %repond in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %undead in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %reptile in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %elemental in #property && Fire notin #property && Water notin #property && Poison notin #property && Air notin #property && Earth notin #property && Blood notin #property && Snow notin #property && Ice notin #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            }
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt >= 1
            {
            event property #findid
            if %arachnid in #property
               {
               wait 5
               Gosub StoreWeapon
               Return
               }
            Gosub Unravel
            }
Return

Sub StoreWeapon
    finditem %Weapon C_ , #backpackid
    exevent drag #findid #findstack
    wait 10
    exevent dropc %StorageBag
    wait 20
    finditem %MadeWeapon C_ , #backpackid
    exevent drag #findid #findstack
    wait 10
    exevent dropc %StorageBag
    wait 20
Return

Sub StoreResidue
    finditem %Residue C_ , #backpackid
    if #findcnt < 1
              return
    exevent drag #findid #findstack
    wait 10
    exevent dropc %ResourceBag
    wait 20
Return

Sub Unravel
Repeat
    finditem %MadeWeapon C_ , #BackPackid
    If #findcnt = -1
       {
       Return
       }
    Event Macro 13 56
    gosub waitforgump %imain
          if ! #result
          {
          display ok Problems opening the imbue menu.  Dble Click fletcher tool and click play
          pause
          }
    Click 228 248 f
    wait 30
    set #ltargetID %MadeWeapon
    event macro 22 0
    ;gosub waitforgump %imain
          if ! #result
          {
          display ok Problems with imbue unravel menu.  Dble Click fletcher tool and click play
          pause
          }
    Click 50 250 f
    wait 30
    gosub StoreResidue
Return

;================== Wait for gump ======================

sub waitforgump
set %timeout #scnt + 30
while #contsize <> %1
      {
      wait 1
      if #scnt > %timeout
         {
          return #false
         }
      }
wait %gumpwait
return #true


105
Script Debug / Tell me what is wrong here...
« on: November 02, 2009, 11:51:30 PM »
Okay I got it to keep slayers, but I cannot get 100% elemental damage to work.  It is saving everything now with this syntax.  I cant figure this out, you can see which ones I commented out that were working to make sure it was all correct.  But when I try to make it ONLY save 100% Fire, Cold, Energy or Poison weapons it saves ALL weapons no matter what.  I am thinking I might just have to have it unravel anything with physical damage in it then sift through what is left.

Its supposed to make buktos and look for 100% elemental dmg and if it has it, will store the weapon.

Someone please help.

Code: [Select]
Event Macro 8 7
Display Ok Select the Resource Container.
  set #targcurs 1
      while #targcurs = 1
         wait 1
         set %ResourceBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 200
      set #nextcposy 0
      event macro 17
      wait 10
Display Ok Select your storage Bag in Resource Container.
  set #targcurs 1
      while #targcurs = 1
         wait 1
      set %StorageBag #ltargetID
      set #lobjectID #ltargetID
      set #nextcposx 400
      set #nextcposy 0
      event macro 17
      wait 20


set %residue TKR_WKR
set %weapon KDP
set %Wood TLK
set %elemental Poison_Fire_Cold_Energy
set %percent 100%
set %runic ZFG_
set %slayer Elemental_Reptile_Undead_Arachnid_Demon_Slayer
set #nextcposx 0
set #nextcposy 0
set %imain 520_250           ; Imbuing Main menu size
set %isec 520_440            ; Imbuing secondary menus for properties and value
set %cwin 530_507            ; Crafting window size
set %gumpwait 5 ; Increase number to slow down clicks on menus.  20 = 1 second.

MainLoop:
Gosub GetTools
Gosub MakeWeapon
Gosub CheckWeapon1
Goto MainLoop

sub GetTools
    finditem %runic C_ , #backpackid
      if #findcnt < 1
         {
         finditem %runic C_ , %ResourceBag
         if #findkind = -1
            {
            display You are out of runics.
            halt
            }
         exevent drag #findid 1
         wait 10
         exevent dropc #backpackid
         wait 20
         }
    finditem %Wood C_ , #backpackid
         if #findstack < 200
         {
         set %quantityinpack 200 - #findstack
         finditem %Wood C_ , %ResourceBag
         if #findstack < %quantityinpack
            {
            display You need more wood.
            halt
            }
         else
            {
            exevent drag #findid %quantityinpack
            wait 10
            exevent dropc #backpackid
            wait 20
            }
         }
         Return

Sub MakeWeapon
    finditem %Weapon C_ , #BackPackid
    If #findcnt = 1
       {
       set %MadeWeapon #findid
       gosub CheckWeapon1
       Return
       }
    finditem %runic C_ , #BackPackid
    set #lobjectid #findid
    event macro 17
    gosub waitforgump %cwin
    Click 335 500 f    ;Make Last
    gosub waitforgump %cwin
    Click 77 505 f    ;exit
    wait 20
    finditem %Weapon C_ , #BackPackID
    set %MadeWeapon #findid
Return

sub CheckWeapon1
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt 1
            {
            event property #findid
            if %elemental in #Property && Damage in #property && %percent in #property
            ;if Slayer in #property
            ;if Physical_Damage_100% in #property || %slayer in #property || Energy_Damage_100% in #property || Fire_Damage_100% in #property || Cold_Damage_100% in #property || Slayer in #property
               {
               gosub StoreWeapon
               Return
               }
            Gosub Unravel
Return

Sub StoreWeapon
    finditem %Weapon C_ , #backpackid
    exevent drag #findid #findstack
    wait 10
    exevent dropc %StorageBag
    wait 20
    finditem %MadeWeapon C_ , #backpackid
    exevent drag #findid #findstack
    wait 10
    exevent dropc %StorageBag
    wait 20
Return

Sub StoreResidue
    finditem %Residue C_ , #backpackid
    if #findcnt < 1
              return
    exevent drag #findid #findstack
    wait 10
    exevent dropc %ResourceBag
    wait 20
Return

Sub Unravel
Repeat
    finditem %MadeWeapon C_ , #BackPackid
    If #findcnt = -1
       {
       Return
       }
    Event Macro 13 56
    gosub waitforgump %imain
          if ! #result
          {
          display ok Problems opening the imbue menu.  Dble Click fletcher tool and click play
          pause
          }
    Click 228 248 f
    wait 30
    set #ltargetID %MadeWeapon
    event macro 22 0
    ;gosub waitforgump %imain
          if ! #result
          {
          display ok Problems with imbue unravel menu.  Dble Click fletcher tool and click play
          pause
          }
    Click 50 250 f
    wait 30
    gosub StoreResidue
Return

;================== Wait for gump ======================

sub waitforgump
set %timeout #scnt + 30
while #contsize <> %1
      {
      wait 1
      if #scnt > %timeout
         {
          return #false
         }
      }
wait %gumpwait
return #true

sub CheckWeapon1
         finditem %MadeWeapon C_ , #backpackid
         if #findcnt 1
            {
            event property #findid
            if %elemental in #Property && Damage in #property && %percent in #property
            ;if Slayer in #property
            ;if Physical_Damage_100% in #property || %slayer in #property || Energy_Damage_100% in #property || Fire_Damage_100% in #property || Cold_Damage_100% in #property || Slayer in #property
               {
               gosub StoreWeapon
               Return
               }
            Gosub Unravel
Return

Pages: 1 ... 5 6 [7] 8 9 10