[FUNCTION FIXACTION]
return (<HVAL <ACTION>> &~ 0d2000000) 

[dialog d_moongate]
0,0
page 0
gumppic 100 110 39
text 150 149 0 1
button 130 150 55 55 1 0 1
text 150 170 0 2
button 130 171 55 55 1 0 2
text 150 191 0 3
button 130 192 55 55 1 0 3
text 150 212 0 4
button 130 213 55 55 1 0 4
text 150 233 0 5
button 130 234 55 55 1 0 5
text 150 254 0 6
button 130 255 55 55 1 0 6
text 150 275 0 7
button 130 276 55 55 1 0 7
text 150 296 0 8
button 130 297 55 55 1 0 8
text 150 317 0 9
button 130 318 55 55 1 0 9

[dialog d_moongate text]
Nothing 
Britain
Cove
Minoc
Moonglow
Skara Brae
Trinsic
Vesper
Wind
Yew

[dialog d_moongate button]
ONBUTTON=1
GO Britain

ONBUTTON=2
GO Cove

ONBUTTON=3
GO Minoc

ONBUTTON=4
GO Moonglow

ONBUTTON=5
GO Skara Brae

ONBUTTON=6
GO Trinsic

ONBUTTON=7
GO Vesper

ONBUTTON=8
GO Wind

ONBUTTON=9
GO Yew

[FUNCTION gosomewhere]
dialog d_moongate

[dialog d_elfblade]
0,0
page 0
resizepic 100 110 2620 500 400
text 130 119 1152 1
text 180 180 1152 2
button 130 171 2275 2275 1 0 1
text 380 180 1152 3
button 330 171 2267 2267 1 0 2
text 180 231 1152 4
button 130 223 2274 2274 1 0 3
text 380 231 1152 5
button 330 223 2283 2283 1 0 4
text 180 282 1152 6
button 130 274 2245 2245 1 0 5
text 380 282 1152 7
button 330 274 2259 2259 1 0 6
text 180 333 1152 8
button 130 325 2246 2246 1 0 7
text 380 333 1152 9
button 330 325 2254 2254 1 0 8
text 180 384 1152 10
button 130 376 2248 2248 1 0 9
text 380 384 1152 11
button 330 376 2255 2255 1 0 10
gumppic 470 200 50643

[dialog d_elfblade text]
Nothing
Choose the attribute you would like to imbue the blade with:
Magic Resistance 
Fire Resistance
Incognito
Invisibility
Night Sight
Poison
Reactive Armor
Protection
Agility
Strength

[dialog d_elfblade button]
ONBUTTON=1
SRC.MAGICRESISTANCE=<SRC.MAGICRESISTANCE> + (10.0)
MOREX=0
MOREY=100.0
MOREZ=0

ONBUTTON=2
SRC.EVENTS=+e_fireresist
MOREX=0
MOREY=100.0
MOREZ=0

ONBUTTON=3
MOREX=s_incognito
MOREY=100.0
MOREZ=0

ONBUTTON=4
MOREX=s_invisibility
MOREY=100.0
MOREZ=0

ONBUTTON=5
MOREX=s_nightsight
MOREY=100.0
MOREZ=0

ONBUTTON=6
MOREZ=s_poison
MOREY=100.0
MOREX=0

ONBUTTON=7
MOREX=s_reactive_armor
MOREY=100.0
MOREZ=0

ONBUTTON=8
MOREX=s_protection
MOREY=100.0
MOREZ=0

ONBUTTON=9
MOREX=s_agility
MOREY=100.0
MOREZ=0

ONBUTTON=10
MOREX=s_strength
MOREY=100.0
MOREZ=0

[DIALOG d_reagents]
0, 0
PAGE 0
gumppic 100 110 39
gumppic 125 149 54
gumppic 275 149 53
text 125 170 0 1
text 275 170 0 2
text 125 191 0 3
text 275 191 0 4
text 125 212 0 5
text 275 212 0 6
text 125 233 0 7
text 275 233 0 8
text 125 254 0 9
text 275 254 0 10
text 125 275 0 11
text 275 275 0 12
text 125 296 0 13
text 275 296 0 14
text 125 317 0 15
text 275 317 0 16
gumppic 200 333 51
text 205 345 0 17

[DIALOG d_reagents TEXT]
Nothing
Mandrake Root:
<RESCOUNT i_reag_mandrake_root>
Black Pearl:
<RESCOUNT i_reag_black_pearl>
Spider's Silk:
<RESCOUNT i_reag_spider_silk>
Sulphurous Ash:
<RESCOUNT i_reag_sulfur_ash>
Blood Moss:
<RESCOUNT i_reag_blood_moss>
Garlic:
<RESCOUNT i_reag_garlic>
Ginseng:
<RESCOUNT i_reag_ginseng>
Nightshade:
<RESCOUNT i_reag_nightshade>
<RESCOUNT t_reagent>

[FUNCTION regs]
DIALOG d_reagents

