达摩堂迎新春活动——“大家都是伸手党”

凶神恶煞 · 发表于 2010-2-12 13:29

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

活动时间：即日起至正月十五（2010年2月28日）
活动细则：参与者可以针对金群任一MOD平台编写事件、脚本或源码提供任何一个他人可以直接使用的小系统、小功能、小指令并给出用法。不求技术高深，但求有一定实用性。
本活动贴禁水，凡回复中未提供事件、脚本或源码者一律视为灌水，所有灌水贴均删帖处理，情节恶劣者扣分。
活动奖励：凡按要求参与活动者均可得到至少10积分的参与分，功能强大、算法先进及构思巧妙者均可有额外的加分。
请大家踊跃参加，谢谢！
示例（作者黄顺坤）：

;Kdefnum=1118
  0                            ;  0(0)::空语句(清屏)
  50 5 0 0 0 0 0 0             ;  50(32):全部变量清零
  50 0 0 0 0 0 0 0             ;  50(32):变量赋值 [X0]=0
  50 0 1 100 0 0 0 0          ;  50(32):变量赋值 [X1]=100
  50 8 0 3270 100 0 0 0       ;  50(32):读对话到字符串  Str[X100]=talk(3270) [这里改成你的问话Ｙ／Ｎ]
;:Label0
  50 32 0 1 6 0 0 0             ;  50(32):修改下一条指令下一条指令参数6=[X1]
  50 25 3 0 -30601 5 100 0    ;  50(32):保存给定地址数据 [5-8877+[X0]]=[X100](Int)
  50 3 0 0 0 0 2 0             ;  50(32):四则运算 [X0]=[X0]+2
  50 3 0 0 1 1 1 0             ;  50(32):四则运算 [X1]=[X1]+1
  50 4 0 0 0 21 0 0             ;  50(32):变量判断 If[X0]<21 then JMP=0 else JMP=1
  36 256 -44 0                ;  36(24):跳转变量JMP是否为0是则跳转到:Label0
  11 1 0                      ;  11(B):是否住宿是则跳转到:Label1
  0                            ;  0(0)::空语句(清屏)
;:Label1
  -1                            ;  -1(FFFF):事件结束
使用说明：在对话3270（使用者可以自行修改事件中的对话编号）内保存一句问话，限11个汉字或全角字符（多余的字符将被舍去），使用后游戏中的是否住宿文字将被对话3270中设置的文字替代，本事件仅适用于DOS版。

[发帖际遇]: 凶神恶煞看到神仙姐姐玉像，叩了一千个响头，蒲团被磕破了，发现里面有银两2。

轩辕夏禹 · 发表于 2010-2-12 14:28

function magic212(bnum, mnum, i, level: integer): boolean;
var
power: array[0..9] of integer;
rnum, jiji, a, rnum2, b, c, d: integer;
str: widestring;
begin
rnum := brole[bnum].rnum;
jiji := 0;
for a := 0 to 9 do
begin
power[a] := jiji;
jiji := jiji + 10;
end;
calcanselect(bnum, 1);
if selectaim(bnum, 1) then
begin
for a := 0 to broleamount - 1 do
begin
if (brole[a].X = ax) and (brole[a].Y = ay) and (brole[a].Team <>
brole[bnum].Team) and (brole[a].Dead = 0) then
begin
Rrole[rnum].MagLevel[i] := Rrole[rnum].MagLevel[i] + random(2) +
1;
SetAminationPosition(Rmagic[mnum].AttAreaType,
Rmagic[mnum].AttDistance[level - 1]);
if Rrole[rnum].MagLevel[i] > 999 then
Rrole[rnum].MagLevel[i] := 999;
ShowMagicName(mnum);
instruct_1(11796, rnum, 0);
instruct_0;
PlayActionAmination(bnum, Rmagic[mnum].MagicType);
PlayMagicAmination(bnum, Rmagic[mnum].AmiNum);
c := 0;
jiji := random(100);
if jiji < power[level - 1] then
begin
rnum2 := brole[a].rnum;
for b := 0 to 3 do
begin
if rrole[rnum2].TakingItemAmount[b] >= 0 then
c := c + 1;
end;
if c >= 1 then
begin
jiji := random(c);
d := rrole[rnum2].TakingItem[c];
rrole[rnum2].TakingItemAmount[c] :=
rrole[rnum2].TakingItemAmount[c]
- 1;
str := ' 偷竊成功';
drawtextwithrect(@str[1], 80, 30, 205, colcolor($66),
colcolor($64));
waitanykey;
redraw;
instruct_2(d, 1);
end
else
begin
str := ' 無物可偷';
drawtextwithrect(@str[1], 80, 30, 205, colcolor($66),
colcolor($64));
waitanykey;
redraw;
end;
end
else
begin
str := ' 偷窃失败';
drawtextwithrect(@str[1], 80, 30, 205, colcolor($66),
colcolor($64));
waitanykey;
redraw;
end;
result := true;
exit;
end;
end;
end;
result := false;
end;

复制代码

我看了看手边也没有什么好的事件了。（原因：从有了复刻版后再没碰过50指令了。）
也只好把我做的偷东西武功贴上来了，并不像乱来大师写的可以偷装备，我本身认为头装备太逆天了。
我的技术不好，请大家不要鄙视我。

p/s：只为了参与活动，别无他求。

jy02785317 · 发表于 2010-2-12 16:12

支持下凶神

--[[走路时，遇到障碍物会自动拐弯]]--
前些天晚老dos游戏发现，这游戏人物行走时，遇到障碍物人物会拐弯，所以也给金群做了个
将以下代码复制进jymodify.lua
然后修改一下jymain里的Game_SMap()和Game_MMap()
修改的内容很简单，都是在读键值后加上一句direct=newdirect(direct)即可

function newdirect(oldd)
if oldd==-1 then
return -1
end
local x,y
if JY.Status==GAME_SMAP then
x,y=JY.Base["人X1"],JY.Base["人Y1"]
elseif JY.Status~=GAME_MMAP then
x,y=JY.Base["人X"],JY.Base["人Y"]
else
return -1
end
local function CanMove(od1,od2) --判断某点是否可以到达，od1
local nx,ny
nx=x+CC.DirectX[od1+1]
ny=y+CC.DirectY[od1+1]
if od2~=nil then
nx=nx+CC.DirectX[od2+1]
ny=ny+CC.DirectY[od2+1]
end
if JY.Status==GAME_SMAP then
if SceneCanPass(nx,ny) then
return true
end
else
if (lib.GetMMap(nx,ny,3)==0 and lib.GetMMap(nx,ny,4)==0) or CanEnterScene(nx,ny)~=-1 then
return true
end
end
return false
end
local d1,d2,d3
d1=oldd
if oldd==0 then
d2=1
d3=2
elseif oldd==1 then
d2=3
d3=0
elseif oldd==2 then
d2=0
d3=3
elseif oldd==3 then
d2=2
d3=1
end
if CanMove(d1) then
return d1
elseif CanMove(d2) and CanMove(d1,d2) then--左边以前左前方点
return d2
elseif CanMove(d3) and CanMove(d1,d3) then--右边以及右前方点
return d3
else
return d1
end
end

复制代码

[发帖际遇]: jy02785317卖下一个mod的制作人绝密采访稿，狂赚银两18。

jy02785317 · 发表于 2010-2-12 16:16

