代码搜索结果
找到约 10,000 项符合
1 的代码
toolroom1_man1.ksr
Talk("武器商店" "你的盾牌看上去不怎么牢固啊" "很有必要改造一下！！" "" );
Talk("武器商店" "技术费就不收你了" "需要改造么？" "" );
LoadUIFrame("choice_frame");
FindVar("findvar_choice");
if(findvar_choice==0)
GetMeProp(gold);
if(role_gol
snowforest1_clock1.ksr
if(女鬼_astar==1)
KillNpc("女鬼");
CloseClockScript("snowforest1_clock1");
end if
EOF
forest1tosnowforest1.ksr
if(appeargirl==1)
PlayerTalk("还是先帮小女孩找宠物吧，她一个人在那太危险了""""");
else
LockKeyMouse();
PlayWave("moveatonce");
FadeIn(0);
PlayMidi("village1");
ChangeMap("snowforest1");
ReadAScriptFile("snowforest
snowforest1_girl1.ksr
NpcTalk(",无限的荣耀啊！" "要是我是男的就好了，哎。。" "" );
PlayerTalk("那是什么？""""");
NpcTalk("每年都会从国都中的村子，学院中挑选出<mark>1</mark>0名勇士""他们必须经受层层考验，才能获得的资格""");
NpcTalk("听说勇者的勇者待遇颇丰哦~不但每月有80000TB的固定赏金，""杀掉怪物之后还会获得额外的报酬呢" ...
toolroom1_girl1.ksr
Talk("武器商店" "需要铸剑么？" "我们这里的铸剑技术可是一流的." "" );
Talk("武器商店" "一次可提高你剑的攻击力1点" "收费 1000TB" "" );
LoadUIFrame("choice_frame");
FindVar("findvar_choice");
if(findvar_choice==0)
GetMeProp(gold);
if(ro
toolroom1tosnowforest1.ksr
LockKeyMouse();
PlayWave("opendoor1");
FadeIn(0);
ChangeMap("snowforest1");
ReadAScriptFile("snowforest1_npc");
SetMePos(800,768);
SetMeProp(direction,1);
FadeOut(0);
UnlockKeyMouse();
EOF
city1_man1.ksr
static int certificate=0;
if(certificate==0)
NpcTalk("你也是来这里寻找的吗？""村长也真是的，为什么不直接把给我们","非要搞这些破玩意儿，解什么迷题..");
NpcTalk("他只是说“就隐藏在稻草田里，自己去找吧”","真是太不负责任了!" "这里除了一群稻草人，哪有什么!");
els
toolroom1_tank1.ksr
PlayerTalk( "箱子后面好象藏着什么东西，不过够不着。。","","" );
EOF
snowforest1_man1.ksr
NpcTalk("森林后面好象有一片稻草人根据地,哈,很奇怪的地方吧" "听说是村长修建的，把稻田种得乱七八糟的.." "" );
EOF
d1r1.txt
implementation
//PROGRAM D1R1
//Driver for routine GAUSSJ
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
A,A1:matrx2;
B,B1:Array[0..3] of real;
I,