 |
  S'aprira quella strada,
le pietre canteranno, il cuore batterà sussultando come l'acqua nelle fontane.  |
Tweet
;==================================
; Script Name: My Begger
; Author: Confucious, ScriptFellow, CEO
; Version: 1.1
; Client Tested with: 4.0.3c
; EUO version tested with: 1.42.0092
; Shard OSI / FS: OSI
; Revision Date: July 13, 2004
; Public Release: July 9, 2004
; Global Variables Used: None
; Purpose: Automated Begging Script. Useable to GM or just for laughs.
; Keeps record of IDs to ignore forever, and will only attempt to
; beg from Invul NPCs so as not to waste time on players.
; Monitors weight to halt script once you go overweight (if you ever do).
;==================================
; 07/13/04 - Changed Move sub to use event PathFind instead of Move. Seems
; to be a bit more "nice" in it's movement.
initevents
set %overweight 0
set %moveFailed 0
gosub OpenStatusBar
gosub WeightCheck
BegLoop:
chooseskill BEGGING
SetUOTitle Begging: #skill Gold: #gold Weight: #weight Max Weight: #maxweight
set %retry 0
gosub LookAround
if #findKind <> -1
gosub MoveToThem
if %moveFailed = 0
gosub Beg
gosub OpenStatusBar
gosub WeightCheck
goto BegLoop
;###################### S U B S ######################
sub LookAround
glance:
finditem HS_IS G_5
if #FINDKIND = -1
{
ignoreitem reset 1
goto glance
}
if #findID = #charID
gosub AdjustIgnore
if %retry = 1
goto glance
if #findRep <> 7
gosub AdjustIgnore
if %retry = 1
goto glance
return #true
sub AdjustIgnore
ignoreItem #findID
set %retry 1
sub MoveToThem
CloseGap:
findItem #findID
event PathFind #findX #findY #findZ
wait 5s
findItem #findID
if #findDist > 3
{
ignoreitem #findID 1
set %moveFailed 1
return #true
}
set %moveFailed 0
return #true
sub Beg
BeginBegging:
finditem #findID
if #findDist > 3
gosub MoveToThem
if %moveFailed = 1
return #true
chooseskill BEGGING
set %skillCheck #skill
set #LTargetID #findID
set #LTargetKind 1
event macro 13 6
target 4s
event macro 22
wait 13s
chooseskill BEGGING
if %skillCheck < #SKILL
goto BeginBegging
ignoreitem #findID 1
return #true
sub OpenStatusBar
if #charname = N/A
{
Event Macro 8 2
wait 5
}
return #true
sub WeightCheck
set %overweight 0
set %weight #weight
if #weight >= #maxweight
{
set %overweight 1
gosub OverWeight
}
return #true
sub OverWeight
OWC:
chooseskill BEGGING
SetUOTitle Begging: #skill Gold: #gold Weight: #weight Max Weight: #maxweight
if %overweight <> 0
{
wait 2s
gosub WeightCheck
goto OWC
}
gosub WeightCheck
return #true
 |
ICQ 222293462 |
|
S'aprira quella strada,
le pietre canteranno, il cuore batterà sussultando come l'acqua nelle fontane. |
|
S'aprira quella strada,
le pietre canteranno, il cuore batterà sussultando come l'acqua nelle fontane. |
Commenta