战斗地图使用当前场景地图

在指令

WarLoadMap(WAR.Data["地图"]); --加载战斗地图

复制代码

后加上以下代码

for i=0,63 do
for j=0,63 do
lib.SetWarMap(i,j,0,lib.GetS(JY.SubScene,i,j,0))
lib.SetWarMap(i,j,1,lib.GetS(JY.SubScene,i,j,1))
end
end

复制代码

这样就可以了
当然还会有一些几个问题
1少贴图，smp和wmp的贴图不一致
2战斗场景无法显示出建筑层海拔，所以有些显示不正确，不过在一些海拔不明显的场景，倒是没什么问题

jy02785317 · 发表于 2010-2-12 16:22

这个工具是为了解决上楼的问题而写的
早就写了，不过因为被某人bs一直没有发
确实，很简单的工具啦，希望有人能制作更好的，我这个也只能将就着用

需要提供smp,sdx,wmp,wdx
然后输入起始贴图编号和结束贴图编号
如果是从smp到wmp的话，建议起始编号0，结束编号2499（？这个想不起来了，也或许是2500)

当然你可以从从其他文件复制贴图到其他文件里，不一定非要是smp wmp 当然格式必须是一样的

[发帖际遇]: jy02785317偷看武当弟子练功，习得梯云纵，增加声望1。

老衲法号乱来 · 发表于 2010-2-12 17:28

老衲也骗骗分~~

这个是战斗中选择目标功能的修改

新增功能：
移动上下左右经过某人物，自动显示其简单状态（不需按回车等）
移动到屏幕边沿时（一定格数，超出视野时），自动调整战场，也就是说只要范围够大，现在可以看遍整个战场了~

应该是大众功能~

//选择目标
function SelectAim(bnum, step: integer): boolean;
var
Axp, Ayp, i: integer;
begin
result := false;
SDL_EnableKeyRepeat(50, 30);
Ax := Bx;
Ay := By;
DrawBFieldWithCursor(step);
if (bfield[2, Ax, Ay] >= 0) then //坐标上人物非空，显示其状态
ShowSimpleStatus(Brole[bfield[2, Ax, Ay]].rnum,30,30);
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
while (SDL_WaitEvent(@event) >= 0) do
begin
case event.type_ of
SDL_QUITEV:
if messagedlg('Are you sure to quit?', mtConfirmation, [mbOk, mbCancel], 0) = idOK then Quit;
SDL_KEYDOWN:
begin
if (event.key.keysym.sym = sdlk_left) then
begin
Ay := Ay - 1;
if Ay < 0 then Ay := 0;
if (abs(Ax - Bx) + abs(Ay - By) > step) or (Bfield[3, Ax, Ay] <> 0) then Ay := Ay + 1;
if (abs(Ax - Bx) + abs(Ay - By) > 10) then
begin
By := By-1;
if By < 0 then
By := 0;
end;
DrawBFieldWithCursor(step);
if (bfield[2, Ax, Ay] >= 0) then //坐标上人物非空，显示其状态
ShowSimpleStatus(Brole[bfield[2, Ax, Ay]].rnum, 30, 30);
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
end;
if (event.key.keysym.sym = sdlk_right) then
begin
Ay := Ay + 1;
if Ay > 63 then Ay := 63;
if (abs(Ax - Bx) + abs(Ay - By) > step) or (Bfield[3, Ax, Ay] <> 0) then Ay := Ay - 1;
if (abs(Ax - Bx) + abs(Ay - By) > 10) then By := By+1;
DrawBFieldWithCursor(step);
if (bfield[2, Ax, Ay] >= 0) then //坐标上人物非空，显示其状态
ShowSimpleStatus(Brole[bfield[2, Ax, Ay]].rnum, 30, 30);
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
end;
if (event.key.keysym.sym = sdlk_down) then
begin
Ax := Ax + 1;
if Ax > 63 then Ax := 63;
if (abs(Ax - Bx) + abs(Ay - By) > step) or (Bfield[3, Ax, Ay] <> 0) then Ax := Ax - 1;
if (abs(Ax - Bx) + abs(Ay - By) > 10) then Bx := Bx+1;
DrawBFieldWithCursor(step);
if (bfield[2, Ax, Ay] >= 0) then //坐标上人物非空，显示其状态
ShowSimpleStatus(Brole[bfield[2, Ax, Ay]].rnum, 30, 30);
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
end;
if (event.key.keysym.sym = sdlk_up) then
begin
Ax := Ax - 1;
if Ax < 0 then Ax := 0;
if (abs(Ax - Bx) + abs(Ay - By) > step) or (Bfield[3, Ax, Ay] <> 0) then Ax := Ax + 1;
if (abs(Ax - Bx) + abs(Ay - By) > 10) then Bx := Bx-1;
DrawBFieldWithCursor(step);
if (bfield[2, Ax, Ay] >= 0) then //坐标上人物非空，显示其状态
ShowSimpleStatus(Brole[bfield[2, Ax, Ay]].rnum, 30, 30);
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
end;
end;
SDL_KEYUP:
begin
if (event.key.keysym.sym = sdlk_return) or (event.key.keysym.sym = sdlk_space) then
begin
result := true;
x50[28927] := 1;
break;
end;
if (event.key.keysym.sym = sdlk_escape) then
begin
result := false;
x50[28927] := 0;
break;
end;
end;
SDL_MOUSEBUTTONUP:
begin
if (event.button.button = sdl_button_left) then
begin
result := true;
break;
end;
if (event.button.button = sdl_button_right) then
begin
result := false;
break;
end;
end;
SDL_MOUSEMOTION:
begin
Axp := (-event.button.x + CENTER_x + 2 * event.button.y - 2 * CENTER_y + 36) div 72 + Bx;
Ayp := (event.button.x - CENTER_x + 2 * event.button.y - 2 * CENTER_y + 36) div 72 + By;
if (abs(Axp - Bx) + abs(Ayp - By) <= step) and (Bfield[3, Axp, Ayp] = 0) then
begin
Ax := Axp;
Ay := Ayp;
//if (abs(Axp - Bx) > 10) then Bx = Bx+1; or
//(abs(Ayp - By) > 10)
DrawBFieldWithCursor(step);
if (bfield[2, Ax, Ay] >= 0) then //坐标上人物非空，显示其状态
ShowSimpleStatus(Brole[bfield[2, Ax, Ay]].rnum, 30, 30);
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
end;
end;
end; //end case
SDL_Delay(20);
event.key.keysym.sym := 0;
end; //end while
Bx := brole[bnum].X;
By := brole[bnum].Y;
end;

复制代码

[发帖际遇]: 老衲法号乱来跟踪成昆进入明教密道，结果：奋勇救小昭脱险，得到小昭感谢银两5。

[ 本帖最后由老衲法号乱来于 2010-2-12 17:34 编辑 ]

winson7891 · 发表于 2010-2-12 17:51

画带半透明的rle8图像，其他子程对此封装

要玩半透明图像显示的请拿去~由于要计算，效率肯定比原来要低的~~供有需要的朋友使用

