era/문법

;MONEY에 500을 대입한다
MONEY = 500

;아래의 표현들은, 전부 MONEY에 500을 대입한다
MONEY = 250 + 250
MONEY = 1000 - 500
MONEY = 100 * 5

;나눗셈의 경우, 나머지는 버린다
MONEY = 3506 / 7

;나머지는 % 연산자를 이용한다.
MONEY = 2500 % 1000

;수식에 괄호를 사용할 수 있다
MONEY = (70+30)*5

;MONEY에 100을 더한다
MONEY = MONEY + 100

;MONEY에 변수 RESULT의 값을 더한다
MONEY = MONEY + RESULT

;MONEY에 변수 RESULT의 값을 더한다
MONEY += RESULT

;MONEY에서 100을 뺀다
MONEY -= 100

;MONEY에 2를 곱한다
MONEY *= 5 - 3

;MONEY에서 2를 나눈다
MONEY /= (3 - 1) * 2

;MONEY에 MONEY를 1000으로 나눈 나머지를 대입한다
MONEY %= 1000

MONEY += 1
MONEY ++

MONEY -= 1
MONEY --

;LOCAL의 0번째 요소에 0을 대입한다.
LOCAL = 0
LOCAL:0 = 0

;LOCAL의 1번째 요소에 1을 대입한다.
LOCAL:1 = 1
RESULT = 1
LOCAL:RESULT = 1

;0번째 FLAG에 1을 대입한다.
FLAG:0 = 1

;1번째 FLAG에 RESULT의 1번 요소의 값을 대입한다.
FLAG:1 = RESULT:1

;LOCAL의 0번째, 1번째, 2번째 요소에 각각 100, 200, 300을 대입한다.
LOCAL:0 = 100, 200, 300

;FLAG:0에 저장된 값을 참조하여, LOCAL의 요소에 1을 대입한다.
FLAG:0 = 0
LOCAL:(FLAG:0) = 1

;다음과 같이 작성하면 에러가 발생한다.
RESULT:-1 = 0

;다음과 같이 작성했을 때, VariableSize.csv에서 정의한 BASE의 크기가 100 이하일 경우, 에러가 발생한다.
;배열의 마지막 순서는 (배열의 크기 - 1)번째이다. 예를 들어 크기가 100인 배열의 마지막 순서는 99번째이다.
BASE:100 = 0

;문자열형 변수 LOCALS에 "맘보토"를 대입한다.
LOCALS = 맘보토

;LOCALS에 문자열 "맘씨 좋은 보라 토끼에요"를 대입한다.
LOCALS = 맘씨 좋은 보라 토끼에요
LOCALS '= "맘씨 좋은 보라 토끼에요";맘껏 쓰는 보지토끼 아니냐???

;LOCALS에 문자열 "맘씨 좋은 보라 토끼에요;맘껏 쓰는 보지토끼 아니냐???"를 대입한다. (종종 이렇게 실수하는 경우가 있다.)
LOCALS = 맘씨 좋은 보라 토끼에요;맘껏 쓰는 보지토끼 아니냐???

;LOCALS에 문자열 "LOCAL:0"을 대입한다.
LOCALS = LOCAL:0

;LOCALS에 조교 대상의 캐릭터 문자열형 변수 CALLNAME의 값을 대입한다.
LOCALS = %CALLNAME:TARGET%
LOCALS '= CALLNAME:TARGET

;LOCALS에 문자열 "%CALLNAME:TARGET%"을 대입한다. (이렇게 잘못 작성하는 경우가 종종 있다)
LOCALS '= "%CALLNAME:TARGET%"

;LOCALS에 조교 대상의 CALLNAME 값에 " 씨"를 붙인 문자열을 대입한다.
LOCALS '= @"%CALLNAME:TARGET% 씨"

;다음과 같이 작성하면 오류가 발생한다.
LOCALS '= %CALLNAME:TARGET%

