Hướng dẫn cho người mới làm quen với RPG Maker 2003

namff · 11/11/03

Geman không thấy tiếp tục nữa nên tôi mạn phép được tiếp tục copy bài của ông Le_Tam bên www.ttvnol.com qua đây nhé. Hix dạo này cũng thấy ổng ít có bài mới.
Sau đây là một bài về cái zdụ cheat choóc.
===========================================================
7-Cheatcode: Hey, các bạn có muốn tạo cho game của mình phần cheatcode để chơi ăn gian không ?? Nếu thích thì hãy xem bài này nhá ^^
Có rất nhiều cách để thực hiện điều này, tôi chỉ nói đến 1 cách thôi: dùng item
Cheat Codes using an item
-Trước tiên, tạo một item gọi là "Cheat system", đặt Classification là Switch, nối với Switch [xxxx:Cheat_system]. Mấy thứ còn lại thì bạn muốn đặt sao thì tuỳ bạn.
-Tạo thêm một "Common goods" item bên dưới, cung gọi là "Cheat system".
-Kế bạn tạo một common event "Cheat system", Start condition=Auto Start, Appearant Condition Switch=[xxxx:Cheat_System]
-Phần command event như sau:
Ghi nhớ lại vị trí hiện tại của Hero, dùng các variable "Cheat X," "Cheat Y" và "Cheat ID". Bạn có đoán ra điều gì kế tiếp không ? HEy, hãy teleport đến một bản đồ, tạm gọi là cheat_map. Bỏ "Cheat_System" (switch) đi, thêm vào 1 "cheat system" (common goods). Sau đó là Turn off Switch [xxxx:Cheat_System]. Nó trông như đoạn bên dưới:
<>Wait: 0.1
<>Memory Place: [xxxx][xxxx][xxxx]
<>Teleport: xxxx:CheatMap:[place](xx,xxx)
<>Add/Remove Item:Cheat System-> 1 Decr. " (switch)
<>Add/Remove Item:Cheat System-> 1 Incr. (common goods)
<>Change Switch : [xxxx:Cheat System]-OFF SET
<>
-Bây giờ, trong bản đồ cheat_map, tạo một "Auto Start" event.
Đặt cho nó một Label.
Sau đó hiện lên một câu thông báo như:"What do you wish to do?"
Kế hiện ra hay chọn lựa:
"Cheat"
"Leave"
Dưới chọn lựa "cheat" :
Tạo một Input number, 6 digits (hay bao nhiêu là tuỳ bạn), lưu giá trị trong Variable [xxxx:Cheat_code]
Bên dưới tạo FORK condition với điều kiện là: "Nếu Variable [xxxx:Cheat_code] bằng với [các con số tuỳ bạn chọn] " thì tặng thêm item hay bất kỳ thứ bạn muốn.
Bạn có thể tạo bao nhiêu cheatcode cung được chỉ cần làm bấy nhiêu lệnh FORK condition là đủ. (không có Else case nhé)
Dưới "Leave": có 2 cách
+Trở lại ví trí đã ghi nhớ, remove "Cheat system" (common gooods) và add "Cheat_System" (switch).
+Rất đơn giản, chỉ cần chuyển Switch [xxxx:Cheat_System] sang Off .

Thế là bạn đã có một hệ thống cheatcode đơn giản rồi. Bạn có thể không dùng item cung được thôi, nhưng bạn hãy tự làm đi. Làm sao người chơi biết các cheat này ư ?? Hãy tạo ra một câu đố, một sự kiện nào đó để gợi ý, rất thú vị phải không ^^

namff · 11/11/03

