实用系统修改——完美商店（最终完美版）

winson7891

既然给了精华，我不做好点也说不过去啊~呵呵~

最终完美版，支持增减物品，全面支持滑鼠操作
简化了菜单结构和减少了一些没有必要的操作

操作——
翻页：左右键，或滑鼠点击左上角页码，左键前进，右键后退
选择商品：上下键，或滑鼠移动
下面的确认选单（重置，确定，离开）：在最后一个商品栏上再按下键，或滑鼠移动
增减物品：增，回车，空格或滑鼠左键；减，esc键或滑鼠右键

附件图片更新了，更加整洁~



————————————————————————

商店强化，人性化设计，显示商品存货和自身持有数，买卖前不在需要在物品栏里乱翻一通了

支持翻页，复数选择物品，金额估算等功能，

在某样物品清货后，其他物品会自动调整位置，不会一页是3样商品，另一页却是2样，同时页码自动调整，相当整洁

理论上可以在一个商店内支持无限量的物品，对金钱的把握也更加方便，不会因为手抖买错东西

让我们告别那随机来随机去的该死商店和那找来找去找不着的韦小宝吧！！！

那为什么说是“近乎完美”呢？

因为商店只支持购买，不能贩卖~呵呵~

没办法，那是因为根据游戏的需要和习惯，注定买卖的形式相差太远了，与其把买卖搞在一起，不如多做一个当铺还更合理

代码需要放在源码中event.pas下面，并且要在50指令的procedure底下新建一个新的case功能，把newshop导入进去，我是使用64号啦，因为商店的事件编号原来也是64号

其实很多新功能都可以很方便地作为新的50指令出现

要注意的是，在我的code中，是用了自定义的功能DrawRectangle_new和DrawTextWithRect_new代替原来的功能以达到新的背景更换，有兴趣的朋友不要忘了把这两个功能改过来，要不然会出错

为免麻烦和混乱，代码在2楼

[发帖际遇]: winson7891抢了钟灵给段誉的绣花鞋，被钟灵见到放闪电貂追杀,掉了银两33.

[ 本帖最后由 winson7891 于 2009-5-1 23:10 编辑 ]

winson7891

procedure newshop(begin_num, page_num: integer);
type
TNewShop = record
    case TCallType of
      Element:
      (Item, Amount, Seclectamount, Price, index1, index2: Smallint);
      Address:
      (Data: array[0..5] of Smallint);
  end;

var
  i, j, k, ifown, amount, shopnum, menu, price, ifend, page, totalprice, money, k_num: integer;
  //page页码
  own_num, word, temp: widestring;
  list: array[0..4] of integer;
  //shopitem: array[0..4] of widestring;
  buylist: array of TNewShop;
