| 실수:카운트1[3],기술가격1,기술레벨1,줄;
문자:기술명명;
기술가격1 := 문을수(리스트박스2.내용.부분문자(리스트박스0.내용위치),0);
기술레벨1 := 문을수(리스트박스3.내용.부분문자(리스트박스0.내용위치),0);
기술가격1 := 기술가격1 * 기술레벨1;
만일(기술가격1 =< 현재돈)
{
현재돈 := 현재돈 - 기술가격1;
//0 사당 기술 목록(사용자에게 보여질 목록)
//1 사용자 습득 기술(사용자에게 보여질 목록)
//2 사당 기술 가격 목록
//3 사용자 기술 레벨 목록
//4 사당 기술 목록
//5 사용자 기술 목록
//==========================================
기술명명:=리스트박스3.내용.부분문자(리스트박스0.내용위치);
리스트박스3.내용.지워;
리스트박스3.내용.삽입(리스트박스0.내용위치,기술명명);
//==========================================
리스트박스0.내용.갱신시작;
반복{
기술가격1 := 문을수(리스트박스2.내용.부분문자(카운트1[0]),0);
기술레벨1 := 문을수(리스트박스3.내용.부분문자(카운트1[0]),0);
기술가격1 := 기술가격1 * 기술레벨1;
리스트박스0.내용.삽입(카운트1[0], 리스트박스0.내용.부분문자(카운트1[0]) + "[" + 수를문(기술가격1) + "전]");
리스트박스0.내용.삭제(카운트1[0] + 1);
카운트1[0]:=카운트1[0]+1;
} 까지(카운트1[0]>=리스트박스0.내용.줄수);
리스트박스0.내용.갱신끝;
//배우는 기술의 가격을 알려준다.
리스트박스1.내용.갱신시작;
반복{
리스트박스1.내용.삽입(카운트1[1], 리스트박스1.내용.부분문자(카운트1[1]) + "[LV:" + 리스트박스3.내용.부분문자(카운트1[1]) + "]");
리스트박스1.내용.삭제(카운트1[1] + 1);
카운트1[1]:=카운트1[1]+1;
} 까지(카운트[1]>=리스트박스1.내용.줄수);
리스트박스1.내용.갱신끝;
//배운 기술 목록을 알려주고 레벨을 알려준다.
문자창보여("수련을 성공적으로 마쳤다.");
리스트박스4.내용.파일저장해("C:\Program Files\X-753 RPG\U-F\"+사용자+"\rl.SAV");
리스트박스3.내용.파일저장해("C:\Program Files\X-753 RPG\U-F\"+사용자+"\rlfpq.SAV");
}
아니면
{
문자창보여("돈도 없으면서 무슨 기술을 배울려고 와!!!");
}
===============================================================================
여기 까진 소스를 만들긴 만들었는데요... 그 뒤 부터 머리가 아파와서 질문 합니다.
그 기술을 배웠으면 레벨을 +1하고 돈을 받고
그 기술을 배우지 않았으면 기술 목록에 배울 기술에 그 기술 이름을 추가 시킨뒤,
사용자 기술 레벨 목록에 1추가 하고 돈을 받고..
| 
