Benvenuto Visitatore(Log In|Registrati)

4 Pagine V  « < 2 3 4  
Reply to this topicStart new topic
> Traduzione di "MANOR" in BASIC (MANIERO), Ultimo della serie "the sumer game": SFIDA ACCETTATA!
TheRuler
messaggio4 Nov 2018, 12:45
Messaggio #76



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




V2.14 online.

Per gli amanti delle tabelle (quale io sono) e dietro suggerimento di Leon Baradat, ho modifiacto la sezione "fame e raccolto" in una più comoda e leggibile tabella riepilogativa.
Il vantaggio strategico più grande è che ora è possibile vedere tutte le necessità di tutti i gruppi sociali e decidere meglio quanti e a chi elargire il grano.

A confronto, vecchio layout e nuovo.
Files allegati
File Allegato  raccolto_e_fame_vecchio.jpg ( 265.65k ) Numero di download: 0
File Allegato  raccolto_e_fame_nuovo.jpg ( 203.57k ) Numero di download: 3
 


--------------------
 
selven
messaggio4 Nov 2018, 13:12
Messaggio #77





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




bug al volo non riesco a comprare i terreni
 
TheRuler
messaggio4 Nov 2018, 14:13
Messaggio #78



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




CITAZIONE (selven @ 4 Nov 2018, 13:12) *
bug al volo non riesco a comprare i terreni

A me funziona. Che errore ti dà?
Se intendi che non ti da la possibilità potrebbe essere corretto. Non puoi comperarli sempre, devi attendere l'offerta degli altri manieri.
Puoi invece decidere di vendere sempre, a patto di avere più di 0 acri nei tuoi possedimenti.


--------------------
 
selven
messaggio4 Nov 2018, 14:15
Messaggio #79





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




mi da la possibilità, ma quando vado alla mappa e li seleziono non me li assegna
 
TheRuler
messaggio4 Nov 2018, 19:25
Messaggio #80



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




CITAZIONE (selven @ 4 Nov 2018, 14:15) *
mi da la possibilità, ma quando vado alla mappa e li seleziono non me li assegna

Se il numero di acri è inferiore a 7 è voluto. Sulla mappa ogni cubetto equivale a 12 acri.
Ad ogni modo valori tra 1 e 6 te li sottrae o aggiunge comunque al totale degli acri posseduti.
Ho aggiunto BL<7 alla condizione per evitare di mostrare la mappa se non ci sono state modifiche.
Inoltre ho corretto qualche typo qua e la e aggiunto due righe di testo descrittive.

Messa online la v2.15
Fammi sapere, grazie selven.


--------------------
 
selven
messaggio4 Nov 2018, 22:34
Messaggio #81





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




No gli Acri erano più di sette, fra l'altro non me lo faceva con la versione precedente, appena posso lo riprovo

Messaggio modificato da selven il 4 Nov 2018, 22:34
 
TheRuler
messaggio6 Nov 2018, 01:32
Messaggio #82



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




v2.16.
Le novità più importanti di questa release:

- Il morale delle varie classi ora viene modificato anche dalle tasse del Re, dalla percentuale di acri lavorati da parte dei servi o quando si decide la sorte del feudatario sconfitto
- Ora è possibile salvare le proprie GESTA in un file che contiene tutti i turni di gioco, ripercorribili ad uno ad uno seguendo il mutamento della mappa e delle statistiche

CORRETE SUBITO A SCARICARLA. Se non lo fate, che peste vi colga!



--------------------
 
selven
messaggio6 Nov 2018, 18:53
Messaggio #83





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




Allora ho provato la nuova versione e ti segnalo un bug sulle gesta (che sono una figata), partono dall'anno 1 e non dall'anno 0 (nel senso che la prima schermata secondo me dovrebbe mostrare la situazione iniziale del gioco e non quella dopo il 1° anno)
Fra l'altro sarebbe carino avere la possibilità di vedere il replay dopo la partita.
nel leggimi è rimasto questo, ma dovresti averlo eliminato se non sbaglio:
CITAZIONE
- Aggiunto il dato relativo alla forza militare (milizia). Un indice alto non significa vittoria assicurata, esiste sempre una componente casuale legata al morale di entrambi gli eserciti

A questo punto come modifica finale io aggiungerei una grafica finale per le morti che non la contemplano (se ci stai dentro)
 
frank_one
messaggio6 Nov 2018, 19:24
Messaggio #84





Gruppo: Gamer
Messaggi: 135
Iscritto il: 20 June 18
Utente Nr.: 21.911
BGE Monkey Island 1
Playing Quake (DOS, software rendered)
SO Win95