//画带alphe的rle8图象
procedure DrawRLE8WithAlphe(num, px, py: integer; Pidx: Pinteger; Ppic: PByte; RectArea: TRect; Image: PChar; alphe, shadow: integer);
var
w, h, xs, ys: smallint;
offset, length, p: integer;
l, l1, ix, iy: smallint;
i1, i2: integer;
pix, pix1, pix2, pix3, pix4, color1, color2, color3, color4, colorin: Uint32;
begin
if num = 0 then
offset := 0
else
begin
inc(Pidx, num - 1);
offset := Pidx^;
end;
Inc(Ppic, offset);
w := Psmallint((Ppic))^;
Inc(Ppic, 2);
h := Psmallint((Ppic))^;
Inc(Ppic, 2);
xs := Psmallint((Ppic))^;
Inc(Ppic, 2);
ys := Psmallint((Ppic))^;
Inc(Ppic, 2);
if JudgeInScreen(px, py, w, h, xs, ys, RectArea.x, RectArea.y, RectArea.w, RectArea.h) then
begin
for iy := 1 to h do
begin
l := Ppic^;
inc(Ppic, 1);
w := 1;
p := 0;
for ix := 1 to l do
begin
l1 := Ppic^;
inc(Ppic);
if p = 0 then
begin
w := w + l1;
p := 1;
end
else if p = 1 then
begin
p := 2 + l1;
end
else if p > 2 then
begin
p := p - 1;
if (w - xs + px >= RectArea.x) and (iy - ys + py >= RectArea.y) and (w - xs + px < RectArea.x + RectArea.w) and (iy - ys + py < RectArea.y + RectArea.h) then
begin
if image = nil then
begin
pix := getpixel(screen, w - xs + px, iy - ys + py);
colorin := sdl_maprgb(screen.format, ACol[l1 * 3] * (4 + shadow), ACol[l1 * 3 + 1] * (4 + shadow), ACol[l1 * 3 + 2] * (4 + shadow));
pix1 := pix and $FF;
color1 := colorin and $FF;
pix2 := pix shr 8 and $FF;
color2 := colorin shr 8 and $FF;
pix3 := pix shr 16 and $FF;
color3 := colorin shr 16 and $FF;
pix4 := pix shr 24 and $FF;
color4 := colorin shr 24 and $FF;
pix1 := (alphe * color1 + (100 - alphe) * pix1) div 100;
pix2 := (alphe * color2 + (100 - alphe) * pix2) div 100;
pix3 := (alphe * color3 + (100 - alphe) * pix3) div 100;
pix4 := (alphe * color4 + (100 - alphe) * pix4) div 100;
pix := pix1 + pix2 shl 8 + pix3 shl 16 + pix4 shl 24;
putpixel(screen, w - xs + px, iy - ys + py, pix);
end
else
Pint(image + ((w - xs + px) * 1152 + (iy - ys + py)) * 4)^ := sdl_maprgb(screen.format, ACol[l1 * 3] * (4 + shadow), ACol[l1 * 3 + 1] * (4 + shadow), ACol[l1 * 3 + 2] * (4 + shadow));
end;
w := w + 1;
if p = 2 then
begin
p := 0;
end;
end;
end;
end;
end;
end;

复制代码

[发帖际遇]: winson7891投石杀死蒙古大汗蒙哥，天下闻名，增加声望5。

winson7891 · 发表于 2010-2-12 18:10

我们经常会看到场景地图的边沿上面，包含着上一幅地图的贴图，边沿非常“肮脏”

其实只要在初始化场景时加一句话，就能解决这个情况~