;LOCALS에 LOCALS:1의 값을 붙인다. ("조교순애"가 된다.)
LOCALS:0 '= "조교", "순애"
LOCALS += LOCALS:1

;LOCALS에 문자열 " 씨"을 붙인다. ("텍붕이 씨"가 된다.)
LOCALS '= "텍붕이"
LOCALS += " 씨"

;LOCALS에 LOCALS의 값을 2번 반복한 내용을 대입한다. ("텍붕텍붕"이 된다)
LOCALS = 텍붕
LOCALS *= 2

;다음과 같이 작성하면 오류가 발생한다.
LOCALS '= LOCALS:1 - LOCALS:2
LOCALS -= LOCALS:1
LOCALS *= LOCALS:1
LOCALS = LOCALS / 2
LOCALS = LOCALS % 2
LOCALS /= 2
LOCALS %= 2

;1번 캐릭터의 0번째 CFLAG에 1을 대입한다.
CFLAG:1:0 = 1

;주인(플레이어 캐릭터)의 0번째 CFLAG에 1을 대입한다.
CFLAG:MASTER:0 = 1

;조교 대상의 0번째 CFLAG에 1을 대입한다.
CFLAG:0 = 1

;다차원 배열 변수 DA의 0번째 배열의 1번째 요소에 2를 대입한다.
DA:0:1 = 2

@SAMPLEFUNC(ARGS,ARGS:1)
RESULTS:0 = ARGS + ARGS:1
RETURN 1

;FLAG.csv
0,난이도
1,게임모드

;아무데서든.ERB
IF FLAG:게임모드 == 2
    PRINTW 노 모어 글레이즈 모드입니다.
ENDIF

FOR LOCAL,0,CHARANUM
    PRINTSL NAME:LOCAL
NEXT
;모든 캐릭터의 이름을 등록 번호 순서대로 출력한다.

;RAND:2는 무작위로 0부터 1까지 범위의 수치를 값으로 갖는다.
;IF 조건 분기 명령에서 0은 거짓, 그 밖의 수는 참이므로 반반의 확률로 당첨이거나, 꽝이거나인 상황을 나타낸다.
IF RAND:2
    PRINTW 당첨입니다.
ELSE
    PRINTW 꽝입니다.
ENDIF

;더 큰 범위도 지정할 수 있다.
SELECTCASE RAND:100
    CASE 0 TO 65
        PRINTW 꽝입니다.
    CASE 66 TO 89
        PRINTW 당첨이... 아니라 다시 보니까 꽝이 맞네요.
    CASE 90 TO 99
        PRINTW 당첨이네요?
ENDSELECT

@함수명
#LOCALSIZE <설정할 요소 수>

RETURN 1

@TESTFUNC
LOCAL:0 = 100;  LOCAL:0에 100을 대입한다

CALL SMALLFUNC

LOCAL:0 /= 2;   LOCAL:0을 2로 나누어 대입한다.
PRINTV LOCAL:0; LOCAL:0의 값을 출력한다.
WAIT

RETURN 1

@SMALLFUNC
LOCAL:0 -= 50;  LOCAL:0에서 50을 빼고 대입한다.

RETURN 1

VARSET LOCAL

@TESTFUNC
LOCAL:0 = 50
LOCAL:1 = 2

CALL SMALLFUNC(LOCAL:0, LOCAL:1)

PRINTV RESULT
WAIT

RETURN 1

;이 함수는 전달받은 인수를 곱한 값을 반환한다.
@SMALLFUNC(ARG:0, ARG:1)
LOCAL:0 = ARG:0 * ARG:1
RETURN LOCAL:0

;다음 두 가지는 동일한 표현이다.
EXP:TARGET:0 += 4

EXP:0 += 4

;전투 중 캐릭터에게 상태이상에 걸리면 잠시 동안은 내성이 생기는 시스템을 상정한 예시이다.
#DIM CHARDATA 상태이상,4
#DIM CHARADATA SAVEDATA 상태이상내성,4

