[Add-in]Malical Language 2.0c！！

diameter

11楼有更新
字符串运算支持
丰富的图形函数支持
语法等详细说明见此贴
http://www.cncalc.org/thread-6170-1-1.html
注！强制引用操作符“$”已经作废
附带一个demo，PGRM绝对写不出来的效果
一会上图，附带图形函数的使用方法

diameter

演示效果





贴上代码

1. 
   
2. ::main
   
3.     show_title
   
4.     show_menu
   
5. ::end
   
6. ::show_title
   
7.     box [0][0][127][63][true]
   
8.     line [0][0][127][63]
   
9.     line [127][0][0][63]
   
10.     var [title]
    
11.     title = "Malical Demo"
    
12.     box [23][8][len[title]*8+2][10+8+1][true]
    
13.     printxy[25][10][title][true]
    
14.     locate[4][6]
    
15.     print ["Press Any Key..."]
    
16.     getkey
    
17. ::end
    
18. ::show_menu
    
19.     # 30018 = UP
    
20.     # 30023 = DOWN
    
21.     # 30002 = EXIT
    
22.     # 30004 = EXE
    
23.     var [index][key][refresh]
    
24.     var [left]
    
25.     left = 36
    
26.     index = 0
    
27.     refresh = true
    
28.     box [10][10][117][54][true]
    
29.     while true
    
30.         if refresh
    
31.             refresh = false
    
32.             printxy[left][12]["Command 1"][index==0]
    
33.             printxy[left][20]["Command 2"][index==1]
    
34.             printxy[left][28]["Command 3"][index==2]
    
35.             printxy[left][36]["Command 4"][index==3]
    
36.             printxy[left][44]["Command 5"][index==4]
    
37.         end
    
38.         key = getkey
    
39.         # locate[1][1]
    
40.         # print [key]
    
41.         if key==30018
    
42.             index = index - 1
    
43.             if index<0
    
44.                 index = 4
    
45.             end
    
46.             refresh = true
    
47.         end
    
48.         if key==30023
    
49.             index = index + 1
    
50.             if index>4
    
51.                 index = 0
    
52.             end
    
53.             refresh = true
    
54.         end
    
55.         if key==30004
    
56.             allclr
    
57.             locate[1][1]
    
58.             print ["Command Index :"]
    
59.             locate[1][2]
    
60.             print [index+1]
    
61.             return nil
    
62.         end
    
63.         if key==30002
    
64.             allclr
    
65.             locate[1][1]
    
66.             print ["Exit"]
    
67.             return nil   
    
68.         end
    
69.     end
    
70. ::end
    

复制代码

diameter

IO 函数
locate [x][y] 将字符串输出的位置设定在文字坐标（x,y）处（与pgrm中的Locate定义域相同）
print [object]  在locate定义的坐标输出一个对象，若对象不是字符串将被转为字符串
gets （无参数）在locate定义的坐标输入字符串（不多于21个字符）
getkey （无参数）等待用户按下一个键并返回键代码
printxy [x][y][object][rev] 在屏幕坐标（x,y）处输出一个对象，rev是一个布尔值，当其为true的时候将反色绘制字符串

diameter

图形函数
line [x1][y1][x2][y2]绘制一条直线
box [left][top][right][bottom][sel]清除一块区域，sel是一个布尔值，当其为true的时候将用直线绘制出区域的边框
allclr （无参数）清除屏幕

diameter

没人？？！？！？！

l5h5t7

8错8错，终于有不费电的Getkey了。

diameter

怎么？？没人顶吗？？？
如果是技术方面的问题大家可以提出来我再改进啊

l5h5t7

7# diameter


计算器以计算为主，这语言好是好，计算功能还是太鸡肋。

diameter

7# diameter


计算器以计算为主，这语言好是好，计算功能还是太鸡肋。
l5h5t7 发表于 2011-6-25 18:47

字符串运算函数eval[]没有放出……改天把Malical写的3D Function power发出来

l5h5t7

9# diameter


我的建议是：先放出后修正。

diameter

小小修正
添加popupwin[n]、putdisp、eval[str]
附带例子——3D function power的Malical版
（注：函数调用的括号使用方括号"["、"]"，3DFP可以使用方向键转换视角）

NAT

好啊，怎么没人顶呢？