[DIALOG d_musicstand]
0, 0
PAGE 0
gumppic 150 130 2202
PAGE 1
button 444 135 2206 2206 0 2 0
text 209 164 0 1
button 188 168 2117 2118 1 0 4
button 188 187 2117 2118 1 0 5
text 209 183 0 2
button 188 206 2117 2118 1 0 6
text 209 202 0 3
text 209 221 0 4
button 188 225 2117 2118 1 0 7
button 188 244 2117 2118 1 0 8
text 209 240 0 5
button 188 263 2117 2118 1 0 9
text 209 259 0 6
button 188 282 2117 2118 1 0 10
text 208 278 0 7
button 188 301 2117 2118 1 0 11
text 208 297 0 8
button 344 168 2117 2118 1 0 12
text 365 164 0 9
button 344 187 2117 2118 1 0 13
text 365 183 0 10
button 344 206 2117 2118 1 0 14
text 365 202 0 11
button 344 225 2117 2118 1 0 15
text 365 221 0 12
button 344 244 2117 2118 1 0 16
text 365 240 0 13
button 344 263 2117 2118 1 0 17
text 365 259 0 14
button 344 282 2117 2118 1 0 18
text 365 278 0 15
button 344 301 2117 2118 1 0 19
text 365 297 0 16
PAGE 2
button 174 135 2205 2205 0 1 20
button 444 135 2206 2206 0 3 21
text 209 164 0 17
button 188 168 2117 2118 1 0 22
button 188 187 2117 2118 1 0 23
text 209 183 0 18
button 188 206 2117 2118 1 0 24
text 209 202 0 19
text 209 221 0 20
button 188 225 2117 2118 1 0 25
button 188 244 2117 2118 1 0 26
text 209 240 0 21
button 188 263 2117 2118 1 0 27
text 209 259 0 22
button 188 282 2117 2118 1 0 28
text 208 278 0 23
button 188 301 2117 2118 1 0 29
text 208 297 0 24
button 344 168 2117 2118 1 0 30
text 365 164 0 25
button 344 187 2117 2118 1 0 31
text 365 183 0 26
button 344 206 2117 2118 1 0 32
text 365 202 0 27
button 344 225 2117 2118 1 0 33
text 365 221 0 28
button 344 244 2117 2118 1 0 34
text 365 240 0 29
button 344 263 2117 2118 1 0 35
text 365 259 0 30
button 344 282 2117 2118 1 0 36
text 365 278 0 31
button 344 301 2117 2118 1 0 37
text 365 297 0 32
PAGE 3
button 174 135 2205 2205 0 2 38
button 444 135 2206 2206 0 4 39
text 209 164 0 33
button 188 168 2117 2118 1 0 40
button 188 187 2117 2118 1 0 41
text 209 183 0 34
button 188 206 2117 2118 1 0 42
text 209 202 0 35
text 209 221 0 36
button 188 225 2117 2118 1 0 43
button 188 244 2117 2118 1 0 44
text 209 240 0 37
button 188 263 2117 2118 1 0 45
text 209 259 0 38
button 188 282 2117 2118 1 0 46
text 208 278 0 39
button 188 301 2117 2118 1 0 47
text 208 297 0 40
button 344 168 2117 2118 1 0 48
text 365 164 0 41
button 344 187 2117 2118 1 0 49
text 365 183 0 42
button 344 206 2117 2118 1 0 50
text 365 202 0 43
button 344 225 2117 2118 1 0 51
text 365 221 0 44
button 344 244 2117 2118 1 0 52
text 365 240 0 45
button 344 263 2117 2118 1 0 53
text 365 259 0 46
button 344 282 2117 2118 1 0 54
text 365 278 0 47
button 344 301 2117 2118 1 0 55
text 365 297 0 48
PAGE 4
button 174 135 2205 2205 0 3 56
text 209 164 0 49
button 188 168 2117 2118 1 0 57

[DIALOG d_musicstand TEXT]
Nothing
OldUlt1
Creation
Dragon's Flight
OldUlt2
OldUlt3
OldUlt4
OldUlt5
OldUlt6
Stones
Britain 1
Britain 2
Bucs' Den
Jhelom
LB's Castle
Linelle
Magincia
Minoc
Ocllo
Samlethe
Serpent's Hold
Skara Brae
Trinsic
Vesper
Wind
Yew
Cave
Dungeon
Forest
In Town
Jungle
Mountain
Plains
Sailing
Swamp
Tavern 1
Tavern 2
Tavern 3
Tavern 4
Combat 1
Combat 2
Combat 3
Approaching...
Death
Victory
Blackthorne
Nujel'm
Dungeon 2
Cove
Moonglow