Một bài nữa về một hệ thống tiền đặc biệt bên cạnh hệ thống tiêng chính của bạn Le_Tam bên ttvnol. Cảm ơn bạn Le_Tam đã cố gắng.
===========================================================
8-Special Money System: Trong một vài game RPG ngoài hệ thống tiền bình thường, còn có một hệ thống tiền đặc biệt khác như GP trong FF7, MP trong Thousand Arms. "Tiền" này được dùng để mua, trao đổi các item, Materia hiếm, mà bạn không thể mua được ở các shop bằng tiền bình thường. Ưm... nếu như trong game của bạn có thêm một loại tiền đặc biệt mà bạn có thể thu thập trong cuộc du hành, phần thưởng của các mini-game thì sẽ sống động, hấp dẫn hơn ??? Bạn có đồng ý với tôi không nào, nếu không thích bạn có thể không xem bài viết bên dưới ^^
Thật ra, tạo thêm một đơn vị tiền tệ trong game cung không quá khó. Nó đơn thuần chỉ dựa trên Variable mà thôi.
Trước hết, bạn tạo một Variable để ghi nhận cho số "tiền" bạn kiếm được, tạm gọi là "Coin".
Để có thể thu thập "coin" bạn có thể tạo trong bản đồ các event mà khi Hero kiểm tra chúng (Push key hay On touch đều được), sẽ nói rằng"You gained some coins!", sau đó tăng lượng "coin" bạn có lên.
Để kiểm tra lượng "coin" bạn có thì thêm vào message như thế này "You currently have \V[#] coins!" (V[#] chính là Variable "Coin").
Và nếu muốn sử dụng thì bạn chỉ cần tạo một event đơn giản như bên dưới:
<>Messg:This is the magic shop. What interests you?
<>Show Choice: Potion (5 coins)
:[Potion (5 coins)] Case
<>FORK Optn:Varbl[####:Coin]-5abov
<>Messg:There you go, one item.
<>Add/Remove Item:Potion-> 1 incr.
<>Variable Ch:[####:coins] - , 5
<> :ELSE Case
<>Messg:Not enough coin!
<>
:END Case
<>
:CANCEL Case
<>
:END Case
<>
Rất dễ phải không ?? Nhưng về mặt ứng dụng thì "coin" có thể mang lại rất nhiều, bạn có thể dùng nó để nâng cấp vu khí, mua các item quý....

namff · 11/11/03

Một bài nữa của bạn Le_Tam bên ttvnol đây, lần này là về cái món mà chơi ff hay gặp - tent.
===========================================================
9-TENT-món đồ chỉ dùng được ở SAVE POINT
Chuẩn bị:
-Switch
[xxxx:Tent1]
[xxxx:Tent2]
-Variables
[xxxx:Save Point]
-Tạo một item như sau:
Item:TENT
Class:Switch
Use:1
ON SWITCH:[xxxx:Tent1]
-Cần có một Graphic của save point trong charset. (chỉ chiếm 1 ô thôi)
Bước 1: tạo một event cho save point
Event Start Condition-At hero touch
Priortiy Type-Common Top Char
Movement Speed-3: 1/2 faster
Movement Type-Stay Still
Graphics-Set: save point
Events Commands
<>Change Switch: [xxxx:Tent2]- ON Set
<>Play SE: Item1(your choice)
<>Flash Screen: (***,***,***,***),0.5sec(W)
<>Disable Saving: Enable
<>Call System Menu

Bước 2: tạo một COMMON EVENT gọi là "Tent"
Event Start Condition-Auto Start
Appearence Conditions Switch-[xxxx:Tent1]
Events Commands
<>Variable Op:[xxxx:Save Point] Set, Hero Map ID
<>Wait: 0.3s.
<>Fork Optn:Switch [xxxx:Tent2]-ON
<>Call Inn: LodgCost0
<>Change Switch: [xxxx:Tent2]-OFF Set
<>Goto Label: 1No
<>
:End Case
<>Add/Remove Item:Tent->1Incr.
<>Set Message Options:Norml,Bot,Fixed,Events Moves Ban
<>Play SE: Failure1 (tuỳ bạn chọn)
<>Messg:You Cannot use a tent here
<>Set Message Options:Norml,Bot,AuScrlEvents Moves Ban
<>Label: 1No
<>Change Switch: [xxxx:Tent1]-OFF Set
Bước 3: bạn tạo xung quanh save point các event giống như thế này: (gọi là gì cũng được)
Movement Type-Stay Still
Event Start Conditoion-At Hero Touch
Priority Type-Common Char Below
Movement Speed-3:1/2 faster
Events Commands
Change Switch: [xxxx:Tent2]-OFF Set
Disable Saving: Disable

Bạn có thể copy và paste event trên ra xung quanh save point trông như bên dưới:
[Ev]
[Ev][SP][Ev]
[Ev]
Bạn đã có được TENT, một item chỉ dùng được ở save point.

namff · 11/11/03

Tiếp theo đây là bài về nâng cấp vũ khí của bạn Le_Tam bên ttvnol. Hix, copy mỏi tay wá, vậy mà ổng gõ được wá trời vầy nè.
===========================================================
10-Nâng cấp vũ khí: Nếu như bạn không muốn vũ khí trong game của mình chỉ đơn giản là được mua từ các shop thì cái này sẽ rất có ích đấy. Tôi cho rằng những vũ khí mạnh không nên được tìm thấy một cách quá dễ, như thế sẽ khiến trò chơi không hấp dẫn. Hệ thống nâng cấp vũ khí của FF8 hay FF9 hợp lý hơn so với việc vũ khí được bày bán tràn lan trong các RPG khác. Nếu như bạn muốn có một hệ thống như vậy thì hãy theo dõi phần này.
Việc thực hiện một hệ thống nâng cấp vũ khí thật ra rất đơn giản, chỉ cần tạo ra một lò rèn hay bất cứ synthesize shop nào. Tạo thêm một event trong đó là được rồi. Ta có một ví dụ nhỏ sau:
<>Mssg: "Hello, what do you wish to synthesize?"
<>Show Choice: Blood Sword
:[Blood Sword]Case
<>Mssg: "You need a Long Sword and an BloodOre to make this"
<>Messg "Continue?"
<>Show Choice "Yes, No"
:[Yes]Case
<>Fork Optn: LongSwordItem Got
<>Fork Optn: BloodOreItem Got
<>Add/Remove Item: LongSword->1Decr.
<>Add/Remove Item: BloodOre->1Decr.
<>Add/Remove Item: BloodSword->1Incr.
<>Messg: "You Made A Mega Potion"
:Else Case
<>Messg "You Are Missing BloodOre To Complete Synthesis"
:End case
:Else Case
<>Messg "You Are Missing Long Sword To Complete Synthesis"
:END case
:CANCEL case
<>
:End case
<>

Rất dễ phải không ?? Bạn chỉ cần tạo ra những event tương tự là đã có một hệ thống nâng cấp vũ khí trong game của mình. Tất nhiên nếu bạn muốn nó hấp dẫn hơn cũng được. Bạn có thể làm như trong Thousand Arms, muốn nâng cấp vũ khí thì phải đi tán gái, mức độ tình cảm của cô ta càng cao thì mới có thể làm cho vũ khí của bạn mạnh hơn ^^ Bạn cũng có thể làm tương tự để có một hệ thống nâng cấp item, magic, skill....

namff · 11/11/03

Ai từng chơi Breath of Fire chắc không wên cái vụ câu cá trong game nì đâu hè. Đây là cách để bạn làm điều đó trong RM 2k3. Bài này lại là của bạn Le_Tam bên ttvnol nữa. Mí mod đừng chém em nhé, thể theo iu cầu của mọi người mè.
===========================================================
11-Fishing: trong loạt game Breath of fire có một trò chơi nhỏ khá thú vị: câu cá. Bạn cũng có thể tạo ra trong game của mình một trò câu cá như vậy.
Những điều bạn cần phải thực hiện là:
-Tạo cho mỗi loại cá là một item, cho nó là classification là common goods hay healing cũng được. Trong ví dụ bên dưới chỉ có 2 loại cá nên tôi tạo 2 item là Trout và Salmon.
-Tạo một bản đồ làm chổ câu cá, một event trong bản đồ này.
-Vài common event.
-Tạo 4 varialbe: [xxxx:Fish_chance] xác định cơ hội bạn câu được cá
[xxxx:Fish_point] ghi nhận điểm cho mỗi lần bạn câu được cá
[xxxx:FP_Set] điểm cần đạt được để nâng cấp
[xxxx:Fish_LV] ghi nhận tài câu cá của bạn, cần phải có lv cao thì mới câu được cá lớn chứ ^^
-Và tất nhiên là phải tạo một item làm cần câu rồi, gọi là "Fishing rod".
Bây giờ thì chúng ta bắt đầu công việc:
-Bạn tạo common event gọi là "Catch_Trout", Start condition=Call. Phần command như bên dưới:
<>Varible Ch:[xxxx:Fish_chance]Set, Random {1*4] (tỉ lệ câu được cá là 25%, không thấp nhỉ, bạn cũng có thể nâng có lên cũng được)
<>Fork Optn: Varbl[xxxx:Fish_Chance]-1
<>Add/Remove Item: Trout->1Incr.
<>Varible Ch:[xxxx:Fish_point]Set +, 5
<>Messg: You caught a trout!
:Else Case:
<>You failded to catch a fish!
:End Case:
<>Varible Ch:[xxxx:Fish_chance]Set, 0
-Bạn cũng tạo một common event "Catch_Salmon" tương tự cho con cá Salmon. Dĩ nhiên là phải thay đổi một chút như báo là "You caught a salmon", [xxxx:Fish_point]+10.....
-Bây giờ là tạo một event để câu cá đây. Mở bản đồ nơi bạn câu cá ra, tạo một event như sau:
+Trang 1:
Event condition: Item:[Fishing rod]Hold
Start condition: Push key
Command event: <>Call event: Catch_Trout
+Trang 2:
Event condition: Item:[Fishing rod]Hold
Variable:[xxxx:Fish_LV]
[5][above]
+Command event:
<>Varible Ch:[xxxx:Fish_chance]Set, Random {1*2]
<>Fork Optn: Varbl[xxxx:Fish_Chance]-1
<>Call event: Catch_Trout
:ELSE case
<>Call event: Catch_Salmon
:END Case
<>Varible Ch:[xxxx:Fish_chance]Set, 0
Ok, bây giờ nhân vật của bạn đã có thể câu được Trout hay salmon tuỳ theo "Fish_LV" của anh ta.
-Cuối cùng là tạo những common event về Fish level để hoàn tất trò chơi nhỏ này:
+Event 1: Fish Point Set (cái này sẽ đặt điểm FP để lên Lv)
<>Fork Optn: Varbl[xxxx:Fish_LV]-1
<>Varible Ch:[xxxx:FP_Set]Set,50
Làm tương tự cho các LV còn lại (bao nhiêu là tuỳ bạn quyết định
+Event 2: Add Level (để tặng lv khi đã đủ điểm)
<>Fork Optn: Varbl[xxxx:Fish_point]-0
<>Varible Ch:[xxxx:Fish_LV]Set,1
<>Fork Optn: Varbl[xxxx:Fish_point]-V[xxxx]bigger (V[xxxx] là variable[xxxx:FP_Set] )
<>Varible Ch:[xxxx:Fish_LV]Set+,1
. <>Varible Ch:[xxxx:FP_Set]Set,0

HEy, như vậy là bạn đã có một mini-game câu cá rồi đấy. Nếu thích câu nhiều cá hơn thì tạo nhiều item cho chúng. Đơn giản thế thôi !!!

namff · 11/11/03

Xèo, xèo... Thế nào, bạn có muốn làm đầu bếp trong game của mình không, hãy cùng trổ tài nhé! Le_Tam bên ttvnol, vâng, một lần nữa tôi lại copy bài của bạn ấy.
===========================================================
11-COOKING: Yes !! Phần này tôi sẽ nói cho các bạn cách tạo ra phần nầu nướng trong game của mình. Rất lạ phải không ^^
Nội dung:
-Bạn cần tạo hai loại item: nguyên liệu và thành phẩm, ở đây tôi dùng "Trout" làm nguyên liệu và "Cooked trout" là món được thực hiện.
-Bạn chỉ cần tạo một common event và 1 variable thôi. (rất đơn giản ^^ )
-Và bạn phải tạo một bản đồ làm nơi nấu nướng chứ, 1 event trong bản đồ này nữa.
Thực hiện:
-Trước tiên chúng ta hãy tạo một common event "Cook Trout", Start condition=Call. Phần command như bên dưới:
<>Fork Optn: Cooked troutItem Got
<>Varible Ch:[xxxx:Cook_chance]Set, Random {1*2]
<>Fork Optn: Varbl[xxxx:Cook_chance]-0
<>Messg: You cooked the trout! (Bạn có thể cho hiện lên hình của món ăn cho nó ấn tượng)
<>Add/Remove Item: Cooked trout->1Incr.
:ELSE case
<>Messg: You burnt the trout!
:END case
<>Add/Remove Item: Trout->1Decr.
<>Varible Ch:[xxxx:Cook_chance]Set, 0
:ELSE
<>Messg: You dont have a trout in your invetory
:END Case
<>
-Cuối cùng là tạo một event cooking trên bản đồ làm nơi nấu nướng:
Start condition Push Key,
Command event:
<>show choice Trout /(Và bất cứ món gì bạn muốn nấu)
:[Trout]Case:
<>Call Common Event Cook Trout
:[các món khác]
<>Call common event tương ứng.
Phần nấu nướng này làm cho RPG của bạn sinh động và thực tế hơn. Chẳng hạn như, lúc bạn câu được ca hay săn thú, bạn có thể nấu nó lên thay vì ăn sống ^^

namff · 11/11/03

Chăn nuôi, có ai muốn trở thành một chủ trang trại không? Hãy cùng bạn Le_Tam bên ttvnol thực hiện điều đó bằng công cụ RM2k3 nhé!
===========================================================
12-Breeding: Trong FF7 bạn có một nông trại Chocobo, nơi đó bạn có thể chăm sóc các con Chocobo, cho chúng ăn, gây giống để tạo ra các loại Chocobo khác nhau. Sau đây sẽ là một cách thực hiện đơn giản về việc tạo ra một mini-game breeding cho bạn. Chúng ta không nuôi Chocobo mà là ...bò. Vâng chỉ đơn giản là bò mà thôi ^^
-Đầu tiên là tạo một map để làm chỗ nuôi bò. Kích thước bao nhiêu cũng được nhưng bạn nên trang trí cho giống một cái chuồng bò một chút (có rào, có máng cỏ, có bể nước....)
-Bạn tạo hai event cho hai giống bò: con đực và con cái
+Trang 1:
Start condition: Push Key
Command:
<>Message: Breed this cow?
<>Show Choice:Yes/No
:[Yes]Case
<>Change Switch: Var[0001:FEMALE1] Switch ON (ở đây nếu là con đực thì bạn sẽ có variable là [0001:Male1] )
<>
:[No]Case
<>
:End Case
<>
+Trang 2:
Event condition: Switch:[xxxx:FEMALE1]-On (hoặc [xxxx:Male1]-on)
Graphic: eras (xoá hình con bò)
Start condition: Auto Start
Kế tạo một event trong khu vực có rào chắn:
Event condition: Switch:[xxxx:FEMALE1]-On (hoặc [xxxx:Male1]-on)
Graphic: hình con bò
Start condition: Auto Start
(event này có ý nghĩa là con bò đó đã được cho ăn)
-Tạo một event khác tương tự cho những con bò khác, tất nhiên là bạn phải thay đổi Switch cho thích hợp.
-Tạo một Parallel event để kiểm tra các switch đã được chuyển sang On hết chưa (các con bò đã được cho ăn đủ chưa)
<>Fork Optn:Switch[xxxx:FEMALE1]-On
<>FORK Optn:Switch[xxxx:Malé]-On
<>Change Switch:[xxxx:Breed]-On Set
:END case
:End case
Nếu như bạn muốn sinh ra bò con thì theo dõi phần tiếp theo, còn không thì phần trên đã đủ cho màn chăn nuôi rồi.
Có 2 cách:
a.Nếu bạn có hệ thống thời gian:
-Tạo một common event, đặt nó là Parallel Process, điều kiện là Switch:[xxxx:Breed]-On.
-Hiện một câu thông báo là: A breeding pair has a baby after 7 days
-Tạo một variable [xxxx:Breed_day] để ghi nhận số ngày.
-Trong hệ thống thời gian của bạn, khi hết một ngày thì +1 vào [xxxx:Breed_day]
-Tạo một FORK condition với điều kiện là [xxxx:Breed_day]=7 thì sẽ có một chú bò con chào đời. Chúng ta sẽ tham khảo ở phần b.
b.Nếu bạn không có hệ thống thời gian:
-Tạo thêm một sự kiện sẽ thông báo là: "Do you want to breed these two?" khi [xxxx:Breed] On. Sau đó đưa ra chọn lựa. Khi người chơi chọn Yes thì chuyển màn hình thành màu đen, chuyển hết các Switch sang Off, chuyển Switch[xxxx:baby1] sang On.
-Tạo một event với Event condition là Switch[xxxx:baby1] On. Graphic là một chú bò con. Tất nhiên là bạn phải trả màn hình lại bình thường. Bạn sẽ thấy có thêm một chú bò con vừa mới chào đời trong chuồng.
Đây chỉ là những gợi ý nho nhỏ về việc tạo một trang trại gia súc trong game của bạn. Bạn có thể tạo bất kỳ một trang trại nào cũng được cả. Nhưng mà, phần chăn nuôi này thì có liên quan gì đến RPG của bạn nhỉ ??? Hãy tưởng tượng xem, khi bạn chăm sóc một chú bò xinh xắn một cách tử tế, thì một ngày nọ nó sẽ biến thành một cô gái xinh đẹp!!! Thú vị không ^^

HEy, bạn có nhận thấy là chúng ta đã có: thời gian ngày đêm, thời tiết mưa nắng, đào bới, chăn nuôi, câu cá, nấu nướng, nâng cấp, cua gái... như vậy chỉ còn thiếu phần mùa màng, trồng trọt là bạn đã có được những thứ cơ bản của một game ....HARVEST MOON. HM cũng là một game RPG, bạn HOÀN TOÀN CÓ THỂ tạo ra một game HARVEST MOON bằng RPG Maker. Dĩ nhiên là nó không hoàn hảo như của Natsume nhưng đối với những fan HM thì đó cũng là một điều tuyệt vời. Nhưng tôi sẽ dừng vấn đề này lại ở đây, nếu bạn quan tâm đến nó thì....^^

namff · 11/11/03

Một cách kiếm tiền trong game đó là cờ bạc. Đừng lo bạn sẽ không trở thành
"bác thằng bần" đâu! Bài của bạn Le_Tam bên ttvnol dưới đây sẽ giúp bạn làm điều đó trong RM2k3
===========================================================

13-BlackJack : Đây là một mini-game khá hay nhưng cũng khá là dài.

Bạn cần khỏng 10 variable, hai common event, 1 event cho trò chơi này.
-Các variable bạn cần là:
[xxxx:Money] tiền bạn có
[xxxx:Player Card total] Số điểm bạn có
[xxxx:Money Bet] tiền bạn đặt thêm (không có trong phần practice Blackjack),
[xxxx:Card 1] điểm lá bài thứ nhất của bạn
[xxxx:Card 2] điểm lá bài thứ hai của bạn
[xxxx:X Card] điểm lá bài bạn kéo thêm
[xxxx

''s Card total] Số điểm đối thủ có
[xxxx

''s Card 1] điểm lá bài thứ nhất của đối thủ
[xxxx

''s Card 2] điểm lá bài thứ hai của đối thủ
[xxxx

''s X Card] điểm lá bài đối thủ kéo thêm

-Bây giờ bạn tạo một commont event "Casino Blackjack", Start condition=Call, phần command như bên dưới:
01)<>Variable Ch:[xxxx:Player card total]Set, 0
02)<>Select face graphic: {mặt của đối thủ}
03)<>Messg: "How much are you betting? \$Minimum Bet of 1000GP"
04)<>Varable Ch:[xxxx:Money], Set Money#
05)<>FORK Optn: Varbl[xxxx:Money] - 1000 less than
06) <>Messg: "You don''t have enough money."
07) <>GOTO Label: 6No
:ELSE CASE
08) <>Input number: 5 digits. (Money đặt lần đầu)
09) <>FORK Optn: Money bet - 999 less
10) <>Messg: "That''s less than the table limit!"
11) <>GOTO Label: 6No
:END CASE
12)<>FORK Optn: Varbl[xxxx:Money bet] - V[xxxx]less (V[xxxx] là variable[xxxx:money] )
13) <>Messg: "You haven''t got that much money!"
:ELSE CASE
14)<>Change money: [xxxx:Money bet] decrease
15)<>Messg: "Okay, let''s go."
16)<>Label: 2No
17)<>Variable Ch:[xxxx:Card 1] Set, Random {1*11]
18)<>Variable Ch:[xxxx:Card 2] Set, Random {1*11]
19)<>Variable Ch:[xxxx:Player Card Total] +, V[xxxx] (V[xxxx] là variable[xxxx:Card 1]
19)<>Variable Ch:[xxxx:Player Card Total] +, V[xxxx] (V[xxxx] là variable[xxxx:Card 2]
21)<>Messg: "You have a(n) \C[1]\V[xxxx(Card 1)]\C[0] and a(n) \C[2]\V[xxxx(Card 2)]\C[0].
: : Your total is \C[4]\V[Player Card Total]\C[0]."
22)<>FORK Optn: Varbl[xxxx:Player Card Total] - 22 (Hey, để tránh trường hợp chưa chơi đã thua ^^)
23) <>Messg: "22? Oops, Sorry. I''ll deal again."
24) <>GOTO Label: 2No
:ELSE CASE
25) <>Label: 3No
26) <>Show choice: Hit/Stand
:[Hit] Case:
27) <>Variable Ch:[xxxx:X Card]Set, Random {1*11]
28) <>Variable Ch:[xxxx:Player Card Total] +, V[xxxx] (V[xxxx] là variable[xxxx:X Card ]
29) <>Messg: "You recieved a(n) \C[3]\V[X Card]\C[0].
: :Your new total is \C[4]\V[Player Card Total]\C[0]."
30) <>FORK Optn: Varbl[xxxx:Player Card Total] - 21
31) <>GOTO Label: 4No
:END CASE
32) <>FORK Optn: Varbl[xxxx:Player Card Total] - 21 bigger
33) <>Messg: "You''ve busted! Sorry, you lose."
:ELSE CASE
34) <>GOTO Label: 3No
:END CASE
:[Stand] Case:
35) <>Label: 4No
36) <>Variable Ch:[xxxx

''s Card Total], Set 0
37) <>Variable Ch:[xxxx

''s Card 1]Set, Random {1*11]
38) <>Variable Ch:[xxxx

''s Card 2]Set, Random {1*11]
39) <>Variable Ch:[xxxx