begin
  setlength(buylist, (page_num+1)*5);
  setlength(menustring, 5);
  setlength(Menuengstring, 5);
  amount := 0;
  page := 0;
  ifend := 0;
  ifown := 0;
  menu := 0;
  k := 0;
  totalprice:=0;
  for j:=0 to page_num do
  begin
    for i:=0 to 4 do
    begin
      if Rshop[begin_num+j].Amount[i] > 0 then
      begin
        buylist[k].Item := Rshop[begin_num+j].Item[i];
        buylist[k].Amount := Rshop[begin_num+j].Amount[i];
        buylist[k].Price := Rshop[begin_num+j].Price[i];
        buylist[k].Seclectamount := 0;
        buylist[k].index1 := j;
        buylist[k].index2 := i;
        totalprice := totalprice + buylist[k].Seclectamount * buylist[k].Price;
        k := k+1;
      end;
    end;
  end;     //end 2 for
  k_num:=k;
  //buylist[k].Amount := 0;
  //任选一个商店, 因未写他去其他客栈的指令       //取消此设计，由begin_num, page_num控制，在50e中是e1,e2
  //shopnum := random(5);
  //p:=0;
    instruct_1($B9E, $6F, 0);
    word := '    物品';
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2, 155, 105, colcolor(49), colcolor(47));
    word := ' 价格';
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2 + 135, 155, 45, colcolor(49), colcolor(47));
    word := ' 存货';
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2 + 200, 155, 45, colcolor(49), colcolor(47));
    word := ' 持有';
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2 + 265, 155, 45, colcolor(49), colcolor(47));
    word := ' 交易';
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2 + 330, 155, 45, colcolor(49), colcolor(47));
    newshop_showmenu2(363, CENTER_Y+115, 145, -1);
  while ifend = 0 do
  begin
    if (menu < 0) or (menu > 4) then menu:=0;
    newshop_showmenu2(363, CENTER_Y+115, 145, -1);
    //SDL_UpdateRect(screen, CENTER_X-10, CENTER_Y+109, 166, 44);
    str(page div 5 + 1, temp);
    word := ' '+temp + '/';
    str((k+4) div 5, temp);
    word := word + temp;
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2 + 400, 155, 40, colcolor(49), colcolor(47));
    for j := 0 to MAX_ITEM_AMOUNT - 1 do
    begin
    if RItemList[j].Number = MONEY_ID then
      money := RItemList[j].Amount;
    end;       //end for
    str(money, temp);
    word := ' 身上银两：' + format('%5d', [money]);
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2, CENTER_Y+115, 160, colcolor(49), colcolor(47));
    str(totalprice, temp);
    word := ' 消费估算：' + format('%5d', [totalprice]);
    DrawTextWithRect_new(@word[1], CENTER_X - 375 div 2, CENTER_Y+160, 160, colcolor(49), colcolor(47));

    for i:=page to k-1 do
    begin
      if buylist[i].Amount > 0 then
      begin
        for j := 0 to MAX_ITEM_AMOUNT - 1 do
        begin
          if RItemList[j].Number = buylist[i].Item then
          begin
            own_num := format('%6d', [RItemList[j].Amount]);
            ifown := 1;
            break;
          end;          //end if
        end;       //end for

        if ifown = 1 then
        begin
          menustring[amount] := Big5toUnicode(@Ritem[buylist[i].Item].Name);
          menuengstring[amount] := format('%10d', [buylist[i].Price])+
                              format('%7d', [buylist[i].Amount])+
                              own_num+
                              format('%6d', [buylist[i].Seclectamount]);
        end
        else
        begin
          menustring[amount] := Big5toUnicode(@Ritem[buylist[i].Item].Name);
          menuengstring[amount] := format('%10d', [buylist[i].Price])+
                              format('%7d', [buylist[i].Amount])+
                              format('%6d', [0])+
                              format('%6d', [buylist[i].Seclectamount]);
        end;
        ifown := 0;
        list[amount] := i;
        amount := amount + 1;
        if amount >= 5 then
          break;
      end;    //end if
    end;    //end for

    menu := newshop_menu(CENTER_X - 375 div 2, 200, 375, amount - 1, menu);
    if (menu >= 0)  and (menu < 5) then
    begin
      //menu := list[menu];
      price := buylist[list[menu]].Price;
      if (instruct_31(price, 1, 0) = 1) and (totalprice + buylist[list[menu]].Price < money) then
      begin
        buylist[list[menu]].Seclectamount := buylist[list[menu]].Seclectamount+1;
        if buylist[list[menu]].Seclectamount > buylist[list[menu]].amount then
           buylist[list[menu]].Seclectamount := buylist[list[menu]].amount
        else
          totalprice := totalprice + buylist[list[menu]].Price;
      end;      //end if price
    end        //end if menu
    else
    begin
      if menu < 100 then
      begin
        case menu of
          6:
          begin
            for j:=0 to k-1 do
            begin
              buylist[j].Seclectamount :=0;
            end;
            totalprice := 0;
          end;
          7:
          begin
            for j:=0 to k-1 do          //交易，计算金额
            begin
              if buylist[j].Seclectamount > 0 then
              begin
                instruct_32(Rshop[buylist[j].index1].Item[buylist[j].index2], buylist[j].Seclectamount);
                instruct_32(MONEY_ID, -(buylist[j].Price*buylist[j].Seclectamount));
                Rshop[buylist[j].index1].Amount[buylist[j].index2] := Rshop[buylist[j].index1].Amount[buylist[j].index2] - buylist[j].Seclectamount;
                buylist[j].Amount := buylist[j].Amount-buylist[j].Seclectamount;
                buylist[j].Seclectamount :=0;             //重置交易数额
              end;  //end if seclectamount
            end;  //end for

            for j:=0 to k-1 do                //处理存货为0商品，方便翻页控制
            begin
              if buylist[j].Amount = 0 then
              begin
                for i:=j to k-2 do
                begin
                    buylist[i].Item := buylist[i+1].Item;
                    buylist[i].Amount := buylist[i+1].Amount;
                    buylist[i].Price := buylist[i+1].Price;
                    buylist[i].Seclectamount := buylist[i+1].Seclectamount;
                    buylist[i].index1 := buylist[i+1].index1;
                    buylist[i].index2 := buylist[i+1].index2;
                end;    //end for
                k := k-1;         //减少商品种类计数
              end;    //end if
            end;   //end for
            totalprice := 0;
            page:=0;
          end;
          8:
          begin
            ifend := 1;
          end;
          9:
          begin
            if page <= k-6 then
            begin
              page := page+5;
            end;
          end;
          10:
          begin
            if page >= 5 then
            begin
              page := page-5;
            end;
          end;
        end;  // end case
      end  // end if
      else
      begin
        menu := menu - 100;
        if (buylist[list[menu]].Seclectamount > 0) then
        begin
          buylist[list[menu]].Seclectamount := buylist[list[menu]].Seclectamount-1;
          totalprice := totalprice - buylist[list[menu]].Price;
        end;      //end if price
      end;
    end;  //end else
  amount:=0;
  end;      //end while ifend

