1.犇勿入；
2.禁orz；
3.在Game单元中X代表行，Y代表列；
4.推荐使用Free Pascal 2.0.4，否则部分过程及函数可能无法使用；
5.本单元持续更新。
下载地址：
Http://Huntfire.ys168.com/

自占沙发

近距离膜拜

较近距离膜拜，话说单元要怎么做啊，，，不能orz，那就OTZ吧，算了，这话还是不说的好，总之顶一个

OTL
前排
膜拜

233真的好厉害这么长的程序赞一个233

膜拜sro

orzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorzorz

orz-otz叠加状态【啊喂

srO

srO Orz

Beta V1.0.1

orz不明觉厉 c艹党对于界面游戏库无压力

15楼跪拜！！！

楼主，不要禁我！

活捉神犇一只

你教我写单元我叫你如何用pascal截图并保存如何

顶。

怎么用啊？

帮带说明
用法说明：
（过程）MoveCursor 移动光标
（过程）OneSecond 延时1秒
（过程）SetTitle 设置程序标题
（过程）MoveColorWrite 将光标移动到指定位置输出指定背景颜色与字体颜色的字符串
（过程）SetWindow 设置窗口大小
（过程）Stamprect 输出指定大小、背景颜色、字体颜色、带与不带边框的长方形（正方形）
（过程）PrintInfo 在右下角输出版本号与作者
（过程）CoolWrite 逐个输出指定颜色内容后从末尾逐个删除
（函数）GetY 得到光标所在列
（函数）GetRandom 在上届与下届中随机生成1个数
InputFileName {@猎火电脑工作室}意义不明
（过程）QuanJiao 输出数的全角形式
（函数）InputKey 在指定时间（毫秒）内获得输入键的ASCII码
（函数）MakeVCode 随机生成验证码
语法说明：
MoveCursor(x,y:longint(integer));
OneSecond;
SecTitil(titil:string);
MoveColorWrite(x,y,groundbackcolor,textcolor:longint(integer);text:string);
SetWindow(x,y:longint(integer));
Stamprect(x,y,groundbackcolor,textcolor:longint(integer);judge:boolean);
PrintInfo(edition,name:string);
CoolWrite(textcolor,text:string);
GetY:longint(integer);
GetRandom(max,min:longint(integer)):longint(integer);
InputFileName; {@猎火电脑工作室}意义不明
QuanJiao(number:longint(integer));
InputKey(time:longint(integer)):longint(integer);
MakeVCode:string;