Tanto ormai MINAX e SL non usano altro.
I COM lo usano in maniera parsimoniosa.
I TB sono dei babbei che non lo usano e implodono.
Speriamo che i gater si attivino e inizino ad usare lo shared in CHAT generale, speriamo che qualcuno, dall'alto, nerfi questa tipologia di script, in modo da far rispettare vecchi accordi stickati in alto.
I COM lo usano in maniera parsimoniosa.
I TB sono dei babbei che non lo usano e implodono.
Speriamo che i gater si attivino e inizino ad usare lo shared in CHAT generale, speriamo che qualcuno, dall'alto, nerfi questa tipologia di script, in modo da far rispettare vecchi accordi stickati in alto.
;*************************************************
;
; il Male Ultima Powerbooster Library v2
;
; module: shared target among players
; author: il Male, Occhio Bianco (-OB-) guild
; version: 2.2
;
;*************************************************
initevents
deletejournal
;*******************************************
; Custom variables (customized as you wish):
;*******************************************
; Script speed (decreasing/increasing this value may reduce lag in some case):
set %scriptSpeed 20
set #lpc %scriptSpeed
; Keys:
; Keys have been removed since version 2.1: please modify them directly in the main loop
;****************************************
; Do NOT modify anything after this line!
;****************************************
; Reserved global:
set %sharedTargetSerial 0
set %sharingLeaderSerial 0
set %blinkDelay 0
set %lastJournal #jindex
; Credits:
event sysmessage SharedTarget v2.2
;***********
; Main loop:
;***********
mainLoop:
set %currentJournal #jindex
if %currentJournal >= %lastJournal
{
set #lpc 200
checkLoop:
if %lastJournal <= %currentJournal
{
scanjournal %lastJournal
if Shared_leader in #journal
gosub GetSharingLeader
if Shared_target in #journal
gosub GetSharedTarget
set %lastJournal %lastJournal + 1
goto checkLoop
}
set #lpc %scriptSpeed
}
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
onHotKey P
gosub AttackSharedTarget
onHotKey O
gosub ShareTarget
; Display leader:
if %sharingLeaderSerial <> 0
{
set %blinkDelay %blinkDelay + 1
if %blinkDelay > 50
{
event ExMsg %sharingLeaderSerial 0 78 <leader>
set %blinkDelay 0
}
}
goto mainLoop
;************************************************* ************************************************** ****************************
sub GetSharedTarget
;****
; ?: set global %targetSerial from guild chat
;****
set %string #journal
str Pos %string rget
set #strRes #strRes + 4
str Del %string 1 #strRes
set %target #strRes
str Len %target
set %length #strRes + 1
str Del %target %length 1
set %sharedTargetSerial #strRes
event ExMsg %sharedTargetSerial 0 54 >> target <<
event sysmessage Target acquired: %sharedTargetSerial
return
;************************************************* ************************************************** ****************************
sub GetSharingLeader
;****
; ?: set global %sharingLeaderSerial from guild chat
;****
set %string #journal
str Pos %string ader
set #strRes #strRes + 4
str Del %string 1 #strRes
set %target #strRes
str Len %target
set %length #strRes + 1
str Del %target %length 1
set %sharingLeaderSerial #strRes
set %blinkDelay 100
event sysmessage Leader acquired: %sharingLeaderSerial
return
;************************************************* ************************************************** ****************************
sub AttackSharedTarget
;****
; ?: set last target with the shared target serial and attack it
;****
set #ltargetkind 1
set #ltargetid %sharedTargetSerial
event macro 22 0
event macro 27 0
; event ExMsg #ltargetid 0 38 >> Kill me <<
wait 2
return
;************************************************* ************************************************** ****************************
sub ShareTarget
;****
; ?: send current last target through guild chat
;****
if #enemyid <> N/A
set #ltargetid #enemyid
event Property #ltargetid
set %EnemyName #property
str left %EnemyName 20
;msg &
; msg | #strres $
; msg | Shared target #ltargetid $
;event macro 1 0 \ #strres $
;event macro 1 0 \ Shared target #ltargetid $
event macro 1 0 -- #strres
event macro 1 0 -- Shared target #ltargetid
; msg \ #strres $
; msg \ Shared target #ltargetid $
; msg -- #strres $
; msg -- Shared target #ltargetid $
wait 2
return
sub SelectLastTarget
;****
; ?: set your current last target by cursor
;****
; msg $
event sysmessage Click on your victim...
set #targCurs 1
targLoop:
onHotKey ESC
{
event sysmessage Aborted
return
}
if #targCurs = 1
goto targLoop
event ExMsg #ltargetid 0 78 >> Selected <<
return
sub BagballAtMyFeet
;****
; ?: drop a bagball at my feet
;****
; Check for bagballs:
finditem UXM_TXM C_ , #backpackid
if #findkind = -1
{
event ExMsg #charid 0 0 Out of bagballs
wait 2
return
}
; Drop at my feet
exevent drag #FindID #FindStack
wait 1
exevent dropG #CharPosX #CharPosY
return
;
; il Male Ultima Powerbooster Library v2
;
; module: shared target among players
; author: il Male, Occhio Bianco (-OB-) guild
; version: 2.2
;
;*************************************************
initevents
deletejournal
;*******************************************
; Custom variables (customized as you wish):
;*******************************************
; Script speed (decreasing/increasing this value may reduce lag in some case):
set %scriptSpeed 20
set #lpc %scriptSpeed
; Keys:
; Keys have been removed since version 2.1: please modify them directly in the main loop
;****************************************
; Do NOT modify anything after this line!
;****************************************
; Reserved global:
set %sharedTargetSerial 0
set %sharingLeaderSerial 0
set %blinkDelay 0
set %lastJournal #jindex
; Credits:
event sysmessage SharedTarget v2.2
;***********
; Main loop:
;***********
mainLoop:
set %currentJournal #jindex
if %currentJournal >= %lastJournal
{
set #lpc 200
checkLoop:
if %lastJournal <= %currentJournal
{
scanjournal %lastJournal
if Shared_leader in #journal
gosub GetSharingLeader
if Shared_target in #journal
gosub GetSharedTarget
set %lastJournal %lastJournal + 1
goto checkLoop
}
set #lpc %scriptSpeed
}
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
; TASTI DA SETTARE TASTI DA SETTARE TASTI DA SETTARE
onHotKey P
gosub AttackSharedTarget
onHotKey O
gosub ShareTarget
; Display leader:
if %sharingLeaderSerial <> 0
{
set %blinkDelay %blinkDelay + 1
if %blinkDelay > 50
{
event ExMsg %sharingLeaderSerial 0 78 <leader>
set %blinkDelay 0
}
}
goto mainLoop
;************************************************* ************************************************** ****************************
sub GetSharedTarget
;****
; ?: set global %targetSerial from guild chat
;****
set %string #journal
str Pos %string rget
set #strRes #strRes + 4
str Del %string 1 #strRes
set %target #strRes
str Len %target
set %length #strRes + 1
str Del %target %length 1
set %sharedTargetSerial #strRes
event ExMsg %sharedTargetSerial 0 54 >> target <<
event sysmessage Target acquired: %sharedTargetSerial
return
;************************************************* ************************************************** ****************************
sub GetSharingLeader
;****
; ?: set global %sharingLeaderSerial from guild chat
;****
set %string #journal
str Pos %string ader
set #strRes #strRes + 4
str Del %string 1 #strRes
set %target #strRes
str Len %target
set %length #strRes + 1
str Del %target %length 1
set %sharingLeaderSerial #strRes
set %blinkDelay 100
event sysmessage Leader acquired: %sharingLeaderSerial
return
;************************************************* ************************************************** ****************************
sub AttackSharedTarget
;****
; ?: set last target with the shared target serial and attack it
;****
set #ltargetkind 1
set #ltargetid %sharedTargetSerial
event macro 22 0
event macro 27 0
; event ExMsg #ltargetid 0 38 >> Kill me <<
wait 2
return
;************************************************* ************************************************** ****************************
sub ShareTarget
;****
; ?: send current last target through guild chat
;****
if #enemyid <> N/A
set #ltargetid #enemyid
event Property #ltargetid
set %EnemyName #property
str left %EnemyName 20
;msg &
; msg | #strres $
; msg | Shared target #ltargetid $
;event macro 1 0 \ #strres $
;event macro 1 0 \ Shared target #ltargetid $
event macro 1 0 -- #strres
event macro 1 0 -- Shared target #ltargetid
; msg \ #strres $
; msg \ Shared target #ltargetid $
; msg -- #strres $
; msg -- Shared target #ltargetid $
wait 2
return
sub SelectLastTarget
;****
; ?: set your current last target by cursor
;****
; msg $
event sysmessage Click on your victim...
set #targCurs 1
targLoop:
onHotKey ESC
{
event sysmessage Aborted
return
}
if #targCurs = 1
goto targLoop
event ExMsg #ltargetid 0 78 >> Selected <<
return
sub BagballAtMyFeet
;****
; ?: drop a bagball at my feet
;****
; Check for bagballs:
finditem UXM_TXM C_ , #backpackid
if #findkind = -1
{
event ExMsg #charid 0 0 Out of bagballs
wait 2
return
}
; Drop at my feet
exevent drag #FindID #FindStack
wait 1
exevent dropG #CharPosX #CharPosY
return
Commenta