API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 19th, 2013
79
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.79 KB | None | 0 0
raw download clone embed print report
  1. #TouhouDanmakufu
  2. #Title[tailsnon1]
  3. #Text[Object1]
  4. #Image[.\image.png]
  5. #Background[User(.\bg.png, 1, 1)]
  6. #BGM[.\bgm.mp3]
  7. #PlayLevel[Overdrive]
  8. #Player[FREE]
  9. #ScriptVersion[2]
  10.  
  11. script_enemy_main{
  12. let MY = GetCurrentScriptDirectory~"supershot.txt";
  13. let frame=0;
  14. let frame2=0;
  15. let frame3=90;
  16. let frame4=180;
  17. let frame5=270;
  18. let t=350;let a=0;
  19. let cir=0;
  20. let X=GetCenterX;
  21. let Y=50;
  22. let y=0;
  23. let angle=0;
  24. let angle3=-160;let an=0;
  25. let angle5=160;
  26. let angle4=-270;
  27. let angle2=0;
  28. let cat = GetCurrentScriptDirectory~"cat.png";
  29. let sonic = GetCurrentScriptDirectory~"tdstand.png";
  30. let cut = GetCurrentScriptDirectory~"A.png";
  31. let yy =GetCenterY;
  32. let xx=GetClipMaxX+100;
  33. #include_function ".\function_cutin.txt"
  34. #include_function ".\AnimationLib.dnh"
  35. let j=GetCurrentScriptDirectory~"tdmove.png";
  36. let j2=GetCurrentScriptDirectory~"tdmove.png";
  37. let j3=GetCurrentScriptDirectory~"j3.png";let a=10;
  38. let j4=GetCurrentScriptDirectory~"j4.png";
  39. let m=0; let w=180;let bg=GetCurrentScriptDirectory~"amybg.jpg";let bg3=GetCurrentScriptDirectory~"tailsbg.jpg";
  40. let bg2=GetCurrentScriptDirectory~"sircle.jpg"; let x222=0; let x333=11; let x444=0;
  41. let dir=90;#include_function ".\function_cutin.txt"
  42. let w=60;let angle=0;let angle2=220;
  43.  
  44. /////////
  45. let b1=GetCurrentScriptDirectory~"b1.png";
  46. let b2=GetCurrentScriptDirectory~"b2.png";
  47. ///////
  48. @Initialize{
  49. SetLife(3000);SetTimer(40);
  50. LoadGraphic(cut);
  51. LoadGraphic(sonic);
  52. LoadGraphic(bg);
  53. LoadGraphic(j2);
  54. LoadGraphic(bg2);
  55. LoadGraphic(bg3);
  56. LoadGraphic(b1);
  57. LoadGraphic(b2);
  58. //LoadGraphic(sonic2);
  59. LoadUserShotData(MY);
  60. blast1;
  61.  
  62. //////////////
  63.  
  64. CreateAnimation("boss", "Standing",2);
  65. SetAnimationFrame("boss", "Standing",0, b1, 2, 0, 0, 27, 33);
  66. SetAnimationFrame("boss", "Standing",1,b2, 2, 0, 0, 26, 34);
  67.  
  68.  
  69. ///////////////////////
  70.  
  71.  
  72.  
  73. main;
  74. cutin("NAZRIN","Killer Sign | Instant Kill |","cut",0,0,200,340);
  75.  
  76. }
  77. @MainLoop{yield;SetCollisionA(GetX, GetY, 32);
  78. SetCollisionB(GetX, GetY, 16);
  79. an+=10;
  80.  
  81.  
  82.  
  83. x222+=1; x333+=x444; x444+=0.002;
  84. }
  85. @DrawLoop{
  86.  
  87.  
  88. if(y>15){y--;}
  89. SetTexture(bg);
  90. y+=3;
  91. SetGraphicRect(0,0,4000*2,4000*2);
  92. SetGraphicScale(1.5,1.5);
  93. SetAlpha(255);SetGraphicAngle(0, 0, 0);
  94. DrawGraphic(GetCenterX+y/2,GetCenterY-y/2);
  95. //////////////
  96. if(GetSpeed() == 0){Animate("boss","Standing",true);
  97. }
  98. /////////////
  99.  
  100. SetTexture(cut);SetGraphicAngle(0, 0, 0);
  101. SetGraphicRect(0,0,880,1128);
  102. SetGraphicScale(0.5,0.5); SetGraphicAngle(0, 0, 0);
  103. DrawGraphic(xx,xx); SetAlpha(255);
  104. if(GetSpeed() > 0){
  105. SetGraphicAngle(0, 0, 0);
  106. SetTexture(j2);SetAlpha(255);
  107. SetGraphicRect(0,0,23,35);
  108. SetGraphicScale(1.5,1.5);
  109. DrawGraphic(GetX,GetY);}
  110.  
  111.  
  112.  
  113. SetTexture(bg2);
  114. SetGraphicAngle(0, 0, -x333);
  115. SetGraphicRect(0,0,900,900);
  116. SetGraphicScale(0.3,0.3);
  117. SetAlpha(130);
  118. DrawGraphic(GetX,GetY);
  119.  
  120. if(x333>10){x444=3;}
  121.  
  122. if(xx>GetCenterX){xx-=50;}
  123. if(xx<GetCenterX){xx-=0.3;}
  124. if(xx<190){xx-=50;}
  125. }
  126. @Finalize{
  127. }
  128. @Background{
  129. }
  130. task main{
  131. SetMovePosition03(GetCenterX,GetCenterY,10,3);
  132. PlaySE(GetCurrentScriptDirectory ~ ".\Sounds\se_cat00.wav");
  133. wait(120);
  134.  
  135.  
  136.  
  137. loop(300){
  138. a+=20;
  139. bullet4;
  140. bullet5;
  141. wait(30);
  142. SetMovePosition03(GetCenterX-rand(-200,200),GetCenterY-rand(-100,100),10,3);
  143. wait(60);
  144.  
  145.  
  146. }
  147. }
  148.  
  149.  
  150. task kill{
  151. TimeStop(60,1,1,1);
  152. SetMovePosition03(GetPlayerX-50,GetPlayerY,10,6);
  153. wait(60);
  154. CreateShot01(GetX,GetY,3,GetAngleToPlayer,230,10);
  155. }
  156. task laser{
  157.  
  158. fire3;
  159. wait(60);
  160.  
  161.  
  162. }
  163.  
  164.  
  165. task fire3{
  166. bullet4;}
  167.  
  168.  
  169. let angle=135;
  170. task bullet4{
  171.  
  172.  
  173.  
  174. let obj26=Obj_Create(OBJ_SHOT);
  175. Obj_SetX(obj26,GetX);
  176. Obj_SetY(obj26,GetY);
  177. Obj_SetSpeed(obj26,4);
  178. Obj_SetAngle(obj26,angle+a);
  179. ObjShot_SetBombResist(obj26,true);
  180. ObjShot_SetGraphic(obj26,249);
  181.  
  182. while(!Obj_BeDeleted(obj26)){yield;
  183. Obj_SetAutoDelete(obj26,true);
  184.  
  185. CreateShotA(2,Obj_GetX(obj26)+rand(-5,5),Obj_GetY(obj26)+rand(-5,5),0);
  186.  
  187.  
  188. SetShotDataA(2,0,0,angle2,0,0,1,242);
  189.  
  190. SetShotKillTime(2,20);
  191.  
  192. FireShot(2);
  193.  
  194.  
  195. if(Obj_GetX(obj26)<GetClipMinX){
  196. Obj_SetAngle(obj26,180-Obj_GetAngle(obj26));}
  197.  
  198. if(Obj_GetX(obj26)>GetClipMaxX){
  199. Obj_SetAngle(obj26,180-Obj_GetAngle(obj26));
  200.  
  201. }}}
  202.  
  203.  
  204. task bullet5{
  205.  
  206.  
  207.  
  208. let obj216=Obj_Create(OBJ_SHOT);
  209. Obj_SetX(obj216,GetX);
  210. Obj_SetY(obj216,GetY);
  211. Obj_SetSpeed(obj216,4);
  212. Obj_SetAngle(obj216,180+angle+a);
  213. ObjShot_SetBombResist(obj216,true);
  214. ObjShot_SetGraphic(obj216,249);
  215.  
  216. while(!Obj_BeDeleted(obj216)){yield;
  217.  
  218. Obj_SetAutoDelete(obj216,true);
  219.  
  220. CreateShotA(21,Obj_GetX(obj216)+rand(-5,5),Obj_GetY(obj216)+rand(-5,5),0);
  221.  
  222.  
  223. SetShotDataA(21,0,0,angle2,0,0,1,242);
  224.  
  225. SetShotKillTime(21,20);
  226.  
  227. FireShot(21);
  228.  
  229.  
  230. if(Obj_GetX(obj216)>GetClipMaxX){
  231. Obj_SetAngle(obj216, 180-Obj_GetAngle(obj216));}
  232.  
  233. if(Obj_GetX(obj216)<GetClipMinX){
  234. Obj_SetAngle(obj216, 180-Obj_GetAngle(obj216));
  235.  
  236.  
  237.  
  238. }}}
  239.  
  240.  
  241. /////
  242.  
  243.  
  244.  
  245. task blast1{
  246. wait(360);
  247. loop(88888){
  248. loop(10){
  249. CreateShotA(2221,GetX,GetY,5);
  250.  
  251.  
  252. SetShotDataA(2221,0,3,angle3,14,0,1,42);
  253. SetShotDataA(2221,60,3,angle3,6,0,1,42);
  254. SetShotDataA(2221,120,3,angle3,1,0,1,42);
  255.  
  256. angle3+=360/10;
  257. FireShot(2221);
  258. }
  259. PlaySE(GetCurrentScriptDirectory ~ ".\Sounds\se_kira01.wav");
  260. blastbullet;
  261. wait(120);
  262.  
  263.  
  264. }
  265.  
  266. }
  267.  
  268.  
  269.  
  270.  
  271.  
  272. task blastbullet{
  273.  
  274.  
  275.  
  276. let obj2216=Obj_Create(OBJ_SHOT);
  277. Obj_SetX(obj2216,GetX);
  278. Obj_SetY(obj2216,GetY);
  279. Obj_SetSpeed(obj2216,4);
  280. Obj_SetAngle(obj2216,GetAngleToPlayer);
  281. ObjShot_SetBombResist(obj2216,true);
  282. ObjShot_SetGraphic(obj2216,248);
  283.  
  284. while(!Obj_BeDeleted(obj2216)){yield;
  285.  
  286.  
  287.  
  288.  
  289. Obj_SetAutoDelete(obj2216,true);
  290.  
  291.  
  292. CreateShotA(221,Obj_GetX(obj2216)+rand(-15,15),Obj_GetY(obj2216)+rand(-15,15),0);
  293.  
  294.  
  295. SetShotDataA(221,0,0,angle2,0,0,1,239);
  296.  
  297. SetShotKillTime(221,60);
  298.  
  299. FireShot(221);
  300.  
  301.  
  302. }}
  303.  
  304.  
  305. task bullet3{
  306.  
  307. wait(300);
  308.  
  309. let obj24=Obj_Create(OBJ_SHOT);
  310. Obj_SetX(obj24,GetX);
  311. Obj_SetY(obj24,GetY);
  312. Obj_SetSpeed(obj24,4);
  313. Obj_SetAngle(obj24,90+an);
  314. ObjShot_SetBombResist(obj24,true);
  315. ObjShot_SetGraphic(obj24,249);
  316.  
  317. while(!Obj_BeDeleted(obj24)){yield;
  318.  
  319. if(Obj_GetX(obj24)<GetPlayerX+50){
  320. if(Obj_GetX(obj24)>GetPlayerX-50){
  321. if(Obj_GetY(obj24)<GetPlayerY+50){
  322. if(Obj_GetY(obj24)>GetPlayerY-50){
  323. Obj_SetSpeed(obj24,1);
  324. ObjShot_SetGraphic(obj24,202);
  325. wait(10);
  326. ObjShot_SetGraphic(obj24,204);
  327. wait(10);
  328. ObjShot_SetGraphic(obj24,202);
  329. wait(10);
  330. ObjShot_SetGraphic(obj24,204);
  331. wait(10);
  332. ObjShot_SetGraphic(obj24,202);
  333. wait(10);
  334. ObjShot_SetGraphic(obj24,204);
  335. wait(10);PlaySE(GetCurrentScriptDirectory ~ ".\Sounds\se_tan02.wav");
  336. loop(20){
  337. CreateShot01(Obj_GetX(obj24),Obj_GetY(obj24),1,angle2+rand(0,360),RED21,10);
  338. angle2+=360/20;
  339. }
  340. loop(20){
  341. CreateShot01(Obj_GetX(obj24),Obj_GetY(obj24),2,angle2+rand(0,360),RED21,10);
  342. angle2+=360/20;
  343. }
  344. loop(20){
  345. CreateShot01(Obj_GetX(obj24),Obj_GetY(obj24),3,angle2+rand(0,360),RED21,10);
  346. angle2+=360/20;
  347. }
  348. loop(20){
  349. CreateShot01(Obj_GetX(obj24),Obj_GetY(obj24),4,angle2+rand(0,360),RED21,10);
  350. angle2+=360/20;
  351. }
  352.  
  353. Obj_Delete(obj24);
  354. }}}}}}
  355.  
  356. /////
  357.  
  358.  
  359.  
  360.  
  361.  
  362. task bullet2{
  363.  
  364. wait(600);
  365. let obj23=Obj_Create(OBJ_SHOT);
  366. Obj_SetX(obj23,GetX);
  367. Obj_SetY(obj23,GetY);
  368. Obj_SetSpeed(obj23,4);
  369. Obj_SetAngle(obj23,180+an);
  370. ObjShot_SetBombResist(obj23,true);
  371. ObjShot_SetGraphic(obj23,202);
  372. angle2+=20;
  373. while(!Obj_BeDeleted(obj23)){yield;
  374.  
  375. if(Obj_GetX(obj23)<GetPlayerX+50){
  376. if(Obj_GetX(obj23)>GetPlayerX-50){
  377. if(Obj_GetY(obj23)<GetPlayerY+50){
  378. if(Obj_GetY(obj23)>GetPlayerY-50){
  379. Obj_SetSpeed(obj23,1);
  380. ObjShot_SetGraphic(obj23,202);
  381. wait(10);
  382. ObjShot_SetGraphic(obj23,204);
  383. wait(10);
  384. ObjShot_SetGraphic(obj23,202);
  385. wait(10);
  386. ObjShot_SetGraphic(obj23,204);
  387. wait(10);
  388. ObjShot_SetGraphic(obj23,202);
  389. wait(10);
  390. ObjShot_SetGraphic(obj23,204);
  391. wait(10);PlaySE(GetCurrentScriptDirectory ~ ".\Sounds\se_tan02.wav");
  392. loop(20){
  393. CreateShot01(Obj_GetX(obj23),Obj_GetY(obj23),1,angle2+rand(0,360),RED21,10);
  394. angle2+=360/20;
  395. }
  396. loop(20){
  397. CreateShot01(Obj_GetX(obj23),Obj_GetY(obj23),2,angle2+rand(0,360),RED21,10);
  398. angle2+=360/20;
  399. }
  400. loop(20){
  401. CreateShot01(Obj_GetX(obj23),Obj_GetY(obj23),3,angle2+rand(0,360),RED21,10);
  402. angle2+=360/20;
  403. }
  404. loop(20){
  405. CreateShot01(Obj_GetX(obj23),Obj_GetY(obj23),4,angle2+rand(0,360),RED21,10);
  406. angle2+=360/20;
  407. }
  408.  
  409. Obj_Delete(obj23);
  410. }}}}}}
  411.  
  412. /////
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424. task bullet{
  425. let obj2=Obj_Create(OBJ_SHOT);
  426. Obj_SetX(obj2,GetX);
  427. Obj_SetY(obj2,GetY);
  428. Obj_SetSpeed(obj2,4);
  429. Obj_SetAngle(obj2,270+an);
  430. ObjShot_SetBombResist(obj2,true);
  431. ObjShot_SetGraphic(obj2,202);
  432. angle2+=20;
  433. while(!Obj_BeDeleted(obj2)){yield;
  434.  
  435. if(Obj_GetX(obj2)<GetPlayerX+50){
  436. if(Obj_GetX(obj2)>GetPlayerX-50){
  437. if(Obj_GetY(obj2)<GetPlayerY+50){
  438. if(Obj_GetY(obj2)>GetPlayerY-50){
  439. Obj_SetSpeed(obj2,1);
  440. ObjShot_SetGraphic(obj2,202);
  441. wait(10);
  442. ObjShot_SetGraphic(obj2,204);
  443. wait(10);
  444. ObjShot_SetGraphic(obj2,202);
  445. wait(10);
  446. ObjShot_SetGraphic(obj2,204);
  447. wait(10);
  448. ObjShot_SetGraphic(obj2,202);
  449. wait(10);
  450. ObjShot_SetGraphic(obj2,204);
  451. wait(10);PlaySE(GetCurrentScriptDirectory ~ ".\Sounds\se_tan02.wav");
  452. loop(20){
  453. CreateShot01(Obj_GetX(obj2),Obj_GetY(obj2),1,angle2+rand(0,360),RED21,10);
  454. angle2+=360/20;
  455. }
  456. loop(20){
  457. CreateShot01(Obj_GetX(obj2),Obj_GetY(obj2),2,angle2+rand(0,360),RED21,10);
  458. angle2+=360/20;
  459. }
  460. loop(20){
  461. CreateShot01(Obj_GetX(obj2),Obj_GetY(obj2),3,angle2+rand(0,360),RED21,10);
  462. angle2+=360/20;
  463. }
  464. loop(20){
  465. CreateShot01(Obj_GetX(obj2),Obj_GetY(obj2),4,angle2+rand(0,360),RED21,10);
  466. angle2+=360/20;
  467. }
  468.  
  469. Obj_Delete(obj2);
  470. }}}}}}
  471.  
  472.  
  473.  
  474.  
  475.  
  476.  
  477.  
  478.  
  479.  
  480. task radar{wait(180);
  481.  
  482. loop(888){
  483. PlaySE(GetCurrentScriptDirectory ~ ".\radar.wav");
  484. wait(90);
  485. }}
  486. task lasers{
  487.  
  488. loop(10){
  489.  
  490.  
  491.  
  492.  
  493. CreateLaserB(10,500,50,RED01,20);
  494.  
  495. SetLaserDataB(10,0,0,20,0,angle+180,-0.4,angle+180,-0.4);
  496.  
  497.  
  498. angle+=36;
  499.  
  500. SetShotKillTime(10,60);
  501.  
  502. FireShot(10);
  503. wait(10);
  504. }
  505.  
  506. }
  507. function wait(n) {loop(n){yield;} }
  508.  
  509.  
  510. task charge{PlaySE(GetCurrentScriptDirectory ~ ".\Sounds\se_ch00.wav");Concentration01(60);wait(60);}
  511. ///////////////
  512.  
  513.  
  514.  
  515.  
  516. }
  517.  
  518.  
  519. }}
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!