repeat 9
newmod obj_common,many_something
loop
repeat 9
tmp_i = cnt
set_mem_ID_many_somet obj_common.tmp_i, 50000 + (tmp_i + 1) * 100
set_mem_name_many_somet obj_common.tmp_i, "" + str(50000 + (tmp_i + 1) * 100) + "th many somet"
set_mem_long_name_many_somet obj_common.tmp_i, "chara common obj"
loop
// 8(9)はexchange用
repeat 9
set_mem_ID_somet obj_common.cnt, 1, 50001 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 1, "" + str(50001 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt,1, "character have money"
loop
repeat 9
set_mem_ID_somet obj_common.cnt, 2, 50002 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 2, "" + str(50002 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt, 2, "character num battle"
loop
repeat 9
set_mem_ID_somet obj_common.cnt, 3, 50003 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 3, "" + str(50003 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt, 3, "character num win"
loop
repeat 9
set_mem_ID_somet obj_common.cnt, 4, 50004 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 4, "" + str(50004 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt, 4, "character num lose"
loop
repeat 9
set_mem_ID_somet obj_common.cnt, 5, 50005 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 5, "" + str(50005 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt, 5, "character num death"
loop
repeat 9
set_mem_ID_somet obj_common.cnt, 6, 50006 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 6, "" + str(50006 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt, 6, "character MAX HP"
loop
repeat 9
set_mem_ID_somet obj_common.cnt, 7, 50007 + (cnt + 1) * 100
set_mem_name_somet obj_common.cnt, 7, "" + str(50007 + (cnt + 1) * 100) + "th one somet"
set_mem_long_name_somet obj_common.cnt, 7, "character cur HP"
loop
// 初期値代入：ほとんど-1代入ｗ
tmp_n = -1
repeat 8,1
tmp_i = cnt
repeat 9
set_mem_value_somet obj_common.cnt, tmp_i, tmp_n
loop
loop
repeat 9
newmod obj_common_yobi,many_something
loop
repeat 9
tmp_i = cnt
set_mem_ID_many_somet obj_common_yobi.tmp_i, 60000 + (tmp_i + 1) * 100
set_mem_name_many_somet obj_common_yobi.tmp_i, "" + str(60000 + (tmp_i + 1) * 100) + "th many somet"
set_mem_long_name_many_somet obj_common_yobi.tmp_i, "chara common obj yobi"
loop
repeat 8,1
tmp_i=cnt
repeat 9
set_mem_ID_somet obj_common_yobi.cnt, tmp_i, 60000 + tmp_i + (cnt + 1) * 100
set_mem_name_somet obj_common_yobi.cnt, tmp_i, "" + str(60000 + tmp_i + (cnt + 1) * 100) + "th one somet"
loop
loop
repeat 9
set_mem_long_name_somet obj_common_yobi.cnt, 1, "character 状態"
// -1 キャラが存在しない 1 通常 2 戦闘不能
set_mem_long_name_somet obj_common_yobi.cnt, 2, "character 予備 2nd"
set_mem_long_name_somet obj_common_yobi.cnt, 3, "character 予備 3rd"
set_mem_long_name_somet obj_common_yobi.cnt, 4, "character 予備 4th"
set_mem_long_name_somet obj_common_yobi.cnt, 5, "character 予備 5th"
set_mem_long_name_somet obj_common_yobi.cnt, 6, "character 予備 6th"
set_mem_long_name_somet obj_common_yobi.cnt, 7, "character 予備 7th"
set_mem_long_name_somet obj_common_yobi.cnt, 8, "character 予備 8th"
loop
// 初期値代入：ほとんど-1代入ｗ
tmp_n = -1
repeat 8,1
tmp_i = cnt
repeat 9
set_mem_value_somet obj_common_yobi.cnt, tmp_i, tmp_n
loop
loop
#if 0
repeat 9
logmes "-- common class --"
logmes "ID : " + get_mem_ID_many_somet(obj_common.cnt)
logmes "name : " + get_mem_name_many_somet(obj_common.cnt)
logmes "lname: " + get_mem_long_name_many_somet(obj_common.cnt)
logmes "-- sub mod --"
tmp_i = cnt
repeat MAX_OBJ@many_something
tmp_ii=get_mem_ID_somet(obj_common.tmp_i, cnt)
if tmp_ii != -1{
logmes "- ID("+cnt+") : " + get_mem_ID_somet(obj_common.tmp_i, cnt)
logmes "- name : " + get_mem_name_somet(obj_common.tmp_i, cnt)
logmes "- lname: " + get_mem_long_name_somet(obj_common.tmp_i, cnt)
logmes "- value: " + get_mem_value_somet(obj_common.tmp_i, cnt)
logmes "------"
}
loop
loop
#endif
#if 0
repeat 9
logmes "-- common class --"
logmes "ID : " + get_mem_ID_many_somet(obj_common_yobi.cnt)
logmes "name : " + get_mem_name_many_somet(obj_common_yobi.cnt)
logmes "lname: " + get_mem_long_name_many_somet(obj_common_yobi.cnt)
logmes "-- sub mod --"
tmp_i = cnt
repeat MAX_OBJ@many_something
tmp_ii=get_mem_ID_somet(obj_common_yobi.tmp_i, cnt)
if tmp_ii != -1{
logmes "- ID("+cnt+") : " + get_mem_ID_somet(obj_common_yobi.tmp_i, cnt)
logmes "- name : " + get_mem_name_somet(obj_common_yobi.tmp_i, cnt)
logmes "- lname: " + get_mem_long_name_somet(obj_common_yobi.tmp_i, cnt)
logmes "- value: " + get_mem_value_somet(obj_common_yobi.tmp_i, cnt)
logmes "------"
}
loop
loop
#endif
/*
// global variable
characters_turn = 1
characters_sum_battle = 0
characters_sum_win = 0
characters_sum_lose = 0
characters_sum_death = 0
characters_sum_LVUP = 0
characters_sum_pos_get = 0
characters_sum_pos_use = 0
*/
repeat 40
newmod obj_class,many_something
loop
// 余り8(9)はexchange用
repeat 40
tmp_i = cnt \ 10
tmp_ii =cnt / 10 + 1
set_mem_ID_many_somet obj_class.cnt, tmp_ii * 10000 + (tmp_i + 1) * 100
set_mem_name_many_somet obj_class.cnt, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100) + "th many somet"
set_mem_long_name_many_somet obj_class.cnt, "each character"
loop
// 命令 半角スペース オブジェクト ドット オブジェクトのインデックス カンマ インデックス カンマ バリュー
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt,1, tmp_ii * 10000 + (tmp_i + 1) * 100 + 1
set_mem_name_somet obj_class.cnt,1, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 1) + "th many somet"
set_mem_long_name_somet obj_class.cnt,1,"class type"
loop
repeat 10
tmp_str = "FIRE"
set_mem_value_somet obj_class.cnt, 1, tmp_str
loop
repeat 10
tmp_str = "WIND"
tmp_index = 10 + cnt
set_mem_value_somet obj_class.tmp_index, 1, tmp_str
loop
repeat 10
tmp_str = "THUNDER"
tmp_index = 20 + cnt
set_mem_value_somet obj_class.tmp_index, 1, tmp_str
loop
repeat 10
tmp_str = "LIGHT"
tmp_index = 30 + cnt
set_mem_value_somet obj_class.tmp_index, 1, tmp_str
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt,2, tmp_ii * 10000 + (tmp_i + 1) * 100 + 2
set_mem_name_somet obj_class.cnt,2, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 2) + "th many somet"
set_mem_long_name_somet obj_class.cnt, 2, "each class no"
tmp_int = cnt \ 10 + 1
set_mem_value_somet obj_class.cnt, 2, tmp_int
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt, 3, tmp_ii * 10000 + (tmp_i + 1) * 100 + 3
set_mem_name_somet obj_class.cnt, 3, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 3) + "th many somet"
set_mem_long_name_somet obj_class.cnt, 3, "each class battle"
tmp_int = 256.0
set_mem_value_somet obj_class.cnt, 3, tmp_int
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt,4, tmp_ii * 10000 + (tmp_i + 1) * 100 + 4
set_mem_name_somet obj_class.cnt,4, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 4) + "th many somet"
set_mem_long_name_somet obj_class.cnt, 4, "each class level"
tmp_int = 123
set_mem_value_somet obj_class.cnt, 4, tmp_int
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt, 5, tmp_ii * 10000 + (tmp_i + 1) * 100 + 5
set_mem_name_somet obj_class.cnt, 5, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 5) + "th many somet"
set_mem_long_name_somet obj_class.cnt, 5, "each class exp"
tmp_int = 234
set_mem_value_somet obj_class.cnt, 5, tmp_int
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt, 6, tmp_ii * 10000 + (tmp_i + 1) * 100 + 6
set_mem_name_somet obj_class.cnt, 6, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 6) + "th many somet"
set_mem_long_name_somet obj_class.cnt, 6, "each cost training"
tmp_int = cnt*100
set_mem_value_somet obj_class.cnt, 6, tmp_int
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class.cnt, 7, tmp_ii * 10000 + (tmp_i + 1) * 100 + 7
set_mem_name_somet obj_class.cnt, 7, "" + str(tmp_ii * 10000 + (tmp_i + 1) * 100 + 7) + "th many somet"
set_mem_long_name_somet obj_class.cnt, 7, "each HP"
tmp_int = cnt*100
set_mem_value_somet obj_class.cnt, 7, tmp_int
loop
// 命令 ドット オブジェクトのインデックス 半角スペース オブジェクト カンマ インデックス カンマ バリュー
// 初期値代入：ほとんど-1代入ｗ
tmp_n = -1
repeat 5,3
tmp_i = cnt
repeat 40
set_mem_value_somet obj_class.cnt, tmp_i, tmp_n
loop
loop
#if 0
repeat 40
logmes "-- each character --"
logmes "ID(" + cnt + ") : " + get_mem_ID_many_somet(obj_class.cnt)
logmes "name : " + get_mem_name_many_somet(obj_class.cnt)
logmes "lname: " + get_mem_long_name_many_somet(obj_class.cnt)
logmes "-- sub mod --"
tmp_i = cnt
repeat MAX_OBJ@many_something
tmp_ii=get_mem_ID_somet(obj_class.tmp_i, cnt)
if tmp_ii != -1{
logmes "- ID("+cnt+") : " + get_mem_ID_somet(obj_class.tmp_i, cnt)
logmes "- name : " + get_mem_name_somet(obj_class.tmp_i, cnt)
logmes "- lname: " + get_mem_long_name_somet(obj_class.tmp_i, cnt)
logmes "- value: " + get_mem_value_somet(obj_class.tmp_i, cnt)
logmes "------"
}
loop
loop
#endif
repeat 40
newmod obj_class_yobi,many_something
loop
// 余り8(9)はexchange用
repeat 40
tmp_i = cnt \ 10
tmp_ii =cnt / 10 + 1
set_mem_ID_many_somet obj_class_yobi.cnt, 100000 + tmp_ii * 10000 + (tmp_i + 1) * 100
set_mem_name_many_somet obj_class_yobi.cnt, "" + str(100000 + tmp_ii * 10000 + (tmp_i + 1) * 100) + "th many somet"
set_mem_long_name_many_somet obj_class_yobi.cnt, "each character yobi"
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
set_mem_ID_somet obj_class_yobi.cnt,1, 100000 + tmp_ii * 10000 + (tmp_i + 1) * 100 + 1
set_mem_name_somet obj_class_yobi.cnt,1, "" + str(100000 + tmp_ii * 10000 + (tmp_i + 1) * 100 + 1) + "th many somet"
set_mem_long_name_somet obj_class_yobi.cnt,1,"class type"
loop
repeat 10
tmp_str = "FIRE"
set_mem_value_somet obj_class_yobi.cnt, 1, tmp_str
loop
repeat 10
tmp_str = "WIND"
tmp_index = 10 + cnt
set_mem_value_somet obj_class_yobi.tmp_index, 1, tmp_str
loop
repeat 10
tmp_str = "THUNDER"
tmp_index = 20 + cnt
set_mem_value_somet obj_class_yobi.tmp_index, 1, tmp_str
loop
repeat 10
tmp_str = "LIGHT"
tmp_index = 30 + cnt
set_mem_value_somet obj_class_yobi.tmp_index, 1, tmp_str
loop
repeat 40
tmp_i = cnt \ 10
tmp_ii = cnt / 10 + 1
tmp_j = cnt
repeat 8,2
set_mem_ID_somet obj_class_yobi.tmp_j,cnt, 100000 + tmp_ii * 10000 + (tmp_i + 1) * 100 + cnt
set_mem_name_somet obj_class_yobi.tmp_j,cnt, "" + str(100000 + tmp_ii * 10000 + (tmp_i + 1) * 100 + cnt) + "th many somet"
tmp_int = tmp_j \ 10 + 1
set_mem_value_somet obj_class_yobi.tmp_j, cnt, tmp_int
loop
loop
repeat 40
set_mem_long_name_somet obj_class_yobi.cnt, 2, "each class yobi 1st"
set_mem_long_name_somet obj_class_yobi.cnt, 3, "each class yobi 2nd"
set_mem_long_name_somet obj_class_yobi.cnt, 4, "each class yobi 3rg"
set_mem_long_name_somet obj_class_yobi.cnt, 5, "each class yobi 4th"
set_mem_long_name_somet obj_class_yobi.cnt, 6, "each class yobi 5th"
set_mem_long_name_somet obj_class_yobi.cnt, 7, "each class yobi 6th"
set_mem_long_name_somet obj_class_yobi.cnt, 8, "each class yobi 7th"
set_mem_long_name_somet obj_class_yobi.cnt, 9, "each class yobi 8th"
loop
// 初期値代入：ほとんど-1代入ｗ
tmp_n = -1
repeat 8,2
tmp_i = cnt
repeat 40
set_mem_value_somet obj_class_yobi.cnt, tmp_i, tmp_n
loop
loop
#if 0
repeat 40
logmes "-- each character --"
logmes "ID(" + cnt + ") : " + get_mem_ID_many_somet(obj_class_yobi.cnt)
logmes "name : " + get_mem_name_many_somet(obj_class_yobi.cnt)
logmes "lname: " + get_mem_long_name_many_somet(obj_class_yobi.cnt)
logmes "-- sub mod --"
tmp_i = cnt
repeat MAX_OBJ@many_something
tmp_ii=get_mem_ID_somet(obj_class_yobi.tmp_i, cnt)
if tmp_ii != -1{
logmes "- ID("+cnt+") : " + get_mem_ID_somet(obj_class_yobi.tmp_i, cnt)
logmes "- name : " + get_mem_name_somet(obj_class_yobi.tmp_i, cnt)
logmes "- lname: " + get_mem_long_name_somet(obj_class_yobi.tmp_i, cnt)
logmes "- value: " + get_mem_value_somet(obj_class_yobi.tmp_i, cnt)
logmes "------"
}
loop
loop
#endif