KEBVorschau.cpp 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324
  1. #include "KEBVorschau.h"
  2. #include "../../../../Global/Variablen.h"
  3. #include "../../../../Global/Initialisierung.h"
  4. #include <Datei.h>
  5. #include <Globals.h>
  6. void kEBVorschauKSGSAktion( void *p, RCArray< KSGSVariable > *parameter, KSGSVariable **retVal )
  7. {
  8. if( !p )
  9. return;
  10. ( (KEBVorschauKarteScript *)p )->ksgsAktion( parameter, retVal );
  11. }
  12. // Inhalt der KEBVorschauKarteScript Klasse aus KEBVorschau.h
  13. // Konstruktor
  14. KEBVorschauKarteScript::KEBVorschauKarteScript( Schrift * zSchrift, TextFeld * zLog )
  15. : Thread()
  16. {
  17. ksgs = Framework::getDLLRegister()->ladeDLL( "KSGScript.dll", "data/bin/KSGScript.dll" );
  18. if( ksgs )
  19. {
  20. KSGSGetZeichnung getKSGScript = (KSGSGetZeichnung)GetProcAddress( ksgs, KSGS_START_FUNKTION );
  21. if( getKSGScript )
  22. {
  23. fenster = getKSGScript();
  24. fenster->setSchriftZ( zSchrift->getThis() );
  25. fenster->setSize( 578, 428 );
  26. fenster->setRückrufParam( this );
  27. fenster->setRückrufFunktion( kEBVorschauKSGSAktion );
  28. fenster->setLog( (TextFeld *)zLog->getThis() );
  29. }
  30. else
  31. {
  32. fenster = 0;
  33. nachLogin->zNachrichtenListe()->addNachricht( new Text( "Fehler" ),
  34. new Text( "Der Einstiegspunkt '" KSGS_START_FUNKTION "' in der DLL-Datei "
  35. "'data/bin/KSGScript.dll' konnte nicht gefunden werden." ),
  36. new Text( "Ok" ), 0 );
  37. }
  38. }
  39. else
  40. {
  41. fenster = 0;
  42. nachLogin->zNachrichtenListe()->addNachricht( new Text( "Fehler" ),
  43. new Text( "Die DLL-Datei 'data/bin/KSGScript.dll' konnte nicht geladen werden." ),
  44. new Text( "Ok" ), 0 );
  45. }
  46. ram = new LRahmen();
  47. ram->setSize( 578, 428 );
  48. ram->setFarbe( 0xFFFFFFFF );
  49. pos = Punkt( 120, 10 );
  50. erlaubt = 1;
  51. sichtbar = 0;
  52. alpha = 0;
  53. aktion = 0;
  54. ak = 0;
  55. }
  56. // Destruktor
  57. KEBVorschauKarteScript::~KEBVorschauKarteScript()
  58. {
  59. if( fenster )
  60. {
  61. fenster->zurücksetzen();
  62. fenster->release();
  63. }
  64. ram->release();
  65. if( ksgs )
  66. Framework::getDLLRegister()->releaseDLL( "KSGScript.dll" );
  67. }
  68. // nicht constant
  69. void KEBVorschauKarteScript::thread()
  70. {
  71. sichtbar = 0;
  72. while( alpha )
  73. Sleep( 100 );
  74. if( ak == 1 )
  75. {
  76. pfad += "/seite.ksgs";
  77. if( fenster )
  78. fenster->setScriptDatei( pfad );
  79. }
  80. fenster->neuLaden();
  81. KSGSGetVariable getKSGSVar = (KSGSGetVariable)GetProcAddress( ksgs, KSGS_VARIABLE_FUNKTION );
  82. RCArray< KSGSVariable > *params = new RCArray< KSGSVariable >();
  83. KSGSVariableDef p1;
  84. p1.typId = KSGS_BOOL;
  85. p1.wert = erlaubt;
  86. params->add( getKSGSVar( fenster, &p1 ) );
  87. if( fenster )
  88. {
  89. KSGSVariable *var = fenster->startFunktion( fenster->getFunktionId( "_set_Erlaubt" ), params );
  90. if( var )
  91. var->release();
  92. }
  93. sichtbar = 1;
  94. ak = 0;
  95. run = 0;
  96. }
  97. void KEBVorschauKarteScript::setErlaubt( bool e )
  98. {
  99. erlaubt = e;
  100. KSGSGetVariable getKSGSVar = (KSGSGetVariable)GetProcAddress( ksgs, KSGS_VARIABLE_FUNKTION );
  101. RCArray< KSGSVariable > *params = new RCArray< KSGSVariable >();
  102. KSGSVariableDef p1;
  103. p1.typId = KSGS_BOOL;
  104. p1.wert = erlaubt;
  105. params->add( getKSGSVar( fenster, &p1 ) );
  106. KSGSVariable *var = fenster->startFunktion( fenster->getFunktionId( "_set_Erlaubt" ), params );
  107. if( var )
  108. var->release();
  109. }
  110. void KEBVorschauKarteScript::ladeKarteSeite( char *pfad )
  111. {
  112. if( run )
  113. warteAufThread( 5000 );
  114. if( run )
  115. ende();
  116. this->pfad = pfad;
  117. ak = 1;
  118. start();
  119. }
  120. void KEBVorschauKarteScript::ksgsAktion( RCArray< KSGSVariable > * parameter, KSGSVariable * *retVal )
  121. {}
  122. void KEBVorschauKarteScript::doMausEreignis( MausEreignis & me )
  123. {
  124. me.mx -= pos.x;
  125. me.my -= pos.y;
  126. if( fenster )
  127. fenster->doMausEreignis( me );
  128. me.mx += pos.x;
  129. me.my += pos.y;
  130. }
  131. void KEBVorschauKarteScript::doTastaturEreignis( TastaturEreignis & te )
  132. {
  133. if( fenster )
  134. fenster->doTastaturEreignis( te );
  135. }
  136. bool KEBVorschauKarteScript::tick( double zeit )
  137. {
  138. bool rend = fenster ? fenster->tick( zeit ) : 0;
  139. if( !sichtbar && alpha > 0 )
  140. {
  141. if( alpha - zeit * 150 < 0 )
  142. alpha = 0;
  143. else
  144. alpha -= (unsigned char)( zeit * 150 );
  145. rend = 1;
  146. }
  147. if( sichtbar &&alpha < 255 )
  148. {
  149. if( alpha + zeit * 150 > 255 )
  150. alpha = 255;
  151. else
  152. alpha += (unsigned char)( zeit * 150 );
  153. rend = 1;
  154. }
  155. return rend;
  156. }
  157. void KEBVorschauKarteScript::render( Bild & zRObj )
  158. {
  159. if( !zRObj.setDrawOptions( pos.x, pos.y, ram->getBreite(), ram->getHeight() ) )
  160. return;
  161. zRObj.setAlpha( alpha );
  162. ram->render( zRObj );
  163. if( fenster )
  164. fenster->render( zRObj );
  165. zRObj.releaseAlpha();
  166. zRObj.releaseDrawOptions();
  167. }
  168. // Inhalt der KEBVorschau Klasse aus KEBVorschau.h
  169. // Konstruktor
  170. KEBVorschau::KEBVorschau( Schrift * zSchrift )
  171. : Zeichnung()
  172. {
  173. this->schrift = zSchrift->getThis();
  174. neu = initKnopf( 10, 10, 100, 20, zSchrift, Knopf::Style::Sichtbar, "Neu starten" );
  175. beenden = initKnopf( 10, 40, 100, 20, zSchrift, Knopf::Style::Sichtbar, "Beenden" );
  176. log = initTextFeld( 10, 445, 860, 75, zSchrift, ( TextFeld::Style::TextGebiet | TextFeld::Style::HScroll ) & ~TextFeld::Style::Erlaubt, "Log:\n" );
  177. script = new KEBVorschauKarteScript( zSchrift, log );
  178. erlaubt = initKontrollKnopf( 10, 70, 100, 20, zSchrift, KontrollKnopf::Style::Normal | KontrollKnopf::Style::Selected, "Erlaubt" );
  179. alpha = 0;
  180. sichtbar = 0;
  181. tickVal = 0;
  182. aktion = 0;
  183. rend = 0;
  184. }
  185. // Destruktor
  186. KEBVorschau::~KEBVorschau()
  187. {
  188. schrift->release();
  189. script->release();
  190. neu->release();
  191. beenden->release();
  192. log->release();
  193. erlaubt->release();
  194. }
  195. // nicht constant
  196. int KEBVorschau::getAktion()
  197. {
  198. int ret = aktion;
  199. aktion = 0;
  200. return ret;
  201. }
  202. bool KEBVorschau::ladeKarte()
  203. {
  204. Text *scr = editorClient->beschreibungLaden();
  205. if( !scr )
  206. {
  207. nachLogin->zNachrichtenListe()->addNachricht( new Text( "Fehler" ), new Text( editorClient->getLetzterFehler() ), new Text( "Ok" ) );
  208. return 0;
  209. }
  210. else
  211. {
  212. Datei d;
  213. d.setDatei( "data/tmp/ke/kbv/seite.ksgs" );
  214. d.erstellen();
  215. if( !d.open( Datei::Style::schreiben ) )
  216. {
  217. nachLogin->zNachrichtenListe()->addNachricht( new Text( "Fehler" ), new Text( "Fehler beim open der Datei 'data/tmp/ke/kbv/seite.ksgs'" ), new Text( "Ok" ) );
  218. return 0;
  219. }
  220. d.schreibe( scr->getText(), scr->getLength() );
  221. d.close();
  222. scr->release();
  223. script->ladeKarteSeite( "data/tmp/ke/kbv" );
  224. }
  225. return 1;
  226. }
  227. void KEBVorschau::setSichtbar( bool sicht )
  228. {
  229. sichtbar = sicht;
  230. }
  231. void KEBVorschau::doMausEreignis( MausEreignis & me )
  232. {
  233. if( !sichtbar )
  234. return;
  235. script->doMausEreignis( me );
  236. bool mev = me.verarbeitet;
  237. neu->doMausEreignis( me );
  238. if( !mev && me.verarbeitet &&me.id == ME_RLinks )
  239. script->ladeKarteSeite( "data/tmp/ke/kbv" );
  240. mev = me.verarbeitet;
  241. beenden->doMausEreignis( me );
  242. if( !mev && me.verarbeitet &&me.id == ME_RLinks )
  243. aktion = 1;
  244. log->doMausEreignis( me );
  245. bool eu = 0;
  246. bool sel = erlaubt->hatStyle( KontrollKnopf::Style::Selected );
  247. erlaubt->doMausEreignis( me );
  248. if( sel != erlaubt->hatStyle( KontrollKnopf::Style::Selected ) )
  249. script->setErlaubt( erlaubt->hatStyle( KontrollKnopf::Style::Selected ) );
  250. }
  251. void KEBVorschau::doTastaturEreignis( TastaturEreignis & te )
  252. {
  253. if( !sichtbar )
  254. return;
  255. script->doTastaturEreignis( te );
  256. }
  257. bool KEBVorschau::tick( double zeit )
  258. {
  259. bool ret = script->tick( zeit );
  260. ret |= neu->tick( zeit );
  261. ret |= beenden->tick( zeit );
  262. ret |= log->tick( zeit );
  263. ret |= erlaubt->tick( zeit );
  264. tickVal += zeit * 150;
  265. int val = 0;
  266. if( tickVal > 1 )
  267. val = (int)tickVal;
  268. else
  269. return ret;
  270. if( sichtbar && alpha != 255 )
  271. {
  272. if( alpha + val > 255 )
  273. alpha = 255;
  274. else
  275. alpha += val;
  276. ret = 1;
  277. }
  278. if( !sichtbar && alpha != 0 )
  279. {
  280. if( alpha - val < 0 )
  281. alpha = 0;
  282. else
  283. alpha -= val;
  284. ret = 1;
  285. }
  286. return ret;
  287. }
  288. void KEBVorschau::render( Bild & zRObj )
  289. {
  290. zRObj.setAlpha( alpha );
  291. script->render( zRObj );
  292. neu->render( zRObj );
  293. beenden->render( zRObj );
  294. log->render( zRObj );
  295. erlaubt->render( zRObj );
  296. zRObj.releaseAlpha();
  297. }
  298. // constant
  299. bool KEBVorschau::istSichtbar() const
  300. {
  301. return sichtbar;
  302. }