; male fiolety w glownym, duze w plecaku w plecaku ;-)
    initevents
    linespercycle 20

    repeat
    ignoreitem reset
    onHotKey b alt   ;wsiadanie na widmo
    gosub widmo
    onHotKey F12      ;drzwi
    gosub drzwi
    onHotkey F4      ;nozyczki
    gosub nozyczki
    onHotKey F6       ;zolta
    gosub zolta
    onHotKey F5       ;czerwony pot
    gosub czerwona
    onHotKey F7       ;pomarancz
    gosub pomarancz
    ;onHotKey delete
    ;gosub wytrwa
    ;onHotKey insert
    ;gosub szal
    ;onHotKey home
    ;gosub regen
    onHotKey delete       ;mixa dexa
    gosub dexa
    onHotKey insert       ;mixa stra
    gosub stra
    onHotKey f8       ;maly fiolet + an ex
    gosub malyfiolet
    onHotKey f9       ;trutka
    gosub truta
    onHotKey F2 ctrl  ;KLAWISZ DO ODKLADANIA REGOW
    gosub odkladaj
    onHotKey f10  ;szafirowy pot
    gosub szafirowa
    onHotKey f alt
    gosub hala
    until #false

    sub widmo
    event macro 1 0 Stop
    event macro 1 0 Podejdzcie!
    set #lobjectid NNEAH ;<---WPISZ ID WIDMAKA
    event macro 17 0
    return

    sub wytrwa
    event macro 1 0 .rzuc b wytrwalosc
    return

    sub szal
    event macro 1 0 .rzuc b szal
    return

    sub regen
    event macro 1 0 .rzuc b regeneracja
    return

    sub drzwi
    set %czas #scnt2 + 20
    ignoreitem reset
    drzwi:
    finditem XG_ZG_TG_VG_FH_HH_BH_DH_AY_ZX_CY_BY_XGB_ZGB_JHB_LHB_FHB_HHB_RHB_THB_NHB_PHB_ZHB_BIB_VHB_XHB_HIB_JIB_DIB_FIB_PIB_RIB_LIB_NIB_ZDB_BEB_VDB_XDB_HEB_JEB_DEB_FEB_PEB_REB_LEB_NEB_XEB_ZEB_TEB_VEB_FFB_HFB_FJC_IJC_HJC_SJC_RJC_UJC_TJC_OJC_NJC_QJC_PJC_YOC_XOC_APC_ZOC_UOC_TOC_WOC_VOC_GPC_FPC_IPC_HPC_CPC_BPC_EPC_DPC_OPC_NPC_QPC_PPC_KPC_JPC_MPC_LPC_WPC_VPC_YPC_XPC_SPC_RPC_UPC_TPC_EQC_DQC_GQC_FQC_AQC_ZPC_CQC_BQC_MQC_LQC_OQC_NQC_IQC_HQC_KQC_JQC_UQC_TQC_WQC_VQC_QQC_PQC_SQC_RQC_CRC_BRC_ERC_DRC_YQC_XQC_ARC_ZQC_MMC_LMC_OMC_NMC_IMC_HMC_KMC_JMC_UMC_TMC_WMC_VMC_QMC_PMC_SMC_RMC_CNC_BNC_ENC_DNC_YMC_XMC_ANC_ZMC_KNC_JNC_MNC_LNC_GNC_FNC_INC_HNC_SNC_RNC_UNC_TNC_ONC_NNC_QNC_PNC_AOC_ZNC_COC_BOC_WNC_VNC_YNC_XNC_IOC_HOC_KOC_JOC_EOC_IPJ_HPJ_RPL_UPL_TPL_OPL_NPL_QPL_PPL_AQL_ZPL_CQL_BQL_WPL_VPL_YPL_XPL_IQL_HQL_KQL_JQL_EQL_DQL_GQL_FQL_QQL_PQL_SQL_RQL_MQL_LQL_OQL_NQL_YQL_XQL_ARL_ZQL_UQL_ZZL_CAM_BAM_MAM_LAM_OAM_NAM_IAM_HAM_KAM_JAM_UAM_TAM_WAM_VAM_QAM_FUN_QUN_PUN_SUN_RUN_MUN_GRO_IRO_EWP_DWP_KWP_JWP_HAQ_KAQ_JAQ_UAQ_TAQ_WAQ_VAQ_QAQ  G_2 ;
    if #findkind = -1
    finditem DUU_TTU_XTU_RTU_PAQ_SAQ_RAQ_CBQ_BBQ_EBQ_DBQ_YAQ_XAQ_ABQ_ZAQ_KBQ_JBQ_MBQ_LBQ_GBQ_UED_TED_WED_VED_GFD_FFD_IFD_HFD_CFD_BFD_EFD_DFD_OFD_NFD_QFD_PFD_VFD_YFD_XFD_SFD_RFD_UFD_TFD_GBD_FBD_IBD_HBD_CBD_BBD_EBD_DBD_OBD_KBD_JBD_MBD_LBD_WBD_VBD_YBD_XBD_SBD_RBD_UBD_TBD_ECD_DCD_GCD_FCD_KCD_JCD_UCD_TCD_WCD_VCD_QCD_PCD_SCD_RCD_CDD_BDD_EDD_DDD_YCD_XCD_RZN_UZN_TZN_EAO_DAO_GAO_FAO_AAO_ZZN_CAO_BAO_MAO_LAO_OAO_ZHO G_2 ;
    if #findkind = 1 && ( ( #findz - #charposz ) > 15 || ( #findz - #charposz ) < -15 )
    {
      ignoreitem #findid
      goto drzwi
    }
    if #findkind = 1 && ( ( #findz - #charposz ) < 16 && ( #findz - #charposz ) > -16 )
    {
      set #lobjectid #findid
      event macro 17
      wait 5
      return
    }
    if %czas < #scnt2
    {
      return
    }
    goto drzwi_petla

    sub nozyczki
    repeat
    onhotkey %Klawisz
      gosub Nozyczki
    until #false
    sub Nozyczki
    Uzyj_nozyczek:
    finditem kag C
    if #findkind = -1
      return
    set #lobjectid #findid
    event macro 17
    set %Timer #scnt2 + 5
    repeat
    if %Timer < #scnt2
      goto Uzyj_nozyczek
    until #targcurs = 1
    repeat
    onhotkey ESC
      return
    until #targcurs = 0
    onhotkey ESC
      return
    set %Id_pojemnika #ltargetid
    set #lobjectid %Id_pojemnika
    event macro 17
    set %Timer #scnt2 + 25
    Nastepne_piora:
    repeat
    if %Timer < #scnt2
      return
    finditem VLK C_ , %Id_pojemnika
    until #findkind = 0
    set %Id_pior #findid
    set %Stack_pior #findstack
    ExDrag_pior:
    exevent drag %Id_pior %Stack_pior
    set %Timer #scnt2 + 25
    repeat
    if %Timer < #scnt2
      goto ExDrag_pior
    finditem %Id_pior C_ , %Id_pojemnika
    until #findkind = -1
    set %Id_pior_w_plecaku 0
    finditem vlk C_ , #backpackid
    if #findkind = 0
    {
      set %Id_pior_w_plecaku #findid
      set %Stack_pior_w_plecaku #findstack
    }
    set %Cnt_dropow 0
    ExDrop_pior:
    set %Cnt_dropow %Cnt_dropow + 1
    if %Cnt_dropow > 3
      return
    exevent dropc #backpackid
    set %Timer #scnt2 + 12
    repeat
    if %Timer < #scnt2
      goto ExDrop_pior
    if %Id_pior_w_plecaku = 0
      finditem %Id_pior C_ , #backpackid
    else
      finditem %Id_pior_w_plecaku C_ , #backpackid
    until ( #findkind = 0 && %Id_pior_w_plecaku = 0 ) || ( #findstack = %Stack_pior_w_plecaku + %Stack_pior && %Id_pior_w_plecaku <> 0 )
    set %Timer #scnt2 + 3
    goto Nastepne_piora

    sub zolta
    finditem UUF C ;Heal
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz zoltych
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl zoltych
    return

    sub truta
    finditem AVF C ;Heal
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz zielonych
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl zielonych
    return

    sub czerwona
    finditem ZUF C ;czerwony pot
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz czerwieni
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl czerwieni
    return

    sub dexa
    finditem YUF C ;czerwony pot
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz duzych niebieskich!
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl duzych niebieskich.
    return

    sub stra
    finditem XUF C ;czerwony pot
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz duzych bialych!
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl duzych bialych.
    return

    sub pomarancz
    finditem NUF C ;pomarancz
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz pomaranczy
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl pomaranczy
    return

    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl niebieskich
    return

    sub malyfiolet
    finditem LPF C_ , #BACKPACKID ;maly fiolet
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz malych wybuchow
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl malych wybuchow
    target 1s
    event macro 23 0
    ;event macro 15 37 ;paraliz
    return

    sub hala
    hala:
    finditem cuo C
    if #findkind = -1
    {
     set #sysmsgcol 1080
     event sysmessage Nie masz Halabardy!
     return
    }
    if #findbagid = #charid
     return
    set #lobjectid #findid
    set %licz 0
    event macro 17
    petla3:
    scanjournal 1
    set %licz %licz + 1
    if Przedmiot_musi_byc_w_twoim_plecaku in #journal
     return
    finditem guo C
    if #findbagid = #charid
     return
    if %licz > 6
     goto hala
    goto petla3



    przenoszenie:
    finditem %reg C_ , %ple2 ;znajduje ziolo w plecaku
    set %nies %ziolo - #findstack ;wylicza ile brakuje
    if %nies = 0 ;kiedy ma nie przenosic
       goto start
    if %nies < 0 ;kiedy ma odlozyc
       {
       set %nies #findstack - %ziolo
       exdrag1:
       exevent drag #findid %nies ;podnies
       set %czas #scnt2 + 25
       repeat
       if %czas < #scnt2
          goto exdrag1
       finditem %reg C_ , %ple2 ;znajduje ziola w twoim plecaku
       until #findstack = %ziolo
       finditem %reg C_ , %ple1
       set %temp #findstack
       exdrop1:
       exevent dropc %ple1 ;odloz
       set %czas #scnt2 + 25
       repeat
       if %czas < #scnt2
          goto exdrop1
       finditem %reg C_ , %ple1 ;znajduje ziola w plecaku z zapasami
       until #findstack <> %temp
       goto start
       }
    finditem %reg C_ , %ple1 ;znajduje ziolo w plecaku z zapasami
    if #findkind = -1 ;kiedy nie masz zapasow ziol
       {
       set #sysmsgcol 1080
       event sysmessage Nie znalazlem ziola, pomijam
       goto start
       }
    set %tmp #findstack - %nies
    if %tmp < 0
       {
       set %tmp 0
       set %nies #findstack
       }
    exdrag2:
    exevent drag #findid %nies ;podnies
    set %czas #scnt2 + 25
    repeat
    if %czas < #scnt2
       goto exdrag2
    finditem %reg C_ , %ple1 ;znajduje ziolo w plecaku z zapasami
    until #findstack = %tmp
    finditem %reg C_ , %ple2
    set %tmp #findstack + %nies
    exdrop2:
    exevent dropc %ple2 ;odloz
    set %czas #scnt2 + 25
    repeat
    if %czas < #scnt2
       goto exdrop2
    finditem %reg C_ , %ple2
    until #findstack = %tmp
    goto start
    koniec:
    set #sysmsgcol 1063
    event sysmessage Skonczylem przekladac
    return

    sub odkladaj
    set #targcurs 1 ;ustawienie kursora
    set #sysmsgcol 1080
    event sysmessage Pokaz plecak do ktorego chcesz odlozyc ziola i kamienie
    repeat ;petla czeka az wskazesz pojemnik z regami
    onhotkey ESC
    goto wcis_esc2
    until #targcurs = 0
    onhotkey ESC
    {
    wcis_esc2:
    set #sysmsgcol 1080
    event sysmessage ANULOWANO
    return
    }
    set %ple #ltargetid
    set #lobjectid #ltargetid
    set %czas #scnt2 + 10
    repeat
    event macro 17 0
    wait 5
    if %czas < #scnt2
    {
    set #sysmsgcol 1080
    event sysmessage ANULOWANO
    return
    }
    until ( #contid = #ltargetid )

    lecimy:
    finditem wlf_szf_rzf_mzf_kzf_wzf_juf_jzf_ozf_vzf_yzf_tzf_qzf_duf_pzf_fuf_euf_nzf_huf_eag_guf_iuf_kuf_uzf_dag_eth_lzf_rvf_mwf_evf_bvf_gvf_ovf_fvf_hvf_vuf_wuf_rwf_lnk_vlk C_ , #backpackid ;
    if #findkind = -1
    {
    set #sysmsgcol 1063
    event sysmessage Odlozone
    return
    }
    set %id_przen #findid
    set %stack_przen #findstack
    set %typ_przen #findtype
    exdrag3:
    exevent drag %id_przen %stack_przen ;podnies
    set %czas #scnt2 + 25
    repeat
    if %czas < #scnt2
       goto exdrag3
    finditem %id_przen C_ , #backpackid ;
    until #findkind = -1
    finditem %typ_przen C_ , %ple
    set %tmp #findstack
    exdrop3:
    exevent dropc %ple ;odloz
    set %czas #scnt2 + 25
    repeat
    if %czas < #scnt2
       goto exdrop3
    finditem %typ_przen C_ , %ple
    until #findstack <> %tmp
    goto lecimy

    sub szafirowa
    szaf:
    finditem LPF C ;cszafir pot  LPF - Szafir    TUF - fiolet
    if #FINDBAGID = #BACKPACKID
    {
    ignoreitem #findid
    goto szaf
    }
    if #findkind = -1
    {
    set #sysmsgcol 1080
    event sysmessage Nie masz duzych wybuchow
    return
    }
    set #lobjectid #findid
    event macro 17 0 ;last object
    set #sysmsgcol 1063
    set %butl ( #findstack - 1 )
    event sysmessage Zostalo %butl wybuchow
    return