[DIALOG d_musicstand BUTTON]
on=4
SECTOR.ALLCLIENTS MUSIC 0
on=5
SECTOR.ALLCLIENTS MUSIC 1
on=6
SECTOR.ALLCLIENTS MUSIC 2
on=7
SECTOR.ALLCLIENTS MUSIC 3
on=8
SECTOR.ALLCLIENTS MUSIC 4
on=9
SECTOR.ALLCLIENTS MUSIC 5
on=10
SECTOR.ALLCLIENTS MUSIC 6
on=11
SECTOR.ALLCLIENTS MUSIC 7
on=12
SECTOR.ALLCLIENTS MUSIC 8
on=13
SECTOR.ALLCLIENTS MUSIC 9
on=14
SECTOR.ALLCLIENTS MUSIC 10
on=15
SECTOR.ALLCLIENTS MUSIC 11
on=16
SECTOR.ALLCLIENTS MUSIC 12
on=17
SECTOR.ALLCLIENTS MUSIC 13
on=18
SECTOR.ALLCLIENTS MUSIC 14
on=19
SECTOR.ALLCLIENTS MUSIC 15
on=22
SECTOR.ALLCLIENTS MUSIC 16
on=23
SECTOR.ALLCLIENTS MUSIC 17
on=24
SECTOR.ALLCLIENTS MUSIC 18
on=25
SECTOR.ALLCLIENTS MUSIC 19
on=26
SECTOR.ALLCLIENTS MUSIC 20
on=27
SECTOR.ALLCLIENTS MUSIC 21
on=28
SECTOR.ALLCLIENTS MUSIC 22
on=29
SECTOR.ALLCLIENTS MUSIC 23
on=30
SECTOR.ALLCLIENTS MUSIC 24
on=31
SECTOR.ALLCLIENTS MUSIC 25
on=32
SECTOR.ALLCLIENTS MUSIC 26
on=33
SECTOR.ALLCLIENTS MUSIC 27
on=34
SECTOR.ALLCLIENTS MUSIC 28
on=35
SECTOR.ALLCLIENTS MUSIC 29
on=36
SECTOR.ALLCLIENTS MUSIC 30
on=37
SECTOR.ALLCLIENTS MUSIC 31
on=40
SECTOR.ALLCLIENTS MUSIC 32
on=41
SECTOR.ALLCLIENTS MUSIC 33
on=42
SECTOR.ALLCLIENTS MUSIC 34
on=43
SECTOR.ALLCLIENTS MUSIC 35
on=44
SECTOR.ALLCLIENTS MUSIC 36
on=45
SECTOR.ALLCLIENTS MUSIC 37
on=46
SECTOR.ALLCLIENTS MUSIC 38
on=47
SECTOR.ALLCLIENTS MUSIC 39
on=48
SECTOR.ALLCLIENTS MUSIC 40
on=49
SECTOR.ALLCLIENTS MUSIC 41
on=50
SECTOR.ALLCLIENTS MUSIC 42
on=51
SECTOR.ALLCLIENTS MUSIC 43
on=52
SECTOR.ALLCLIENTS MUSIC 44
on=53
SECTOR.ALLCLIENTS MUSIC 45
on=54
SECTOR.ALLCLIENTS MUSIC 46
on=55
SECTOR.ALLCLIENTS MUSIC 47
on=57
SECTOR.ALLCLIENTS MUSIC 48

[ITEMDEF i_newincog_equip]
ID=i_memory
LAYER=30
TYPE=t_eq_script

ON=@Create
ATTR=attr_move_never|attr_invis
TIMER=10

ON=@Equip
LINK.DIALOG d_newincog
REMOVE
RETURN 1

ON=@Timer
REMOVE
RETURN 1

[dialog d_newincog]
0,0
page 0
gumppic 100 110 1140
text 155 149 0 1
text 155 169 0 2
text 155 189 0 3
text 220 229 0 4
button 228 249 2076 2075 1 0 5
button 288 249 2073 2072 1 0 6

[dialog d_newincog TEXT]
Nothing
<NAME> has cast incognito on you!
This spell has about a 35% chance of
temporarily turning you gray/red.
Allow the casting?

[dialog d_newincog BUTTON]
on=5
SRC.NEWITEM i_newincog
SRC.ACT.CONT=<SRC.UID>
SRC.ACT.TAG.OLDNAME=<SRC.NAME>
SRC.ACT.TAG.OLDTITLE=<SRC.TITLE>
SRC.ACT.TAG.OLDFAME=<SRC.FAME>
SRC.ACT.TAG.OLDKARMA=<SRC.KARMA>
SRC.ACT.TAG.OLDCOLOR=<SRC.COLOR>
SRC.ACT.TIMER={420 600}

IF (<SRC.CAN>&MT_FEMALE)
SRC.NAME=#NAMES_HUMANFEMALE
ELSE
SRC.NAME=#NAMES_HUMANMALE
ENDIF
SRC.COLOR=colors_skin
DORAND 10
SRC.TITLE=Neophyte
SRC.TITLE=Novice
SRC.TITLE=Apprentice
SRC.TITLE=Apprentice
SRC.TITLE=Apprentice
SRC.TITLE=Journeyman
SRC.TITLE=Journeyman
SRC.TITLE=Expert
SRC.TITLE=Master
SRC.TITLE=Grandmaster
ENDDO

