Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Solipon2 051.SOL,NONE,1.1 052.SOL,NONE,1.1 053.SOL,NONE,1.1 054.SOL,NONE,1.1 055.SOL,NONE,1.1 056.SOL,NONE,1.1 057.SOL,NONE,1.1 058.SOL,NONE,1.1 059.SOL,NONE,1.1 060.SOL,NONE,1.1 061.SOL,NONE,1.1 062.SOL,NONE,1.1 063.SOL,NONE,1.1 064.SOL,NONE,1.1 065.SOL,NONE,1.1 066.SOL,NONE,1.1 067.SOL,NONE,1.1 068.SOL,NONE,1.1 069.SOL,NONE,1.1 070.SOL,NONE,1.1 071.SOL,NONE,1.1 072.SOL,NONE,1.1 073.SOL,NONE,1.1 074.SOL,NONE,1.1 081.SOL,NONE,1.1 083.SOL,NONE,1.1 107.SOL,NONE,1.1 Applause7.wav,NONE,1.1 Av7.wav,NONE,1.1 BLEEP7.wav,NONE,1.1 L101.SOL,NONE,1.1 L121.SOL,NONE,1.1 L164.SOL,NONE,1.1 L49.SOL,NONE,1.1 L97.SOL,NONE,1.1 SOLIDIAL.F,NONE,1.1 SOLIPION.F,NONE,1.1 Solipion.bmp,NONE,1.1 YAHOO.WAV,NONE,1.1 ep7.wav,NONE,1.1 readme.txt,NONE,1.1 solipion.dat,NONE,1.1
Update of /cvsroot/win32forth/win32forth/apps/Solipon2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv732/win32forth/apps/Solipon2 Added Files: 051.SOL 052.SOL 053.SOL 054.SOL 055.SOL 056.SOL 057.SOL 058.SOL 059.SOL 060.SOL 061.SOL 062.SOL 063.SOL 064.SOL 065.SOL 066.SOL 067.SOL 068.SOL 069.SOL 070.SOL 071.SOL 072.SOL 073.SOL 074.SOL 081.SOL 083.SOL 107.SOL Applause7.wav Av7.wav BLEEP7.wav L101.SOL L121.SOL L164.SOL L49.SOL L97.SOL SOLIDIAL.F SOLIPION.F Solipion.bmp YAHOO.WAV ep7.wav readme.txt solipion.dat Log Message: Jos: Solipon2 written by Bruno Gauthier --- NEW FILE: 051.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 054.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 067.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Solipion.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 062.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Applause7.wav --- (This appears to be a binary file; contents omitted.) --- NEW FILE: L49.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Av7.wav --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 069.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 107.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 074.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 053.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 083.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 059.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 070.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: BLEEP7.wav --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 068.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: L121.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 057.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: readme.txt --- \ bruno GAUTHIER \ vendredi, avril 01 2005 - 16:11 \ SOLIPION 2.0 \ Classic Morpion Solitaire Like Game \ We place the 5 th pawn on a line in any directions like xxxx0 OR x0xxx etc \ Then a line is drawn. \ The program controls if we can place a Pawn (or dot) here or there. \ If for a particulare place they are severals lines that could be drawns then \ the prog shows each, one after one, with yellow color in a loop. \ So to choose one of them, just click and the program will draw this one. \ If we want to undo, just click on the "to last move" button in the toobar. \ \ The goal is to draw a maximum of lines. \ The principe of the game is simple but that is not so easy to beat 100 lines. \ The actual best published record is 170 lines !! Amazing :) \ \ They are a zoom in the toolbar to adjust the board as we want :) \ Solipion, needs to be seriouly factorized,simplified and debuggued. \ Solipion seems to cheat with the scores :) \ In fact if Solipion found a move to play after my, our last move, then he place it, \ then his name also in the score (if of course that is a good score) \ \ I go back to play now :) \ To add a Pawn to draw a line, 4 Pawns in the same direction must already exist. We can use only one pawn of an already line drawn. Solipion, controls if we follow the rules. Any directions are possible, vertical, horizontal,diagonally. links : http://croix2malte.free.fr/indexGB.php http://euler.free.fr/morpion.htm New in version 2.01: Labels on left and up of the board. Visible only if the board is pushed right and down with the keys : shift +down shift +right. Added also : shift +left and shift +up. --- NEW FILE: 073.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 058.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 065.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 066.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: YAHOO.WAV --- (This appears to be a binary file; contents omitted.) --- NEW FILE: L164.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 063.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 064.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: L97.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: L101.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ep7.wav --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 072.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 052.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 055.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SOLIDIAL.F --- \ solidial.f 0 value rank-in-dial 0 value dial-busy? :OBJECT SoliPion-Dial <Super DialogWindow EditControl Edit_1 \ an edit window StaticControl Title StaticControl HeadRank StaticControl HeadText StaticControl HeadScore StaticControl Text_1 StaticControl Text_2 StaticControl Text_3 StaticControl Text_4 StaticControl Text_5 StaticControl Text_6 StaticControl Text_7 StaticControl Text_8 StaticControl Text_9 StaticControl Text_10 StaticControl Rank1 StaticControl Rank2 StaticControl Rank3 StaticControl Rank4 StaticControl Rank5 StaticControl Rank6 StaticControl Rank7 StaticControl Rank8 StaticControl Rank9 StaticControl Rank10 StaticControl Score1 StaticControl Score2 StaticControl Score3 StaticControl Score4 StaticControl Score5 StaticControl Score6 StaticControl Score7 StaticControl Score8 StaticControl Score9 StaticControl Score10 ButtonControl Button_1 \ a button : CloseSample ( -- ) Close: [ self ] ; :M ExWindowStyle: ( -- style ) ExWindowStyle: SUPER ;M :M WindowStyle: ( -- style ) WindowStyle: SUPER WS_OVERLAPPED OR ;M :M WindowTitle: ( -- title ) z" Solipion" ;M :M StartSize: ( -- width height ) 350 305 ;M :M StartPos: ( -- x y ) CW_USEDEFAULT CW_USEDEFAULT ;M :M On_Init: ( -- ) On_Init: super time-reset self Start: title GetStyle: title WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: title 4 4 290 25 Move: title s" Table of Bests Scores" SetText: title self Start: HeadRank GetStyle: HeadRank WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: HeadRank 4 30 60 25 Move: HeadRank s" Rank" SetText: HeadRank self Start: HeadText GetStyle: HeadText WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: HeadText 72 30 150 25 Move: HeadText S" Name" SetText: HeadText self Start: HeadScore GetStyle: HeadScore WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: HeadScore 230 30 64 25 Move: HeadScore S" Score" SetText: HeadScore 11 1 DO Rank-in-dial i = if self Start: Edit_1 GetStyle: Edit_1 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Edit_1 72 30 25 i * + 150 25 Move: Edit_1 self SetFocus: Edit_1 else i case 1 of self Start: Text_1 GetStyle: Text_1 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_1 72 30 25 i * + 150 25 Move: Text_1 bests-table i 1- 22 * + 20 SetText: Text_1 endof 2 of self Start: Text_2 GetStyle: Text_2 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_2 72 30 25 i * + 150 25 Move: Text_2 bests-table i 1- 22 * + 20 SetText: Text_2 endof 3 of self Start: Text_3 GetStyle: Text_3 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_3 72 30 25 i * + 150 25 Move: Text_3 bests-table i 1- 22 * + 20 SetText: Text_3 endof 4 of self Start: Text_4 GetStyle: Text_4 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_4 72 30 25 i * + 150 25 Move: Text_4 bests-table i 1- 22 * + 20 SetText: Text_4 endof 5 of self Start: Text_5 GetStyle: Text_5 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_5 72 30 25 i * + 150 25 Move: Text_5 bests-table i 1- 22 * + 20 SetText: Text_5 endof 6 of self Start: Text_6 GetStyle: Text_6 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_6 72 30 25 i * + 150 25 Move: Text_6 bests-table i 1- 22 * + 20 SetText: Text_6 endof 7 of self Start: Text_7 GetStyle: Text_7 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_7 72 30 25 i * + 150 25 Move: Text_7 bests-table i 1- 22 * + 20 SetText: Text_7 endof 8 of self Start: Text_8 GetStyle: Text_8 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_8 72 30 25 i * + 150 25 Move: Text_8 bests-table i 1- 22 * + 20 SetText: Text_8 endof 9 of self Start: Text_9 GetStyle: Text_9 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_9 72 30 25 i * + 150 25 Move: Text_9 bests-table i 1- 22 * + 20 SetText: Text_9 endof 10 of self Start: Text_10 GetStyle: Text_10 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Text_10 72 30 25 i * + 150 25 Move: Text_10 bests-table i 1- 22 * + 20 SetText: Text_10 endof endcase then i case 1 of self Start: Rank1 GetStyle: Rank1 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank1 4 30 25 i * + 60 25 Move: Rank1 s" 1" SetText: Rank1 endof 2 of self Start: Rank2 GetStyle: Rank2 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank2 4 30 25 i * + 60 25 Move: Rank2 s" 2" SetText: Rank2 endof 3 of self Start: Rank3 GetStyle: Rank3 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank3 4 30 25 i * + 60 25 Move: Rank3 s" 3" SetText: Rank3 endof 4 of self Start: Rank4 GetStyle: Rank4 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank4 4 30 25 i * + 60 25 Move: Rank4 s" 4" SetText: Rank4 endof 5 of self Start: Rank5 GetStyle: Rank5 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank5 4 30 25 i * + 60 25 Move: Rank5 s" 5" SetText: Rank5 endof 6 of self Start: Rank6 GetStyle: Rank6 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank6 4 30 25 i * + 60 25 Move: Rank6 s" 6" SetText: Rank6 endof 7 of self Start: Rank7 GetStyle: Rank7 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank7 4 30 25 i * + 60 25 Move: Rank7 s" 7" SetText: Rank7 endof 8 of self Start: Rank8 GetStyle: Rank8 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank8 4 30 25 i * + 60 25 Move: Rank8 s" 8" SetText: Rank8 endof 9 of self Start: Rank9 GetStyle: Rank9 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank9 4 30 25 i * + 60 25 Move: Rank9 s" 9" SetText: Rank9 endof 10 of self Start: Rank10 GetStyle: Rank10 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Rank10 4 30 25 i * + 60 25 Move: Rank10 s" 10" SetText: Rank10 endof endcase i case 1 of self Start: Score1 GetStyle: Score1 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score1 230 30 25 i * + 64 25 Move: Score1 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score1 endof 2 of self Start: Score2 GetStyle: Score2 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score2 230 30 25 i * + 64 25 Move: Score2 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score2 endof 3 of self Start: Score3 GetStyle: Score3 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score3 230 30 25 i * + 64 25 Move: Score3 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score3 endof 4 of self Start: Score4 GetStyle: Score4 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score4 230 30 25 i * + 64 25 Move: Score4 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score4 endof 5 of self Start: Score5 GetStyle: Score5 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score5 230 30 25 i * + 64 25 Move: Score5 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score5 endof 6 of self Start: Score6 GetStyle: Score6 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score6 230 30 25 i * + 64 25 Move: Score6 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score6 endof 7 of self Start: Score7 GetStyle: Score7 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score7 230 30 25 i * + 64 25 Move: Score7 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score7 endof 8 of self Start: Score8 GetStyle: Score8 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score8 230 30 25 i * + 64 25 Move: Score8 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score8 endof self Start: Score9 9 of GetStyle: Score9 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score9 230 30 25 i * + 64 25 Move: Score9 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score9 endof 10 of self Start: Score10 GetStyle: Score10 WS_GROUP OR SS_CENTER OR WS_BORDER OR SetStyle: Score10 230 30 25 i * + 64 25 Move: Score10 bests-table i 1- 22 * + 20 + w@ 0 <# # # # #> SetText: Score10 endof endcase LOOP IDOK SetID: Button_1 self Start: Button_1 GetStyle: Button_1 BS_DEFPUSHBUTTON OR WS_GROUP OR SetStyle: Button_1 300 30 36 275 Move: Button_1 s" OK" SetText: Button_1 ;M :M On_Paint: ( -- ) \ screen redraw procedure \ 0 0 screen-size LTGRAY FillArea: dc 0 0 screen-size LTBLUE FillArea: dc ;M :M Close: ( -- ) Rank-in-dial true = if FALSE to dial-busy? else bests-table Rank-in-dial 1- 22 * + 20 blank GetText: Edit_1 drop bests-table Rank-in-dial 1- 22 * + 20 cmove FALSE to dial-busy? then Close: SUPER ;M :M WM_COMMAND ( hwnd msg wparam lparam -- res ) over LOWORD ( ID ) case IDOK of Close: self endof endcase 0 ;M ;OBJECT --- NEW FILE: solipion.dat --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 056.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 071.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 061.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 081.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: 060.SOL --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SOLIPION.F --- \ SOLIPION.F 2.01 fload old\optimize.f only forth also definitions 1280 value screen-mwidth 1024 value screen-mheight 300 to screen-width 300 to screen-height 0 value smallstring 0 value stamper 0 value string-player-name 0 value nRaw 0 value nLine 0 value univers 0 value univers1 0 value univers2 0 value univers3 [...1775 lines suppressed...] 'E' +k_control pushkey 'R' +k_control pushkey endof k_right +k_shift of 8 +to dx 'E' +k_control pushkey 'R' +k_control pushkey endof k_up +k_shift of -8 +to dy 'E' +k_control pushkey 'R' +k_control pushkey endof k_down +k_shift of 8 +to dy 'E' +k_control pushkey 'R' +k_control pushkey endof endcase AGAIN ; ' solipion turnkey solipion \ build an application on disk 5 pause-seconds |
