Public Pastes
G2A Many GEOs
SHARE
TWEET

Untitled

a guest Nov 8th, 2014 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '***********************
  2. ' Eingabe Route:
  3. '***********************
  4.                 (L.L.IBIS_mode) 2 =
  5.                 {if}
  6.                         (L.L.IBIS_input) s0 (S.L.IBIS_Route)
  7.                         0 =
  8.                         {if}
  9.                                 -1 (S.L.IBIS_RouteIndex)
  10.                                 0 (S.L.IBIS_Route)
  11.                                 0 (S.L.IBIS_busstop_index)
  12.                                 "" (S.$.IBIS_cabindisplay)
  13.                                 0 (S.L.IBIS_busstop)
  14.                                 "" (S.$.act_busstop)
  15.                                 "" (S.$.IBIS)
  16.                                 "" (S.$.IBIS_busstop_name)
  17.                                 0 (S.L.IBIS_mode)
  18.                                 "" (S.$.Haltestelle)
  19.                         {else}
  20. ' Das Folgende soll künftig erst nach "Route" gemacht werden!
  21.                                 (L.L.IBIS_LinieKurs) 100 * l0 + (M.V.GetRouteIndex) s1
  22.                                 0 <
  23.                                 {if}
  24. ' Falls kleiner 0, also -1, dann fehlerhaft, dann nicht übernehmen sondern Fehlermeldung ausgeben:
  25.                                         4 (S.L.IBIS_mode)
  26. '               Blinker aktivieren:
  27.                                         1 (S.L.IBIS_BlinkOn) (S.L.IBIS_BlinkInitial)
  28.                                         (L.S.GetTime) (S.L.IBIS_BlinkTimer)
  29. '               Fehler-piepen
  30.                                         (T.L.ev_IBIS_pieperror)
  31.                                 {else}
  32.                                         (T.L.ev_IBIS_piep)
  33.                                         (M.L.IBIS_SetRoute)
  34. ' Bushaltestellen zurücksetzen:
  35.                                         0 (S.L.IBIS_busstop)                   
  36.                                         (M.L.IBIS_RefreshBusstop)
  37. 'ANNAX-Test:
  38. '                                       7 (S.L.IBIS_mode)
  39.                                         0 (S.L.IBIS_modetimer)
  40.                                         8 (S.L.IBIS_mode)
  41.  
  42. ' Entwerter umstellen:
  43.                                         (T.L.ev_IBIS_entwerter)
  44.                                         (L.L.IBIS_busstop_entwerter_soll) (S.L.IBIS_busstop_entwerter_ist)
  45.                                         (M.L.Fahrscheindrucker-Haltestelle)
  46.                    
  47. ' Fahrplantextur zuweisen:
  48.                                         "..\..\Anzeigen\Umlaufplaene\" 0 (M.V.GetDepotStringGlobal) "\" $+ $+
  49.                                         (L.L.IBIS_LinieKurs) "03" $IntToStrEnh $+ (L.L.IBIS_Linie_Suffix) l0 "02" $IntToStrEnh $+ "_" $+ (L.L.IBIS_Route) "02" $IntToStrEnh $+ ".tga" $+
  50.                                         (S.$.schedule_texture)
  51.                                 {endif}
  52.                         {endif}
  53.                 {else}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top