L'idea di salvare le varie fasi della partita è OTTIMA. Sulla questione tabelle/stringhe di testo: preferisco le stringhe di testo. Ricordati che è un gioco, non un resoconto dal reparto contabilità. Le tabelle sono così fredde... Il gioco deve avere sempre un gusto narrativo, devi far credere al giocatore che ci sia un'anima dietro a quei numeri. Se glieli sbatti in faccia ben incolonnati perdi l'effetto magia.
 
TheRuler
messaggio7 Nov 2018, 00:11
Messaggio #85



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




CITAZIONE (frank_one @ 6 Nov 2018, 19:24) *
L'idea di salvare le varie fasi della partita è OTTIMA. Sulla questione tabelle/stringhe di testo: preferisco le stringhe di testo. Ricordati che è un gioco, non un resoconto dal reparto contabilità. Le tabelle sono così fredde... Il gioco deve avere sempre un gusto narrativo, devi far credere al giocatore che ci sia un'anima dietro a quei numeri. Se glieli sbatti in faccia ben incolonnati perdi l'effetto magia.

Capisco cosa dici e sono d'accordo, ma in quella particolare fase, vedere 3 righe e poi tre testi che si susseguono, che danno la stessa informazione per tre gruppi diversi l'ho trovato motlo ridondante e quello sì che spezza la sospensione dell'incredulità.
Piuttosto uno schema, presentato dal tuo consigliere come un "rapporto annuale", lo trovo molto tematico.
Trovo più veritiera una situazione in cui il consigliere ti consegna un registro con scritte tutte le informazioni segnate nel corso dell'anno piuttosto che una persona che mi entra in sala dicendo "ai 60 contadini manca questo, e questo, noi abbiamo questo, quanto diamo?" 300 moggi, VAI.
Va a dare i moggi, torna e mi fa la stessa solfa, oltre tutto snocciolando dati precisi a memoria, altre due volte per i servi e i nobili... ;-)
Ok dai, mi piace molto la tabella, si nota troppo?


Selven, grazie per il leggimi, correggo subito. Per quanto riguarda l'anno 0 basta avviare una qualunque partita per sapere lo stato iniziale. E' sempre uguale per tutte le partite. Ad ogni modo la situazione non è quella dopo il primo anno, è quella DEL primo anno visto che tutto quello che è successo lo salvo come ultima cosa proprio prima di iniziare il nuovo anno.

Grazie mille per le GESTA, sono molto soddisfatto e non è stato facile trovare un modo elegante per buttare giù il codice. All'inizio avevo deciso di salvare ogni anno appendendo il nuovo salvataggio alla fine del precedente (fino alla versione 2.15 lo sovrascrivevo), il problema era che con l'aumentare dei turni aumentava anche lo spazio occupato dal savegame, non necessariamente un problema ma il tempo di caricamento aumentava in maniera lineare. Ho dunque deciso di salvare due file paralleli, uno temporaneo con il vecchio metodo (salvando solo l'ultimo turno) e l'altro con il nuovo (salvando ogni turno appendendo in sequenza).
fun fact: Per come ho progettato le GESTA, volendo, sarebbe possibile ripartire a giocare da un turno qualunque. Un CHEAT enorme. ;-)


--------------------
 
selven
messaggio7 Nov 2018, 00:16
Messaggio #86





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




lo so che basta avviare la partita e vedi la situazione iniziale, ma quando carichi le gesta non la vedi e quindi manca una schermata, per come è fatto ora è incompleto
ps con la 2.16 non ho più il problema nell'acquisto dei terreni

Messaggio modificato da selven il 7 Nov 2018, 00:19
 
TheRuler
messaggio7 Nov 2018, 00:27
Messaggio #87



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




Non è incompleto, dai. E' il turno 1, non vedo altro modo per rappresentare una sequenza di eventi. Il turno 0 è nell'intro.


--------------------
 
selven
messaggio7 Nov 2018, 00:32
Messaggio #88





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




si ma è una sequela di eventi e parti da una situazione modificata senza mostrare l'inizio, inoltre già che ne parliamo sarebbe figo poter andare avanti e indietro anzichè solo avanti, se possibile
 
TheRuler
messaggio9 Nov 2018, 19:38
Messaggio #89



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




Purtroppo non è possibile tornare indietro per come ho concepito la lettura sequenziale del file. Non è come l'avanti/indietro dell, intro (che sono dei semplici GOTO) Il file delle gesta occupa 7KB per ogni turno, se dovessi cercare la variabile del turno ogni volta, il tempo di ricerca potrebbe essere tollerabile i primi 3-4 turni ma poi diventerebbe insostenibilmente lungo. Ho fatto una prova, per caricare 30 turni ci voglio 20 secondi.
Ad ogni modo ho aggiunto l'anno zero. Ma non so quanto sia interessante come informazione vedere dei numeri interi, 250 fiorini, 1200 moggi ecc... "veda un po' lei"