DORAND 23
SRC.TITLE=<SRC.TITLE> Alchemist
SRC.TITLE=<SRC.TITLE> Stoic
SRC.TITLE=<SRC.TITLE> Blacksmith
SRC.TITLE=<SRC.TITLE> Miner
SRC.TITLE=<SRC.TITLE> Merchant
SRC.TITLE=<SRC.TITLE> Carpenter
SRC.TITLE=<SRC.TITLE> Lumberjack
SRC.TITLE=<SRC.TITLE> Mage
SRC.TITLE=<SRC.TITLE> Swordsman
SRC.TITLE=<SRC.TITLE> Fencer
SRC.TITLE=<SRC.TITLE> Warrior
SRC.TITLE=<SRC.TITLE> Healer
SRC.TITLE=<SRC.TITLE> Thief
SRC.TITLE=<SRC.TITLE> Rouge
SRC.TITLE=<SRC.TITLE> Detective
SRC.TITLE=<SRC.TITLE> Bowyer
SRC.TITLE=<SRC.TITLE> Animal Tamer
SRC.TITLE=<SRC.TITLE> Tailor
SRC.TITLE=<SRC.TITLE> Cook
SRC.TITLE=<SRC.TITLE> Scholar
SRC.TITLE=<SRC.TITLE> Scholar
SRC.TITLE=<SRC.TITLE> Scholar
SRC.TITLE=<SRC.TITLE> Scholar
ENDDO

SRC.KARMA={-10000 10000}

SRC.FAME={0 8000}

SRC.SFX 492

[DIALOG d_pass]
0,0
page 0
gumppic 100 110 1140
text 155 149 0 1
resizepic 165 209 2620 200 35
textentry 170 214 200 20 1152 2 0
button 228 249 2076 2075 1 0 3
button 288 249 2073 2072 1 0 4

[DIALOG d_pass TEXT]
<VAR.NOTEXT>
Enter your new password:

[DIALOG d_pass BUTTON]
ON=3
IF (STRMATCH(*PLEVEL*,<ARGTXT[2]>))
SRC.SYSMESSAGE The text 'PLEVEL' is not allowed in your password. Please choose another.
ELSEIF (STRMATCH(*[EOF*,<ARGTXT[2]>))
SRC.SYSMESSAGE The text '[EOF' is not allowed in your password. Stop trying to hack the server and choose a valid password.
ELSEIF (STRMATCH(* *,<ARGTXT[2]>))
SRC.SYSMESSAGE Spaces are not allowed in passwords. Please choose a different password.
ELSEIF (STRLEN(<ARGTXT[2]>) < 1)
SRC.SYSMESSAGE Please enter a password.
ELSE
PASSWORD <ARGTXT[2]>
SRC.SYSMESSAGE Password changed to <ARGTXT[2]>
ENDIF

ON=4
SRC.SYSMESSAGE Password left unchanged.

[FUNCTION pass]
DIALOG d_pass

[DIALOG d_stats]
0,0
page 0
resizepic 100 110 2620 500 400
text 135 149 1152 4
text 135 184 1152 5
text 135 219 1152 6
text 135 254 1152 7
resizepic 205 179 2620 200 35
textentry 210 184 200 20 1152 12 1
resizepic 205 214 2620 200 35
textentry 210 219 200 20 1152 13 2
resizepic 205 249 2620 200 35
textentry 210 254 200 20 1152 14 3
text 135 289 1152 8
text 135 324 1152 9
text 135 359 1152 10
text 135 394 1152 11

button 228 414 2076 2075 1 0 15
button 288 414 2073 2072 1 0 16

[DIALOG d_stats TEXT]
<VAR.NOTEXT>
<EVAL <TAG.STRCAP>>
<EVAL <TAG.DEXCAP>>
<EVAL <TAG.INTCAP>>
Stat cap: 325. Min. stat: 50. Max. stat: 150.
Str cap: 
Dex cap: 
Int cap: 
Swordsmanship critical hit rate: <EVAL <calcswordscritical>> / 1000
Macefighting critical hit rate: <EVAL <calcmacecritical>> / 1000
Fencing critical hit rate: <EVAL <calcfencingcritical>> / 1000
Wrestling critical hit rate: <EVAL <calcwrestlingcritical>> / 1000

[DIALOG d_stats BUTTON]
ON=15
IF ((<EVAL <ARGTXT[12]>> > 150)||(<EVAL <ARGTXT[13]>> > 150)||(<EVAL <ARGTXT[14]>> > 150))
	SYSMESSAGE The max. cap on an individual stat is 150.
	RETURN 1
ENDIF

IF (<EVAL <ARGTXT[12]>> < 50)
	SYSMESSAGE The min. cap on an individual stat is 50.
	RETURN 1
ENDIF

IF (<EVAL <ARGTXT[13]>> < 50)
	SYSMESSAGE The min. cap on an individual stat is 50.
	RETURN 1
ENDIF

IF (<EVAL <ARGTXT[14]>> < 50)
	SYSMESSAGE The min. cap on an individual stat is 50.
	RETURN 1
ENDIF

IF (<EVAL <EVAL <ARGTXT[12]>> + <EVAL <ARGTXT[13]>> + <EVAL <ARGTXT[14]>>> > 325)
	SYSMESSAGE The max. total stat cap is 325.
	RETURN 1
ENDIF

SYSMESSAGE Str cap set to <EVAL <ARGTXT[12]>>.
SYSMESSAGE Dex cap set to <EVAL <ARGTXT[13]>>.
SYSMESSAGE Int cap set to <EVAL <ARGTXT[14]>>.
TAG.STRCAP=<EVAL <ARGTXT[12]>>
TAG.DEXCAP=<EVAL <ARGTXT[13]>>
TAG.INTCAP=<EVAL <ARGTXT[14]>>

[FUNCTION calcswordscritical]
var.skill_req = 500.0
var.skill_curr = <eval <ANATOMY>+<TACTICS>+<SWORDSMANSHIP>>
var.skill_diff <eval <var.skill_req> + -<var.skill_curr>>        // Notice the +- to deal with issues
var.skill_bell <eval randbell( <var.skill_diff>, 50.0 )>

var.skill_curr=
var.skill_req=

if ( <var.skill_diff> < 0 )
	var.skill_bell <eval 1000 +- <var.skill_bell>>
endif

var.skill_diff=

return <var.skill_bell>

[FUNCTION calcmacecritical]
var.skill_req = 500.0
var.skill_curr = <eval <ANATOMY>+<TACTICS>+<MACEFIGHTING>>
var.skill_diff <eval <var.skill_req> + -<var.skill_curr>>        // Notice the +- to deal with issues
var.skill_bell <eval randbell( <var.skill_diff>, 50.0 )>

var.skill_curr=
var.skill_req=

if ( <var.skill_diff> < 0 )
	var.skill_bell <eval 1000 +- <var.skill_bell>>
endif

var.skill_diff=
return <var.skill_bell>

[FUNCTION calcfencingcritical]
var.skill_req = 500.0
var.skill_curr = <eval <ANATOMY>+<TACTICS>+<FENCING>>
var.skill_diff <eval <var.skill_req> + -<var.skill_curr>>        // Notice the +- to deal with issues
var.skill_bell <eval randbell( <var.skill_diff>, 50.0 )>

var.skill_curr=
var.skill_req=

if ( <var.skill_diff> < 0 )
	var.skill_bell <eval 1000 +- <var.skill_bell>>
endif

var.skill_diff=
return <var.skill_bell>

[FUNCTION calcwrestlingcritical]
var.skill_req = 500.0
var.skill_curr = <eval <ANATOMY>+<TACTICS>+<WRESTLING>>
var.skill_diff <eval <var.skill_req> + -<var.skill_curr>>        // Notice the +- to deal with issues
var.skill_bell <eval randbell( <var.skill_diff>, 50.0 )>

var.skill_curr=
var.skill_req=

if ( <var.skill_diff> < 0 )
	var.skill_bell <eval 1000 +- <var.skill_bell>>
endif

var.skill_diff=
return <var.skill_bell>

[FUNCTION stats]
DIALOG d_stats

//My anti-macro system is below:
[FUNCTION REVERSEFIXACTION]
return (<HVAL <ACTION>> &~ 0d2000000) 

[EVENTS e_macrocheck]
ON=@Logout
TAG.MACROSKILL1=
TAG.MACROSKILL2=
TAG.MACROSKILL3=
TAG.MACROTIMES1=
TAG.MACROTIMES2=
TAG.MACROTIMES3=
TAG.TOTALMACROPENALTY=

ON=@Death

IF (<SRC.FINDID.i_macro_timer>)
	SRC.FINDID.i_macro_timer.REMOVE
	SRC.MESSAGE You have been marked attended, or at least unable to unattended macro any further.
ENDIF

SRC.TAG.MACRONUMBER1=
SRC.TAG.MACRONUMBER2=
SRC.TAG.MACROSKILL1=
SRC.TAG.MACROSKILL2=
SRC.TAG.MACROSKILL3=
SRC.TAG.MACROTIMES1=
SRC.TAG.MACROTIMES2=
SRC.TAG.MACROTIMES3=
SRC.TAG.TOTALMACROPENALTY=

ON=@SkillStart
MACROSKILL

[FUNCTION macrodialog]
IF !(<FINDID.i_macro_timer>)
SYSMESSAGE There is no need to bring up the macro dialog right now, as the server doesn't think you're macroing.
ELSE
DIALOG d_macro
ENDIF

[FUNCTION macrocheck]
VAR.OLDACT=<ACT.UID>
NEWITEM i_macro_equip
ACT.MOREX=<EVAL <TAG.MACROSKILL<ARGN>>>
ACT.MOREY=<EVAL <TAG.MACROTIMES<ARGN>>>
EQUIP <ACT.UID>
ACT=<EVAL <VAR.OLDACT>>
VAR.OLDACT=

IF (<SRC.ISGM>)
SRC.SYSMESSAGE <NAME> will be checked for unattended macroing.
ENDIF

[ITEMDEF i_macro_equip]
ID=i_memory
NAME=Macro Equip
TYPE=t_eq_script

ON=@Create
ATTR=attr_invis|attr_move_never

ON=@Equip
IF (<SRC.FINDID.i_macro_timer>)
	IF (<SRC.FINDID.i_macro_timer.TIMER> < 0)
		SRC.FINDID.i_macro_timer.TIMER=180
		REMOVE
		RETURN 1
	ENDIF
ENDIF

VAR.OLDACT=<SRC.ACT>
SRC.NEWITEM i_macro_timer
SRC.ACT.MOREP=<MOREP>
SRC.ACT.TIMER=180
SRC.ACT.EQUIP
SRC.ACT=<EVAL <VAR.OLDACT>>
VAR.OLDACT=
SRC.TAG.MACRONUMBER1=<EVAL RAND(10)>
SRC.TAG.MACRONUMBER2=<EVAL RAND(10)>
SRC.DIALOG d_macro
REMOVE
RETURN 1

[ITEMDEF i_macro_timer]
ID=i_memory
NAME=Macro Timer
TYPE=t_eq_script

ON=@Create
ATTR=attr_invis|attr_move_never

ON=@Timer
CONT.TAG.MACROSKILL1=
CONT.TAG.MACROSKILL2=
CONT.TAG.MACROSKILL3=
CONT.TAG.MACROTIMES1=
CONT.TAG.MACROTIMES2=
CONT.TAG.MACROTIMES3=
CONT.TAG.MACRONUMBER1=
CONT.TAG.MACRONUMBER2=
CONT.NEWNPC c_dragon_macro
CONT.ACT.RUN n
CONT.ACT.RUN n
CONT.ACT.RUN n
CONT.ACT.RUN e
CONT.ACT.RUN s
CONT.ACT.RUN w
CONT.ACT.NEWITEM i_macro_dragon_timer
CONT.ACT.ACT.MOREX=<MOREX>
CONT.ACT.ACT.MOREY=<MOREY>
CONT.ACT.ACT.MOREZ=<EVAL RAND(10)>
CONT.ACT.ACT.MOREM=<EVAL RAND(10)>
CONT.ACT.ACT.MORE2=2
CONT.ACT.ACT.LINK=<CONT.UID>
CONT.ACT.ACT.TIMER=60
CONT.ACT.ACT.CONT=<CONT.ACT.UID>
CONT.ACT.SPEECHCOLOR=037
CONT.ACT.SAY Greetings, <CONT.NAME>. My master has sent me to ask you a math problem!
CONT.ACT.SPEECHCOLOR=0481
CONT.ACT.SAYU What is <EVAL <CONT.ACT.ACT.MOREZ>> + <EVAL <CONT.ACT.ACT.MOREM>>? You have <CONT.ACT.ACT.MORE2> minutes to respond! Say Macro Dragon Number if I do not respond to the number alone.
REMOVE
RETURN 1

[DIALOG d_macro]
0,0
page 0
noclose
nodispose
resizepic 100 110 2620 550 200
text 110 119 1152 1
text 110 139 1152 2
text 110 159 1152 3
text 110 179 1152 4
text 110 204 1152 5
resizepic 245 199 2620 200 35
textentry 250 204 200 20 1152 6 0
button 350 240 2076 2075 1 0 7

[DIALOG d_macro TEXT]
<VAR.NOTHING>
The server has reason to believe that you are unattended macroing.
You have five minutes to answer. If you do not, you will be jailed.
If you accidentally close this dialog, type .macrodialog to bring it up again.
You'll also need to type .macrodialog if you see "Unexpected button input" when clicking OK.
<EVAL <TAG.MACRONUMBER1>> + <EVAL <TAG.MACRONUMBER2>> =

[DIALOG d_macro BUTTON]
ON=7
IF (<EVAL <ARGTXT[6]>> != <EVAL <TAG.MACRONUMBER1> + <TAG.MACRONUMBER2>>)
SYSMESSAGE <TAG.MACRONUMBER1> + <TAG.MACRONUMBER2> is not <EVAL <ARGTXT[6]>>
DIALOG d_macro
ELSE
SRC.FINDID.i_macro_timer.REMOVE
SRC.TAG.MACRONUMBER1=
SRC.TAG.MACRONUMBER2=
SRC.TAG.MACROSKILL1=
SRC.TAG.MACROSKILL2=
SRC.TAG.MACROSKILL3=
SRC.TAG.MACROTIMES1=
SRC.TAG.MACROTIMES2=
SRC.TAG.MACROTIMES3=
SRC.TAG.TOTALMACROPENALTY=
VAR.OLDP=<SRC.P>
SRC.P=20,20
SRC.SAYUA 026, 0,0,eng,You have been marked attended.
SRC.P=<VAR.OLDP>
VAR.OLDP=
SRC.SYSMESSAGE You have been marked attended.
ENDIF

[FUNCTION macroskill]

//Exceptions to the macroing rules return 1.
IF (<ISGM>)
	RETURN 1
ENDIF

IF ((<EVAL <REVERSEFIXACTION>> > 50) || (<EVAL <REVERSEFIXACTION>> = 31))
	//Invalid skill number or archery.
	RETURN 1
ENDIF

IF (<EVAL <REVERSEFIXACTION>> < 1)
	//The player isn't using a skill.
	RETURN 1
ENDIF

IF (<EVAL <I.<EVAL <REVERSEFIXACTION>>>> >= 100.0)
	//Already grandmaster.
	RETURN 1
ENDIF

IF (<REGION.FLAGS> & region_flag_safe)
	//No skillgain in a safe zone.
	RETURN 1
ENDIF

IF ((<EVAL <REVERSEFIXACTION>> > 39) && (<EVAL <REVERSEFIXACTION>> < 44))
	//Fighting skills are only checked if the player is fighting something wimpy.
	//Furthermore, they are only checked in graveyards (since that's where the wimpy stuff usually is)
	IF !((STRMATCH(*graveyard*,<REGION.NAME>))||(STRMATCH(*cemetary*,<REGION.NAME>)))
		RETURN 1
	ENDIF

	IF (<ACT.STR> > <STR>)
		RETURN 1
	ENDIF
ENDIF

IF ((<EVAL <REVERSEFIXACTION>> = 25)&&(<ACT.ISCHAR>)&&(<ACT.UID> != <UID>))
	//Magery has its own conditions.
	IF (((<ACT.KARMA> < -2000)&&(<ACT.NPC>)) || (<ACT.MEMORYFINDTYPE.memory_war_targ.LINK.UID> = <UID>))
		RETURN 1
	ENDIF
ENDIF

IF (<EVAL <TAG.MACROSKILL1>> = 0)
	TAG.MACROSKILL1=<EVAL <REVERSEFIXACTION>>
	TAG.MACROTIMES1=0
ENDIF

IF ((<EVAL <REVERSEFIXACTION>> != <EVAL <TAG.MACROSKILL1>>)&&(<EVAL <TAG.MACROSKILL2>> = 0))
	TAG.MACROSKILL2=<EVAL <REVERSEFIXACTION>>
	TAG.MACROTIMES2=0
ENDIF

IF ((<EVAL <REVERSEFIXACTION>> != <EVAL <TAG.MACROSKILL1>>)&&(<EVAL <REVERSEFIXACTION>> != <EVAL <TAG.MACROSKILL2>>)&&(<EVAL <TAG.MACROSKILL3>> = 0))
	TAG.MACROSKILL3=<EVAL <REVERSEFIXACTION>>
	TAG.MACROTIMES3=0
ENDIF

IF (<EVAL <REVERSEFIXACTION>> = <EVAL <TAG.MACROSKILL1>>)
	TAG.MACROTIMES1=<EVAL <TAG.MACROTIMES1> + 1>
	TAG.TOTALMACROPENALTY=<EVAL <TAG.TOTALMACROPENALTY> + 1>
ELSEIF (<EVAL <REVERSEFIXACTION>> = <EVAL <TAG.MACROSKILL2>>)
	TAG.MACROTIMES2=<EVAL <TAG.MACROTIMES2> + 1>
	TAG.TOTALMACROPENALTY=<EVAL <TAG.TOTALMACROPENALTY> + 1>
ELSEIF (<EVAL <REVERSEFIXACTION>> = <EVAL <TAG.MACROSKILL3>>)
	TAG.MACROTIMES3=<EVAL <TAG.MACROTIMES3> + 1>
	TAG.TOTALMACROPENALTY=<EVAL <TAG.TOTALMACROPENALTY> + 1>
ELSE
	TAG.MACROTIMES1=1
	TAG.MACROTIMES2=
	TAG.MACROTIMES3=
	TAG.TOTALMACROPENALTY=1
	TAG.MACROSKILL1=<EVAL <REVERSEFIXACTION>>
	TAG.MACROSKILL2=
	TAG.MACROSKILL3=
ENDIF

IF !(<FINDID.i_macro_timer>)
	IF (<EVAL <TAG.MACROTIMES1>> > 100)
		MACROCHECK 1
		TAG.MACROTIMES1=
		TAG.MACROSKILL1=
		TAG.MACROTIMES2=
		TAG.MACROSKILL2=
		TAG.MACROTIMES3=
		TAG.MACROSKILL3=
	ELSEIF (<EVAL <TAG.MACROTIMES2>> > 100)
		MACROCHECK 2
		TAG.MACROTIMES1=
		TAG.MACROSKILL1=
		TAG.MACROTIMES2=
		TAG.MACROSKILL2=
		TAG.MACROTIMES3=
		TAG.MACROSKILL3=
	ELSEIF (<EVAL <TAG.MACROTIMES3>> > 100)
		MACROCHECK 3
		TAG.MACROTIMES1=
		TAG.MACROSKILL1=
		TAG.MACROTIMES2=
		TAG.MACROSKILL2=
		TAG.MACROTIMES3=
		TAG.MACROSKILL3=
	ENDIF
ENDIF

[SPEECH spk_macrodragon]
ON=*
IF (<SRC.UID> != <FINDID.i_macro_dragon_timer.LINK.UID>)
SAYU I am not asking you the question, I am asking <FINDID.i_macro_dragon_timer.LINK.NAME>.
RETURN 1
ENDIF

IF (STRLEN(<ARGS>) > 1)
SAYU Just tell me the number. Say "Macro Dragon number" if I don't respond.
ENDIF

IF (<EVAL <ARGS>> != <EVAL <FINDID.i_macro_dragon_timer.MOREZ> + <FINDID.i_macro_dragon_timer.MOREM>>)
SAYU <EVAL <FINDID.i_macro_dragon_timer.MOREZ>> + <EVAL <FINDID.i_macro_dragon_timer.MOREM>> is not <EVAL <ARGS>>!
RETURN 1
ENDIF

SAYU Correct... you have escaped me... THIS TIME.
FINDID.i_macro_dragon_timer.REMOVE
REMOVE
RETURN 1

[CHARDEF c_dragon_macro]
NAME=Macro Dragon
ID=c_dragon_red

TSPEECH=spk_macrodragon

ON=@Create
KARMA=0
FAME=0
STR=3500
INT=300
DEX=500

PARRYING=100.0
TACTICS=100.0
WRESTLING=100.0
MAGICRESISTANCE=100.0

NPC=brain_dragon

FOOD=5000

FLAGS=statf_freeze
SPEECHCOLOR=0481

[ITEMDEF i_macro_dragon_timer]
ID=i_memory
TYPE=t_eq_script
NAME=Macro Dragon Memory

ON=@Create
ATTR=attr_move_never|attr_invis

ON=@Timer
MORE2=<EVAL <MORE2> +(-1)>
IF (<MORE2> = 0)
CONT.SAYU Hmm... you look tasty, <LINK.NAME>!
CONT.ANIM 12
TIMER=2
RETURN 1
ENDIF

IF (<MORE2> = -1)
VAR.OLDP=<CONT.P>
CONT.GOITEMID i_chest_macro_items
LINK.FINDLAYER.21.NAME=<LINK.NAME>'s pack
LINK.FINDLAYER.21.ATTR=<LINK.FINDLAYER.21.ATTR> &~ attr_newbie
LINK.FINDLAYER.21.CONT=<CONT.ACT.UID>
CONT.GO <VAR.OLDP>
VAR.OLDP=
//Adjust the penalty by "the macro multiplier"
//Uncomment your choice of penalty growth rates.
//Comment out both if you want the penalty to remain constant at 1x.
//Uncommenting both will make the penalty cubic... which is nuts.

//Linear:
//LINK.TAG.TOTALMACROPENALTY=<EVAL ((0<LINK.TAG.TOTALMACROPENALTY> * (0<LINK.TAG.CAUGHTMACROING>+1)) / 3)>

//Quadratic:
LINK.TAG.TOTALMACROPENALTY=<EVAL ((0<LINK.TAG.TOTALMACROPENALTY> * ((0<LINK.TAG.CAUGHTMACROING>*0<LINK.TAG.CAUGHTMACROING>)+1)) / 3)>

LINK.TITLE=Macroed <MOREX> - Penalty <EVAL <LINK.TAG.TOTALMACROPENALTY>>
LINK.KILL

IF ((<LINK.FINDID.i_lockskill>)&&(<LINK.FINDID.i_lockskill.MOREX> = <MOREX>))
	LINK.FINDID.i_lockskill.REMOVE
ENDIF

CONT.NEWITEM i_lockskill
CONT.ACT.MOREX=<MOREX>

IF (<EVAL <LINK.TAG.TOTALMACROPENALTY>> < <LINK.<MOREX>>)
	CONT.ACT.MORE2=<EVAL <LINK.<MOREX>> +(-1*<LINK.TAG.TOTALMACROPENALTY>)>
ELSE
	CONT.ACT.MORE2=0.0
ENDIF

LINK.TAG.TOTALMACROPENALTY=
LINK.TAG.CAUGHTMACROING=<EVAL 0<LINK.TAG.CAUGHTMACROING>+1>	//This is permanent.
CONT.ACT.LINK=<LINK.UID>
LINK.EQUIP <CONT.ACT.UID>
CONT.ACT.TIMER=1
CONT.EMOTE takes <LINK.NAME>'s pack to its master
LINK.SYSMESSAGE You will have to page a GM if you want your items back, your title restored, and the skill lock taken off. They will then decide what to do about your skills.
TIMER=3
RETURN 1
ENDIF

IF (<MORE2> = -2)
CONT.REMOVE
RETURN 1
ENDIF

CONT.SAYU You have <MORE2> minutes left! What is <EVAL <MOREZ>> + <EVAL <MOREM>>?
TIMER=60
RETURN 1

[ITEMDEF i_chest_macro_items]
ID=i_chest_metal_brass
NAME=Macroers' Items

ON=@Create
ATTR=attr_move_never|attr_invis
COLOR=0482

ON=@DClick
IF !(<SRC.ISGM>)
RETURN 1
ENDIF

[ITEMDEF i_lockskill]
ID=01ea7
TYPE=t_eq_script
LAYER=30
NAME=Skill Lock

ON=@Create
MOREX=0
MORE1=288
MORE2=0
ATTR=attr_invis|attr_move_never
TIMER=5*60

ON=@Equip
IF !(<LINK.ISCHAR>)
	LINK=<SRC.UID>
ENDIF

ON=@Timer

IF !(<LINK.ISCHAR>)
	REMOVE
ENDIF

IF (<LINK.<MOREX>> > <MORE2>)
	TRYP 0 LINK.<MOREX>=<MORE2>
ENDIF

IF (<LINK.<MOREX>> > <MORE2>)
	//If for some reason the skill was not set...
	//Stone them and make a GM come.
	LINK.STONE 1
	LINK.SYSMESSAGE Your skill lock is not working. Please page a GM.
ENDIF

MORE1=<MORE1>-1
TIMER=5*60

IF (<MORE1> <= 1)
	LINK.SYSMESSAGE Your skill is no longer locked.
	REMOVE
ENDIF

RETURN 1