code/hesmash.cmd at main · SaragosDR/code · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
var scripttag SMASH
include library.cmd
include helibrary.cmd

action var lootreceived $1 when The shell gives way, leaving you with (.*)\.
action var needsheal 1 when A .* shell explodes, embedding fragments directly into your abdomen\.
action put #echo >Log Yellow [%scripttag] Out of money.  Withdrawing more. when A nearby attendant in an otter costume explains, \"Perhaps you should return when you have enough coins\.\"
action var needsheal 1 when eval $bleeding = 1

var grabtotal 10

var startroom 79
var regenmana 9

var empathheal 1
var healmana $m$pscriptmodehealprepmana
math healmana add $m$pscriptmodehealaddmana

MAIN:
  var grabcount 0
  if (($guild = "Empath") && (%empathheal = 1)) then
  {
    if ((%needsheal = 1) || ($SpellTimer.Heal.active != 1) || ($SpellTimer.Heal.duration < 2))  then
    {
      gosub MOVE 35
      gosub REMOVELODGED
      if (($SpellTimer.Heal.active != 1) || ($SpellTimer.Heal.duration < 2)) then
      {
        put .p heal %healmana
		    waitfor PCASTING COMPLETE!
      }
      var needsheal 0
    }
  }
  else
  {
		if (%needsheal = 1) then
		{
			gosub MOVE 35
			gosub REMOVELODGED
			gosub GETHEALED
			var needsheal 0
		}
  }
  gosub LOCATIONCHECK
  gosub STOWALL
	gosub GRABBOX
	if (%needsheal = 1) then goto MAIN
	gosub MOVE 80
	gosub BREAKSHELL
  goto MAIN


GRABBOXP:
  pause
GRABBOX:
  matchre GRABBOXP \.\.\.wait|type ahead|stunned|while entangled in a web\.|You don't seem to be able to move
  match GRABBOXGOOD You pick up
  match GRABWOUND As you pick up a shell, claws emerge from its opening.  They quickly clamp down hard on your hand, causing you to drop the shell.  OUCH!
  match GRABWOUND An attendant in an otter costume exclaims, "You should clean your hands before you eat!".
  match GRABSTOW You're going to need your right hand free to do that.
  match GRABNO Selecting the nearest shell, you grab at it haphazardly.  You fail to get a firm hold on your treasure, and it falls back into an enormous box of shells.
  match GRABNO You get a firm grip on a shell from the pile.  Not wanting to risk it slipping away, you squeeze down on your prize until it gives way!  The shell crumbles in your hand, and its fragments fall back into an enormous box of shells.
  match OUTOFMONEY A nearby attendant in an otter costume explains, "Perhaps you should return when you have enough coins."
  put grab box
  matchwait

OUTOFMONEY:
  gosub MOVE teller
  gosub HECOINWITHDRAW 10 platinum kronars
  gosub MOVE %startroom
  goto GRABBOX

GRABBOXGOOD:
  math totalattempts add 1
  math totalspent add 1000
  return

GRABSTOW:
  math totalattempts add 1
  math totalspent add 1000
  gosub STOWALL
  goto GRABBOX

GRABWOUND:
  math totalattempts add 1
  math totalspent add 1000
  var needsheal 1
  return

GRABNO:
  math totalattempts add 1
  math totalspent add 1000
  goto GRABBOX

BREAKSHELLP:
  pause
BREAKSHELL:
  matchre BREAKSHELLP \.\.\.wait|type ahead|stunned|while entangled in a web\.|You don't seem to be able to move
  matchre BREAKSHELLGOOD The shell gives way, leaving you with
  matchre RETURN A .* shell finally breaks open, but it was empty!
  matchre RETURN You lose hold of a .* shell\.
  matchre RETURN A .* shell explodes, embedding fragments directly into your .*\.
  match RETURN The repeated bashing begins to grow more and more painful until you stop.
  matchre RETURN A sharp edge of .* shell nicks your abdomen.  Ouch!  Having made no progress, you toss the shell away\.
  match RETURN Break what?
  put break my shell
  matchwait

BREAKSHELLGOOD:
  gosub HANDLELOOT
  return