Benvenuto Visitatore(Log In|Registrati)

> Traduzione di "MANOR" in BASIC (MANIERO), Ultimo della serie "the sumer game": SFIDA ACCETTATA!
TheRuler
messaggio10 Aug 2018, 17:11
Messaggio #1



Gruppo icone

Gruppo: SMod
Messaggi: 11.307
Iscritto il: 20 January 06
Da: Bologna
Utente Nr.: 2.653
Entropologo part-time

BGE AG: Indy3
Arcade: Silpheed
Free Roaming: Shadow of the Colossus
RTS: Praetorians

Playing Magari...
SO Windows7

OGI Supporter




******************
Traduzione pubblicata!
******************



Salve ragazzi, ho finalmente messo le mani su quasto mio vecchio progetto nel cassetto ed ho cominciato a tradurlo.
Procedendo col codice ho trovato utile inserire alcune cose pre rendere più piacevole l'esperienza come stringhe colorate in base al tipo di informazione data dal gioco (ad esempio, Le descrizioni in verde, i suggerimenti del consigliere in giallo, le statistiche in bianco ecc...) inoltre ho introdotto il tempo trascorso, per avere al termine di gioco la statistica degli anni passati che non guasta.
Ad ogni pagina ho indicato i valori delle cose che servono maggiormente per prendere decisioni (acri di terra, moggi di grano e fiorini) e ad ogni anno un riepilogativo più completo.


Avendo aggiunto quello che ho in magazzino ogni volta mi sono accorto di un bug. Il calcolo delle tasse era sbagliato e sto cercando di risolverlo ma ho un piccolo problema con una routine che mi sta facendo uscire pazzo.



questa è la porzione incriminata:
CODICE
1270 GOSUB 2770:TP=RND*.5+.1:CLS:PRINT:COLOR 7,0:PRINT "Disponi di"LE"acri nel tuo latifondo,"G"moggi di grano e"P"Fiorini.":PRINT:COLOR 6,0:PRINT "Lo sceriffo del Re e' arrivato al tuo maniero per la riscossione.":PRINT
1280 KT=1:IF G+P*5>800 THEN KT=KT+(G+P*5-800)/500:IF KT=>2 THEN PRINT "Le tasse sono alte quest'anno, mio Signore.":PRINT
1290 PRINT "Tasse gravanti sul tuo maniero:":TL=ABS(INT(LE*.15*TP*KT/5)):TL1=ABS(INT(LE*.15-TL*5+.5)):PRINT " Tasse per la tua terra:",TL"fiorini,"TL1"moggi di grano"
1300 TH=HE1*.15*KT:TH1=ABS(INT(TH*TP/5+.5)):PRINT " Tasse per il tuo raccolto:",TH1"fiorini,"ABS(INT(TH-TH1*5))"moggi di grano"
1310 GOSUB 2770:MT=INT(RND*40+KT/2+PTF/2):MT1=INT(MT*TP/5):PRINT " Tasse varie ed eventuali:",MT1"fiorini,"INT(MT-MT1*5)"moggi di grano"
1320 TTL=INT(TL+TH1+TI1):TTT=INT(TL1+(TH-TH1*5)+(TI-TI1*10)+.5):PRINT " Totale tasse:",TTL+MT1"fiorini,"TTT+INT(MT-MT1*5)"moggi di grano.":P=P-TTL:G=G-TTT
1330 IF MT>0 THEN CT=0:PRINT:COLOR 14,0:PRINT "Signore, desidera occultare i"MT1"fiorini e i"MT-MT1*5"moggi":INPUT "riservati per le Varie ed eventuali (s/n)";X$:IF LEFT$(X$,1)<>"N" AND LEFT$(X$,1)<>"n" THEN GOTO 1350 ELSE GOTO 1340
1340 P=P-MT1:G=G-MT-MT1*5:CT=MT:PRINT:COLOR 2,0:PRINT "Lo sceriffo non riscontra alcuna anomalia e prende commiato."
1350 IF CT>1 THEN 1370 ELSE GOSUB 2770:IF RND*1>.65 THEN PRINT:PRINT "Lo Sceriffo non ci ha scoperto, sua Eccellenza!":PRINT:PRINT:GOTO 1370
1360 GOSUB 2770:PTF=INT(RND*CT+1)*2:COLOR 6,0:PRINT " Lo sceriffo durante l'ispezione trova"PTF/2"moggi occultati.":PRINT " La lealta' verso il tuo Re vacilla, tasse raddoppiate per l'anno prossimo.":PRINT:PRINT:PFF=PFF+PTF/2
1370 IF P<0 THEN G=G+P*6:COLOR 6,0:PRINT " Hai dovuto pagare"INT(-P*5.9+.5)"moggi di grano":PRINT " non avendo i"INT(-P+.5)"fiorini, al cambio in perdita.":PRINT:P=0:GOTO 1390
1380 IF G<0 THEN P=P+G/4:COLOR 6,0:PRINT " Hai dovuto pagare"INT(-G/4.1+.5)"fiorini":PRINT " non avendo i"INT(-G+.5)"moggi, al cambio in perdita.":PRINT:G=0
1390 IF G>0 THEN COLOR 2,0:PRINT "Sono presenti"G"moggi di grano nei tuoi magazzini.":IF P>0 THEN PRINT "Disponi di"P"fiorini nella tua tesoreria."
1400 IF G<1 AND P>0 THEN COLOR 6,0:PRINT "Nella tesoreria sono presenti solamente"INT(P)"fiorini, Sua Eccellenza."
1410 IF G<1 AND P<1 THEN COLOR 14,0:PRINT "Siamo in debito con il Re, Sua Eccellenza!"


