-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathpage.ts
139 lines (124 loc) · 3.69 KB
/
page.ts
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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
#page-alarm script
:vars
setVar $count 1
setVar $script "(page_alarm)"
setVar $scriptname "$playerName's page alarm script"
setVar $version "v. 0.1"
setVar $last_hit 0
:get_info
send "i"
setTextLineTrigger 1 :get_name "Trader Name"
pause
:get_name
killalltriggers
setVar $line CURRENTLINE
stripText $line "Trader Name"
stripText $line ":"
goSub :striptext
stripText $line " "
setvar $trader_name $line
:on_line
send "'" $script " active*"
:msg
killalltriggers
send "'" $script " to page user type : 'page_" $trader_name "'*"
:triggers
killalltriggers
setTextTrigger 0 :limpet "Limpet mine in "
setTextTrigger 1 :alarm "Report Sector "
setTextTrigger 2 :page "page_" & $trader_name
setDelayTrigger 3 :msg 350000
pause
:limpet
killalltriggers
if ($count = 1) OR ($count = 10) OR ($count = 20) OR ($count = 30) OR ($count = 40) OR ($count = 50) OR ($count = 100)
sound life_ending.wav
add $count 1
else
sound anvil.wav
add $count 1
end
goto :triggers
:alarm
killalltriggers
setVar $line CURRENTLINE
getWord $line $test 1
if ($test <> "Deployed")
goto :triggers
end
getWord $line $target 6
if ($target = "Ferrengi") OR ($target = "Green") OR ($target = "Spammers")
goto :triggers
end
getWord $line $sector_hit 5
stripText $sector_hit ":"
if ($sector_hit = $last_hit)
goto :triggers
end
setVar $last_hit $sector_hit
:sound
if ($count = 1)
sound life_ending.wav
add $count 1
else
sound anvil.wav
end
goto :triggers
:page
killalltriggers
setVar $line CURRENTLINE
getWord $line $test 1
if ($test <> "R")
goto :triggers
end
sound mrlif.wav
send "'" $script " " $trader_name " has been paged*"
goto :triggers
#SUGROUTINES#
:striptext
striptext $line "Civilian "
striptext $line "Private 1st Class "
striptext $line "Private "
striptext $line "Lance Corporal "
striptext $line "Corporal "
striptext $line "Staff Sergeant "
striptext $line "Gunnery Sergeant "
striptext $line "1st Sergeant "
striptext $line "Sergeant Major "
striptext $line "Sergeant "
striptext $line "Chief Warrant Officer "
striptext $line "Warrant Officer "
striptext $line "Ensign "
striptext $line "Lieutenant J.G. "
striptext $line "Lieutenant Commander "
striptext $line "Lieutenant "
striptext $line "Commander "
striptext $line "Captain "
striptext $line "Commodore "
striptext $line "Rear Admiral "
striptext $line "Vice Admiral "
striptext $line "Admiral "
striptext $line "Fleet Admiral "
striptext $line "Annoyance "
striptext $line "Nuisance 1st Class "
striptext $line "Nuisance 2nd Class "
striptext $line "Nuisance 3rd Class "
striptext $line "Menace 1st Class "
striptext $line "Menace 2nd Class "
striptext $line "Menace 3rd Class "
striptext $line "Smuggler 1st Class "
striptext $line "Smuggler 2nd Class "
striptext $line "Smuggler 3rd Class "
striptext $line "Smuggler Savant "
striptext $line "Robber "
striptext $line "Terrorist "
striptext $line "Infamous Pirate "
striptext $line "Notorious Pirate "
striptext $line "Dread Pirate "
striptext $line "Pirate "
striptext $line "Galactic Scourge "
striptext $line "Enemy of the State "
striptext $line "Enemy of the People "
striptext $line "Enemy of Humankind "
striptext $line "Heinous Overlord "
return