end;




function newshop_menu(x, y, w, max, menu: integer): integer;
var
  menup, index: integer;
begin
  index := -1;
  //menu := 0;
  //SDL_EnableKeyRepeat(0,10);
  //DrawMMap;
  newshop_showmenu(x, y, w, max, menu);
  //SDL_UpdateRect(screen, x-10, y-11, w + 21, 132);
  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_KEYUP:
        begin
          if (event.key.keysym.sym = sdlk_right) then
          begin
            if index >= 0 then
            begin
              index := index+1;
              if index > 2 then
                index := 2;
              newshop_showmenu2(363, CENTER_Y+115, 145, index);
            end
            else
            begin
              result := 9;
              break;
            end;
          end;
          if (event.key.keysym.sym = sdlk_left) then
          begin
            if index >= 0 then
            begin
              index := index-1;
              if index < 0 then
                index := 0;
              newshop_showmenu2(363, CENTER_Y+115, 145, index);
            end
            else
            begin
              result := 10;
              break;
            end;
          end;
          if (event.key.keysym.sym = sdlk_down) then
          begin
            menu := menu + 1;
            if menu > max then
            begin
              menu := 6;
              index := 0;
              newshop_showmenu2(363, CENTER_Y+115, 145, index);
            end;
            newshop_showmenu(x, y, w, max, menu);
          end;
          if (event.key.keysym.sym = sdlk_up) then
          begin
            if index >= 0 then
            begin
              index := -1;
              menu := max;
              newshop_showmenu2(363, CENTER_Y+115, 145, index);
              newshop_showmenu(x, y, w, max, menu);
            end
            else
            begin
              menu := menu - 1;
              if menu < 0 then
                menu := 0;
              newshop_showmenu(x, y, w, max, menu);
            end;
          end;
          if ((event.key.keysym.sym = sdlk_escape)) and (where <= 2) then
          begin
            if index < 0 then
            begin
              result := menu+100;
              break;
            end;
          end;
          if (event.key.keysym.sym = sdlk_return) or (event.key.keysym.sym = sdlk_space) then
          begin
            if index >= 0 then
            begin
              result := 6+index;
              break;
            end
            else
            begin
              result := menu;
              SDL_UpdateRect(screen, x-10, y-11, w + 21, 132);
              break;
            end;
          end;
        end;
      SDL_MOUSEBUTTONUP:
        begin
          if (event.button.button = sdl_button_right) and (where <= 2) then
          begin
            if (event.button.x >= CENTER_X - 375 div 2 + 400) and (event.button.x < CENTER_X - 375 div 2 + 440) and (event.button.y >= 155) and (event.button.y < 155 + 23) then
            begin
              result := 10;
              break;
            end
            else
            begin
              if index < 0 then
              begin
                result := menu+100;
                break;
              end;
            end;
          end;
          if (event.button.button = sdl_button_left) then
          begin
            if (event.button.x >= CENTER_X - 375 div 2 + 400) and (event.button.x < CENTER_X - 375 div 2 + 440) and (event.button.y >= 155) and (event.button.y < 155 + 23) then
            begin
              result := 9;
              break;
            end
            else
            begin
              if index < 0 then
              begin
                result := menu;
                SDL_UpdateRect(screen, x-10, y-11, w + 21, 132);
                break;
              end
              else
              begin
                result := 6+index;
                break;
              end;      //end else
            end;     //end else
          end;
        end;
      SDL_MOUSEMOTION:
        begin
          if (event.button.x >= x) and (event.button.x < x + w) and (event.button.y > y) and (event.button.y < y + max * 22 + 29) then
          begin
            menup := menu;
            index := -1;
            newshop_showmenu2(363, CENTER_Y+115, 145, index);
            menu := (event.button.y - y - 2) div 22;
            if menu > max then
              menu := max;
            if menu < 0 then
              menu := 0;
            if menup <> menu then
              newshop_showmenu(x, y, w, max, menu);
          end
          else
          begin
            if (event.button.x >= 363) and (event.button.x < 363+145) and (event.button.y > CENTER_Y+115) and (event.button.y < CENTER_Y+115 + 29) then
            begin
              menup := index;
              menu := -1;
              newshop_showmenu(x, y, w, max, menu);
              index := (event.button.x - 363 - 2) div 50;
              if index > 2 then
                index := 2;
              if index < 0 then
                index := 0;
              if menup <> index then
                newshop_showmenu2(363, CENTER_Y+115, 145, index);
            end
            else
            begin
              menu := -1;
              index := -1;
              newshop_showmenu(x, y, w, max, menu);
              newshop_showmenu2(363, CENTER_Y+115, 145, index);
            end;    //end else
          end;     //end else
        end;
    end;
  end;
  //清空键盘键和鼠标键值, 避免影响其余部分
  event.key.keysym.sym := 0;
  event.button.button := 0;