e questo l'output:
CODICE
Disponi di 75 acri nel tuo latifondo, 936 moggi di grano e 22 Fiorini.          
                                                                                
Lo sceriffo del Re e' arrivato al tuo maniero per la riscossione.              
                                                                                
Tasse gravanti sul tuo maniero:                                                
Tasse per la tua terra:     0 fiorini, 11 moggi di grano                      
Tasse per il tuo raccolto:  4 fiorini, 96 moggi di grano                      
Tasse varie ed eventuali:   0 fiorini, 24 moggi di grano                      
Totale tasse:               4 fiorini, 132 moggi di grano.                    
                                                                                
Signore, desidera occultare i 0 fiorini e i 24 moggi                            
riservati per le Varie ed eventuali (s/n)? n                                    
                                                                                
Lo sceriffo non riscontra alcuna anomalia e prende commiato.                    
Sono presenti 804 moggi di grano nei tuoi magazzini.                            
Disponi di 18 fiorini nella tua tesoreria.                                      
                                                                                
Desidera dichiarare guerra a qualcuno (s/n)?


in pratica puoi decidere di nascondere allo sceriffo le "varie ed eventuali" che hai raccolto dal tuo popolo nell'anno.
Ma il calcolo va bene solo il primo anno, dal successivo aggiunge la multa che dovrebbe essere applicata solo quando fai il furbo. Come l'ho messa io CT>1 va bene ma quando scegli no e vieni beccato dallo sceriffo, egli trova sempre e solo 1 moggio, ma dovrebbe essere un numero casuale tra 1 e x. Con X dipendente dalla variabile MT.



questo il codice originale:
CODICE
1270 PRINT:CLS:GOSUB 2770:TP=RND*.5+.1:COLOR 6,0:PRINT:PRINT "The King's Sheriff has arrived at the manor.":PRINT
1280 KT=1:IF G+P*5>800 THEN KT=KT+(G+P*5-800)/500:IF KT=>2 THEN PRINT "Taxes are high this year, my lord.":PRINT
1290 PRINT "Taxes to your estates:":TL=ABS(INT(LE*.15*TP*KT/5)):TL1=ABS(INT(LE*.15-TL*5+.5)):PRINT " Tax on your land:",TL"pounds,"TL1"bushels of grain"
1300 TH=HE1*.15*KT:TH1=ABS(INT(TH*TP/5+.5)):PRINT " Tax on your harvest:",TH1"pounds,"ABS(INT(TH-TH1*5))"bushels of grain"
1310 GOSUB 2770:MT=INT(RND*40+KT/2+PTF/2):MT1=INT(MT*TP/5):PRINT " Miscellaneous:",MT1"pounds,"INT(MT-MT1*5)"bushels of grain"
1320 TTL=INT(TL+TH1+TI1):TTT=INT(TL1+(TH-TH1*5)+(TI-TI1*10)+.5):PRINT "  Total Taxes:",TTL+MT1"pounds,"TTT+INT(MT-MT1*5)"bushels of grain.":P=P-TTL:G=G-TTT
1330 IF MT>0 THEN CT=0:PRINT "Shall I cover up the"MT1"pounds and"MT-MT1*5"bushels":INPUT " in miscellaneous taxes";X$:IF LEFT$(X$,1)<>"N" AND LEFT$(X$,1)<>"n" THEN PRINT:GOTO 1350
1340 P=P-MT1:G=G-MT-MT1*5:CT=MT:PRINT
1350 IF CT<1 THEN 1370 ELSE GOSUB 2770:IF RND*1>.65 THEN PRINT " He didn't catch us, your excellency.":PRINT:PRINT:GOTO 1370
1360 GOSUB 2770:PTF=INT(RND*CT+1)*2:PRINT " He found"PTF/2"bushels missing.":PRINT:PRINT:PFF=PFF+PTF/2
1370 IF P<0 THEN G=G+P*6:PRINT "You've had to spend"INT(-P*5.9+.5)"bushels of grain":PRINT "in place of"INT(-P+.5)"pounds, at a loss.":PRINT:P=0:GOTO 1390
1380 IF G<0 THEN P=P+G/4:PRINT "You've had to spend"INT(-G/4.1+.5)"pounds sterling":PRINT "in place of"INT(-G+.5)"bushels, at a loss.":PRINT:G=0
1390 IF G>0 THEN PRINT "You have"G"bushels of grain in your storehouses":IF P>0 THEN PRINT " and"P"pounds sterling left in your treasury"
1400 IF G<1 AND P>0 THEN PRINT "We have only"INT(P)"pounds remaining, your excellency."
1410 IF G<1 AND P<1 THEN PRINT "We are in debt, your excellency!"