FillChar(BFieldImg,SizeOf(BFieldImg),#0);

这个是战场的例子，fillchar这个系统功能效率比较可靠，所以放心使用~

//初始化战场映像

//初始化战场映像
procedure InitialWholeBField;
var
i1, i2, j1, j2, x, y: integer;
begin
FillChar(BFieldImg,SizeOf(BFieldImg),#0);
for i1 := 0 to 63 do
for i2 := 0 to 63 do
begin
x := -i1 * 36 + i2 * 36 + 2302;
y := i1 * 18 + i2 * 18 + 18;
if (i1 < 0) or (i2 < 0) or (i1 > 63) or (i2 > 63) then
InitialBPic(0, x, y)
else
begin
InitialBPic(bfield[0, i1, i2] div 2, x, y);
if (bfield[1, i1, i2] > 0) then
InitialBPic(bfield[1, i1, i2] div 2, x, y)
end;
end;
end;

复制代码

从此以后，场景不再肮脏了~~

[发帖际遇]: winson7891在黑龙潭边拣到一个手帕，经验证是瑛姑绣的四张机手帕，转手卖得银两10。

KG · 发表于 2010-2-12 18:11

字幕指令，用法同新对话指令
^^改变文字颜色
## 延时
**换行
@@等待击键
&&显示姓名
%%显示名
$$显示姓

procedure ShowTitle(talknum, color: integer);
var
newcolor, alen, x1, y1, ch, color1, color2, c1, r1, n, namelen, i, t1, grp, idx, offset, len, i1, i2, face, c, x, y, w, h, cell, row: integer;
np3, np1, np2, tp, p1, ap: pchar;
actorarray, name1, name2, talkarray: array of byte;
pword: array[0..1] of Uint16;
wd, str: string;
temp2: widestring;
begin
pword[1] := 0;
color1 := color and $FF;
color2 := (color shr 8) and $FF;
x := 0;
y := 30;
w := 640;
h := 109;
row := 5;
cell := 25;
//read talk
idx := fileopen('\resource\TALK.IDX', fmopenread);
grp := fileopen('\resource\TALK.GRP', fmopenread);
if talknum = 0 then
begin
offset := 0;
fileread(idx, len, 4);
end
else
begin
fileseek(idx, (talknum - 1) * 4, 0);
fileread(idx, offset, 4);
fileread(idx, len, 4);
end;
len := (len - offset);
setlength(talkarray, len + 1);
fileseek(grp, offset, 0);
fileread(grp, talkarray[0], len);
fileclose(idx);
fileclose(grp);
for i := 0 to len - 1 do
begin
talkarray[ i ] := talkarray[ i ] xor $FF;
if (talkarray[ i ] = $FF) then
talkarray[ i ] := 0;
end;
talkarray[len] := byte(0);
tp := @talkarray[0];
if length(tp) > cell * 2 then
begin
x1 := 300 - cell * 10;
end
else x1 := 300 - length(tp) * 5;
if ((length(tp) div 2) > cell * row) then
begin
y1 := y + (h div 2) - 50
end
else y1 := y + (h div 2) - 10 - ((length(tp) div 2) div cell) * 10;
p1 := @Rrole[0].Name;
alen := length(p1) + 2;
setlength(actorarray, alen);
ap := @actorarray[0];
for n := 0 to alen - 1 do
begin
(ap + n)^ := (p1 + n)^;
if (p1 + n)^ = char(0) then break;
end;
(ap + n)^ := char($0);
(ap + n + 1)^ := char(0);
if alen = 6 then
begin
setlength(name1, 4);
np1 := @name1[0];
np1^ := ap^;
(np1 + 1)^ := (ap + 1)^;
(np1 + 2)^ := char(0);
(np1 + 3)^ := char(0);
setlength(name2, 4);
np2 := @name2[0];
np2^ := ap^;
for i := 0 to length(name2) - 1 do
(np2 + i)^ := (ap + i + 2)^;
end
else if alen > 8 then
begin
setlength(name1, 6);
np1 := @name1[0];
np1^ := ap^;
(np1 + 1)^ := (ap + 1)^;
(np1 + 2)^ := (ap + 2)^;
(np1 + 3)^ := (ap + 3)^;
(np1 + 4)^ := char(0);
(np1 + 5)^ := char(0);
setlength(name2, 6);
np2 := @name2[0];
for i := 0 to length(name2) - 1 do
(np2 + i)^ := (ap + i + 4)^;
end
else if alen = 8 then
begin
if ((puint16(ap)^ = $6EAB) and ((puint16(ap + 2)^ = $63AE))) or
((puint16(ap)^ = $E8A6) and ((puint16(ap + 2)^ = $F9AA))) or
((puint16(ap)^ = $46AA) and ((puint16(ap + 2)^ = $E8A4))) or
((puint16(ap)^ = $4FA5) and ((puint16(ap + 2)^ = $B0AA))) or
((puint16(ap)^ = $7DBC) and ((puint16(ap + 2)^ = $65AE))) or
((puint16(ap)^ = $71A5) and ((puint16(ap + 2)^ = $A8B0))) or
((puint16(ap)^ = $D1BD) and ((puint16(ap + 2)^ = $AFB8))) or
((puint16(ap)^ = $71A5) and ((puint16(ap + 2)^ = $C5AA))) or
((puint16(ap)^ = $D3A4) and ((puint16(ap + 2)^ = $76A5))) or
((puint16(ap)^ = $BDA4) and ((puint16(ap + 2)^ = $5DAE))) or
((puint16(ap)^ = $DABC) and ((puint16(ap + 2)^ = $A7B6))) or
((puint16(ap)^ = $43AD) and ((puint16(ap + 2)^ = $DFAB))) or
((puint16(ap)^ = $71A5) and ((puint16(ap + 2)^ = $7BAE))) or
((puint16(ap)^ = $B9A7) and ((puint16(ap + 2)^ = $43C3))) or
((puint16(ap)^ = $61B0) and ((puint16(ap + 2)^ = $D5C1))) or
((puint16(ap)^ = $74A6) and ((puint16(ap + 2)^ = $E5A4))) or
((puint16(ap)^ = $DDA9) and ((puint16(ap + 2)^ = $5BB6))) then
begin
setlength(name1, 6);
np1 := @name1[0];
np1^ := ap^;
(np1 + 1)^ := (ap + 1)^;
(np1 + 2)^ := (ap + 2)^;
(np1 + 3)^ := (ap + 3)^;
(np1 + 4)^ := char(0);
(np1 + 5)^ := char(0);
setlength(name2, 4);
np2 := @name2[0];
for i := 0 to length(name2) - 1 do
(np2 + i)^ := (ap + i + 4)^;
end
else
begin
setlength(name1, 4);
np1 := @name1[0];
np1^ := ap^;
(np1 + 1)^ := (ap + 1)^;
(np1 + 2)^ := char(0);
(np1 + 3)^ := char(0);
setlength(name2, 6);
np2 := @name2[0];
for i := 0 to length(name2) - 1 do
(np2 + i)^ := (ap + i + 2)^;
end;
end;
temp2 := big5tounicode(tp);
str := unicodetobig5(@temp2[1]);
setlength(wd, 0);
i := 0;
while i < length(str) do
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[ i ];
if (integer(str[ i ]) in [$81..$FE]) and (integer(str[i + 1]) <> $7E) then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
wd[length(wd) - 2] := str[ i ];
inc(i, 2);
continue
end;
if (str[ i ] = #$0D) and (str[i + 1] = #$0A) then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := '*';
wd[length(wd) - 2] := '*';
inc(i, 2);
continue;
end;
if (integer(str[ i ]) in [$20..$7F]) then
begin
if str[ i ] = '^' then
begin
if (integer(str[i + 1]) in [$30..$39]) or (str[i + 1] = '^') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end;
end
else if (str[ i ] = '*') and (str[i + 1] = '*') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end
else if (str[ i ] = '&') and (str[i + 1] = '&') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end
else if (str[ i ] = '#') and (str[i + 1] = '#') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end
else if (str[ i ] = '@') and (str[i + 1] = '@') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end
else if (str[ i ] = '$') and (str[i + 1] = '$') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end
else if (str[ i ] = '%') and (str[i + 1] = '%') then
begin
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := str[i + 1];
inc(i, 2);
continue;
end;
setlength(wd, length(wd) + 1);
wd[length(wd) - 1] := char($A0 + (smallint(str[ i ]) - 32));
wd[length(wd) - 2] := char($A3);
end;
inc(i);
end;
tp := @wd[3];
ch := 0;
while ((puint16(tp + ch))^ shl 8 <> 0) and ((puint16(tp + ch))^ shr 8 <> 0) do
begin
redraw;
c1 := 0;
r1 := 0;
DrawRectangleWithoutFrame(x, y, w, h, 0, 40);
while r1 < row do
begin
pword[0] := (puint16(tp + ch))^;
if (pword[0] shr 8 <> 0) and (pword[0] shl 8 <> 0) then
begin
ch := ch + 2;
if (pword[0] and $FF) = $5E then //^^改变文字颜色
begin
case smallint((pword[0] and $FF00) shr 8) - $30 of
0: newcolor := 28515;
1: newcolor := 28421;
2: newcolor := 28435;
3: newcolor := 28563;
4: newcolor := 28466;
5: newcolor := 28450;
64: newcolor := color;
else newcolor := color;
end;
color1 := newcolor and $FF;
color2 := (newcolor shr 8) and $FF;
end
else if pword[0] = $2323 then //## 延时
begin
sdl_delay(500);
end
else if pword[0] = $2A2A then //**换行
begin
if c1 > 0 then
begin
inc(r1);
DrawRectangleWithoutFrame(x, y + h + 11 * (r1 - 1) + 1, w, 10, 0, 40);
end;
c1 := 0;
end
else if pword[0] = $4040 then //@@等待击键
begin
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
n := waitanykey;
while (n = sdlk_up) or
(n = sdlk_down) or
(n = sdlk_right) or
(n = sdlk_left) do
n := waitanykey;
end
else if (pword[0] = $2626) or (pword[0] = $2525) or (pword[0] = $2424) then
begin
case pword[0] of
$2626: np3 := ap; //&&显示姓名
$2525: np3 := np2; //%%显示名
$2424: np3 := np1; //$$显示姓
end;
i := 0;
while (puint16(np3 + i)^ shr 8 <> 0) and (puint16(np3 + i)^ shl 8 <> 0) do
begin
pword[0] := puint16(np3 + i)^;
i := i + 2;
DrawBig5ShadowText(@pword[0], x1 + CHINESE_FONT_SIZE * c1, y1 + CHINESE_FONT_SIZE * r1, colcolor( color1), colcolor( color2));
inc(c1);
if c1 = cell then
begin
c1 := 0;
inc(r1);
DrawRectangleWithoutFrame(x, y + h + 11 * (r1 - 1) + 1, w, 10, 0, 40);
if r1 = row then
begin
redraw;
c1 := 0;
r1 := 0;
DrawRectangleWithoutFrame(x, y, w, h, 0, 40);
end;
end;
end;
end
else //显示文字
begin
Drawbig5ShadowText(@pword, x1 + CHINESE_FONT_SIZE * c1, y1 + CHINESE_FONT_SIZE * r1, colcolor( color1), colcolor(color2));
inc(c1);
if c1 = cell then
begin
c1 := 0;
inc(r1);
DrawRectangleWithoutFrame(x, y + h + 11 * (r1 - 1) + 1, w, 10, 0, 40);
end;
end;
end
else break;
end;
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
n := waitanykey;
while (n = sdlk_up) or
(n = sdlk_down) or
(n = sdlk_right) or
(n = sdlk_left) do
n := waitanykey;
if (pword[0] and $FF = 0) or (pword[0] and $FF00 = 0) then break;
end;
redraw;
//DrawBig5ShadowText(@pword, x1 + CHINESE_FONT_SIZE * c1, y1 + CHINESE_FONT_SIZE * r1, colcolor(0, color1), colcolor(0, color2));
setlength(wd, 0);
setlength(str, 0);
setlength(temp2, 0);
end;

复制代码

[ 本帖最后由 KG 于 2010-2-13 20:20 编辑 ]

killer_zingy · 发表于 2010-2-12 23:41

某超傻的指令
我是来骗分的
希望ls几位大大不要嘲笑~

//增加某属性数值
procedure unknownewintruct(rnum, kind, addnum: integer);
var
word: widestring;
begin
case kind of
0:
begin
RRole[rnum].Defence := RRole[rnum].Defence + addnum;
word :=' 防御增加';
if RRole[rnum].Defence > 500 then RRole[rnum].Defence := 500
end;
1:
begin
RRole[rnum].Speed := RRole[rnum].Speed + addnum;
word :=' 轻功增加';
if RRole[rnum].Speed > 500 then RRole[rnum].Speed := 500
end;
2:
begin
RRole[rnum].Fist := RRole[rnum].Fist + addnum;
word :=' 拳掌增加';
if RRole[rnum].Fist > 999 then RRole[rnum].Fist := 999
end;
3:
begin
RRole[rnum].Sword := RRole[rnum].Sword + addnum;
word := '御剑增加';
if RRole[rnum].Sword > 999 then RRole[rnum].Sword := 999
end;
4:
begin
RRole[rnum].Knife := RRole[rnum].Knife + addnum;
word := '耍刀增加';
if RRole[rnum].Knife > 999 then RRole[rnum].Knife := 999
end;
5:
begin
RRole[rnum]. Unusual := RRole[rnum].Unusual + addnum;
word := '特殊增加';
if RRole[rnum].Unusual > 999 then RRole[rnum].Unusual := 999
end;
end;
DrawRectangle(CENTER_X - 75, 98, 145, 51, 0, colcolor(255), 30);
drawshadowtext(@word[1], CENTER_X - 90, 125, colcolor($7), colcolor($5));
drawbig5shadowtext(@rrole[rnum].Name, CENTER_X - 90, 100, colcolor($23), colcolor($21));
word := format('%4d', [addnum]);
drawengshadowtext(@word[1], CENTER_X + 20, 125, colcolor($66), colcolor($64));
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
waitanykey;
redraw;
end;

复制代码

ps:lx那个比我的高明多了

[ 本帖最后由 killer_zingy 于 2010-2-13 06:45 编辑 ]

轩辕夏禹 · 发表于 2010-2-13 06:42

看到kz贴了这个，我也把我的贴出来了。
注：kz别嘲笑我。

这是效果图。

procedure addanyulike(rnum, kind, addnum, show: integer);
var
str: array[0..7] of widestring;
addtarget: array[0..7] of integer;
word: widestring;
begin
addtarget[0] := 43;
addtarget[1] := 45;
addtarget[2] := 44;
addtarget[3] := 50;
addtarget[4] := 51;
addtarget[5] := 52;
addtarget[6] := 53;
addtarget[7] := 54;
str[0] := ' 攻擊增加';
str[1] := ' 防禦增加';
str[2] := ' 輕功增加';
str[3] := ' 拳掌增加';
str[4] := ' 禦劍增加';
str[5] := ' 耍刀增加';
str[6] := ' 特殊增加';
str[7] := ' 暗器增加';
rrole[rnum].Data[addtarget[kind]] := rrole[rnum].data[addtarget[kind]] +
addnum;
if rrole[rnum].Data[addtarget[kind]] > maxprolist[addtarget[kind]] then
rrole[rnum].Data[addtarget[kind]] := maxprolist[addtarget[kind]];
if show = 0 then
begin
word := str[kind];
DrawRectangle(CENTER_X - 75, 98, 145, 51, 0, colcolor(255), 30);
drawshadowtext(@word[1], CENTER_X - 90, 125, colcolor($7),
colcolor($5));
drawbig5shadowtext(@rrole[rnum].Name, CENTER_X - 90, 100,
colcolor($23),
colcolor($21));
word := format('%4d', [addnum]);
drawengshadowtext(@word[1], CENTER_X + 20, 125, colcolor($66),
colcolor($64));
sdl_updaterect(screen, 0, 0, screen.w, screen.h);
waitanykey;
redraw;
end;
end;

复制代码

[发帖际遇]: 轩辕夏禹为救乔峰，聚贤庄大战群侠后身负重伤，花费银两25治伤。

ps：kz你就别取笑我了，我也是依样画葫芦写出来的，可以说是抄袭你。

[ 本帖最后由轩辕夏禹于 2010-2-13 07:01 编辑 ]

真正的强强 · 发表于 2010-2-13 14:49

写一个实时缩放RLE8图片的代码，重载原来的DrawRLE8pic。
使用前需要定义一个新的record：

type
TRLE8zoompixel = record
alpha: boolean;
red: byte;
green: byte;
blue: byte;
end;

复制代码

定义后可以把以下代码加入到Engine.pas里面。在原来的DrawRLE8pic过程后面写上 “overload；”。引用此过程只需在原过程参数后面新加入一个倍数的参数，一般参数在0.5倍到3倍之间时，效果应该都还算可以接受。效率一般，如果缩放图片过多，可能较慢。

procedure DrawRLE8pic(num, px, py: integer; Pidx: pinteger; Ppic: Pbyte; RectArea: TRect; Image: PChar; shadow: integer; MULT: single); overload;
var
RLE8zoompixel: array of array of TRLE8zoompixel;
nowpixel : TRLE8zoompixel;
newwidth, newheight, offset, oldwidth, oldheight, xs, ys, nowdata, iy, ix, xpos, i, datalen, drawstate, i2: integer;
drawx, drawy, parameter : integer;
f_drawx, f_drawy, f_x, f_y, nowred, nowgreen, nowblue: Extended;
coefficient: array[0..3] of Extended;
begin
if num = 0 then
offset := 0
else
begin
inc(Pidx, num - 1);
offset := Pidx^;
end;
Inc(Ppic, offset);
oldwidth := Psmallint((Ppic))^;
Inc(Ppic, 2);
oldheight := Psmallint((Ppic))^;
Inc(Ppic, 2);
xs := Psmallint((Ppic))^;
Inc(Ppic, 2);
ys := Psmallint((Ppic))^;
Inc(Ppic, 2);
setlength(RLE8zoompixel, oldwidth, oldheight);
for iy := 0 to oldheight - 1 do
begin
datalen := Ppic^;
drawstate := 0;
xpos := 0;
for ix := 0 to datalen do
begin
inc(Ppic);
nowdata := Ppic^;
if ix = datalen then
begin
if oldwidth > xpos then
begin
i := xpos;
for xpos := i to oldwidth - 1 do
begin
RLE8zoompixel[xpos][iy].alpha := true;
end;
drawstate := 0;
end;
end
else if drawstate = 0 then
begin
i := xpos;
for xpos := i to nowdata + i - 1 do
begin
RLE8zoompixel[xpos][iy].alpha := true;
end;
drawstate := 1;
end
else if drawstate = 1 then
begin
drawstate := nowdata + 2;
end
else if drawstate > 2 then
begin
RLE8zoompixel[xpos][iy].alpha := false;
RLE8zoompixel[xpos][iy].red := ACol[nowdata * 3];
RLE8zoompixel[xpos][iy].green := ACol[nowdata * 3 + 1];
RLE8zoompixel[xpos][iy].blue := ACol[nowdata * 3 + 2];
dec(drawstate);
inc(xpos);
if drawstate = 2 then
drawstate := 0;
end;
end;
end;
newwidth := Round(MULT * oldwidth);
newheight := Round(MULT * oldheight);
if JudgeInScreen(px, py, newwidth, newheight, xs, ys, RectArea.x, RectArea.y, RectArea.w, RectArea.h) then
begin
for ix := 0 to newheight - 1 do
begin
for iy := 0 to newwidth - 1 do
begin
f_drawx := ix / MULT;
f_drawy := iy / MULT;
drawx := Trunc(f_drawx);
drawy := Trunc(f_drawy);
f_x := f_drawx - drawx;
f_y := f_drawy - drawy;
coefficient[0] := (1 - f_y) * (1 - f_x);
coefficient[1] := (1 - f_y) * f_x;
coefficient[2] := (1 - f_x) * f_y;
coefficient[3] := f_x * f_y;
parameter := 4;
nowred := 0;
nowgreen := 0;
nowblue := 0;
for i := 0 to 1 do
for i2 := 0 to 1 do
begin
if (drawx + i >= oldwidth) or (drawy + i2 >= oldheight) or (RLE8zoompixel[drawx + i][drawy + i2].alpha) then
dec(parameter)
else
begin
nowred := nowred + coefficient[i + 2 * i2] * RLE8zoompixel[drawx + i][drawy + i2].red;
nowgreen := nowgreen + coefficient[i + 2 * i2] * RLE8zoompixel[drawx + i][drawy + i2].green;
nowblue := nowblue + coefficient[i + 2 * i2] * RLE8zoompixel[drawx + i][drawy + i2].blue;
end;
end;
if parameter = 0 then
nowpixel.alpha := true
else
begin
nowpixel.alpha := false;
nowpixel.red := Round(nowred);
nowpixel.green := Round(nowgreen);
nowpixel.blue := Round(nowblue);
end;
if (ix - xs + px >= RectArea.x) and (iy - ys + py >= RectArea.y) and (ix - xs + px < RectArea.x + RectArea.w) and (iy - ys + py < RectArea.y + RectArea.h) then
if not(nowpixel.alpha) then
if image = nil then
putpixel(screen, ix - xs + px, iy - ys + py, sdl_maprgb(screen.format, nowpixel.red * (4 + shadow), nowpixel.green * (4 + shadow), nowpixel.blue * (4 + shadow)))
else
Pint(image + ((ix - xs + px) * 1152 + (iy - ys + py)) * 4)^ := sdl_maprgb(screen.format, nowpixel.red * (4 + shadow), nowpixel.green * (4 + shadow), nowpixel.blue * (4 + shadow));
end;
end;
end;
end;

复制代码

效果图见附件

[发帖际遇]: 真正的强强在丐帮大会揭露何师我的真正面目，得郭靖称赞，增加声望2。

真正的强强 · 发表于 2010-2-13 15:44

写那个RLE8图片缩放的时候，我忘了RLE8格式，所以又看了下论坛的资料，但是觉得这个格式并不算太好，因为有大小限制，前一段研究了一下金山公司剑侠情缘系列游戏的图片格式，它是没有大小限制的。写出来与大家分享一下，如果觉得好，可以写一个格式转换的程序，把金庸图片转成剑侠情缘的图片格式。

在文件头部有一个头结构

TMPCHead = record
Headchar: array[0..15] of byte; //这里标记“MPC File ver2.0”
Headnull: array[0..11] of integer; //null
Filedatalen: integer; //不含头长度
MaxWide: integer; // 所含图片最大宽度
MaxHeight: integer; //最大高度
PicAmount: integer; //图片数量
PicBitCount: integer; //这个是位数么? 一般都是8
PaletteLen: integer; //调色板长度
Xs: integer; //偏移??是否所有图片用此一个偏移??
Ys: integer; //??
Endnull: array[0..7] of integer; //null
end;

复制代码

接下来是调色板信息。调色板结构是

TMPCpalette = record
bule: byte;
green: byte;
red: byte;
alpha: byte; //透明度??这里好像并没有用到
end;

复制代码

接下来是每张图片的偏移（第一张是0），每个四字节。

再后面是每个图片的数据，数据前也有个头结构。

TMPCpichead = record
picDataLen: integer; //图片数据长度，含此头结构
Wide: integer; //宽度
Height: integer; //高度
Endnull: array[0..1] of integer; //无用。也许以后可以自己改造成每个图片的偏移
end;

复制代码

然后就是真正的图片数据。
这有一段数据。

E1 02 1B 1B E1 E0 03 1B 09 07 E1 E0 04 44 3B 3B

第一个数是E1，当这个数大于80H(十进制的128)时，它先要减掉80H，所得到的就是指透明像素的个数，所以有97个透明像素。
接下来是02，他小于80H，表示接下来有2个颜色点，分别是1B，1B，所以颜色信息在对应的MPCpalette[$1B]中，再接下来又是E1，所以又有97个透明像素。这时此行的像素已经有了196个，而此段数据所表示图像的宽度是C4(此数在这段数据中并未给出)，也就是196，此时应该换行。再接下来道理都是相同的。

这种图片格式消除了图片大小的限制，但也不一定适合金庸，只是拿出来参考一下。

附件打包一个查看这种图片的小程序和源码，还有两个这种格式的图片文件。

[发帖际遇]: 真正的强强听说关外有“闯王宝藏”，跟随田归农等人去寻宝，用光了盘缠才发现是假消息，共计损失银两16两。

KA · 发表于 2010-2-13 16:06

没想到大家都留了那么多手啊口胡。。

初始设置的时候。。
DOS选DOS，复刻的选kys
图片结构目前统一选grp

不拿点东西粗来实在说不过去了（1L的那个我花了5分钟写的那个示范。。表提了。。完全没啥水平囧）

sfe0.72.20sp1扯神纪念特别版

14:16 2010-2-12
1.增加动态战斗编辑,可以参照右边的缩略图编辑，缩略图可以放大缩小
2.增加导入导出excel模块
3.去掉mb.dat，改用api
4.怀念扯神大大，.20推出特别版扯神图标版

[发帖际遇]: 黄顺坤拍丁春秋的马屁结果拍到马腿上，被丁春秋打伤，失去医疗费银两7两。

[ 本帖最后由黄顺坤于 2010-2-13 16:11 编辑 ]

killer_zingy · 发表于 2010-2-14 06:50

减体力, 继续骗分:

procedure CalHurtRole(bnum, mnum, level: integer);
var
i, rnum, hurt, addpoi, mp: integer;
begin
rnum := brole[bnum].rnum;
rrole[rnum].PhyPower := rrole[rnum].PhyPower - 3;
if RRole[rnum].CurrentMP < rmagic[mnum].NeedMP * ((level + 1) div 2) then level := RRole[rnum].CurrentMP div rmagic[mnum].NeedMP * 2;
if level > 10 then level := 10;
RRole[rnum].CurrentMP := RRole[rnum].CurrentMP - rmagic[mnum].NeedMP * ((level + 1) div 2);
for i := 0 to broleamount - 1 do
begin
Brole.ShowNumber := -1;
if (Bfield[4, Brole.X, Brole.Y] <> 0) and (Brole[bnum].Team <> Brole.Team) and (Brole.Dead = 0) then
begin
//生命伤害
if (rmagic[mnum].HurtType = 0) then
begin
hurt := CalHurtValue(bnum, i, mnum, level);
Brole.ShowNumber := hurt;
//受伤
Rrole[Brole.rnum].CurrentHP := Rrole[Brole.rnum].CurrentHP - hurt;
Rrole[Brole.rnum].Hurt := Rrole[Brole.rnum].Hurt + hurt div LIFE_HURT;
if Rrole[Brole.rnum].Hurt > 99 then Rrole[Brole.rnum].Hurt := 99;
Brole[bnum].ExpGot := Brole[bnum].ExpGot + hurt div 2;
if Rrole[Brole.rnum].CurrentHP <= 0 then Brole[bnum].ExpGot := Brole[bnum].ExpGot + hurt div 2;
end;
//内力伤害
if (rmagic[mnum].HurtType = 1) then
begin
hurt := rmagic[mnum].HurtMP[level - 1] + random(5) - random(5);
Brole.ShowNumber := hurt;
Rrole[Brole.rnum].CurrentMP := Rrole[Brole.rnum].CurrentMP - hurt;
if Rrole[Brole.rnum].CurrentMP <= 0 then Rrole[Brole.rnum].CurrentMP := 0;
//增加己方内力及最大值
RRole[rnum].CurrentMP := RRole[rnum].CurrentMP + hurt;
RRole[rnum].MaxMP := RRole[rnum].MaxMP + random(hurt div 2);
if RRole[rnum].MaxMP > MAX_MP then RRole[rnum].MaxMP := MAX_MP;
if RRole[rnum].CurrentMP > RRole[rnum].MaxMP then RRole[rnum].CurrentMP := RRole[rnum].MaxMP;
end;
//体力伤害
if (rmagic[mnum].HurtType = 5) then
begin
hurt := rmagic[mnum].HurtMP[level - 1] + random(5) - random(5);
Brole.ShowNumber := hurt;
Rrole[Brole.rnum].PhyPower := Rrole[Brole.rnum].PhyPower - hurt;
if Rrole[Brole.rnum].PhyPower <= 0 then Rrole[Brole.rnum].PhyPower := 0;
end;
//中毒
addpoi := rrole[rnum].AttPoi div 5 + rmagic[mnum].Poision * level div 2 - rrole[Brole.rnum].DefPoi;
if addpoi + rrole[Brole.rnum].Poision > 99 then addpoi := 99 - rrole[Brole.rnum].Poision;
if addpoi < 0 then addpoi := 0;
if rrole[Brole.rnum].DefPoi >= 99 then addpoi := 0;
rrole[Brole.rnum].Poision := rrole[Brole.rnum].Poision + addpoi;
end;
end;
end;

复制代码

顺便在复制在showhurtvalue里面多加一个5和颜色以及减号.

[ 本帖最后由 killer_zingy 于 2010-2-15 00:16 编辑 ]

killer_zingy · 发表于 2010-2-16 06:16

为什么武功都要弄的那么麻烦呢?
直接判断一下类型不是更好?
在加一个群疗(也可以线疗, 十字疗)

//医疗武功
if (rmagic[mnum].HurtType = 6) then
hurt := Rrole[rnum].Medcine;
begin
for i1 := 0 to 63 do
for i2 := 0 to 63 do
begin
if bfield[4, i1, i2] >= 1 then
begin
bnum := bfield[2, i1, i2];
if brole[bnum].Team = 0 then
begin
rrole[brole[bnum].rnum].CurrentHP := rrole[brole[bnum].rnum].CurrentHP
+ hurt;
if Rrole[Brole[i].rnum].CurrentHP > Rrole[Brole[i].rnum].MaxHP then
Rrole[Brole[i].rnum].CurrentHP := Rrole[Brole[i].rnum].MaxHP;
brole[bnum].ShowNumber := hurt;
end;
end;
end;
end;

复制代码

[发帖际遇]: killer_zingy偷得祖千秋八杯，被老头子祖千秋追杀打伤，医疗费银两18两。

[ 本帖最后由 killer_zingy 于 2010-2-16 10:00 编辑 ]

轩辕夏禹 · 发表于 2010-2-16 10:36

貌似这个帖快要被活埋了，只靠kz一个人在独力撑着。

我也发我的吧，是类似召唤幻兽的。

在武功里面的声音编号里输入你要召唤的人物编号就行了。
反正复刻版里的人物动作都没声音的，不知道是不是bt大偷懒。

procedure callmonster(bnum, mnum, i, level: integer);
var
o1, o2, dd, oo, rnum: integer;
begin
for o1 := 0 to 63 do
for o2 := 0 to 63 do
begin
if bfield[4, o1, o2] >= 1 then
begin
if bfield[2, o1, o2] < 0 then
begin
dd := broleamount - 1;
rnum := brole[dd].rnum;
rrole[rnum].CurrentHP := rrole[rnum].MaxHP;
rrole[rnum].CurrentMP := rrole[rnum].MaxMP;
rrole[rnum].Poision := 0;
rrole[rnum].Hurt := 0;
rrole[rnum].PhyPower := 100;
broleamount := broleamount + 1;
bfield[2, o1, o2] := broleamount - 1;
brole[dd].rnum := rmagic[mnum].SoundNum;
brole[dd].Team := brole[bnum].Team;
brole[dd].X := o1;
brole[dd].Y := o2;
brole[dd].Face := 0;
brole[dd].Dead := 0;
brole[dd].Acted := 1;
end;
end;
end;
if brole[bnum].Team = 0 then
showmagicname(mnum);
rnum := brole[bnum].rnum;
for oo := 0 to 4 do
begin
if rrole[rnum].Data[25 + oo] >= 1 then
break;
end;
PlayActionAmination(bnum, oo); //
PlayMagicAmination(bnum, Rmagic[mnum].AmiNum);
end;

复制代码

[发帖际遇]: 轩辕夏禹在佛山巧遇钟阿四一家被凤天南强逼，出手打趴凤天南，凤天南奉上银两25。

p/s：里面加入了敌我判断，是因为我的mod里敌方使用武功时是不显示武功名字的，就酱。
顺带一提，很想看看凶神大写的战斗指令啊，我看了那个凶神大的贴了，真是让我叹为观止。

[ 本帖最后由轩辕夏禹于 2010-2-16 10:41 编辑 ]

真正的强强 · 发表于 2010-2-16 16:18

不知道大家注意到没，复刻版有个小毛病，就是在事件中播放动画的时候，如果点击几下鼠标或按几下键盘的话，动画后面的几句对话就会跳过去。比如游戏开始事件中在播放软体娃娃动画的时候点了两下鼠标，那么动画结束后的两句对话就不会"WaitAnyKey"，而会直接跳过了。这是因为消息队列中已经存在了两个点击鼠标的事件。所以，如果想改掉这个小毛病，需要修改一下WaitAnyKey这个函数。很简单，只要加入这句： while(SDL_PollEvent(@event) > 0) do; 就可以了。

修改后的WaitAnyKey函数如下：

function WaitAnyKey: integer;
var
enum: integer;
begin
event.key.keysym.sym := 0;
event.button.button := 0;
while(SDL_PollEvent(@event) > 0) do; //清空消息队列
while (SDL_WaitEvent(@event) >= 0) do
begin
if (event.type_ = SDL_QUITEV) then
if messagedlg('Are you sure to quit?', mtConfirmation, [mbOk, mbCancel], 0) = idOK then
Quit;
if (event.type_ = SDL_KEYUP) or (event.type_ = SDL_mousebuttonUP) then
if (event.key.keysym.sym <> 0) or (event.button.button <> 0) then
break;
end;
result := event.key.keysym.sym;
event.key.keysym.sym := 0;
event.button.button := 0;
end;

复制代码

[发帖际遇]: 真正的强强发现石破天准备用银票擦屁股，赶紧送上两卷草纸，换回一张银票，兑换银两17。

真正的强强 · 发表于 2010-2-16 17:41

现有的复刻版的鼠标图像基本都是SDL自带的，就是那个黑乎乎的东西，其实我们完全可以绘制自己的鼠标。
如果用鼠标玩游戏的话，基本上鼠标都是一直在移动的，如果把鼠标和其它图像一起绘制的话，可能会很觉得鼠标的移动是一顿一顿的感觉，所以我选择使用多线程。在这里我没有用Delphi的TThread类，而是选择了windowsAPI的CreateThread函数。
在代码中，我们首先要隐藏SDL自带的鼠标，调用SDL_showcursor(0); 然后用CreateThread新建一个线程。如下：

procedure newthread;
var
CThread: Thandle;//声明一个句柄
Tid:DWord;
begin
SDL_showcursor(0);
CThread := CreateThread(nil,0,@drawmouse,nil,0,Tid);
end;

复制代码

在CreateThread的参数中，第三个就是线程函数的指针。

在代码开头，新定义了一个var: Buffer:PSDL_surface; 作为一个缓冲。
初始化Screen之后，也需要对Buffer设置一下，调用
Buffer := SDL_CreateRGBSurface(SDL_HWSURFACE, Screen.w, Screen.h, Screen.format.BitsPerPixel, Screen.format.RMask, Screen.format.GMask, Screen.format.BMask, Screen.format.AMask);

说一下这两个PSDL_Surface的作用，我设想的是，把原来代码里面所有绘图函数中的Screen替换为Buffer，也就是说先把图像绘制到Buffer上，然后在绘制鼠标的线程函数中调用SDL_BlitSurface(Buffer, nil, Screen, @dest);把Buffer绘制到Screen中,这样屏幕上就不会残留上次画的鼠标图像了。

下面说说线程函数 Drawmouse。直接看看我的代码。

procedure drawmouse;
var
image: PSDL_surface;
dest: TSDL_rect;
x, y: word;
begin
image := IMG_Load('resource\mouse.png');
while (true) do
begin
if ethread then
break;
dest.x := 0;
dest.y := 0;
dest.w := Screen.w;
dest.h := Screen.h;
SDL_BlitSurface(Buffer, nil, Screen, @dest);
if (event.motion.x > 0) and (event.motion.y > 0) and (event.motion.x <Screen.w) and (event.motion.y < Screen.h) then
begin
x := event.motion.x;
y := event.motion.y;
end;
dest.x := x;
dest.y := y;
SDL_updaterect(Screen, 0, 0, Screen.w, Screen.h)
end;
end;

复制代码

我的鼠标图片是resource\mouse.png，在函数开头读取到image。
接下来的代码是while循环画鼠标。
然后是我定义的一个全局变量eThread（布尔型），因为我尝试在退出时调用EndThread函数似乎有些错误，只好是通过改变这个变量来控制线程的结束，在游戏开始时把他设置为false，退出时是TRUE。
接下来的代码很简单了，就是分别把游戏图像和鼠标图像先后拷贝到Screen上。

但是现在并不是很完美，游戏中，我们会看到明显的闪烁现象。先解释一下出现闪烁的原因，因为绘制鼠标的线程函数用了While循环，每次绘制较快，而很可能在某次绘制中，主线程也在绘制地图，但是主线程绘制的东西较多，速度较慢，很可能只绘制到地面层，而没有建筑层。等到下次绘制鼠标时，主线程已经绘制完了建筑层，这时候，几次绘制中间因为SDL_updaterect了一次地面层的图像，所以会出现闪烁现象。
对于这个问题，我原先设想的是在所有复刻绘图代码中加入以下代码：
if (SDL_MustLock(screen)) then
begin
SDL_LockSurface(screen);
end;

if (SDL_MustLock(screen)) then
begin
SDL_UnlockSurface(screen);
end;

但是后来发现似乎锁定只能防止其他线程修改，并不能防止拷贝，所以，再定义一个全局变量screenchanged（Boolean型）。当绘图开始时赋值false，结束后赋值true。而我又定义了一个Buffer2作为第二缓冲。

修改后的代码如下：

procedure drawmouse;
var
image: PSDL_surface;
dest: TSDL_rect;
now, next: Uint32;
x, y: word;
begin
image := IMG_Load('resource\mouse.png');
while (true) do
begin
if ethread then
break;
dest.x := 0;
dest.y := 0;
dest.w := Buffer.w;
dest.h := Buffer.h;
if (screenchanged) then
SDL_BlitSurface(Buffer, nil, Buffer2, @dest); //在Buffer不在绘制的时候,把Buffer拷贝到Buffer2.
SDL_BlitSurface(Buffer2, nil, Screen, @dest); //把Buffer2拷贝到屏幕
if (event.button.x > 0) and (event.button.y > 0) and (event.button.x <Screen.w) and (event.button.y < Screen.h) then
begin
x := event.button.x;
y := event.button.y;
end;
dest.x := x;
dest.y := y;
SDL_BlitSurface(image, nil, Screen, @dest);
//drawheadpic(0, event.motion.x, event.motion.y);
SDL_updaterect(Screen, 0, 0, Screen.w, Screen.h);
end;
end;

复制代码

这时候会发现，闪烁已经消失了。

对这段代码简单的修改，也可以实现动态鼠标效果。

因为需要修改的代码很多，作者本人也未全部修改完成，不知道是否存在未知的bug。

附件是一个简单的效果图。

[发帖际遇]: 真正的强强在海边沙滩上捡到一支圣火令，当废铜卖了，获得银两2。

[ 本帖最后由真正的强强于 2010-2-16 18:37 编辑 ]

账号		自动登录	找回密码
密码			我要成为铁血侠客

[其他] 达摩堂迎新春活动——“大家都是伸手党”

马上注册，结交更多侠友！

评分

评分

战斗地图使用当前场景地图

评分

将smp的贴图复制到wmp

本帖子中包含更多资源

评分

评分

评分

评分

本帖子中包含更多资源

评分

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

评分

评分

评分

评分

绘制自己的鼠标

本帖子中包含更多资源

评分