실수:카운트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추가 하고 돈을 받고..
|