找回密码
 点一下
查看: 2914|回复: 8

多面板存储/基础操作系统~

[复制链接]
发表于 2009-10-11 17:52:47 | 显示全部楼层 |阅读模式
只是一个基础操作系统而已。
完全没有质量。
适合VJ新手练习用。
[codes=jass]
library MultiBoardDataSystem

constant function H2I takes handle h returns integer
    return h
    return 0
endfunction

//API==========================================================

struct MultiboardHash
    static integer          HashNum                 = 8190
    static integer          ConvertMBMove           = 500
    static integer          ConvertXMove            = 50//=MultiboardMaxCol
    MultiboardHash          head
    MultiboardHash          before
    MultiboardHash          next
    integer                 key
    integer                 value
   
    static method Hash takes integer key returns integer
   
    static method create takes integer key, integer value returns MultiboardHash
   
    static method Get takes integer key returns MultiboardHash
   
    method Delete takes nothing returns nothing
   
    static method ConvertKey takes MultiBoard MB, integer x, integer y returns integer
   
endstruct


//Row,x行
//Col,y竖
//****
//****
//***&(3,4)(x=2,y=3)
struct MultiboardItem
    static real             InitWidth               = 0.03
    multiboarditem          MBI
    MultiboardHash          Hash
    MultiBoard              MB
    integer                 x
    integer                 y
    boolean                 showValue
    boolean                 showIcon
    string                  Value
    string                  Icon
    integer                 red
    integer                 green
    integer                 blue
    integer                 alpha
    real                    width

    method SetStyle takes boolean showValue, boolean showIcon returns nothing
   
    method SetValue takes string value returns nothing
   
    method SetIcon takes string icon returns nothing
   
    method SetValueColor takes integer red, integer green, integer blue, integer alpha returns nothing
   
    method SetWidth takes real width returns nothing
   
    static method create takes MultiBoard MB, integer x, integer y returns MultiboardItem
   
    static method Get takes MultiBoard MB, integer x, integer y returns MultiboardItem

    method Delete takes nothing returns nothing
   
    method Clear takes nothing returns nothing
   
    method Init takes nothing returns nothing
   
    method Swap takes MultiboardItem other returns nothing
   
    method CopyTo takes MultiboardItem other returns nothing
   
endstruct

struct MultiBoard
    multiboard              MB
    MultiboardHash          This
    integer                 row
    integer                 col
    boolean                 show
    boolean                 mini
    string                  title
    integer                 red
    integer                 green
    integer                 blue
    integer                 alpha
   
    static method ConvertKey takes multiboard mb returns integer
   
    method Link takes nothing returns nothing
   
    static method create takes multiboard mb, integer row, integer col returns MultiBoard
   
    method Delete takes nothing returns nothing
   
    static method Get takes multiboard mb returns MultiBoard
   
    method Show takes boolean show returns nothing
   
    method Mini takes boolean mini returns nothing
   
    method SetTitle takes string title returns nothing
   
    method SetColor takes integer red, integer green, integer blue, integer alpha returns nothing
   
    method SetRow takes integer row returns nothing
   
    method SetCol takes integer col returns nothing
   
    method Clear takes nothing returns nothing
   
    method Init takes nothing returns nothing
   
    method Swap takes MultiBoard other returns nothing
   
    method CopyTo takes MultiBoard other returns nothing
   
    method SetAllItemsData takes boolean showValue, boolean showIcon, string value, string icon, integer red, integer green, integer blue, integer alpha, real width returns nothing

    method SetAllStyle takes boolean showValue, boolean showIcon returns nothing

    method SetAllValue takes string value returns nothing

    method SetAllIcon takes string icon returns nothing
   
    method SetAllColor takes integer red, integer green, integer blue, integer alpha returns nothing

    method SetAllWidth takes real width returns nothing
   
endstruct

struct MultiboardRect
    MultiBoard              MB
    integer                 x
    integer                 y
    integer                 row
    integer                 col
    MultiboardRect          next
   
    static method create takes MultiBoard MB, integer x, integer y, integer row, integer col returns MultiboardRect
   
    method Swap takes MultiboardRect other returns nothing
   
    method Clear takes nothing returns nothing
   
    method Init takes nothing returns nothing
   
    method CopyTo takes MultiboardRect other returns nothing

    method SetAllItemsData takes boolean showValue, boolean showIcon, string value, string icon, integer red, integer green, integer blue, integer alpha, real width returns nothing

    method SetAllStyle takes boolean showValue, boolean showIcon returns nothing

    method SetAllValue takes string value returns nothing

    method SetAllIcon takes string icon returns nothing
   
    method SetAllColor takes integer red, integer green, integer blue, integer alpha returns nothing

    method SetAllWidth takes real width returns nothing
   
endstruct

endlibrary[/codes]

评分

参与人数 1威望 +3 收起 理由
kook + 3 没法看了

查看全部评分

 楼主| 发表于 2009-10-11 17:58:45 | 显示全部楼层
地图和代码。

Test.w3m

60 KB, 下载次数: 82

System.txt

24 KB, 下载次数: 45

回复

使用道具 举报

发表于 2009-10-11 19:19:41 | 显示全部楼层
vj真悲剧……
回复

使用道具 举报

发表于 2009-10-11 19:30:32 | 显示全部楼层
cctt.jpg

非常杯具
回复

使用道具 举报

发表于 2009-10-11 22:03:22 | 显示全部楼层
我一个都看不懂, 悲剧.
回复

使用道具 举报

发表于 2009-10-11 23:01:09 | 显示全部楼层
我只看到了开头用到return bug。。。
接着,后面对于刚入门J的我来说就迷茫了
回复

使用道具 举报

发表于 2009-10-11 23:22:53 | 显示全部楼层
换成1.24后所有vj都是悲剧,因为咱没支持1.24的pjass……
回复

使用道具 举报

发表于 2009-10-12 08:25:26 | 显示全部楼层
引用第3楼eff于2009-10-11 19:30发表的  :
非常杯具
??
回复

使用道具 举报

发表于 2009-10-12 10:18:14 | 显示全部楼层
你永远不能战胜一个纯傻逼
因为他会把你的智商拉到和他一个水平上
然后用丰富的经验打败你

这个签名我很喜欢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 点一下

本版积分规则

Archiver|移动端|小黑屋|地精研究院

GMT+8, 2024-5-6 07:24 , Processed in 0.172583 second(s), 25 queries .

Powered by Discuz! X3.5

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表