La riga 2770 è un generatore casuale

2770 RANDOMIZE(VAL(RIGHT$(TIME$,2))):RETURN

Oltre tutto c'è la questione del raddoppio delle tasse l'anno successivo se vieni beccato immagazzinata nella variabile PTF che modifica PFF, utile solo a fine partita.
CODICE
3560 CLS:PRINT"  THE KING'S TAXES"
3561 PRINT"The King's sheriff arrives in town and figures out your taxes."
3570 PRINT"They consist of a tax on your land, your harvest, your income"
3580 PRINT"(taxes to your population etc.), and on all miscellaneous"
3590 PRINT"factors.  You might be able to get away with covering up the"
3600 PRINT"miscellaneous tax, but if you are caught the king doubles it"
3610 PRINT"next year.  This also decreases his confidence in you as a"
3620 PRINT"loyal subject."


Qualcuno in grado di darmi una mano che mastichi BASIC e MATEMATICA? ;-)
Files allegati
File Allegato  MANOR_ITA.txt ( 41.15k ) Numero di download: 1
File Allegato  MANOR_ORIGINAL.txt ( 29.2k ) Numero di download: 4
 


--------------------
 

Inserisci in questo messaggio
- TheRuler   Traduzione di "MANOR" in BASIC (MANIERO)   10 Aug 2018, 17:11
- - Alpobemp   Ti ho seguito fino ad un certo punto , ma la facce...   10 Aug 2018, 22:07
- - TheRuler   Sì Alpo, è presente nella versione originale. Per ...   10 Aug 2018, 22:18
- - DK   Il problema è questo. CODE1350 IF CT>1 THEN 13...   11 Aug 2018, 12:23
- - TheRuler   Grazie per averci guardato DK, ero arrivato alla s...   12 Aug 2018, 12:00
- - TheRuler   Sul sito dell'autore è presente il file INTRO....   18 Aug 2018, 10:10
- - chipko   Che gioco è? Con Manor ho trovato troppi risultati...   18 Aug 2018, 16:49
- - TheRuler   E' un gioco manageriale testuale. Questo.   18 Aug 2018, 19:35
- - TheRuler   Diario di bordo. Per i registri, il diagramma di f...   22 Aug 2018, 19:19
- - chipko   Non sto capendo assolutamente niente ma è evidente...   23 Aug 2018, 06:39
- - TheRuler   Esagerato, ma grazie. Ho riportato a diagramma per...   23 Aug 2018, 12:32
- - DK   L'errore indica che stai usando un indice al d...   23 Aug 2018, 13:57
- - TheRuler   Giusto! grande DK. In effetti va in crash DOPO...   23 Aug 2018, 17:46
- - TheRuler   Al momento ho stampato tutte le variabili coinvolt...   25 Aug 2018, 00:25
- - TheRuler   Trovato bug anche nel gioco originale. Non so anco...   27 Aug 2018, 22:02
- - TheRuler   Non riesco a capire come impostare una condizione....   29 Aug 2018, 20:57
- - TheRuler   l'autore parla del bug in cui mi sono imbatttu...   31 Aug 2018, 20:31
- - DK   QUOTE Funziona, ma ovviamente non gestisce il valo...   1 Sep 2018, 09:23
- - TheRuler   Grazie DK, anche per me sono più di 25 anni!;-...   1 Sep 2018, 11:25
- - DK   Sì, giusto, il $ è per le stringhe. Allora fa...   1 Sep 2018, 22:08
- - TheRuler   L'uovo di Colombo. Grazie Andrea, mitico. COD...   2 Sep 2018, 01:21
- - DK   Non ricordo per cancellare una riga, forse con un ...   2 Sep 2018, 08:14
- - TheRuler   a volte cancello solo porzioni di 10 caratteri; pe...   3 Sep 2018, 10:17
- - DK   QUOTE Non saprei però come fare con il FOR. Cosa i...   3 Sep 2018, 16:23
- - TheRuler   Potrei in fase di lettura fare un check sulla riga...   4 Sep 2018, 09:48
- - TheRuler   CITAZIONE Esatto, tipo scrivi uno spazio da colonn...   6 Sep 2018, 18:46
- - DK   Ma gli array di stringhe, in basic, non hanno semp...   6 Sep 2018, 21:29
- - TheRuler   Sì è così. Mi serve che una variabile in un array ...   7 Sep 2018, 10:13
- - DK   Non ho capito bene, ma basta crearsi una serie di ...   7 Sep 2018, 16:14
- - TheRuler   Alla fine ho deciso per il cambio in fase di print...   10 Sep 2018, 00:14
- - TheRuler   La potenza è nulla senza il controllo (TOTALE)...   11 Sep 2018, 00:28
- - Vlad123   Interessante io però ho problemi a giocarci non so...   11 Sep 2018, 10:10
- - TheRuler   Ciao Vlad! devi usare un interprete. PC-BASIC,...   11 Sep 2018, 16:12
- - Vlad123   Allora se provo a caricare istruzioni dice che non...   14 Sep 2018, 08:42
- - TheRuler   Se non trova le istruzioni non hai copiato tutti e...   14 Sep 2018, 09:00
- - Vlad123   Io credevo fosse il 2 il più debole. No li ho mess...   14 Sep 2018, 09:24
- - TheRuler   Che errore esatto ti esce?   14 Sep 2018, 11:21
- - Vlad123   File not found 238   14 Sep 2018, 13:13
- - TheRuler   Non esiste la riga 238. Sicuro sia quello l'er...   14 Sep 2018, 20:17
- - Vlad123   Si le ho messe giuro! Appena ho tempo provo il...   15 Sep 2018, 08:28
- - TheRuler   Cosiglio. La forza della tua armata e di quelle a...   19 Sep 2018, 22:13
- - Gwenelan   Siamo felicissimi di annunciare che la traduzione ...   8 Oct 2018, 09:03
- - TheRuler   Aggiornato alla versione 2.03. Migliorie cosmetich...   23 Oct 2018, 16:24
- - selven   Grande rullo vai con la retro ri-traduzione credo ...   23 Oct 2018, 17:56
- - frank_one   Se pure l'autore del gioco approva le tue modi...   23 Oct 2018, 18:05
- - selven   rullo la 2.03 mi da errore nella riga 247 se provo...   23 Oct 2018, 19:28
- - TheRuler   Grazie, ragazzi! Selven, i due file, MANIERO2...   23 Oct 2018, 19:36
- - selven   si ho letto, sono in c:\manor tutti e due più...   23 Oct 2018, 19:55
- - TheRuler   Ah, ho capito, lo hai associato a PC-BASIC e lo ap...   23 Oct 2018, 20:06
- - selven   anche mettendolo nella cartella di pcbasic (c:...   23 Oct 2018, 20:33
- - TheRuler   Ho aggiornato alla 2.04, prova con quella. Comunq...   23 Oct 2018, 21:28
- - selven   ho seguito le tue istruzioni, ma quando faccio il ...   24 Oct 2018, 17:11
- - TheRuler   Prima volta che mi capita. Verifica che le pro...   24 Oct 2018, 18:36
- - selven   risolto era questo: CITAZIONE Verifica che le prop...   25 Oct 2018, 12:41
- - TheRuler   Ottimo, aggiorno il LEGGIMI per includere anche qu...   25 Oct 2018, 15:27
- - selven   per curiosità cosa cambia dalla 2.0.3 alla 2.0.8? ...   25 Oct 2018, 17:00
|- - TheRuler   CITAZIONE (selven @ 25 Oct 2018, 18:00) p...   26 Oct 2018, 00:54
- - selven   allora mi è saltato fuori un codice di errore 8 75...   26 Oct 2018, 09:50
- - TheRuler   Era una regressione. Ho messo online la 2.09   26 Oct 2018, 10:57
- - selven   Allora dopo alcune partite ho rilevato alcune ...   26 Oct 2018, 12:17
- - TheRuler   Ciao Selven grazie per i feedback! Alcune dell...   26 Oct 2018, 16:51
- - selven   sei riuscito a risolvere il punto 6? Prima in una ...   27 Oct 2018, 08:04
- - TheRuler   v2.10 online. Ho rimosso l'indicazione della p...   27 Oct 2018, 16:43
- - selven   la lamentela non è che ho perso ci può anche stare...   27 Oct 2018, 17:01
- - frank_one   Il fatto di non avere mai il 100% di probabilità d...   28 Oct 2018, 04:40
- - TheRuler   Il 20% era indicativo. Ho provato a simulare una b...   28 Oct 2018, 16:08
- - selven   Hai sistemato anche il baco che non cancella la pa...   28 Oct 2018, 16:30
|- - TheRuler   Sì.   28 Oct 2018, 19:09
- - selven   sono stato avvelenato dai miei nobili, il calice r...   28 Oct 2018, 20:07
- - TheRuler   Il problema sono i 60KB di memoria limite gestita ...   28 Oct 2018, 22:24
- - selven   quello grande è il più figo, ma poi sarebbe un cas...   29 Oct 2018, 00:10
|- - TheRuler   CITAZIONE (selven @ 29 Oct 2018, 01:10) q...   30 Oct 2018, 00:26
- - selven   BEDDISSSIMO, ma visto che sono cagazzi e senza ver...   30 Oct 2018, 18:10
- - TheRuler   Avevo colorato anche il prato verde e tutto il cas...   30 Oct 2018, 20:39
- - selven   uhm io proverei col prato giallo per ricordare il ...   30 Oct 2018, 20:49
- - TheRuler   V2.14 online. Per gli amanti delle tabelle (quale...   4 Nov 2018, 12:45
- - selven   bug al volo non riesco a comprare i terreni   4 Nov 2018, 13:12
|- - TheRuler   CITAZIONE (selven @ 4 Nov 2018, 13:12) bu...   4 Nov 2018, 14:13
- - selven   mi da la possibilità, ma quando vado alla mappa e ...   4 Nov 2018, 14:15
|- - TheRuler   CITAZIONE (selven @ 4 Nov 2018, 14:15) mi...   4 Nov 2018, 19:25
- - selven   No gli Acri erano più di sette, fra l'altro no...   4 Nov 2018, 22:34
- - TheRuler   v2.16. Le novità più importanti di questa release:...   6 Nov 2018, 01:32
- - selven   Allora ho provato la nuova versione e ti segnalo u...   6 Nov 2018, 18:53
- - frank_one   L'idea di salvare le varie fasi della partita ...   6 Nov 2018, 19:24
|- - TheRuler   CITAZIONE (frank_one @ 6 Nov 2018, 19:24)...   7 Nov 2018, 00:11
|- - frank_one   CITAZIONE (TheRuler @ 7 Nov 2018, 00:11) ...   9 Nov 2018, 21:33
- - selven   lo so che basta avviare la partita e vedi la situa...   7 Nov 2018, 00:16
- - TheRuler   Non è incompleto, dai. E' il turno 1, non vedo...   7 Nov 2018, 00:27
- - selven   si ma è una sequela di eventi e parti da una situa...   7 Nov 2018, 00:32
- - TheRuler   Purtroppo non è possibile tornare indietro per com...   9 Nov 2018, 19:38
- - DK   Rullo, ma visto che ormai lo conosci come le tue t...   10 Nov 2018, 09:00
|- - TheRuler   CITAZIONE (DK @ 10 Nov 2018, 09:00) Rullo...   10 Nov 2018, 12:08
- - selven   ASCII ART, ASCIII ART, ASCIIIIIIIIIII ART!   10 Nov 2018, 12:39
|- - TheRuler   CITAZIONE (selven @ 10 Nov 2018, 12:39) A...   10 Nov 2018, 18:52
- - selven   sai che questo mi dà ragione vero?   11 Nov 2018, 13:58
- - TheRuler   Ultima fatica. - Modificata la sezione "dis...   15 Nov 2018, 02:52
- - TheRuler   ...eeeeee, ovviamente portare il codice su un altr...   18 Nov 2018, 21:03
- - TheRuler   Minor fix v2.22. CITAZIONE Corretto allineamento n...   29 Dec 2018, 03:04


Reply to this topicStart new topic
1 utenti stanno leggendo questa discussione (1 visitatori e 0 utenti anonimi)
0 utenti:

 

Modalità di visualizzazione: Passa a: Normale · Passa a: Lineare · Outline


Versione Lo-Fi Oggi è il: 16th October 2019 - 15:15