API tools faq
paste
Advertisement
deseven

infomap

deseven
May 24th, 2012
482
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PureBasic 13.61 KB | None | 0 0
raw download clone embed print report
  1. ; InfoMap preview
  2.  
  3. Ващета ГдеЭтоЯ.s = Точнее(ГдеЯ())
  4. Ващета ЧоЭто = -1
  5. Ващета ЧоЭтоВаще.s = ""
  6.  
  7. ПокорительJPG()
  8. ПокорительPNG()
  9. Буковки(1,"Arial",14,#ЖИРНОБУКВЫ)
  10.  
  11. Ебашить Город(Какойта.s)
  12.   А чо если СколькоЭта(ГдеЭтоЯ + "data\" + Какойта) = -2
  13.     ЕбашитьКортинке(0,600,600)
  14.     А чо если НачатьЕбашитьКортинке(Кортинке(0))
  15.       Ящег(0,0,600,600,$CCFFFF)
  16.       А чо если Пачитаем(1,ГдеЭтоЯ + "data\" + Какойта + "\map.dat")
  17.         Ващета НоваяХуйня Хуйни.s()
  18.         А поебашим пока Канец(1) = 0
  19.           Унитаз.s = ПачитаемХуйню(1)
  20.           А чо если Левый(Унитаз,2) = "id"
  21.             СейчасХуйня.s = ОтложитьЛичинку(Унитаз,2," ")
  22.             Ебашибельно = #ТАКОНОИЕСТЬ
  23.             А поебашим пока не Левый(Унитаз,1) = "}"
  24.               Унитаз.s = УбратьЛичинку(ПачитаемХуйню(1),Значок(9),"")
  25.               А ну ка чо тут у нас в ОтложитьЛичинку(Унитаз,1,",")
  26.                 А вдруг "flag"
  27.                   А чо если ОтложитьЛичинку(Унитаз,2,",") = "неЕбашибельно"
  28.                     Ебашибельно = #НИПРАВДА
  29.                   Да ну нахуй
  30.                 А вдруг "box"
  31.                     Ящег(Оцифирить(ОтложитьЛичинку(Унитаз,2,",")),Оцифирить(ОтложитьЛичинку(Унитаз,3,",")),Оцифирить(ОтложитьЛичинку(Унитаз,4,",")),Оцифирить(ОтложитьЛичинку(Унитаз,5,",")),Цветочки(Оцифирить(ОтложитьЛичинку(Унитаз,6,",")),Оцифирить(ОтложитьЛичинку(Унитаз,7,",")),Оцифирить(ОтложитьЛичинку(Унитаз,8,","))))
  32.                   А чо если Ебашибельно = #ТАКОНОИЕСТЬ
  33.                     ДобавитьХуйни(Хуйни())
  34.                     Хуйни() = СейчасХуйня + Значок(9) + ОтложитьЛичинку(Унитаз,2,",") + Значок(9) + ОтложитьЛичинку(Унитаз,3,",") + Значок(9) + Обуквить(Оцифирить(ОтложитьЛичинку(Унитаз,2,",")) + Оцифирить(ОтложитьЛичинку(Унитаз,4,","))) + Значок(9) + Обуквить(Оцифирить(ОтложитьЛичинку(Унитаз,3,",")) + Оцифирить(ОтложитьЛичинку(Унитаз,5,",")))
  35.                   Да ну нахуй    
  36.                 А вдруг "circle"
  37.                   Кружочик(Оцифирить(ОтложитьЛичинку(Унитаз,2,",")),Оцифирить(ОтложитьЛичинку(Унитаз,3,",")),Оцифирить(ОтложитьЛичинку(Унитаз,4,",")),Цветочки(Оцифирить(ОтложитьЛичинку(Унитаз,5,",")),Оцифирить(ОтложитьЛичинку(Унитаз,6,",")),Оцифирить(ОтложитьЛичинку(Унитаз,7,","))))
  38.                 А вдруг "line"
  39.                   Палка(Оцифирить(ОтложитьЛичинку(Унитаз,2,",")),Оцифирить(ОтложитьЛичинку(Унитаз,3,",")),Оцифирить(ОтложитьЛичинку(Унитаз,4,",")),Оцифирить(ОтложитьЛичинку(Унитаз,5,",")),Цветочки(Оцифирить(ОтложитьЛичинку(Унитаз,6,",")),Оцифирить(ОтложитьЛичинку(Унитаз,7,",")),Оцифирить(ОтложитьЛичинку(Унитаз,8,","))))
  40.                 А вдруг "text"
  41.                   ШататьБуквыКругом(Оцифирить(ОтложитьЛичинку(Унитаз,2,",")),Оцифирить(ОтложитьЛичинку(Унитаз,3,",")),ОтложитьЛичинку(Унитаз,4,","),Оцифирить(ОтложитьЛичинку(Унитаз,5,",")),Цветочки(Оцифирить(ОтложитьЛичинку(Унитаз,6,",")),Оцифирить(ОтложитьЛичинку(Унитаз,7,",")),Оцифирить(ОтложитьЛичинку(Унитаз,8,","))))
  42.               А ничо больше нет
  43.             А хватит уже ебашить
  44.             Дихлофос "Loaded id: " + СейчасХуйня
  45.           Да ну нахуй
  46.         А хватит уже ебашить
  47.         ХватитЧитать(1)
  48.         ;Ящег(400,400,10,10,$000000)
  49.         Хватит ебашитьКортинке()
  50.         ЕбашитьНазад #ТАКОНОИЕСТЬ
  51.       Или ебашим
  52.         Хватит ебашитьКортинке()
  53.         ЕбашитьНазад #НИПРАВДА
  54.       Да ну нахуй
  55.     Или ебашим
  56.       ЕбашитьНазад #НИПРАВДА
  57.     Да ну нахуй
  58.     ЕбашитьНазад #ТАКОНОИЕСТЬ
  59.   Или ебашим
  60.     ЕбашитьНазад #НИПРАВДА
  61.   Да ну нахуй
  62. Хватит ебашить
  63.  
  64. Ебашить ПроверитьИЗапилить(x,y)
  65.   А чо если НачатьЕбашитьКортинке(Кортинке(0))
  66.     А чо если ЧоЭто > -1
  67.       Запили(Хуйни(),ЧоЭто)
  68.       Икс = Оцифирить(ОтложитьЛичинку(Хуйни(),2,Значок(9)))
  69.       Игрек = Оцифирить(ОтложитьЛичинку(Хуйни(),3,Значок(9)))
  70.       Толстота = Оцифирить(ОтложитьЛичинку(Хуйни(),4,Значок(9))) - Оцифирить(ОтложитьЛичинку(Хуйни(),2,Значок(9)))
  71.       Высокость = Оцифирить(ОтложитьЛичинку(Хуйни(),5,Значок(9))) - Оцифирить(ОтложитьЛичинку(Хуйни(),3,Значок(9)))
  72.       Ящег(Икс,Игрек,Толстота,Высокость,$3366CC)
  73.     Да ну нахуй
  74.     Для каждой Хуйни()
  75.       А чо если (Оцифирить(ОтложитьЛичинку(Хуйни(),2,Значок(9))) <= x) и еще (Оцифирить(ОтложитьЛичинку(Хуйни(),4,Значок(9))) >= x) и еще (Оцифирить(ОтложитьЛичинку(Хуйни(),3,Значок(9))) <= y) и еще (Оцифирить(ОтложитьЛичинку(Хуйни(),5,Значок(9))) >= y)
  76.         Икс = Оцифирить(ОтложитьЛичинку(Хуйни(),2,Значок(9)))
  77.         Игрек = Оцифирить(ОтложитьЛичинку(Хуйни(),3,Значок(9)))
  78.         Толстота = Оцифирить(ОтложитьЛичинку(Хуйни(),4,Значок(9))) - Оцифирить(ОтложитьЛичинку(Хуйни(),2,Значок(9)))
  79.         Высокость = Оцифирить(ОтложитьЛичинку(Хуйни(),5,Значок(9))) - Оцифирить(ОтложитьЛичинку(Хуйни(),3,Значок(9)))
  80.         Ящег(Икс,Игрек,Толстота,Высокость,$99CC99)
  81.         Хватит ебашитьКортинке()
  82.         ЧоЭто = ГдеЭтаХуйня(Хуйни())
  83.         ЧоЭтоВаще = ОтложитьЛичинку(Хуйни(),1,Значок(9))
  84.         Дихлофос "Selected: " + ЧоЭтоВаще
  85.         ЕбашитьНазад #ТАКОНОИЕСТЬ
  86.       Да ну нахуй
  87.     ЕщеЕбашим
  88.     Хватит ебашитьКортинке()
  89.     ЧоЭто = -1
  90.     ЧоЭтоВаще = ""
  91.     ЕбашитьНазад #НИПРАВДА
  92.   Или ебашим
  93.     ЕбашитьНазад #НИПРАВДА
  94.   Да ну нахуй
  95. Хватит ебашить
  96.  
  97. Ебашить РекламкеГрузанути(id.s,Какойта.s)
  98.   А чо если Пачитаем(2,ГдеЭтоЯ + "data\" + Какойта + "\ads.dat")
  99.     А поебашим пока не Канец(2)
  100.       Унитаз.s = ПачитаемХуйню(2)
  101.       А чо если Левый(Унитаз,2) = "id"
  102.         А чо если ОтложитьЛичинку(Унитаз,2," ") = id
  103.           А поебашим пока не Левый(Унитаз,1) = "}"
  104.             Унитаз = УбратьЛичинку(ПачитаемХуйню(2),Значок(9),"")
  105.             А ну ка чо тут у нас в ОтложитьЛичинку(Унитаз,1,",")
  106.               А вдруг "img"
  107.                 А чо если СделатьКортинке(1,ГдеЭтоЯ + "data\" + Какойта + "\img\" + ОтложитьЛичинку(Унитаз,2,","))
  108.                   ЗапилитьДверь(10,ЧоЗаКортинке(1))
  109.                 Или ебашим
  110.                   ЕбашитьНазад #НИПРАВДА
  111.                 Да ну нахуй
  112.               А вдруг "info"
  113.                 БуковкиШатать(11,УбратьЛичинку(ОтложитьЛичинку(Унитаз,2,","),Значок(34),""))
  114.               А вдруг "tel"
  115.                 БуковкиШатать(12,УбратьЛичинку(ОтложитьЛичинку(Унитаз,2,","),Значок(34),""))
  116.               А вдруг "name"
  117.                 БуковкиШатать(13,УбратьЛичинку(ОтложитьЛичинку(Унитаз,2,","),Значок(34),""))
  118.               А вдруг "orgname"
  119.                 БуковкиШатать(14,УбратьЛичинку(ОтложитьЛичинку(Унитаз,2,","),Значок(34),""))
  120.             А ничо больше нет
  121.           А хватит уже ебашить
  122.           ЕбашитьНазад #ТАКОНОИЕСТЬ
  123.         Да ну нахуй
  124.       Да ну нахуй
  125.     А хватит уже ебашить
  126.     ХватитЧитать(2)
  127.   Или ебашим
  128.     ЕбашитьНазад #НИПРАВДА
  129.   Да ну нахуй
  130. Хватит ебашить
  131.  
  132. А чо если СемкиДостать(ГдеЭтоЯ + "im.ini")
  133.   Какойта.s = ДостатьСемку(КакойтаТакой,"n/a")
  134.   СемкиУбрать()
  135.   А чо если Город(Какойта)
  136.     ЗапилитьОкно(0,#ХУЙ,#ХУЙ,800,600,"InfoMap",#ГЛАВНАЕАКОШКОНАРАЕНЕ|#МАЛИНОВЫЙПИДЖАК)
  137.     РамаДляКортинок(100,0,0,0,0,ЧоЗаКортинке(0))
  138.     Буквоповелитель(1,610,300,180,20,"Выберите дом",#ЧОТКИЕБУКВЫ)
  139.     ЕбашитьКортинке(1,180,180)
  140.     Буквоповелитель(13,610,10,180,30,"",#ЧОТКИЕБУКВЫ)
  141.     СделатьБуквы(13,ЧоЗаБуквы(1))
  142.     РамаДляКортинок(10,610,50,180,180,ЧоЗаКортинке(1))
  143.     Буквоповелитель(14,610,250,180,60,"",#ЧОТКИЕБУКВЫ)
  144.     СделатьБуквы(14,ЧоЗаБуквы(1))
  145.     Буквоповелитель(11,610,300,180,100,"")
  146.     СделатьКортинке(2,ГдеЭтоЯ + "data\" + "tel.png")
  147.     РамаДляКортинок(15,610,410,16,16,ЧоЗаКортинке(2))
  148.     Буквоповелитель(12,630,412,160,20,"")
  149.     СъебатьВТуман(10,1) : СъебатьВТуман(11,1) : СъебатьВТуман(12,1) : СъебатьВТуман(13,1) : СъебатьВТуман(14,1) : СъебатьВТуман(15,1)
  150.     Ебашить же
  151.       ОПАСНОСТЕ = Ждать()
  152.       А чо если ПовелительСообщает() = 100 и еще ОПАСНОСТЕ = #ПОВЕЛИТЕЛЬ
  153.         ПроверитьИЗапилить(ТолстаяМышь(0),ВысокаяМышь(0))
  154.         ЗапилитьДверь(100,ЧоЗаКортинке(0))
  155.         А чо если ЧоЭтоВаще = ""
  156.           БуковкиШатать(1,"Выберите дом")
  157.           СъебатьВТуман(1,0) : СъебатьВТуман(10,1) : СъебатьВТуман(11,1) : СъебатьВТуман(12,1) : СъебатьВТуман(13,1) : СъебатьВТуман(14,1) : СъебатьВТуман(15,1)
  158.         Или ебашим
  159.           А чо если РекламкеГрузанути(ЧоЭтоВаще,Какойта)
  160.             СъебатьВТуман(1,1) : СъебатьВТуман(10,0) : СъебатьВТуман(11,0) : СъебатьВТуман(12,0) : СъебатьВТуман(13,0) : СъебатьВТуман(14,0) : СъебатьВТуман(15,0)
  161.           Или ебашим
  162.             СъебатьВТуман(1,0) : СъебатьВТуман(10,1) : СъебатьВТуман(11,1) : СъебатьВТуман(12,1) : СъебатьВТуман(13,1) : СъебатьВТуман(14,1) : СъебатьВТуман(15,1)
  163.             БуковкиШатать(1,"Нет информации")
  164.             СъебатьВТуман(1,0)
  165.           Да ну нахуй
  166.         Да ну нахуй
  167.       Да ну нахуй
  168.     А пока не ОПАСНОСТЕ = #АКОШКОКАПУТ
  169.   Или ебашим
  170.     ПовелительГоворит("Error!","Can't load city `" + Какойта + "`")
  171.   Да ну нахуй
  172. Или ебашим
  173.   ПовелительГоворит("Error!","Can't open `im.ini`")
  174. Да ну нахуй
  175.  
  176. ; IDE Options = PureBasic 4.51 (Windows - x86)
  177. ; CursorPosition = 8
  178. ; Folding = -
  179. ; EnableXP
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!