;다음과 같이 특정 수치를 직접 써넣는 것도 상수 표현이다.
MONEY += 500

;다음과 같이 특정 문자열을 직접 써넣는 것도 문자열형 상수 표현이다.
RESULTS = 나날이 깝깝한 투쟁이었다...

;ERH(헤더 파일)에서 사용자 정의 상수를 선언할 수 있다.

;EXAMPLE_HEADER.ERH
#DIM CONST POCKETMONEY = 500
#DIM CONST MAGNIFIER,3 = 1, 2, 4

;아래 구문은 기능적으로 MONEY += 500과 차이가 없지만,
;이름을 보고 용도를 알기 쉽고, 여러 곳에서 사용한 상수가 담는 값을
;ERH 파일을 편집하여 한꺼번에 바꿀 수 있다는 장점이 있다.
MONEY += POCKETMONEY

A = 256
A = 0x100
A = 0b100000000
A = 1p8

;PRINT 명령은 뒤에 오는 문자열을 가감없이 그대로 출력한다.
PRINT 오늘 점심은 맛있는 짜장면~

;PRINTS 및 PRINTV 명령은 수식 및 문자열식을 참조하여 출력한다.
LOCAL  = 2
LOCALS = 그릇
PRINTV LOCAL
PRINTS LOCALS

;변수 한 개가 아니라 여러 값의 연산 결과도 출력할 수 있다.
PRINTV LOCAL * 5
PRINTS LOCALS + "다갖고와"

;PRINTFORM 명령은 서식을 포함하는 문자열을 출력한다.
;수식은 {} 안에, 문자열식은 %% 안에 써넣어서 표현할 수 있다.
PRINTFORM 오늘 점심은 맛있는 짜장면 {LOCAL + 1}%LOCALS%~

;PRINTFORMS 명령은 서식을 포함하는 문자열식을 출력한다.
;PRINTS와 비슷한 명령이지만, PRINTFORM 명령에서 쓰이는 서식이 포함된 값을 전달하면 전개하여 출력한다.
LOCALS:1 = 오늘 점심은 맛있는 짜장면 {LOCAL + 3}%LOCALS%~
PRINTFORMS LOCALS:1 + "맛있겠다!"

@EXAMPLE_FUNC
PRINTW EXAMPLE

@EVENTFIRST
;EXAMPLE_FUNC 함수를 호출하면서, 인자로 500과 100을 전달한다.
CALL EXAMPLE_FUNC(500, 100)
;이렇게 괄호없이 호출할수도 있지만 되도록 위와 같은 형식이 추천된다.
CALL EXAMPLE_FUNC, 500, 10
;결과 값을 출력한다.
PRINTVW RESULT

;이 함수는 두 인수를 더한 값을 반환한다.
@EXAMPLE_FUNC, ARG, ARG:1
RETURN ARG + ARG:1

;인수를 다음과 같이 괄호로 감싸서 표현할 수 있다.
@EXAMPLE_FUNC(ARG, ARG:1)
RETURN ARG + ARG:1

@EVENTFIRST
;EXAMPLE_FUNC 함수를 호출하면서, 인자를 생략한다.
CALL EXAMPLE_FUNC
;결과 값을 출력한다. 기본값인 500과 100을 더한 600이 출력된다
PRINTVW RESULT

@EXAMPLE_FUNC(ARG = 500, ARG:1 = 100)
RETURN ARG + ARG:1

@EXAMPLE_CALL
;이렇게 뒤쪽의 인수를 생략해도 기본값이 설정되어 있으면 정상 작동한다.
CALL EXAMPLE_FUNC(1000)
;이렇게 앞쪽의 인수를 생략하고 뒤쪽 인수만 전달할 수도 있다.
CALL EXAMPLE_FUNC(,200)

;문자열형 변수의 인수의 기본값을 설정할 때는 큰 따옴표("")를 이용해야 한다.
@EXAMPLE_FUNC2(ARGS = "텍붕")

