ns变量提取第二版：Search'enALL 2

Cyvre

在缩减体积的同时增强了功能支持各种苛刻的代数式（比如带sin(等函数的，变量是weei_12_fs970_dsfhskjhlsk之类的）
程序就不发了，直接上源码，大家随便使用

1. Define checkchar(str)=
   
2. Prgm
   
3. If getType(str)≠"STR"
   
4.   string(str）→str
   
5. characters:={_,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9}
   
6. times:=1
   
7. For times,1,37,1
   
8.   inString(str,string(character[times]））→checkresult
   
9.   If checkresult≠0
   
10.     Exit
    
11. EndFor
    
12. If checkresult≠0 Then
    
13.   If 1≤times≤27 Then
    
14.     checkresult:=1
    
15.   ElseIf 28≤times≤37 Then
    
16.     checkresult:=2
    
17.   EndIf
    
18. EndIf
    
19. Delvar characters,times
    
20. EndPrgm
    
21. -----------------------------------------------------------------------------------------------
    
22. -----------------------------------------------------------------------------------------------
    
23. Define getvar(str)=
    
24. Prgm
    
25. If getType(str)≠"STR"
    
26.   string(str)→str
    
27. dim(str)→size
    
28. times0:=0
    
29. checkresult:=0
    
30. Lbl start
    
31. While checkresult≠1 and times0-1≤size
    
32.   times0:=times0+1
    
33.   checkchar(right(left(str,times0),1))
    
34. EndWhile
    
35. times1:=times0
    
36. While checkresult≠0 and times0-1≤size
    
37.   checkchar(right(left(str,times0),1))
    
38.   times0:=times0+1
    
39. EndWhile
    
40. If right(left(str,times0-1),1)="(" Then
    
41.   times0-1→times0
    
42.   Goto start
    
43. EndIf
    
44. right(left(str,times0-2),times0-times1-1）→variable
    
45. Disp variable
    
46. Delvar size,times0,times1,checkresult,variable
    
47. EndPrgm

复制代码

Cyvre

最近还打算编一个三国杀 for ns

Cichol

三国杀我做过
不过中途没耐性失败了
有些地方很烦。。
期待你能做出

imath

你也玩三国杀？
我是彻底的新手

diameter

写一个仙剑 for ns吧
我在写仙剑 for 9750

imath

for ns？
实时游戏几乎不可能

Cyvre

写一个仙剑 for ns吧
我在写仙剑 for 9750
diameter 发表于 2010-11-7 12:22

No way……

diameter

…………我就知道……