home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 November
/
VPR9811A.BIN
/
FFILLY
/
SML2
/
SML.tfy
< prev
next >
Wrap
Text File
|
1998-08-27
|
10KB
|
466 lines
// Created By sPon 97.4
//
// サマーレディ2(改)
//
// by 橋本 弘子
//
#info INAM "サマーレディ2(改)"
#info IART "橋本 弘子"
#info GRPC "橋本 弘子"
#info EFCT "橋本 弘子"
#info IDIM 800x600 ,16M
#info JINT No
#info TRNS Ask me
#info MDFY No
int mDown; // Mouse Down Flag
int xoff, yoff; // Background Offset
int pw, ph; // Background Size
int pic[]; // Picture Array
int jump[]; // Jump Counter
// マウスの位置が矩形の範囲内かどうか調べる関数
isInRect(int x1, int y1, int x2, int y2)
{
x1 = x1 + xoff; y1 = y1 + yoff;
x2 = x2 + xoff; y2 = y2 + yoff;
if(x1 <= MesP2 && MesP2 < x2 && y1 <= MesP3 && MesP3 < y2){
return (1);
}
return (0);
}
LoadResource()
{
LoadPic("BLK2.bmp"); // Default Background
pic[0] = LoadPic("BLK2.bmp");
pic[1] = LoadPic("BL.bmp");
pic[2] = LoadPic("BLK1.bmp");
pic[3] = LoadPic("Lady08.bmp");
pic[4] = LoadPic("Lady09.bmp");
pic[5] = LoadPic("Lady10.bmp");
pic[6] = LoadPic("Lady11.bmp");
pic[7] = LoadPic("Lady12.bmp");
pic[8] = LoadPic("Lady13.bmp");
pic[9] = LoadPic("Lady14.bmp");
pic[10] = LoadPic("Lady15.bmp");
pic[11] = LoadPic("Lady16.bmp");
}
// オープニング
main()
{
SetFont(30,"MS ゴシック",128,0,0,0,400,0);
TextColor(255,255,255);
BgColor(0,0,0);
int sw, sh;
LoadResource();
pw = PicWidth(0); ph = PicHeight(0);
sw = WinInfo(0); sh = WinInfo(1);
xoff = (sw - pw) / 2 + 6; yoff = (sh - ph) / 2 + 6;
CapTitle("サマーレディ2(改)");
OpenWin(0, -6, -6, sw + 6, sh + 6, -xoff, -yoff, 0x000000);
mDown = 0;
scene0();
}
// スタート
scene0()
{
MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0);
mes(TIME) { step(2) {
PlayMIDI("a_087xgw.mid");
TextColor(0,255,255);
TextWrite(" サマーレディ2(改) ",0,100,200);
TextWrite(" 作:橋本 弘子 ",0,100,240);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
TextColor(0,0,0);
TextWrite(" サマーレディ2(改) ",0,100,200);
TextWrite(" 作:橋本 弘子 ",0,100,240);
,,,,,,,,,,,,,,,,,,,,,,,,,,,
TextColor(0,255,255);
TextWrite(" 製作環境 ",0,20,100);
TextWrite(" sPon ver 97.05(ポイゾーさん作) ",0,30,140);
TextWrite(" FILLY ver 2.34 (ともゆきさん作) ",0,30,180);
TextWrite(" Super Kid95 ",0,30,220);
TextWrite(" Ultra Kid ",0,30,260);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us; scene1(); del_me;
end_step;
}}
}
// 選択画面
scene1()
{
MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0, 0, 0, 3, 20);
mes(TIME) { step(2) {
MovePic(pic[1], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(33, 1, 214, 137)){
del_us; scene2(); del_me;
} else if(isInRect(231, 0, 412, 136)){
del_us; scene3(); del_me;
} else if(isInRect(428, 0, 608, 136)){
del_us; scene4(); del_me;
} else if(isInRect(33, 142, 214, 276)){
del_us; scene5(); del_me;
} else if(isInRect(231, 141, 412, 278)){
del_us; scene6(); del_me;
} else if(isInRect(428, 142, 608, 278)){
del_us; scene7(); del_me;
} else if(isInRect(31, 283, 213, 419)){
del_us; scene8(); del_me;
} else if(isInRect(233, 281, 413, 420)){
del_us; scene9(); del_me;
} else if(isInRect(428, 283, 609, 419)){
del_us; scene10(); del_me;
} else if(isInRect(23, 424, 175, 475)){
del_us; scene11(); del_me;
} else if(isInRect(463, 423, 614, 477)){
del_us; ending(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №8_Bmp
scene2()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №9_Bmp
scene3()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[4], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №10_Bmp
scene4()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[5], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №11_Bmp
scene5()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[6], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №12_Bmp
scene6()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[7], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №13_Bmp
scene7()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №14_Bmp
scene8()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №15_Bmp
scene9()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// №16_Bmp
scene10()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0);
mes(TIME) { step(2) {
MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0, 3, 20);
reset_step;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(486, 487, 638, 524)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// スライド
scene11()
{
MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0, 0, 0, 3, 40);
mes(TIME) { step(2) {
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[4], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[5], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[6], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[7], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0, 3, 40);
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us; scene1(); del_me;
end_step;
}}
mDown = 0;
mes(LBDOWN){
mDown = 1;
}
mes(LBUP) { if(mDown == 1){
if(isInRect(488, 488, 639, 520)){
del_us; scene1(); del_me;
} else {
;
}
}}
mes(MIDI_END){
PlayMIDI("a_087xgw.mid");
}
}
// エンディング
ending()
{
ExitTitle();
}