end;


procedure newshop_showmenu(x, y, w, max, menu: integer);
var
  i, j, p: integer;
begin
  DrawRectangle_new(x, y, w, 4);
  if length(Menuengstring) > 0 then
    p := 1
  else
    p := 0;
  for i := 0 to max do
    if i = menu then
    begin
      drawshadowtext(@menustring[i][1], x - 17, y + 2 + 22 * i, colcolor($66), colcolor($64));
      if p = 1 then
        drawengshadowtext(@menuengstring[i][1], x + 73, y + 2 + 22 * i, colcolor($66), colcolor($64));
    end
    else
    begin
      drawshadowtext(@menustring[i][1], x - 17, y + 2 + 22 * i, colcolor($7), colcolor($5));
      if p = 1 then
        drawengshadowtext(@menuengstring[i][1], x + 73, y + 2 + 22 * i, colcolor($7), colcolor($5));
    end;
    SDL_UpdateRect(screen, x-10, y-11, w + 21, 132);
end;


procedure newshop_showmenu2(x, y, w, index: integer);
var
  i, j, p: integer;
  word: array[0..2] of widestring;
begin
  word[0]:=' 重置';
  word[1]:=' 确定';
  word[2]:=' 离开';
  DrawRectangle_new(x, y, w, 0);
  for i := 0 to 2 do
    if i = index then
    begin
      drawshadowtext(@word[i][1], x - 17 + i * 50, y + 2, colcolor($66), colcolor($64));
    end
    else
    begin
      drawshadowtext(@word[i][1], x - 17 + i * 50, y + 2, colcolor($7), colcolor($5));
    end;
    SDL_UpdateRect(screen, x-10, y-11, w + 21, 44);
