1
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 14, 2011, 03:07:16 PM »
Thanks Cam. I will play around with that and see if I get it.
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.
2
Character skill advancement / Meattwad's Simple Beggar
« on: October 08, 2011, 04:23:43 PM »
With some help from E.N. I think my first script is ready to be submitted and tested by more folks.
I have tested to GM 50-GM in about 38 hours. (Using no tricks)
This is primarily for people who can not use C2's, don't have an attendant or if it gets nerfed.
I ran this script from 88 to gm in 1 solid run with 0 hiccups.
This script will train anywhere from 0-100 in Begging. ( Get those Trick or Treat Rewards for Halloween .)
Instructions are in the script. Main thing is to gather blue hireable npcs, take them to your house and trap them and dismiss.
The more the better, I used 15-30 more should be even better.
This script waits the full 10 seconds required by UO, mostly so it will work even if whatever wait trick you like gets nerfed.
Give it a shot and let me know what you think.
I have tested to GM 50-GM in about 38 hours. (Using no tricks)
This is primarily for people who can not use C2's, don't have an attendant or if it gets nerfed.
I ran this script from 88 to gm in 1 solid run with 0 hiccups.
Code: [Select]
;==================================
; Script Name: Meatt Wad's Simple Beggar
; Author: Meatt Wad
; Version: 1.0
; Client Tested with: 7.0.18
; EUO version tested with: 1.5.202
; Shard OSI: OSI
; Revision Date: Oct 6, 2011
; Public Release:
; Purpose: Automate Begging
; Globals: none
;====================================
;
;====================================
; Instructions: Find a heavily populated area of NPC's or better yet . . .
; Go Hire Blue NPC's, fighters, beggar's whatever(15 to 20 should do), has to be the ones you pay to follow you.
; Take them to your house and trap them (I like walking them up to third floor and leaving a hole to 2nd
; Allow them to fall through to 2nd floor with no doors and no teles no stairs so they can't escape.)
; I also like to make this room fairly small like 8x8 or less so they are within begging range.
;====================================
; Thanks to everyone at SUO for all the help!
;====================================
; Special thanks to Endless Night for sharing your knowledge with me and helping to edit this script!
;====================================
set %ver 1.0
chooseskill BEGG
set %skill #skill
set %BEGG #skill
set %gain 0
set %gains 0
set %status Begging
menu show 290 112
menu hideEUO
gosub menu
;======== Main Loop ================
REPEAT
gosub find
gosub beg
gosub skillgain
gosub UpdateMenu
until #charghost = yes || #Skill = #Skillcap
halt
;======== Update Menu Sub ===========
sub UpdateMenu
str len %gains
str ins %gains #dot #strRes
menu set EUOLabel4 #strRes
str len #skill
str ins #skill #dot #strRes
menu set EUOLabel6 #strRes
menu set EUOLabel3 %status
if #Charghost = yes
display You are Dead! Script Halted!
return
;============= Find Sub ==========
sub find
repeat
wait 1
finditem HS_IS G_10
if #findcnt = 0
ignoreitem reset
if #findid = #charid
ignoreitem #FINDID
until #FINDcnt >= 1 && #findid <> #charid
RETURN
;============ Beg Sub ===============
sub beg
move #FINDX #FINDY 1 10s
ignoreitem #FINDID
if #FINDDIST > 1
return
Repeat
chooseskill BEGG
set %skill #SKILL
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 13 6
target
event macro 22
wait 10s
return
;=============Skillgain sub============
sub skillgain
chooseskill BEGG
if #skill > %BEGG
set %gains %gains + #skill - %BEGG
set %BEGG #skill
if #skill = #skillcap
{
display You have reached your skill cap.$
+$Thanx for using Meatt Wad's Simple Begger
+$
+$Please rate the script at ScriptUO.com
+$
+$
+Script is Halted$
+$
+ ~ Meatt Wad$
}
return
;=========== EasyUO Menu Designer Code ============
sub menu
menu Clear
menu Window Title MeattWads Simple Beggar %ver
menu Window Color Black
menu Window Size 290 112
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 14
menu Font Style
menu Font Color $9933CC
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Black
menu Text EUOLabel1 10 40 Gains:
menu Text EUOLabel2 10 72 Status:
menu Font Size 8
menu Text EUOLabel3 70 80 %status
str len %gains
str ins %gains #dot #strRes
menu Text EUOLabel4 70 48 #strRes
menu Font Size 14
menu Text EUOLabel5 22 10 Skill:
menu Font Size 8
str len #skill
str ins #skill #dot #strRes
menu Text EUOLabel6 70 18 #strRes
return
;====================================================
This script will train anywhere from 0-100 in Begging. ( Get those Trick or Treat Rewards for Halloween .)
Instructions are in the script. Main thing is to gather blue hireable npcs, take them to your house and trap them and dismiss.
The more the better, I used 15-30 more should be even better.
This script waits the full 10 seconds required by UO, mostly so it will work even if whatever wait trick you like gets nerfed.
Give it a shot and let me know what you think.
3
New member introductions / Re: Mornin fellows
« on: October 07, 2011, 10:07:00 PM »
Welcome to the site Gra 
4
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 09:07:22 AM »
And now I have this:
Code: [Select]
;==================================
; Script Name: Meatt Wad's Simple Beggar
; Author: Meatt Wad
; Version: 0.2
; Client Tested with: 7.0.18
; EUO version tested with: 1.5.202
; Shard OSI: OSI
; Revision Date: Oct 6, 2011
; Public Release:
; Purpose: Automate Begging
; Globals: none
;====================================
;
;====================================
; Instructions: Find a heavily populated area of NPC's or better yet . . .
; Go Hire Blue NPC's, fighters, beggar's whatever(15 to 20 should do), has to be the ones you pay to follow you.
; Take them to your house and trap them (I like walking them up to third floor and leaving a hole to 2nd
; Allow them to fall through to 2nd floor with no doors and no teles no stairs so they can't escape.)
; I also like to make this room fairly small like 8x8 or less so they are within begging range.
;====================================
; Thanks to everyone at SUO for all the help!
;====================================
; Special thanks to Endless Night for sharing your knowledge with me and helping to edit this script!
;====================================
set %ver 0.2
chooseskill BEGG
set %skill #skill
set %BEGG #skill
set %gain 0
set %gains 0
set %status Begging
menu show 290 112
menu hideEUO
gosub menu
;======== Main Loop ================
REPEAT
gosub find
gosub beg
gosub skillgain
gosub UpdateMenu
until #charghost = yes || #Skill = #Skillcap
halt
;======== Update Menu Sub ===========
sub UpdateMenu
str len %gains
str ins %gains #dot #strRes
menu set EUOLabel4 #strRes
str len #skill
str ins #skill #dot #strRes
menu set EUOLabel6 #strRes
menu set EUOLabel3 %status
if #Charghost = yes
display You are Dead! Script Halted!
return
;============= Find Sub ==========
sub find
repeat
wait 1
finditem HS_IS G_10
if #findcnt = 0
ignoreitem reset
if #findid = #charid
ignoreitem #FINDID
until #FINDcnt >= 1 && #findid <> #charid
RETURN
;============ Beg Sub ===============
sub beg
move #FINDX #FINDY 1 10s
ignoreitem #FINDID
if #FINDDIST > 1
return
Repeat
chooseskill BEGG
set %skill #SKILL
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 13 6
target
event macro 22
wait 10s
return
;=============Skillgain sub============
sub skillgain
chooseskill BEGG
if #skill > %BEGG
set %gains %gains + #skill - %BEGG
set %BEGG #skill
if #skill = #skillcap
{
display You have reached your skill cap.$
+$Thanx for using Meatt Wad's Simple Begger
+$
+$Please rate the script at ScriptUO.com
+$
+$
+Script is Halted$
+$
+ ~ Meatt Wad$
}
return
;=========== EasyUO Menu Designer Code ============
sub menu
menu Clear
menu Window Title MeattWads Simple Beggar %ver
menu Window Color Black
menu Window Size 290 112
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 14
menu Font Style
menu Font Color $9933CC
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Black
menu Text EUOLabel1 10 40 Gains:
menu Text EUOLabel2 10 72 Status:
menu Font Size 8
menu Text EUOLabel3 70 80 %status
str len %gains
str ins %gains #dot #strRes
menu Text EUOLabel4 70 48 #strRes
menu Font Size 14
menu Text EUOLabel5 22 10 Skill:
menu Font Size 8
str len #skill
str ins #skill #dot #strRes
menu Text EUOLabel6 70 18 #strRes
return
;====================================================
Any more Ideas on improving this. It is definitely prettier and more organized, runs alot smoother. Thank You Endless this is starting to be fun
5
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 09:03:01 AM »
OK. . . through some trial and error I think I got this down now. First I changed the Find sub to read:
Code: [Select]
sub find
repeat
wait 1
finditem HS_IS G_10
if #findcnt = 0
ignoreitem reset ;fixed this
if #findid = #charid
ignoreitem #FINDID
until #FINDcnt >= 1 && #findid <> #charid ;fixed this i think
RETURN Took me a bit to figure out the ignoreitem reset, and I think the "until" line is good now with a >= ( I understand what is happening here now.)6
New member introductions / Re: Intro of Scaltor
« on: October 07, 2011, 08:05:04 AM »
Welcome Scaltor
7
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 08:03:38 AM »8
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 07:58:56 AM »Well Thank You, I just pay attention to how you guys do things and try to mimic in an effort to learn how and why.Thank you for such a quick response. Messing around with your suggestions right now
your welcome ... I've got to tell you, you are doing pretty dam fantastic for your first script.
9
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 07:47:18 AM »
Gets Stuck looping in your find sub.
not sure how this line works as far as moving the script on, could you explain a little more to me, it appears this line is causing the loop when I f7 through the script.
Thanks again for the lessons. Most of it makes sense to me and my script is definitely prettier
PS. #FINDcnt is returning 14 which is the number of npcs in my house not including me
Code: [Select]
sub find
repeat
wait 1 ; Give your machine a chance to catch up on tasks
finditem HS_IS G_10
if #findcnt = 0
ignore reset
if #findid = #charid
ignoreitem #FINDID
until #FINDcnt = 1 && #findid <> #charid ; findcnt = number of items found
RETURN ; must must return from a sub
not sure how this line works as far as moving the script on, could you explain a little more to me, it appears this line is causing the loop when I f7 through the script.
Code: [Select]
until #FINDcnt = 1 && #findid <> #charid ; findcnt = number of items found
Thanks again for the lessons. Most of it makes sense to me and my script is definitely prettier
PS. #FINDcnt is returning 14 which is the number of npcs in my house not including me
10
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 07:20:31 AM »
Thank you for such a quick response. Messing around with your suggestions right now
11
Off Topic / Re: The Death of Common Sense
« on: October 07, 2011, 06:53:36 AM »
Well said Gimlet.
I agree whole heartedly.
RIP Common Sense you will be missed!
I agree whole heartedly.
RIP Common Sense you will be missed!
12
Script Debug / Re: Meatt Wad's First attempt at a full script
« on: October 07, 2011, 06:34:12 AM »
Thanks Endless. Well here it is. I use it in my house to train up begging. Its slow with no tricks just a simple beg and repeat.
I actually have it working now, so just looking for advice for better coding, better functionality etc.
I use this in my house in a room roughly 8x8 so I comment out the line in the beg sub that moves.
Any and all advice is welcome, Im just wanting to learn to write a better script.
Code: [Select]
;==================================
; Script Name: Meatt Wad's Simple Beggar
; Author: Meatt Wad
; Version: .1
; Client Tested with: 7.0.18
; EUO version tested with: 1.5.202
; Shard OSI: OSI
; Revision Date: Oct 6, 2011
; Public Release:
; Purpose: Automate Begging
; Globals: none
;====================================
;
;====================================
; Instructions: Find a heavily populated area of NPC's or better yet . . .
; Go Hire Blue NPC's, fighters, beggar's whatever(15 to 20 should do), has to be the ones you pay to follow you.
; Take them to your house and trap them (I like walking them up to third floor and leaving a hole to 2nd
; Allow them to fall through to 2nd floor with no doors and no teles no stairs so they can't escape.)
; I also like to make this room fairly small like 8x8 or less so they are within begging range.
;====================================
; Special thanks to everyone at SUO for all the help!
;====================================
set %ver 0.1
chooseskill BEGGING
set %skill #skill
set %BEGGING #skill
set %gain 0
set %gains 0
set %status Begging
menu show 290 112
menu hideEUO
gosub menu
REPEAT
gosub find
gosub beg
until #charghost = yes
set %status = Dead
gosub menu
display You are Dead! Script Halted!
halt
;============ find sub =============
sub find
finditem HS_IS G_10
if #FINDKIND = -1
{
ignoreitem reset
gosub find
}
if #FINDID = #CHARID
{
ignoreitem #FINDID
gosub find
}
;============beg sub ===============
sub beg
move #FINDX #FINDY 1 10s
finditem #FINDID
if #FINDDIST > 1
{
ignoreitem #FINDID
return
}
chooseskill BEGGING
set %skill #SKILL
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 13 6
target
event macro 22
wait 10s
chooseskill BEGGING
if %skill < #SKILL
{
finditem #FINDID
gosub beg
}
ignoreitem #FINDID
gosub skillgain
return
;=============Skillgain sub============
sub skillgain
chooseskill BEGGING
if #skill = #skillcap
{
display You have reached your skill cap.$
+$Thanx for using Meatt Wad's Simple Begger
+$
+$Please rate the script.
+$
+$
+Script is Halted$
+$
+ ~ Meatt Wad$
halt
}
if #skill > %BEGGING
set %gains %gains + #skill - %BEGGING
set %BEGGING #skill
gosub menu
return
;
;--------- EasyUO Menu Designer Code Begin ---------
sub menu
menu Clear
menu Window Title MeattWads Simple Beggar %ver
menu Window Color Black
menu Window Size 290 112
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 14
menu Font Style
menu Font Color $9933CC
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Black
menu Text EUOLabel1 10 40 Gains:
menu Text EUOLabel2 10 72 Status:
menu Font Size 8
menu Text EUOLabel3 70 80 %status
str len %gains
str ins %gains #dot #strRes
menu Text EUOLabel4 70 48 #strRes
menu Font Size 14
menu Text EUOLabel5 22 10 Skill:
menu Font Size 8
str len #skill
str ins #skill #dot #strRes
menu Text EUOLabel6 70 18 #strRes
return
;--------- EasyUO Menu Designer Code End ---------
I actually have it working now, so just looking for advice for better coding, better functionality etc.
I use this in my house in a room roughly 8x8 so I comment out the line in the beg sub that moves.
Any and all advice is welcome, Im just wanting to learn to write a better script.
13
New member introductions / Re: Hello Folks
« on: October 06, 2011, 04:49:01 PM »
Ahhh the horror of newbie death. I remember it quite well. Now I just go die for fun 
WELCOME
WELCOME
14
New member introductions / Re: Back Again, Again :)
« on: October 06, 2011, 12:47:25 PM »
Welcome.
Im bettin they want a lil more info in the intro
Im bettin they want a lil more info in the intro
15
New member introductions / Re: Never say never
« on: October 06, 2011, 12:45:27 PM »
Welcome
I too made the mistake of quitting permanently Never to return. But Here I am, And without all my riches and more importantly without my 20 or more soulstones. YUK!!!
I too made the mistake of quitting permanently Never to return. But Here I am, And without all my riches and more importantly without my 20 or more soulstones. YUK!!!