前期易语言编程作品收录|travianMAP生成器|

 =========================这个东东算是我写的比较专业的了 写了2个礼拜 用了不少力气来计算坐标的算法
---------------------------------
.版本 2
.支持库 eAPI
.支持库 xplib
.支持库 internet

.程序集 窗口程序集1
.程序集变量 运行目录, 文本型
.程序集变量 查询结果, 整数型
.程序集变量 记录集句柄, 整数型
.程序集变量 查询变量, 整数型
.程序集变量 查询条件, 文本型
.程序集变量 z, 整数型
.程序集变量 CPU信息, CPU信息

.子程序 __启动窗口_创建完毕

取CPU信息 (CPU信息)
运行目录 = 取运行目录 ()
XP风格 (3)
.如果 (CPU信息.序列号 = “BFEBFBFF-000006F6-00000000-00000000”)
    外部数据库1.打开MDB数据库 (运行目录 ＋ “/data/map.mdb”, , , , )
.否则
    信息框 (“未授权用户！”, #信息图标, “授权错误提示”)
    画板1.销毁 ()
.如果结束


.子程序 画网格, , , 画出地图的网格

画板1.画直线 (100, 0, 100, 600)
画板1.画直线 (200, 0, 200, 600)
画板1.画直线 (300, 0, 300, 600)
画板1.画直线 (400, 0, 400, 600)
画板1.画直线 (500, 0, 500, 600)
画板1.画直线 (0, 100, 600, 100)
画板1.画直线 (0, 200, 600, 200)
画板1.画直线 (0, 300, 600, 300)
画板1.画直线 (0, 400, 600, 400)
画板1.画直线 (0, 500, 600, 500)
画板2.画直线 (100, 0, 100, 600)
画板2.画直线 (200, 0, 200, 600)
画板2.画直线 (300, 0, 300, 600)
画板2.画直线 (400, 0, 400, 600)
画板2.画直线 (500, 0, 500, 600)
画板2.画直线 (0, 100, 600, 100)
画板2.画直线 (0, 200, 600, 200)
画板2.画直线 (0, 300, 600, 300)
画板2.画直线 (0, 400, 600, 400)
画板2.画直线 (0, 500, 600, 500)
画板3.画直线 (100, 0, 100, 600)
画板3.画直线 (200, 0, 200, 600)
画板3.画直线 (300, 0, 300, 600)
画板3.画直线 (400, 0, 400, 600)
画板3.画直线 (500, 0, 500, 600)
画板3.画直线 (0, 100, 600, 100)
画板3.画直线 (0, 200, 600, 200)
画板3.画直线 (0, 300, 600, 300)
画板3.画直线 (0, 400, 600, 400)
画板3.画直线 (0, 500, 600, 500)
画板4.画直线 (100, 0, 100, 600)
画板4.画直线 (200, 0, 200, 600)
画板4.画直线 (300, 0, 300, 600)
画板4.画直线 (400, 0, 400, 600)
画板4.画直线 (500, 0, 500, 600)
画板4.画直线 (0, 100, 600, 100)
画板4.画直线 (0, 200, 600, 200)
画板4.画直线 (0, 300, 600, 300)
画板4.画直线 (0, 400, 600, 400)
画板4.画直线 (0, 500, 600, 500)

.子程序 _世界地图_被单击

z = 1
画板1.刷子颜色 = #黑色
画板1.清除 (, , , )
画板2.刷子颜色 = #黑色
画板2.清除 (, , , )
画板3.刷子颜色 = #黑色
画板3.清除 (, , , )
画板4.刷子颜色 = #黑色
画板4.清除 (, , , )

查询结果 = 外部数据库1.查询 (“select * from 表1”)
外部数据库1.到首记录 (查询结果)
画图 ()
十五田位置 ()
指挥官位置 ()
查询结果 = 外部数据库1.查询 (“select * from 表1 where 是否联盟指挥官 like '%” ＋ “是” ＋ “%'”)
外部数据库1.到首记录 (查询结果)
画板1.刷子颜色 = #红色
画板2.刷子颜色 = #红色
画板3.刷子颜色 = #红色
画板4.刷子颜色 = #红色
画图 ()


.子程序 画图
.局部变量 x, 文本型
.局部变量 y, 文本型

画网格 ()
.判断循环首 (外部数据库1.尾记录后 (查询结果) = 假)
    x = 外部数据库1.读 (查询结果, “x”)
    y = 外部数据库1.读 (查询结果, “y”)
    .如果真 (到整数 (x) ＞ 0 且 到整数 (y) ＜ 0)
        画板1.画椭圆 ((到整数 (x) － z) × 2, 0 － (到整数 (y) ＋ z) × 2, (到整数 (x) ＋ z) × 2, 0 － (到整数 (y) － z) × 2)
    .如果真结束
    .如果真 (到整数 (x) ＞ 0 且 到整数 (y) ＞ 0)
        画板2.画椭圆 ((到整数 (x) － z) × 2, 600 － (到整数 (y) ＋ z) × 2, (到整数 (x) ＋ z) × 2, 600 － (到整数 (y) － z) × 2)
    .如果真结束
    .如果真 (到整数 (x) ＜ 0 且 到整数 (y) ＜ 0)
        画板3.画椭圆 (600 ＋ (到整数 (x) － z) × 2, 0 － (到整数 (y) ＋ z) × 2, 600 ＋ (到整数 (x) ＋ z) × 2, 0 － (到整数 (y) － z) × 2)
    .如果真结束
    .如果真 (到整数 (x) ＜ 0 且 到整数 (y) ＞ 0)
        画板4.画椭圆 (600 ＋ (到整数 (x) － z) × 2, 600 － (到整数 (y) ＋ z) × 2, 600 ＋ (到整数 (x) ＋ z) × 2, 600 － (到整数 (y) － z) × 2)
    .如果真结束
    外部数据库1.到后一记录 (查询结果)
.判断循环尾 ()

.子程序 _成员位置_被单击, , , 按条件查询数据

查询变量 = 4
z = 1
画板1.刷子颜色 = #黑色
画板1.清除 (, , , )
画板2.刷子颜色 = #黑色
画板2.清除 (, , , )
画板3.刷子颜色 = #黑色
画板3.清除 (, , , )
画板4.刷子颜色 = #黑色
画板4.清除 (, , , )

查询条件判断 ()
.如果真 (查询变量 = 0)
    信息框 (“您还没有填写查询条件呢！”, #信息图标, “查询错误提示”)
.如果真结束


.如果真 (查询变量 = 2)
    查询条件 = “select * from 表1 where 名字 = '” ＋ 编辑框1.内容 ＋ “'”
    查询 ()
    ' 十五田位置 ()
    ' 指挥官位置 ()

.如果真结束


.子程序 查询条件判断, , , 查询条件的判断

.如果真 (编辑框1.内容 = “”)
    查询变量 = 0
.如果真结束

.如果真 (编辑框1.内容 ≠ “” 且 查询变量 = 3)
    查询变量 = 1
.如果真结束

.如果真 (编辑框1.内容 ≠ “” 且 查询变量 = 4)
    查询变量 = 2
.如果真结束


.子程序 指挥官位置, , , 查询指挥官的位置

z = 2
画板1.刷子颜色 = #红色
查询条件判断 ()
画板2.刷子颜色 = #红色
查询条件判断 ()
画板3.刷子颜色 = #红色
查询条件判断 ()
画板4.刷子颜色 = #红色
查询条件判断 ()

.如果真 (查询变量 = 0)
    查询条件 = “select * from 表1 where 是否联盟指挥官 = '是' ”
.如果真结束

.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 是否联盟指挥官 = '是' and 所属联盟 = '” ＋ 编辑框1.内容 ＋ “'”
.如果真结束

.如果真 (查询变量 = 2)
    查询条件 = “select * from 表1 where 是否联盟指挥官 = '是' and 名字 = '” ＋ 编辑框1.内容 ＋ “'”
.如果真结束

查询 ()

.子程序 十五田位置, , , 查询15T的位置

z = 4
画板1.刷子颜色 = #黑色
查询条件判断 ()
画板2.刷子颜色 = #黑色
查询条件判断 ()
画板3.刷子颜色 = #黑色
查询条件判断 ()
画板4.刷子颜色 = #黑色
查询条件判断 ()

.如果真 (查询变量 = 0)
    查询条件 = “select * from 表1 where 是否15田 = '是' ”
.如果真结束

.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 是否15田 = '是' and 所属联盟 = '” ＋ 编辑框1.内容 ＋ “'”
.如果真结束

.如果真 (查询变量 = 2)
    查询条件 = “select * from 表1 where 是否15田 = '是' and 名字 = '” ＋ 编辑框1.内容 ＋ “'”
.如果真结束

查询 ()


.子程序 _联盟地图_被单击

查询变量 = 3
z = 1
画板1.刷子颜色 = #黑色
画板1.清除 (, , , )
画板2.刷子颜色 = #黑色
画板2.清除 (, , , )
画板3.刷子颜色 = #黑色
画板3.清除 (, , , )
画板4.刷子颜色 = #黑色
画板4.清除 (, , , )

查询条件判断 ()
.如果真 (查询变量 = 0)
    信息框 (“您还没有填写查询条件呢！”, #信息图标, “查询错误提示”)
.如果真结束

.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 like '%” ＋ 编辑框1.内容 ＋ “%'”
    查询 ()
    ' 十五田位置 ()
    ' 指挥官位置 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]一军” ＋ “'”
    画板1.刷子颜色 = #品红
    画板2.刷子颜色 = #品红
    画板3.刷子颜色 = #品红
    画板4.刷子颜色 = #品红
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]二军” ＋ “'”
    画板1.刷子颜色 = #黄色
    画板2.刷子颜色 = #黄色
    画板3.刷子颜色 = #黄色
    画板4.刷子颜色 = #黄色
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]三军” ＋ “'”
    画板1.刷子颜色 = #蓝色
    画板2.刷子颜色 = #蓝色
    画板3.刷子颜色 = #蓝色
    画板4.刷子颜色 = #蓝色
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]四军” ＋ “'”
    画板1.刷子颜色 = #绿色
    画板2.刷子颜色 = #绿色
    画板3.刷子颜色 = #绿色
    画板4.刷子颜色 = #绿色
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]五军” ＋ “'”
    画板1.刷子颜色 = #紫色
    画板2.刷子颜色 = #紫色
    画板3.刷子颜色 = #紫色
    画板4.刷子颜色 = #紫色
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]-若魚” ＋ “'”
    画板1.刷子颜色 = #深青
    画板2.刷子颜色 = #深青
    画板3.刷子颜色 = #深青
    画板4.刷子颜色 = #深青
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ “[名人堂]22师” ＋ “'”
    画板1.刷子颜色 = #白色
    画板2.刷子颜色 = #白色
    画板3.刷子颜色 = #白色
    画板4.刷子颜色 = #白色
    查询 ()