;#DIM, #DIMS로 선언한 사용자 정의 변수는 그 함수 내부에서만 접근할 수 있고 다른 함수에서는 참조할 수 없으며,
;동시에 서로 다른 여러 함수에서 같은 이름의 변수를 선언하는 것도 가능하다.

@EXAMPLE_FUNC(VAR1, VAR2, VAR2:1)
;무차원 변수 VAR1을 선언했다.
;또한 함수명을 선언하면서 인수로 지정했다.
#DIM VAR1
;사이즈가 5인 문자열형 배열 변수를 선언했다.
;또한 함수명을 선언하면서 VAR2:0과 VAR2:1을 인수로 지정했다. 나머지 요소들은 대입은 하지 않는다.
#DIMS VAR2,5

;무차원 변수 VAR3을 동적 선언했다. DYNAMIC으로 동적 선언한 변수는 인수로 쓰이지 않는 경우 함수 시작 시 초기화된다.
#DIM DYNAMIC VAR3
;무차원 변수 VAR4를 동적 선언하고 초기값으로 1을 지정했다. (함수 시작 시 초기화되는 값을 정한다.)
#DIM DYNAMIC VAR4 = 1

;일차원 배열 변수 VAR5를 선언하면서 각 요소의 초기값을 지정했다.
;배열의 요소들을 인수로 지정할 경우, 전달한 값으로 덮어써진다.
#DIM VAR5,3 = 0,1,2

;다차원 배열 변수도 선언할 수 있지만, 초기값은 정할 수 없다.
#DIM VAR6,10,10

@EXAMPLE_EVENT
#DIM DYNAMIC ACCEPT
WHILE ACCEPT == 0
    PRINTL 이러저러한 사정이 있습니다.
    PRINTL 좀 도와주시겠습니까.
    CALL ASK_YN()
    IF RESULT == 1
        ;아니오
        PRINTL 그럴수가...... 너무해......
        CONTINUE
    ELSE
        ACCEPT = 1
    ENDIF
WEND
PRINTL 감사합니다. 앞으로도 잘 부탁드립니다.
CALL ASK_YN("네","네")


;네, 아니오 두 가지 응답 선택지를 출력하는 함수
@ASK_YN(ARGS:0 = "네", ARGS:1 = "아니오")
PRINTBUTTON @"[%ARGS:0%]", 0
PRINTL
PRINTBUTTON @"[%ARGS:1%]", 1
PRINTL
;입력을 받고, 입력 값이 0이나 1이 아닌 경우 다시 입력해야 한다.
$INPUT_LOOP
INPUT
IF RESULT != 0 && RESULT != 1
    CLEARLINE
    GOTO INPUT_LOOP
ENDIF
RETURN RESULT

;수치형 식중함수
@EXAMPLE_FUNC(ARG)
#FUNCTION
RETURNF ARG + ARG * ARG

;문자열형 식중함수
@EXAMPLE_FUNCS(ARGS)
#FUNCTIONS
RETURNF ARGS + "페코"

;이 부분은 주석이다.
;PRINTL 이렇게 써도 실행되지 않는다.

A = 1;A에 1을 대입

LOCALS '= "문자열";LOCALS에 "문자열"을 대입

;다음과 같은 표현은 LOCALS에 "문자열;LOCALS에 "문자열"을 대입"을 대입한다. 틀리기 쉬운 표현.
LOCALS = 문자열;LOCALS에 "문자열"을 대입

[SKIPSTART]
REPEAT 2
    PRINTL 이 반복문은 작동하지 않는다.
REND
[SKIPEND]

;아래 스크립트는 문자열 "출력할 내용;주석"을 출력한다. 틀리기 쉬운 표현.
PRINTFORML 출력할 내용;주석

;!;PRINTFORML eramaker에서는 실행되지 않는다.

PRINTFORM 노예를
[IF_DEBUG]
    ;이 부분은 일반 모드에서 출력되지 않는다
    PRINTFORM 아껴주세요 
[ENDIF]
PRINTFORML 괴롭혀 주세요