Permalink
Browse files

Merge pull request #24 from AstroBryGuy/master

updating backup master
  • Loading branch information...
2 parents 3c86449 + b6d8d19 commit eea73d0e3013fa4d0336ac6a407bb4539e71efa8 @cmorganbg committed Jul 16, 2015
View

Large diffs are not rendered by default.

Oops, something went wrong.
View
@@ -1,221 +0,0 @@
-OUTER_SET fl#HANDLE_CHARSETS#VERSION = 1
-
-DEFINE_ACTION_FUNCTION fl#HANDLE_CHARSETS#WHICH#INFER
- RET
- charset
-BEGIN
- ACTION_MATCH "%LANGUAGE%" WITH
- ".*schinese.*"
- BEGIN
- OUTER_SPRINT charset "CP936"
- END
-
- /* Doubts remain about whether CP950 is the correct charset for
- * Traditional Chinese, mainly due to the translation of the
- * BG2 Fixpack, which does not appear to be perfectly represented
- * by CP950.
- * Possible other alternatives include something involving the
- * Hong Kong Supplementary Character Set (HKSCS) or Windows'
- * non-standard CP950+CP951 hack (which appears to be unavailable
- * outside of Traditionally Chinese Windows).
- * Cf. Wikipedia on Big5.
- */
- ".*tchinese.*"
- BEGIN
- OUTER_SPRINT charset "CP950"
- END
-
- ".*czech.*"
- BEGIN
- OUTER_SPRINT charset "CP1250"
- END
-
- ".*english.*" ".*american.*"
- BEGIN
- OUTER_SPRINT charset "CP1252"
- END
-
- ".*french.*"
- BEGIN
- OUTER_SPRINT charset "CP1252"
- END
-
- ".*german.*"
- BEGIN
- OUTER_SPRINT charset "CP1252"
- END
-
- ".*italian.*"
- BEGIN
- OUTER_SPRINT charset "CP1252"
- END
-
- ".*japanese.*"
- BEGIN
- OUTER_SPRINT charset "CP932"
- END
-
- ".*korean.*"
- BEGIN
- OUTER_SPRINT charset "CP949"
- END
-
- ".*polish.*" ".*polski.*"
- BEGIN
- OUTER_SPRINT charset "CP1250"
- END
-
- ".*russian.*"
- BEGIN
- OUTER_SPRINT charset "CP1251"
- END
-
- ".*spanish.*" ".*castilian.*"
- BEGIN
- OUTER_SPRINT charset "CP1252"
- END
-
- DEFAULT
- FAIL "ERROR: charset could not be inferred for language %LANGUAGE%"
- END
-END
-
-DEFINE_ACTION_FUNCTION fl#HANDLE_CHARSETS#WHICH
- INT_VAR
- infer_charset = 0
- STR_VAR
- charset_table = ~~
- RET
- charset
-BEGIN
- ACTION_IF infer_charset BEGIN
- LAF fl#HANDLE_CHARSETS#WHICH#INFER RET charset END
- END ELSE BEGIN
- OUTER_SPRINT lang "%LANGUAGE%"
- ACTION_TO_LOWER lang
- ACTION_IF VARIABLE_IS_SET $charset_table("%lang%") BEGIN
- OUTER_SPRINT charset $charset_table("%lang%")
- END ELSE BEGIN
- FAIL "ERROR: no tabulated charset could be found for language %lang%"
- END
- END
-END
-
-DEFINE_ACTION_FUNCTION fl#HANDLE_CHARSETS#CONVERT
- INT_VAR
- fail_on_errors = 1
- STR_VAR
- iconv = ~iconv~
- quote = ~"~
- path = ~~
- file = ~~
- from_charset = ~123fakecharset~
- to_charset = ~UTF-8~
-BEGIN
- ACTION_IF fail_on_errors BEGIN
- OUTER_SPRINT c_option ""
- END ELSE BEGIN
- OUTER_SPRINT c_option "-c"
- END
- OUTER_SPRINT infile ~%path%/%file%~
- OUTER_SPRINT outfile ~%path%/fl#utf8_%file%~
- ACTION_TRY
- COPY "%infile%" "%outfile%"
- /*
- * The -o option does not appear to be supported by all implementations
- */
- AT_NOW ~%iconv% %c_option% -f %from_charset% -t %to_charset% %quote%%infile%%quote% > %quote%%outfile%%quote%~
- COPY "%outfile%" "%infile%"
- WITH
- DEFAULT
- PRINT "ERROR: unable to convert %infile% from %from_charset% into %to_charset%"
- ACTION_RERAISE
- END
-END
-
-DEFINE_ACTION_FUNCTION HANDLE_CHARSETS
- INT_VAR
- infer_charset = 0
- fail_on_errors = 1
- STR_VAR
- tra_path = ~~
- iconv_path = EVAL ~%tra_path%/iconv~
- charset_table = ~~
- convert_array = ~~
- noconvert_array = ~~
- reload_array = ~~
-BEGIN
- ACTION_IF ENGINE_IS ~bgee bg2ee~ AND !FILE_EXISTS ~%tra_path%/%LANGUAGE%/fl#utf8.mrk~ BEGIN
- ACTION_MATCH ~%WEIDU_OS%~ WITH
- win32
- BEGIN
- OUTER_SPRINT iconv ~%iconv_path%/iconv.exe~
- OUTER_SPRINT quote ~"~
- END
-
- osx unix
- BEGIN
- OUTER_SPRINT iconv ~iconv~
- OUTER_SPRINT quote ~'~
- END
-
- DEFAULT
- END
- LAF fl#HANDLE_CHARSETS#WHICH
- INT_VAR
- infer_charset
- STR_VAR
- charset_table
- RET
- from_charset = charset
- END
- ACTION_IF ("%WEIDU_OS%" STRING_EQUAL_CASE "win32" AND FILE_EXISTS "%iconv%") OR
- ("%WEIDU_OS%" STRING_EQUAL_CASE "osx" OR "%WEIDU_OS%" STRING_EQUAL_CASE "unix")
- BEGIN
- ACTION_IF VARIABLE_IS_SET $EVAL "%convert_array%"(0) BEGIN
- ACTION_PHP_EACH "%convert_array%" AS _ => filename BEGIN
- LAF fl#HANDLE_CHARSETS#CONVERT
- INT_VAR
- fail_on_errors
- STR_VAR
- iconv
- quote
- path = EVAL ~%tra_path%/%LANGUAGE%~
- file = EVAL ~%filename%.tra~
- from_charset
- END
- END
- END ELSE BEGIN
- ACTION_BASH_FOR ~%tra_path%/%LANGUAGE%~ ~.+\.tra$~ BEGIN
- OUTER_SET convert = 1
- /* This makes for a more consistent interface, albeit slightly
- * messier code. noconvert_array is very likely to be short.
- */
- ACTION_PHP_EACH "%noconvert_array%" AS _ => filename BEGIN
- ACTION_IF "%filename%" STRING_EQUAL_CASE "%BASH_FOR_RES%" BEGIN
- OUTER_SET convert = 0
- END
- END
- ACTION_IF convert BEGIN
- LAF fl#HANDLE_CHARSETS#CONVERT
- INT_VAR
- fail_on_errors
- STR_VAR
- iconv
- quote
- path = EVAL "%BASH_FOR_DIRECTORY%"
- file = EVAL "%BASH_FOR_FILE%"
- from_charset
- END
- END
- END
- END
- ACTION_PHP_EACH "%reload_array%" AS _ => file BEGIN
- LOAD_TRA ~%tra_path%/%LANGUAGE%/%file%.tra~
- END
- COPY_EXISTING sw1h01.itm ~%tra_path%/%LANGUAGE%/fl#utf8.mrk~
- END ELSE BEGIN
- FAIL "ERROR: charsets were not converted because iconv could not be found in %iconv_path%"
- END
- END
-END
@@ -1,23 +1,48 @@
/* X#LP1R.BAF */
IF
-!AreaCheck("%Peldvale%")
-See([PC])
-Global("X#LP1RExists","GLOBAL",1)
-Global("X#TT1Deactivate","GLOBAL",0)
+ OR(2)
+ AttackedBy([GOODCUTOFF],DEFAULT)
+ HitBy([GOODCUTOFF],CRUSHING)
+ Allegiance(Myself,NEUTRAL)
THEN
- RESPONSE #50
- DisplayStringHead(Myself,@0)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@1)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@2)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@3)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@4)
- Wait(20)
+ RESPONSE #100
+ Shout(99)
+ PlaySound("%tutu_var%EDWIN43")
+ %RunAwayFrom%(LastAttackerOf(Myself),180)
+ DialogInterrupt(FALSE)
+ SetGlobal("X#TT1Deactivate","GLOBAL",1)
+END
+
+IF
+ Heard([ANYONE],99)
+ Allegiance(Myself,NEUTRAL)
+THEN
+ RESPONSE #100
+ %RunAwayFrom%(LastHeardBy(Myself),180)
+ DialogInterrupt(FALSE)
+ SetGlobal("X#TT1Deactivate","GLOBAL",1)
+END
+
+IF
+ !AreaCheck("%Peldvale%")
+ See([PC])
+ Global("X#LP1RExists","GLOBAL",1)
+ Global("X#TT1Deactivate","GLOBAL",0)
+ !Allegiance(Myself,ENEMY)
+THEN
+ RESPONSE #50
+ DisplayStringHead(Myself,@0)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@1)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@2)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@3)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@4)
+ Wait(20)
END
@@ -1,23 +1,49 @@
/* X#LP2R.BAF */
IF
-See([PC])
-!AreaCheck("%Peldvale%")
-Global("X#LP2RExists","GLOBAL",1)
-Global("X#TT2Deactivate","GLOBAL",0)
+ OR(2)
+ AttackedBy([GOODCUTOFF],DEFAULT)
+ HitBy([GOODCUTOFF],CRUSHING)
+ Allegiance(Myself,NEUTRAL)
THEN
- RESPONSE #50
- DisplayStringHead(Myself,@0)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@1)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@2)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@3)
- Wait(20)
- RESPONSE #50
- DisplayStringHead(Myself,@4)
- Wait(20)
+ RESPONSE #100
+ Shout(99)
+ PlaySound("%tutu_var%EDWIN43")
+ %RunAwayFrom%(LastAttackerOf(Myself),180)
+ DialogInterrupt(FALSE)
+ SetGlobal("X#TT2Deactivate","GLOBAL",1)
END
+
+IF
+ Heard([ANYONE],99)
+ Allegiance(Myself,NEUTRAL)
+THEN
+ RESPONSE #100
+ %RunAwayFrom%(LastHeardBy(Myself),180)
+ DialogInterrupt(FALSE)
+ SetGlobal("X#TT2Deactivate","GLOBAL",1)
+END
+
+IF
+ !AreaCheck("%Peldvale%")
+ See([PC])
+ Global("X#LP2RExists","GLOBAL",1)
+ Global("X#TT2Deactivate","GLOBAL",0)
+ !Allegiance(Myself,ENEMY)
+THEN
+ RESPONSE #50
+ DisplayStringHead(Myself,@0)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@1)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@2)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@3)
+ Wait(20)
+ RESPONSE #50
+ DisplayStringHead(Myself,@4)
+ Wait(20)
+END
+
Oops, something went wrong.

0 comments on commit eea73d0

Please sign in to comment.