.如果真结束
.如果真 (查询变量 = 1)
    外部数据库1.打开MDB数据库 (运行目录 ＋ “/data/map.mdb”, , , , )
.如果真结束


.子程序 _军团地图_被单击, , , 查询军团所有成员位置并表明指挥官15T

查询变量 = 3
z = 1
画板1.刷子颜色 = #黑色
画板1.清除 (, , , )
画板2.刷子颜色 = #黑色
画板2.清除 (, , , )
画板3.刷子颜色 = #黑色
画板3.清除 (, , , )
画板4.刷子颜色 = #黑色
画板4.清除 (, , , )

查询条件判断 ()
.如果真 (查询变量 = 0)
    信息框 (“您还没有填写查询条件呢！”, #信息图标, “查询错误提示”)
.如果真结束

.如果真 (查询变量 = 1)
    查询条件 = “select * from 表1 where 所属联盟 = '” ＋ 编辑框1.内容 ＋ “'”
    查询 ()
    ' 十五田位置 ()
    ' 指挥官位置 ()
.如果真结束


.子程序 查询, , , 查询子程序段

查询结果 = 外部数据库1.查询 (查询条件)
外部数据库1.到首记录 (查询结果)
画图 ()

.子程序 _地图生成_被单击

写到文件 (运行目录 ＋ “/东南.jpg”, 画板1.取图片 (, ))
写到文件 (运行目录 ＋ “/东北.jpg”, 画板2.取图片 (, ))
写到文件 (运行目录 ＋ “/西南.jpg”, 画板3.取图片 (, ))
写到文件 (运行目录 ＋ “/西北.jpg”, 画板4.取图片 (, ))


.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

画板5.清除 (, , , )
画板6.清除 (, , , )

画板5.定位写出 (横向位置, 0, 横向位置 ÷ 2)
画板6.定位写出 (0, 纵向位置, (0 － 纵向位置) ÷ 2)


.子程序 _画板2_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

画板7.清除 (, , , )
画板8.清除 (, , , )

画板7.定位写出 (横向位置, 0, 横向位置 ÷ 2)
画板8.定位写出 (0, 纵向位置, (600 － 纵向位置) ÷ 2)


.子程序 _画板3_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

画板9.清除 (, , , )
画板10.清除 (, , , )

画板9.定位写出 (横向位置, 0, (横向位置 － 600) ÷ 2)
画板10.定位写出 (0, 纵向位置, 0 － 纵向位置 ÷ 2)


.子程序 _画板4_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

画板11.清除 (, , , )
画板12.清除 (, , , )

画板11.定位写出 (横向位置, 0, (横向位置 － 600) ÷ 2)
画板12.定位写出 (0, 纵向位置, (600 － 纵向位置) ÷ 2)

.子程序 _资料更新_被单击

外部数据库1.关闭记录集 (记录集句柄)
外部数据库1.关闭 ()
写到文件 (运行目录 ＋ “/data/map.mdb”, HTTP读文件 (“http://www.futurelinker.cn/map/map.mdb”))
外部数据库1.打开MDB数据库 (运行目录 ＋ “/data/map.mdb”, , , , )
信息框 (“更新完毕！”, #信息图标, “更新提示”)

---------------------------------------------------
附加一张名人堂西南军图纪念名人堂的兄弟