API tools faq
paste
Advertisement
yeongJIN_COOL

prgmAR02: MENU ROUTINE

yeongJIN_COOL
Jan 18th, 2012
76
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.24 KB | None | 0 0
raw download clone embed print report
  1. :.0:
  2. :.MD
  3. :1→U'
  4. :Repeat getKey=48
  5. :ClrDraw
  6. :Line(0,0,64,96,3
  7. :Text(3,17,"STATUS
  8. :Text(10,17,"ORBS
  9. :Text(17,17,"CONFIG
  10. :Text(24,17,"SAVE
  11. :Line(64,0,64,32,3
  12. :Text(57,1,R'
  13. :Line(0,55,9,65,3
  14. :(θ+68
  15. :If {θ+12
  16. :Pt-Off(0,S+16,4,2+Ans*2,1,8
  17. :(θ+69
  18. :If {θ+25
  19. :Pt-Off(0,S+48,20,2+AQns*2,1,8
  20. :(θ+70
  21. :If {θ+38
  22. :Pt-Off(0,S+80,36,2+Ans*2,1,8
  23. :If {θ+12
  24. :Then
  25. :Text(4,4,"LEKENS LV
  26. :Text('°(θ
  27. :{θ+1
  28. :-{θ+3 →I
  29. :Text('10,4,I
  30. :Text(°"/
  31. :Text('°{θ+1
  32. :End
  33. :If {θ+12\\25
  34. :Then
  35. :Text(20,4,"ZANIK LV
  36. :Text('°(θ+13
  37. :{θ+14
  38. :-{θ+16 →I
  39. :Text('26,4,I
  40. :Text(°"/
  41. :Text('°{θ+14
  42. :End
  43. :If {θ+128
  44. :Then
  45. :Text(36,4,"NOMESI LV
  46. :Text('°(θ+26
  47. :{θ+27
  48. :-{θ+29 →I
  49. :Text('42,4,I
  50. :Text(°"/
  51. :Text('°{θ+27
  52. :End
  53. :Line(65,U',8,30,2
  54. :DispGraph
  55. :U'
  56. :+7*getKey=1
  57. :-7*getKey=4
  58. :If >22
  59. :U'
  60. :→U'
  61. :If U'=1 *getKey=54
  62. :Goto Lbl "M12
  63. :If U'=8 *getKey=54
  64. :Goto Lbl "M10
  65. :If U'=15 *getKey=54
  66. :Goto Lbl "M11
  67. :If U'=22 *getKey=54
  68. :Goto Lbl "M19
  69. :End
  70. :Goto Z'
  71. :
  72. :.M19 //PROBABLY PROBLEM IN THIS ROUTINE
  73. :0→U'
  74. :Repeat getKey=15
  75. :ClrDraw
  76. :Line(0,0,64,96,3
  77. :Line(0,0,24,96,3
  78. :solve(0,"UROL3Sav1","V^-1 →A
  79. :If θ'≠100
  80. :Text(4,2,"NEW GAME
  81. :If θ'=100
  82. :Then
  83. :Text(4,2,"LEKENS LV
  84. :Text('°(A
  85. :Text(11,2,"G:
  86. :Text('°{A+51
  87. :If {A+53 <100
  88. :Text('°0
  89. :If {A+53 <10
  90. :Text('°0
  91. :Text('°{A+53
  92. :End
  93. :DelVar "V^-1
  94. :solve(0,"UROL3Sav2","V^-1→A
  95. :If θ'≠100
  96. :Text(27,2,"NEW GAME
  97. :If θ'=100
  98. :Then
  99. :Text('°(A
  100. :Text(38,2,"G:
  101. :Text('°{A+51
  102. :If {A+53 <100
  103. :Text('°0
  104. :If {A+53 <10
  105. :Text('°0
  106. :Text('°{A+53
  107. :End
  108. :DelVar "V^-1
  109. :
  110. :Line(0,0,47,96,3
  111. :Line(2,2+U'*23,20,92,3
  112. :Text(49,1,"2ND: SAVE
  113. :Text(56,1,"PRESS(CLEAR)TO GO BACK
  114. :DispGraph
  115. :U'+getKey=1
  116. :-getKey=4
  117. :If >1
  118. :U'
  119. :→U'
  120. :If !U'
  121. :Then
  122. :UnArchive "UROL3Sav1
  123. :DelVar "UROL3Sav1
  124. :solve(0,"UROL3Data","UROL3Sav1
  125. :Archive "UROL3Sav1
  126. :End
  127. :If U'
  128. :Then
  129. :UnArchive "UROL3Sav2
  130. :DelVar "UROL3Sav2
  131. :solve(0,"UROL3Data","UROL3Sav2
  132. :Archive "UROL3Sav2
  133. :End
  134. :End
  135. :Goto Lbl "MD
  136. :
  137. :.M13
  138. :0→U'
  139. :Repeat getKey=15
  140. :ClrDraw
  141. :Line(0,0,64,96,3
  142. :Line(0,0,36,96,3
  143. :Text(56,1,"PRESS(CLEAR)TO GO BACK
  144. :Text(50,1,"MODE: LIST VIEW
  145. :Text(44,1,"L/R: SEE ORBS
  146. :U'≥5→B'
  147. :B'*U'≤8→B'
  148. :If B' *(θ+U'+39
  149. :Text(38,1,"2ND: USE ORB
  150. :If !U'
  151. :"PYRO→A' "INFLICT FIRE DMG→C'
  152. :If U'=1
  153. :"FREEZE→A' "ICE DMG TO ALL FOES→C'
  154. :If U'=2
  155. :"BLITZ→A' "CALL FORTH THUNDER→C'
  156. :If U'=3
  157. :"QUASAR→A' "EQ ATKS ALL ENEMY→C'
  158. :If U'=4
  159. :"PSYCHO→A' "DRAINS HP→C'
  160. :If U'=5
  161. :"VITAL→A' "HEAL A BIT OF HEALTH→C'
  162. :If U'=6
  163. :"SAINT→A' "HEAL ALL PARTY→C'
  164. :If U'=7
  165. :"LIFE→A' "REVIVE MEMBER→C'
  166. :If U'=8
  167. :"RETURN→A' "REVIVE WITH FULL HP→C'
  168. :If U'=9
  169. :"OMEGA→A' "POWERFUL MAGIC→C'
  170. :If U'=10
  171. :"OMNIMA→A' "ORIGIN OF ALL MAGIC→C'
  172. :If U'=11
  173. :"GENESYS→A' "HOLY JUDGEMENT→C'
  174. :Text(2,1,"ORBS
  175. :Text(10,1,A'
  176. :Text(°" X
  177. :Text('°(θ+39+U'
  178. :Pt-Off(0,S+16,4,60,1,8
  179. :If !B'
  180. :Pt-Off(0,S+80,4,80,1,8
  181. :
  182. :DispGraph
  183. :If getKey=55
  184. :Goto Lbl "M10
  185. :U'+getKey=3
  186. :-getKey=2
  187. :If >11
  188. :U'
  189. :→U'
  190. :
  191. :End
  192. :Goto Lbl "MD
  193. :
  194. :
  195. :.M10
  196. :Repeat getKey=15
  197. :ClrDraw
  198. :Line(0,0,64,96,3
  199. :Line(0,0,48,96,3
  200. :Text(56,1,"PRESS(CLEAR)TO GO BACK
  201. :Text(50,1,"MODE: DETAIL VIEW
  202. :Text(2,1,"PYRO X
  203. :Text('°(θ+39
  204. :Text(2,12,"FREEZE X
  205. :Text('°(θ+40
  206. :Text(8,1,"BLITZ X
  207. :Text('°(θ+41
  208. :Text(8,12,"QUASAR X
  209. :Text('°(θ+42
  210. :Text(14,1,"PSYCHO X
  211. :Text('°(θ+43
  212. :Text(14,12,"VITAL X
  213. :Text('°(θ+44
  214. :Text(20,1,"SAINT X
  215. :Text('°(θ+45
  216. :Text(20,12,"LIFE X
  217. :Text('°(θ+46
  218. :Text(26,1,"RETURN X
  219. :Text('°(θ+47
  220. :Text(26,12,"OMEGA X
  221. :Text('°(θ+48
  222. :Text(32,1,"OMNIMA X
  223. :Text('°(θ+49
  224. :Text(32,16,"GENESYSX
  225. :Text('°(θ+50
  226. :DispGraph
  227. :If getKey=55
  228. :Goto Lbl "M13
  229. :End
  230. :Goto Lbl "MD
  231. :.M11
  232. :8→U'
  233. :Repeat getKey=15
  234. :ClrDraw
  235. :Text(56,1,"PRESS(CLEAR)TO GO BACK
  236. :Line(0,0,55,96,3
  237. :Line(0,0,64,96,3
  238. :Text(U',1,">
  239. :Text(2,5,"CONFIGURATION
  240. :Text(8,2,"TEXT SPEED
  241. :Text(14,6,"<
  242. :(θ+67
  243. :→V'
  244. :If =10
  245. :Text(°"NORMAL>
  246. :If =15
  247. :Text(°" SLOW >
  248. :If =5
  249. :Text(°" FAST >
  250. :Text(22,2,"OPTION 2
  251. :DispGraph
  252. :U'+14*getKey=1
  253. :-14*getKey=4
  254. :If >22
  255. :U'
  256. :→U'
  257. :If U'=8
  258. :Then
  259. :V'-5*getKey=3
  260. :+5*getKey=2
  261. :If >15
  262. :V'
  263. :If <5
  264. :V'
  265. :→V'
  266. :int(θ+67,V'
  267. :End
  268. :End
  269. :Goto Lbl "MD
  270. :.M12
  271. :0→U'
  272. :Repeat getKey=15
  273. :ClrDraw
  274. :Text(44,1,"U/D:CHNG CHARACTER
  275. :Text(50,1,"L/R: CHNG ROW
  276. :Text(56,1,"PRESS(CLEAR)TO GO BACK
  277. :Line(0,0,64,96,3
  278. :Line(0,0,42,96,3
  279. :If !U'
  280. :Text(2,4,"LEKENS LV
  281. :If U'=1
  282. :Text(2,4,"ZANIK LV
  283. :If U'=2
  284. :Text(2,4,"NOMESI LV
  285. :Text('°(θ+13*U'
  286. :Text(8,4,"HP:
  287. :{θ+1+13*U'
  288. :-{θ+3+13*U'
  289. :Text('°Ans
  290. :Text(°"/
  291. :Text('°{θ+1+13*U'
  292. :Text(14,1,"ATK:
  293. :Text('°(θ+5+13*U'
  294. :Text(20,1,"DEF:
  295. :Text('°(θ+6+13*U'
  296. :Text(26,1,"ACC: I%
  297. :Text('26,5,(θ+7+13*U'
  298. :{θ+8+13+U'
  299. :-{θ+10+13+U'
  300. :Text('32,1,Ans
  301. :Text(°" XP UNTIL NXT LVL
  302. :G'
  303. :If !U'
  304. :16
  305. :If U'=1
  306. :48
  307. :If U'=2
  308. :80
  309. :→G'
  310. :(θ+68=U'
  311. :Pt-Off(0,S+G',4,2+2*Ans,1,8
  312. :Line(65,0,24,31,3
  313. :Text(2,17,"FIGHT
  314. :If (θ+71
  315. :Text(14,17,"ORBS
  316. :If (θ+72
  317. :Then
  318. :If !U'
  319. :Text(8,17,"STEAL
  320. :If U'=1
  321. :Text(8,17,"SPIRIT
  322. :If U'=2
  323. :Text(8,17,"SPY
  324. :End
  325. :DispGraph
  326. :(θ+U'+68→G'
  327. :G'+getKey=3
  328. :-getKey=2
  329. :If >2
  330. :G'
  331. :→G'+68+U',G'
  332. :U'+getKey=1
  333. :-getKey=4
  334. :If =3
  335. :0
  336. :If >5
  337. :2
  338. :If !(θ+12+13*
  339. :U'
  340. :→U'
  341. :End
  342. :Goto Lbl "MD
  343. :Stop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!