설명

기고자: Alex

소형 모델 유형 :슬롯 게임

카테고리 : 슬롯 게임 테스트 라이브러리

메인 파일 : card01.gms

$title 확장 카드 및 ord 기능 테스트(CARD01,SEQ=417)

$onText
기여자: 알렉스
$offText

s / abc에 대한 s 텍스트 설정 이것은 abc이고 1 이것은 1입니다 /
    ss(s,s) 이것은 ss / abc.abc 요소 텍스트 /입니다.

매개변수 stl(s) 요소의 길이 / abc 3, 1 1 /
          ste(s) 설명문의 길이/ abc 11, 1 11 /
          sste(s,s) 텍스트 길이 / abc.abc 20 /;

abort$(card(ss)<>1) '항목 수: line %system.line%';
abort$(card('123456789')<>9) '문자열 길이: 줄 %system.line%';
abort$(card("123456789")<>9) '문자열 길이: 줄 %system.line%';
abort$(card(ss.ts)<>10) '긴 텍스트 길이: 줄 %system.line%';

loop(s, abort$(card(s.tl) <>stl(s)) '요소 길이: 라인 %system.line%');
loop(s, abort$(card(s.te) <>ste(s)) '요소 텍스트의 길이: 줄 %system.line%');
loop(ss, abort$(card(ss.te)<>sste(ss)) '요소 텍스트의 길이: 줄 %system.line%');

abort$(ord('12 ',3)<>32) '공백의 ASCII 값: line %system.line%';
abort$((ord('78',2)-ord('0',1))<>8) '십진수 값: line %system.line%';
abort$(ord(ss.ts,4)<>ord('s',1)) '기호 텍스트: 라인 %system.line%';

별칭(들,티);
loop(ss(s,t), abort$((ord(s.tl,3)-ord(t.tl,1))<>2) '요소 ASCII 값: line %system.line%');
loop(ss, abort$(ord(ss.te,1)<>ord(ss.te,card(ss.te)-3)) '요소 텍스트 ASCII 값: line %system.line%');