How to stay logged on

[DL]

copy this script below the dotted line into notepad and save it as "whatyoulike.mac"

I did not write this macro nor take credit for it. If you have problems with it I won't be able to help you other than to say I have ACTool 4.3.4 installed for use with this script.

..............................................................................................






SetActiveWindow Asheron's Call

constants


// Hi there Panzerfaust clan member, these are your instructions for setting
// this macro up to suit your toon

// Page down a couple of times and check the program code to see the series
// of spells that it will cast for you in oder to keep your loyalty,
// leader and will buffed.

// it is currently set to cast 7th level leadership, willpower and Loyalty
// on you every 59 minutes. It casts 2 buffs first to make sure you have
// a high enough critter spell for the 7th level spells.

// Just type in the appropriate spells if these dont suit your toon. you
// must spell them 100% accurately and have capital letters in the right
// place.


// if you cant cast all appropritae 7th level spells and use 6ths or even
// 5ths then change minutes_between_loyalty_buffs variable to be 44 for
// 6th level spells or 29 for 5ths

// just equip a wand and press f2 either from here or in game to start
// or stop macro

minutes_between_loyalty_buffs = 55







tempelapsed2 = 0
tempelapsed1 = 0
jumpgap = 0
spellgap = 0
it = text
nursemaid = 0
fizzle_count=0
testelapsed1 = 0
testelapsed2 = 0
a = 0
b = 0
c = 0
d = 0
end

procedure castit
setconst a = 0

while _failure <> 0 or $a = 0
setconst a = 1
castspellex $it
delay 2000
end

call Check_for_fellow_invite
end // end procedure

procedure Buff_loyalty_etc

// make go into spellmode

// _combatstate - state your char's in (1=standing, 2=combat, 3=missle, 4=spellcasting)
if _Combatstate = 1
keys `
delay 3000
end
if _Combatstate <> 4
sendtext 5, get yer Wand equipped and press f2 to restart macro
stop
end
call Check_for_fellow_invite


// change these spells to suit your toon so that you get max possible
// Loyalty / and adequate leadership if untrained.


setconst it = Creature Enchantment Mastery Self V
call castit

setconst it = Focus Self VI
call castit

setconst it = Willpower Self VI
call castit

setconst it = Mind Blossom
call castit


setconst it = Odif's Blessing
call castit


setconst it = Ar-Pei's Blessing
call castit


keys `
delay 3000

end // end proc


procedure Check_for_fellow_invite
keys y
end



compute spellgap = 60000 * minutes_between_loyalty_buffs
compute jumpgap = 60000 * 18
compute tempelapsed2 = {elapsedmsec} + $spellgap
compute tempelapsed1 = {elapsedmsec} + $jumpgap
sendtext 3, Running the stay logged on macro


call Buff_loyalty_etc

Sendtext 3, macro is running fine, every 18 mins mins your toon will jump in the air to make sure you dont get logged off through inactivity

Sendtext 3, Then every $minutes_between_loyalty_buffs minutes, I will slip into spellcasting mode and repeat your buff sequence for loyalty/leader etc

while 1=1


delay 500



if {elapsedmsec} > $tempelapsed1
// do something to avoid auto log off
keydown {space} 100
sendtext 3, I jump for joy as I remain in game
compute tempelapsed1 = {elapsedmsec} + $jumpgap
end

if {elapsedmsec} > $tempelapsed2
// Buff loyalty and leader etc
compute tempelapsed2 = {elapsedmsec} + $spellgap
call Buff_loyalty_etc
end

call Check_for_fellow_invite


end





//

[.Urrasa.]

nm