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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
(*
This file is part of Hercules.
http://herc.ws - http://github.com/HerculesWS/Hercules
Copyright (C) 2014-2020 Hercules Dev Team
Hercules is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-- Base Author: Haru @ http://herc.ws
(*
*************************************************************
*************************************************************
******** **************
******** NOTE: This script must be saved as app!!! **************
******** **************
*************************************************************
*************************************************************
*)
property allowed_extensions : {"txt", "c", "ath", "herc"}
property allowed_types : {"TEXT"}
on run
try
set the resource_path to path to resource "Scripts"
tell application "Finder" to set the resource_path to the container of the resource_path
on error
display alert "Error" message "You need to save this script as an app bundle." buttons {"Cancel"} cancel button 1 as warning
end try
set the dialog_result to display dialog "You can drag files to this app to have them checked." with title "Hercules Script Checker" buttons {"Cancel", "(Re)build Hercules", "Check Script"} default button 3 cancel button 1
if the button returned of the dialog_result is "(Re)build Hercules" then
rebuild()
else
set these_items to choose file of type allowed_extensions with prompt "Choose the script(s) you want to check:" with multiple selections allowed
process_items(these_items)
end if
end run
on open these_items
process_items(these_items)
end open
on build_hercules(hercules_repo)
try
set the resource_path to path to resource "Scripts"
tell application "Finder" to set the resource_path to the container of the resource_path
on error
display alert "Error" message "You need to save this script as an app bundle." buttons {"Cancel"} cancel button 1 as warning
end try
set the configuration_flags to display dialog "Do you want to use any configuration flags? (i.e. --disable-renewal)" with title "Configuration" default answer "" buttons {"Cancel", "Ok"} default button 2 cancel button 1
try
set the command_output to do shell script "cd " & (the quoted form of the POSIX path of the hercules_repo) & " && echo './configure " & the text returned of the configuration_flags & " 2>&1' | bash -i"
on error
display dialog "Configuration failed" with title "Configuration result" buttons {"Abort"} cancel button 1
end try
tell application "TextEdit"
activate
set the new_document to make new document
set the text of new_document to the command_output
end tell
display dialog "Configuration successfully completed. Please check the log file for details." with title "Configuration result" buttons {"Abort", "Continue"} default button 2 cancel button 1
try
set the command_output to do shell script "cd " & (the quoted form of the POSIX path of the hercules_repo) & " && echo 'make clean 2>&1 && make sql -j8 2>&1' | bash -i"
on error
display dialog "Build failed." with title "Build result" buttons {"Abort"} cancel button 1
end try
tell application "TextEdit"
activate
set the new_document to make new document
set the text of new_document to the command_output
end tell
display dialog "Build successfully completed. Please check the log file for details." with title "Build result" buttons {"Abort", "Continue"} default button 2 cancel button 1
set the files_to_copy to {"map-server", "script-checker"}
set the conf_files_to_copy to {"inter-server.conf", "import", "packet.conf", "script.conf"}
set the db_files_to_copy to {"map_index.txt", "item_db2.txt", "constants.conf", "mob_db2.txt"}
set the db2_files_to_copy to {"map_cache.dat", "item_db.txt", "skill_db.txt", "mob_db.txt"}
try
set the hercules_path to path to resource "Hercules"
do shell script "rm -r " & the quoted form of ((the POSIX path of hercules_path) & "/")
end try
set the hercules_path to the resource_path
tell application "Finder" to make new folder at hercules_path with properties {name:"Hercules"}
delay 3
set the hercules_path to path to resource "Hercules"
repeat with each_file in files_to_copy
copy_file(each_file, hercules_repo, hercules_path, ".")
end repeat
do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/conf")
repeat with each_file in conf_files_to_copy
copy_file(each_file, hercules_repo, hercules_path, "conf")
end repeat
do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/db")
repeat with each_file in db_files_to_copy
copy_file(each_file, hercules_repo, hercules_path, "db")
end repeat
do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/db/pre-re")
repeat with each_file in db2_files_to_copy
copy_file(each_file, hercules_repo, hercules_path, "db/pre-re")
end repeat
do shell script "mkdir " & the quoted form of ((POSIX path of the hercules_path) & "/db/re")
repeat with each_file in db2_files_to_copy
copy_file(each_file, hercules_repo, hercules_path, "db/re")
end repeat
display dialog "Build complete" with title "Done" buttons {"Ok"} default button "Ok"
end build_hercules
on rebuild()
set the repo_path to choose folder with prompt "Choose the folder where your Hercules repository is located:"
build_hercules(repo_path)
end rebuild
on copy_file(filename, source, destination, subpath)
do shell script "cp -rp " & the quoted form of ((the POSIX path of source) & "/" & subpath & "/" & filename) & " " & the quoted form of ((the POSIX path of destination) & "/" & subpath & "/")
end copy_file
on process_items(these_items)
repeat
try
set the scriptchecker to the path to resource "script-checker" in directory "Hercules"
set the mapserver to the path to resource "map-server" in directory "Hercules"
on error
display alert "Missing Hercules binaries" message "You need to build Hercules and place it within this app bundle before running the script checker." & linefeed & linefeed & "I can try to build it for you, but only if you have the Xcode command line tools installed." & linefeed & "Do you want to continue?" buttons {"Cancel", "Build"} default button "Build" cancel button "Cancel" as warning
rebuild()
return false
end try
exit repeat
end repeat
repeat with i from 1 to the count of these_items
set this_item to item i of these_items
set the item_info to info for this_item
set this_name to the name of the item_info
try
set this_extension to the name extension of item_info
on error
set this_extension to ""
end try
try
set this_filetype to the file type of item_info
on error
set this_filetype to ""
end try
if (folder of the item_info is false) and (alias of the item_info is false) and ((this_filetype is in the allowed_types) or (this_extension is in the allowed_extensions)) then
process_item(scriptchecker, this_item)
end if
end repeat
end process_items
on process_item(checkerpath, this_item)
set the_result to do shell script (the quoted form of the POSIX path of checkerpath & " " & the quoted form of the POSIX path of this_item) & " 2>&1"
if the_result is "" then
set the_result to "Check passed."
end if
display dialog ("File: " & POSIX path of this_item) & linefeed & "Result: " & linefeed & the_result with title "Output" buttons {"Abort", "Next"} default button "Next" cancel button "Abort"
end process_item
|
