SGスクリプト サンプル版 - ねこかふぇ♪

このページでゎ一部を切り取って例として掲載していますっ。
完全版も当然ながら無償で公開していますがメンバー制にしているため
ご覧になりたぃ方がいましたら申請をお願い致します。
なお公開しているスクリプトゎコピーしてそのまま貼り付けているだけなので
解説等のサービスゎ一切ありません。

main_loop

repeat
if looplev>1:break

stick key

if key&1{
	if (Lv_flag=1){
		if (y=cs*7) and (int(sys_status(10))>temp_status(10)){
			sys_status(10)=str(int(sys_status(10))-1)
			sys_status(26)=str(int(sys_status(26))+1)
		}
		
		if (y=cs*8) and (int(sys_status(11))>temp_status(11)){
			sys_status(11)=str(int(sys_status(11))-1)
			sys_status(26)=str(int(sys_status(26))+1)
		}
		
		if (y=cs*9) and (int(sys_status(12))>temp_status(12)){
			sys_status(12)=str(int(sys_status(12))-1)
			sys_status(26)=str(int(sys_status(26))+1)
		}
		
		if (y=cs*10) and (int(sys_status(13))>temp_status(13)){
			sys_status(13)=str(int(sys_status(13))-1)
			sys_status(26)=str(int(sys_status(26))+1)
		}
		
		if (y=cs*11) and (int(sys_status(14))>temp_status(14)){
			sys_status(14)=str(int(sys_status(14))-1)
			sys_status(26)=str(int(sys_status(26))+1)
		}
		
		if (y=cs*12) and (int(sys_status(15))>temp_status(15)){
			sys_status(15)=str(int(sys_status(15))-1)
			sys_status(26)=str(int(sys_status(26))+1)
		}
		gosub *screen_default:goto *main_next
	}
		

if key&2{

	if (dead_flag=1)|(dead_flag=2):goto *main_next
	
	if (sys_status(1)=4) and (y=cs*7){		//chara_create
		gosub *screen_default
		goto *main_next
	}
	

if key&4{
	if (sys_status(1)=4) and (int(sys_status(26))>0) and (x=mx){
		if y=cs*7 :sys_status(10)=str(int(sys_status(10))+1)
		if y=cs*8 :sys_status(11)=str(int(sys_status(11))+1)
		if y=cs*9 :sys_status(12)=str(int(sys_status(12))+1)
		if y=cs*10:sys_status(13)=str(int(sys_status(13))+1)
		if y=cs*11:sys_status(14)=str(int(sys_status(14))+1)
		if y=cs*12:sys_status(15)=str(int(sys_status(15))+1)
		
		sys_status(26)=str(int(sys_status(26))-1)

		if int(sys_status(10))>=11:sys_status(35)="1"
		if int(sys_status(12))>=11:sys_status(36)="1"
		if int(sys_status(13))>=11:sys_status(37)="1"
		if int(sys_status(14))>=11:sys_status(38)="1"
		if (int(sys_status(10))>=14)&(int(sys_status(11))>=14)&(int(sys_status(13))>=14)&(int(sys_status(15))>=10):sys_status(39)="1"
		if (int(sys_status(10))>=20)&(int(sys_status(11))>=20)&(int(sys_status(14))>=15)&(int(sys_status(15))>=15):sys_status(40)="1"
		
		gosub *screen_default:goto *main_next
	}

	if (sys_status(1)=10)&(y=cs*6):x=mx*3+cs+ls:gosub *screen_default:goto *main_next
}

if key&8{
	if (dead_flag=1)|(dead_flag=2):goto *main_next
	
	if (sys_status(1)=6)|(sys_status(1)=8){
		item_cnt=length(item_status)
		if y=cs*(item_cnt){
			gosub *screen_default:goto *main_next
		}else{
			y=y+cs
			gosub *screen_default:goto *main_next
		}
	}
	

if key&16{
	if sys_status(1)=0{		//op
		sys_status(1)="1"
		sys_status(2)="1"
		sys_status(3)="2"
		gosub *screen_default
		goto *main_next
	}

}

if key&32{
}

if key&128{
	dialog "終了しますか？",2
	if stat=6:end
	if stat=7:goto *main_next
}

if key&1024{
}

main_next

wait 1
loop