Ho cambiato anche la gestione dei file.

v2.17 online
I vecchi slavataggi non funzioneranno.


--------------------
 
frank_one
messaggio9 Nov 2018, 21:33
Messaggio #90





Gruppo: Gamer
Messaggi: 135
Iscritto il: 20 June 18
Utente Nr.: 21.911
BGE Monkey Island 1
Playing Quake (DOS, software rendered)
SO Win95




CITAZIONE (TheRuler @ 7 Nov 2018, 00:11) *
Per come ho progettato le GESTA, volendo, sarebbe possibile ripartire a giocare da un turno qualunque. Un CHEAT enorme. ;-)
Sarebbe una bella feature! Il giocatore potrebbe così riparare a qualche errore, anche se... se i turni si basano su numeri casuali ogni volta sempre diversi, forse rigiocare un turno e scoprire che le cose non avvengono come nella partita precedente potrebbe creare un po' di confusione.
 
DK
messaggio10 Nov 2018, 09:00
Messaggio #91



Gruppo icone

Gruppo: Admin
Messaggi: 2.493
Iscritto il: 27 August 04
Utente Nr.: 1.509
BGE Indy and The Last Crusade
SO Windows7

OGI Supporter




Rullo, ma visto che ormai lo conosci come le tue tasche questo gioco, hai mai pensato di riscriverlo in qualche linguaggio più flessibile del gwbasic? (o invece stai provando a spremerlo? biggrin2a.gif)
Magari anche qualcosa giocabile via browser visto che non richiede chissà che grafica.
 
TheRuler
messaggio10 Nov 2018, 12:08
Messaggio #92



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




CITAZIONE (DK @ 10 Nov 2018, 09:00) *
Rullo, ma visto che ormai lo conosci come le tue tasche questo gioco, hai mai pensato di riscriverlo in qualche linguaggio più flessibile del gwbasic? (o invece stai provando a spremerlo? biggrin2a.gif)
Magari anche qualcosa giocabile via browser visto che non richiede chissà che grafica.

Mi sto proprio divertendo a vedere dove posso spingermi. Al momento ho ancora BEN 4899 Bytes da usare, quindi un monte di spazio. ;-)
Ad ogni modo l'idea di farlo via browser ce l'ho da tempo, si presta parecchio e gli altri come santa paravia o hammurabi hanno già la loro versione. Sto anche studiando con Leon Baradat una versione app per android.


--------------------
 
selven
messaggio10 Nov 2018, 12:39
Messaggio #93





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




ASCII ART, ASCIII ART, ASCIIIIIIIIIII ART!
 
TheRuler
messaggio10 Nov 2018, 18:52
Messaggio #94



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




CITAZIONE (selven @ 10 Nov 2018, 12:39) *
ASCII ART, ASCIII ART, ASCIIIIIIIIIII ART!


ghgh.gif


--------------------
 
selven
messaggio11 Nov 2018, 13:58
Messaggio #95





Gruppo: Gamer
Messaggi: 874
Iscritto il: 27 June 12
Da: Ravenna
Utente Nr.: 19.437
BGE The Last of Us
Playing Poco e niente
SO Windows7




sai che questo mi dà ragione vero?
 
TheRuler
messaggio15 Nov 2018, 02:52
Messaggio #96



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




Ultima fatica.

- Modificata la sezione "distribuzione delle terre" in una più comoda tabella riepilogativa che presenta tutti i dati in un'unica soluzione (con l'aggiunta della fertilità e del morale attuale e previsto) per una miglior gestione delle elargizioni di terreno
- Adesso il morale delle classi sociali varierà coerentemente con il variare della terra elargita

File Allegato  old_land.jpg ( 160.23k ) Numero di download: 0
File Allegato  new_land.jpg ( 122.33k ) Numero di download: 1



v2.19, per un pochino ho idea che lascerò riposare il codice, magari per dedicarmi alla versione browser o android.
Sono arrivato al punto di aver raddoppiato sia le linee di codice che le dimensioni del programma. Ho 2061 Bytes liberi a programma in corso (ovvero considerando lo spazio per le variabili e gli array) che mi vorrei tenere per eventuali (improbabili) aggiunte al codice.


CODE
ORIGINALE 2.18:

2230 CLS:DIS=0:COLOR 3:?:?"Distribuzione delle terre nel tuo maniero:":FOR A=1 TO 3:LX(A)=L(A):NEXT:LX=LE:GOSUB 2334:LOCATE 12,1
2240 IF LE<0 THEN COLOR 14:?:?"Abbiamo perduto"ABS(LE)"acri di terra, mio Signore. Ridistribuisca con saggezza!":GOTO 2280
2245 IF LE>0 THEN GOSUB 38:COLOR 3:? "di"L"acri possiedi"TAB(22)LE"di terra";:COLOR BS(XT):? TAB(37)L$(XT)
2250 ?:IF LE<=0 THEN COLOR 14:?"Non abbiamo terra per la semina dell'anno prossimo, sua Eccellenza!"
2255 IF G<LE THEN COLOR 14:?"Non abbiamo il grano per la semina dell'anno prossimo, mio Signore!"
2260 IF G<LE/2 AND G>0 THEN COLOR 14:?"Purtroppo abbiamo grano sufficiente a coltivare solo"INT(G)"acri, mio Signore."
2270 COLOR 14:?"Desidera ridistribuire le terre (s/n)?":?F(1)F(2)F(3)F MO(1)MO(2)MO(3);:COLOR 3:A$=INPUT$(1):IF A$<>"S" AND A$<>"s" THEN 2321
2280 DIS=1:COLOR 3:LOCATE 17,1:?" Terra per i contadini ("L"acri massimi ) ";:INPUT L5(1):IF L5(1)>L THEN 2280 ELSE L(1)=L5(1)
2290 LOCATE 18,1:?" Terra per i servi ("L-L(1)"acri massimi ) ";:INPUT L5(2):IF L5(2)>L-L(1) THEN 2290 ELSE L(2)=L5(2)
2300 LOCATE 19,1:?" Terra per i nobili ("L-L(1)-L(2)"acri massimi ) ";:INPUT L5(3):IF L5(3)>L-L(1)-L(2) THEN 2300 ELSE L(3)=L5(3)
2320 CLS:?:?"Questa sarà la ripartizione delle terre per il prossimo anno:":LEE=LE:LE=L-L(1)-L(2)-L(3):GOSUB 2334:GOTO 2240
2321 IF DIS=0 THEN 2330 ELSE FOR A=1 TO 3:IF L(A)<LX(A) OR L(A)>LX(A) THEN MO(A)=MO(A)*(L(A)/LX(A))
2322 NEXT
2324 IF L(1)>LX(1) THEN F(1)frown.gifF(1)*L(1)+(F(2)+F(3)+F)/3*(L(2)+L(3)+LE))/L
2325 IF L(2)>LX(2) THEN F(2)frown.gifF(2)*L(2)+(F(1)+F(3)+F)/3*(L(1)+L(3)+LE))/L
2326 IF L(3)>LX(3) THEN F(3)frown.gifF(3)*L(3)+(F(1)+F(2)+F)/3*(L(1)+L(2)+LE))/L
2327 IF LE>LX THEN F=(F*LEE+(F(1)+F(2)+F(3))/3*(L(1)+L(2)+L(3)))/L
2330 ?:?F(1)F(2)F(3)F MO(1)MO(2)MO(3):GOSUB 36:GOSUB 61:CLS:GOSUB 6000:?:GOTO 250
2334 COLOR 15:?:?"Classe n° Campi Acri capite Fertilità Morale Previsione"
2335 FOR A=1 TO 3:MOF(A)=MO(A):GOSUB 93:COLOR 3:?P$(A)TAB(11)P(A)TAB(16)INT(EP(A))TAB(22)L(A);:?TAB(28)USING " ##.#";L(A)/P(A);:COLOR BS(XF):? TAB(37)L$(XF);
2336 LOCATE 8+A,48:IF MO(A)>1.15 THEN COLOR 2:?"felici" ELSE IF MO(A)<.85 THEN COLOR 4:?"scontenti" ELSE COLOR 7:?"pacifici"
2337 IF L(A)<LX(A) OR L(A)>LX(A) THEN MOF(A)=MOF(A)*(L(A)/LX(A))
2338 LOCATE 8+A,59:IF MOF(A)>1.15 THEN COLOR 2:?"felici" ELSE IF MOF(A)<.85 THEN COLOR 4:?"scontenti" ELSE COLOR 7:?"pacifici"
2339 NEXT:RETURN


MODIFICATO 2.19:

2230 CLS:DIS=0:COLOR 3:?:?"Distribuzione delle terre nel tuo maniero:":GOSUB 36:FOR A=1 TO 3:LX(A)=L(A):NEXT:LX=LE:GOSUB 2334
2240 IF LE=>0 THEN GOSUB 38:COLOR 3:? "di"L"acri possiedi"TAB(22)LE"di terra";:COLOR BS(XT):? TAB(37)L$(XT)
2245 YD=14:DA=1:GOSUB 8080:YD=15:DA=1:GOSUB 8080:YD=16:DA=1:GOSUB 8080:LOCATE 14,1
2246 IF LE<0 THEN COLOR 14:?:?"Abbiamo perduto"ABS(LE)"acri di terra, mio Signore. Ridistribuisca con saggezza!":GOTO 2280
2250 IF LE<=0 THEN COLOR 14:?"Non avremo la terra per la semina dell'anno prossimo, sua Eccellenza!"
2255 IF G<LE AND G>0 THEN COLOR 14:?"Il grano che abbiamo sarà sufficiente a coltivare solo"INT(G)"acri, mio Signore."
2260 IF G<=0 THEN COLOR 14:?"Non abbiamo il grano per la semina dell'anno prossimo, mio Signore!"
2270 COLOR 14:?:?"Desidera ridistribuire le terre (s/n)?";:COLOR 3:A$=INPUT$(1):IF A$<>"S" AND A$<>"s" THEN 2305
2280 DIS=1:COLOR 3:FOR A=1 TO 3
2285 LOCATE 8+A,59:?" "TAB(65)L6"max ":LOCATE 8+A,59:INPUT "",L5(A):IF L5(A)>L6 OR L5(A)<0 THEN 2285
2290 L(A)=L5(A):L6=L6-L5(A):IF L(A)<LX(A) OR L(A)>LX(A) THEN MOF(A)=MOF(A)*(L(A)/LX(A))
2295 LOCATE 8+A,66:IF MOF(A)>1.15 THEN COLOR 2:?"felici " ELSE IF MOF(A)<.85 THEN COLOR 4:?"scontenti " ELSE COLOR 7:?"pacifici "
2300 COLOR 3:NEXT:LE=L-L(1)-L(2)-L(3):GOSUB 2334:GOTO 2240
2305 IF DIS=0 THEN 2330 ELSE FOR A=1 TO 3:IF L(A)<LX(A) OR L(A)>LX(A) THEN MO(A)=MO(A)*(L(A)/LX(A))
2306 NEXT
2310 IF L(1)>LX(1) THEN F(1)frown.gifF(1)*L(1)+(F(2)+F(3)+F)/3*(L(2)+L(3)+LE))/L
2315 IF L(2)>LX(2) THEN F(2)frown.gifF(2)*L(2)+(F(1)+F(3)+F)/3*(L(1)+L(3)+LE))/L
2320 IF L(3)>LX(3) THEN F(3)frown.gifF(3)*L(3)+(F(1)+F(2)+F)/3*(L(1)+L(2)+LE))/L
2325 IF LE>LX THEN F=(F*LE+(F(1)+F(2)+F(3))/3*(L(1)+L(2)+L(3)))/L
2330 GOSUB 36:CLS:GOSUB 6000:?:GOTO 250
2334 L6=L:LOCATE 7,1:COLOR 15:?:?"Classe n° Orti Acri capite Fertilità Morale Nuova Previsione"
2335 FOR A=1 TO 3:MOF(A)=MO(A):GOSUB 93:COLOR 3:?P$(A)TAB(11)P(A)TAB(16)INT(EP(A))TAB(22)L(A);:?TAB(28)USING " ##.#";L(A)/P(A);:COLOR BS(XF):? TAB(37)L$(XF);
2336 LOCATE 8+A,48:IF MO(A)>1.15 THEN COLOR 2:?"felici" ELSE IF MO(A)<.85 THEN COLOR 4:?"scontenti" ELSE COLOR 7:?"pacifici"
2337 NEXT:RETURN


--------------------
 
TheRuler
messaggio18 Nov 2018, 21:03
Messaggio #97



Gruppo icone

Gruppo: SMod
Messaggi: 11.097
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




...eeeeee, ovviamente portare il codice su un altra piattaforma fa scoprire che alcune parti possono essere ottimizzate, soprattutto le magagne. ;-)
v2.20 online.


CITAZIONE
- Corretta la condizione che limita la fertilità ad un intervallo di 0-70 onde evitare i rari casi di "illegal function call" essendo le variabili e gli array F,F(A) e FF(A) utilizzati all'interno di funzioni stringa






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

4 Pagine V  « < 2 3 4
Reply to this topicStart new topic
1 utenti stanno leggendo questa discussione (1 visitatori e 0 utenti anonimi)
0 utenti:

 

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


Versione Lo-Fi Oggi è il: 20th November 2018 - 12:24