end;

[[i] 本帖最后由 winson7891 于 2009-5-1 23:04 编辑 [/i]]

孤独成神

太牛了  对强人偶只能膜拜了  顶你

SubMarine

虽然大部分代码看不懂，不过还是认真看了一遍。
字体背景够华丽

[发帖际遇]: SubMarine跑去泰国取经，回来后出版《葵花宝典--2008奥运免自宫限量特别珍藏版》，获利银两10.

diablo2x

大致看了一下
只能說樓主實在強大(汗)

[发帖际遇]: diablo2x扮成吴天德，骗得银两5。

59205021

真是不可思議!
太強大了

[发帖际遇]: 59205021无意中获得赵敏的木制倚天剑，卖给摆地摊的，获利银两1.

jy03120338

不知道LZ能不能改战斗，有时候我们想看对方的血还有内力，只能看这么个一瞬间，特别是群芳这种加强版，加快了速度更加看不见............

[发帖际遇]: jy03120338买通太监进宫旅游,花费银两26.

凶神恶煞

很好，不过如果一下子选1000个物品会不会造成金钱溢出？

[发帖际遇]: 凶神恶煞帮张无忌翻译小昭写的情书，得到辛苦费银两19.

winson7891

楼上，要是预算高于金钱的话，就不能继续选择了

同样地，选择数高于存货也是不可能的，已经设置好的了~

所以说，近乎完美~

真正的强强

代码真长，其中有几句带SDL我看着有些发蒙…就知道有个是清屏的…
我有几个问题。用手机上网，没法复制代码到我电脑上，所以还没试。选择商品的菜单和选择确定重置离开的菜单怎么切换？选好商品后按ESC或者鼠标右键，然后切换吗？还有，如果我想买99个某物品，结果按多了多选了几个，能不能减掉？还是只能重置？还有我对你的那个背景也挺感兴趣。背景边框的长度是怎么画的？用的清屏把多余的部分清掉吗？

[发帖际遇]: 真正的强强抢了钟灵给段誉的绣花鞋，卖了有银两1。

3281886

这个真的太神了，如果能应用到新的MOD中那就好了，比如新版群芳谱。

winson7891

原帖由 真正的强强 于 2009-4-29 13:14 发表
代码真长，其中有几句带SDL我看着有些发蒙…就知道有个是清屏的…
我有几个问题。用手机上网，没法复制代码到我电脑上，所以还没试。选择商品的菜单和选择确定重置离开的菜单怎么切换？选好商品后按ESC或者鼠标右键 ...

菜单切换其实就是你看到最直观的操作方式,在最后一行商品再按下,就到择确定重置离开的菜单,然后可以按左右控制,要回到商品菜单吗?按上呗

顺带一提, 商品菜单中左右翻页

减少物品用重置........哈哈,对啊,应该加个减少物品的指令,回去改改~又更加完美了~

至于背景,的确是用清屏控制边际的,我写的那个背景替换的功能可以很轻易地把一定规格的背景在游戏中更换哦~嘿嘿~~

winson7891

震精~

竟然精华了~还是精华2~~

風清揚

很完美，LZ去做技術支援會很好

修利哲

完美商店
偷竊
強化戰鬥系統

希望能在 新版mod見到樓主的 創意  

winson7891

又搞了好一阵子，最终完美版放出了，这次真的完美了吧~~

好了，现在开始，战斗系统的修改和强化要开始做了

jszq

真牛比，佩服楼主

abbacada

小弟什么都不会 就只能给你们加油了

huawujie

强大的存在。。。让人仰望啊

zzh921992

偶像，楼主实在是太强大了。

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

nukhuang

高手，既华丽又实用的好东西！！

huishai

很好，很强大，可我还是不会用。

[发帖际遇]: huishai在丽春院喝酒,发掘了人才韦小宝,增加声望46.

苍天有悔

终于找到一牛人了，正在学习研究中，有不懂的地方的话，楼主我邮件你，你一定给我讲讲啊

唉..最后一只々

确实很完美啊............顶一个

1981423

太好了。。那是不是每次买药还是只能买一个？